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...
>
>
>
> ----------------------------------------------------------
>
> ----- Original Message -----
> From: dyat
> To: XL-mania@yahoogroups.com
> 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
>

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (3)

Recent Activity:

• New Members 97

Visit Your Group

+-:: 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              |
+-------------------------------------------------------------------+

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___