Coba gunakan nama range (klik kanan name a range dan refers to diisi suatu formula ) daripada merujuk seluruh kolom (seperti B:B). Coba kurangi penggunaan fungsi Offset dan memanfaatkan fungsi Index. Mungkin kolom bantu untuk menentukan posisi data yang harus diambil, akan lebih mempercepat proses kalkulasi.
Untuk memindahkan nama yang diinput ke sheet tertentu, Andai sheet berawalan tertentu dimaksudkan untuk memudahkan pencarian nama, maka bisa menggunakan pivot tabel dan filternya nama adalah dengan begins with. Jika tetap ingin ada sheet karakter awalan nama, maka copy pivot table ke sheet tersebut dan ubah kriteria. Dengan begini, Input tetap hanya dilakukan ke sheet register. Bila perlu lengkapi dengan tanggal inputnya di sheet register. Regards, Kid. 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 > > > > *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 > > > > >
