coba cari tanya jawab mengenai *menDINAMISKAN Rujukan Range *belum lama ini misal di http://tech.groups.yahoo.com/group/belajar-excel/message/14825
tetapi jika memang datanya BANYAK, rumus berat itu memang akan memperlamban kinerja worksheet, kecuali anda mau mengeSET Excel-Options: Calculation = Manual (sewaktu-waktu perlu recalculate, tinggal tekan F9) Anda sebagai pemilik data (calon data) apakah gak punya perkiraan : MAX ROWs nya? *o'Seno* http://www.box.com/s/1c5lpx7mcb8y0t2meaxh 2012/1/5 Reza F <[email protected]> > ** > > > 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 >
