Ambil data dan simpan di data terakhir

  1. 4 minggu lalu

    bagaimana mengambil data dan di simpan di data terakhir pada book1 yang di warnai hijau.

    trims..

  2. Di sunting 4 minggu lalu oleh manweljs_

    @ddtopgun

    terlampir contohnya

  3. terima kasih @manweljs_

  4. ada error gan pas sy terapkan di punya saya

    object variable or with block variable not set

    setelah for each di var r nya

  5. manweljs_

    Sep 1 Terverifikasi + 11.070 Poin

    @ddtopgun ...object variable or with block variable not set...

    berarti yang dicari tidak ditemukan, sehingga nilai r tidak ada

  6. padahal datanya ada gan...kalau pencaraiannya di 2 workbooks gmn gan..
    saya sudah mencaria dengan worksheet yg berbeda tapi erorr subscript out of range

  7. manweljs_

    Sep 1 Terverifikasi + 11.070 Poin

    @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

  8. Di sunting 4 minggu lalu oleh ddtopgun

    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..

  9. 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
    

  10. dah solve gan ..trims...

 

atau Mendaftar untuk ikut berdiskusi!