sebaiknya anda "sekali-sekali" menyertakan sheet / book yg berisi "sesuatu" yg nyata, yang anda katakan sebagai "KODE", "NOMOR PEMBELIAN" dst itu..
supaya jangan ada kesan bahwa anda hanya "ngomong" melulu trus kita-kita yang jadi tukang "mengira-kira" dan "mbikin" apa yg anda "omongkan" menjadi sesuatu yg nyata di sheet... ndak seimbang nih.... he he.. -------------------------------------------------------------------------------- ----- Original Message ----- From: dyat To: [email protected] Sent: Sunday, April 11, 2010 3:51 PM Subject: Re: ]] XL-mania [[ sheet 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...
