Makasi pak Seno atas share ilmunya. Pas sesuai keinginan. ^^b Mau nanya sedikit lagi untuk pertanyaan no. 1. itu kan searchnya terbatas hanya untuk row 2 sampe row 101. kl searchnya untuk seluruh row saya ubah B:B, jadi sangat lama prosesnya. ada cara yg lainnya kah?
________________________________ From: o' Seno <[email protected]> To: [email protected] Sent: Thursday, January 5, 2012 3:50 PM Subject: Re: [belajar-excel] filtering karakter (lagi) dan save data pada sheet yg sesuai karakter maaf, workbook yg dikirim adalah workbook versi 1 step sebelum dianggap final makronya ada kurang sedikit mohon dibuka module sheet Reg & Search editlah makro menjadi seperti ini (hanya ada penambahan + 1 Private Sub CommandButton1_Click() '-- entri data -- Dim EntriSheet As Worksheet Dim rDestin As Range Dim iRow As Long Set EntriSheet = Worksheets(Left(Range("J5"), 1)) Set rDestin = EntriSheet.Cells(1).CurrentRegion iRow = rDestin.Rows.Count+ 1 Range("J4:J7").Copy rDestin(iRow, 1).Resize(1, rDestin.Columns.Count). _ PasteSpecial xlPasteValuesAndNumberFormats, Transpose:=True Application.CutCopyMode = False End Sub o'Seno http://www.box.com/s/1c5lpx7mcb8y0t2meaxh 2012/1/5 o' Seno <[email protected]> oh ada kasus baru, gak lihat, soalnya main catur mulluk... > >gampang... >yg nomor 2 dulu >VBA Code untuk memasukkan data (data entri) >dari range J4:J7 di sheet REG SEARCH >ke sheet yg nama Tab nya sama dengan huruf pertama cell J5 >ya kan ?? > > >' ------- module Sheet REG & SEARCH" --------- >Private Sub CommandButton1_Click() > '-- entri data -- > Dim EntriSheet As Worksheet > Dim rDestin As Range > Dim iRow As Long > > Set EntriSheet = Worksheets(Left(Range("J5"), 1)) > Set rDestin = EntriSheet.Cells(1).CurrentRegion > iRow = rDestin.Rows.Count > Range("J4:J7").Copy > rDestin(iRow, 1).Resize(1, rDestin.Columns.Count). _ > PasteSpecial xlPasteValuesAndNumberFormats, Transpose:=True > Application.CutCopyMode = False >End Sub > >
