bagaimana mengambil data dan di simpan di data terakhir pada book1 yang di warnai hijau.
trims..
bagaimana mengambil data dan di simpan di data terakhir pada book1 yang di warnai hijau.
trims..
terlampir contohnya
terima kasih @manweljs_
ada error gan pas sy terapkan di punya saya
object variable or with block variable not set
setelah for each di var r nya
@ddtopgun ...object variable or with block variable not set...
berarti yang dicari tidak ditemukan, sehingga nilai r tidak ada
padahal datanya ada gan...kalau pencaraiannya di 2 workbooks gmn gan..
saya sudah mencaria dengan worksheet yg berbeda tapi erorr subscript out of range
@ddtopgun ...padahal datanya ada...
datanya ada dimana? apakah sesuai contoh yang saya berikan? jawaban saya sesuai contoh yang saya berikan.
@ddtopgun ...kalau pencaraiannya di 2 workbooks gmn gan..saya sudah mencaria dengan worksheet yg berbeda tapi erorr subscript out of range
kalau beda worksheet, worksheetnya harus disebutkan, jika tidak disebutkan maka akan dianggap sebagai activesheet. kalau beda workbook, nama workbook dan worksheetnya harus disebutkan. diforum ini ada banyak sekali contoh ambil data dari beda workbook. bahkan salah satu diskusi anda juga sudah pernah membahas tentang beda workbook.
terlampir contoh untuk beda worksheet, yang beda workbook silahkan di coba2 sendiri.
Demikian
ini sdh di sebutkan jg
x = ws.Range("C" & Rows.Count).End(xlUp).Row Set wsStockTaking = wb.Worksheets("nama_sheet") LastRowStockTaking = wsStockTaking.Range("S" & Rows.Count).End(xlUp).Row For Each sel In wsStockTaking.Range("K7:K" & LastRowStockTaking) Set r = Range("C4:C" & x).Find(sel.Value, , xlValues, xlWhole, , xlPrevious) If Not (r Is Nothing) Then MsgBox r.Row ' Exit Sub ' ws.Cells(r, 18) = sel.Offset(0, 10) End If Next sel
hasilnya cuma 1 row terus..
saya ganti model seperti ini sama hanya menampilkan 1 row saja
For Each sel In wsStockTaking.Range("K7:K" & LastRowStockTaking) Set r = xws.Range("C4:C" & x).Find(sel.Value, , xlValues, xlWhole, , xlPrevious) If Not (r Is Nothing) Then MsgBox r.Row ' Exit Sub ' Cells(r, 18) = sel.Offset(0, 10) End If Next sel
dah solve gan ..trims...