Kalau dimisalkan ; ANGKA adalah nama sheet yg tercantum pada TabSheet,
itu ".tak mu'in..." karena sheet tidak boleh diberinama dengan
string yg mengandung karakter "/"
Jadi enaknya dimisalkan :
yg dimaksud dengan ANGKA itu adalah data di Range A1 berupa text :
470/FP/NSN-IV-10
kita mengkopy sheetnya sebaiknya dengan short-cut Ctrl+k
(jangan mengkopy dengan cara lain)
maka hasilnya sheet baru dimana cell A1 nya sudah berubah
471/FP/NSN-IV-10
Sub SheetCopy()
'---siti Vi-- menyalin sheet & mengubah angka
Dim Angka As Long, Sandi As String, wd As Byte
wd = InStr(1, Range("A1"), "/") - 1
Sandi = Mid(Range("A1"), wd + 1, 99)
Angka = Left(Range("A1"), wd)
ActiveSheet.Copy After:=Sheets(Sheets.Count)
ActiveSheet.Range("A1") = Angka + 1 & Sandi
End Sub
'---siti Vi-- menyalin sheet & mengubah angka
Dim Angka As Long, Sandi As String, wd As Byte
wd = InStr(1, Range("A1"), "/") - 1
Sandi = Mid(Range("A1"
Angka = Left(Range("
ActiveSheet.
ActiveSheet.
End Sub
short-cutnya diatur melalui Alt+F8 > tombol Option...
----- Original Message -----
From: dyat
To: XL-mania@yahoogroup
Sent: Thursday, April 08, 2010 3:04 PM
Subject: ]] XL-mania [[ sheet
salam kenal...
langsung aja ya...gimana caranya menambah angka secara otomatis dalam
setiap sheet yang qta copy paste (move or copy sheet) dari sheet lain
misal : pada sheet 1 angkanya 470/FP/NSN-IV-
langsung berubah menjadi 471/FP/NSN-IV-
terima kasih
__._,_.___
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Ada lowongan buat momods ga? Lowongan buat posisi boss gitu... :D |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html |
+-------------------------------------------------------------------+
| Message lama ada di : |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com |
+-------------------------------------------------------------------+
| Ada lowongan buat momods ga? Lowongan buat posisi boss gitu... :D |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html |
+-------------------------------------------------------------------+
| Message lama ada di : |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com |
+-------------------------------------------------------------------+
MARKETPLACE
.
__,_._,___
Nenhum comentário:
Postar um comentário