makasih bgt atas penjelasannya...saya udah coba dan berhasil.. ^_^
tapi ada lagi yg mw ditanya nih...
(1) bila ada dua kondisi dalam 1 sheet..misalkan :
kode pertama 413/FP/III/10 dan harus otomatis bertambah 1 jadi 414
kemudian kode kedua 428/FP/NSN-III-10 juga harus bertambah 1 jadi 429..gmna
caranya??
(2)mohon penjelasn untuk perintah2 yg ada pada sub sheetcopy..karena saya blm
ngerti bgt apa fungsinya...dan karena dalam kode 413/FP/III/10 ada artinya..
seperti 413 sbg no urut, FP sbg kode perusahaan, III sbg bulan, 10 sbg
tahun...jadi saya blm tau penempatan perintah itu ada dimana dlm sub sheetcopy
jika saya ingin menggantinya...
(3)bisa gak saya menggambil cell atau data dari worksheet lain secara otomatis
juga. misal :
dalam 1 file yg ada kode 413/FP/III/10 dan kode 428/FP/NSN-III-10 juga ada
nomor pembelian cont 2546855, yg ada dlm worksheet lain..tapi no pembelian itu
berbeda-beda dan no pembelian itu terdata secara horizontal dlm worksheet
tersebut...
gmn cara mengmbilnya?.....supaya copyan sheet menjadi 414/FP/III/10 dan
429/FP/NSN-III-10 juga no pembelian menjadi 2568946 (diambil dari worksheet
lain, cell dibawahnya setelah 2546855...)
terima kasih...
> 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
>
