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
short-cutnya diatur melalui Alt+F8 > tombol Option...
--------------------------------------------------------------------------------
----- Original Message -----
From: dyat
To: [email protected]
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-10 dan pada sheet ke 2
langsung berubah menjadi 471/FP/NSN-IV-10
terima kasih
ctv_mengkopy sheet sambil mangubah ANGKA.xls
Description: MS-Excel spreadsheet
