PINDAH DATA DARI BARIS YG ADA ISIANNYA SAJA KE SHEET LAIN

  1. 4 minggu lalu

    Salam para master, semog sehat selalu serta rizqi melimpah.
    Mohon pencerahannya punya masalah pindah semua data dari baris yg ada isiannya dicolum bayar dari Sheet2 ke Sheet1 tidak sukses
    contoh susunan datanya yang akan di pindah file dibawah ini
    sheet2
    NO Nama KODE BAYAR
    1 SADI 4.400.10 100,000.00
    2 SAURI
    3 SYAKUR 4.400.20 200,000.00
    4 QUSYAIRI 4.400.20 400,000.00
    5 SAMSUL
    6 SANI
    7 AHMAD 4.400.30 300,000.00

    format data yang akan menerima pemindahan data
    sheet1
    No Tanggal REKENING DEBET KREDIT KETERANGAN

    Sub Input_clik()
    Dim i As Integer
    Dim a As Integer
    h = Sheet1.Cells(2, "A").CurrentRegion.Rows.Count
    'cells(2,1) angka 2 menunjukkan baris, angka 1 menunjukan colum
    For i = 3 To h

    j = Sheet2.Cells(3, "A").CurrentRegion.Rows.Count
    'cells(2,1) angka 2 menunjukkan baris, angka 1 menunjukan colum
    For k = 3 To j
    a = Sheet2.Cells(k, 4)
    b = Sheet2.Cells(k, 3)
    t = "TODAY()"

    If a > 1 Then
    cek = Sheet2.Cells(k, 4)
    If cek < 5 Then
    Sheet1.Cells(i, 2).Value = "1"
    Sheet1.Cells(i, 2).Value = t.NumberFormat = "dd/mmm/yy"
    Sheet1.Cells(i, 3).Value = b
    Sheet1.Cells(i, 4).Value = ""
    Sheet1.Cells(i, 5).Value = a
    Sheet1.Cells(i, 3).Value = "BAYAR"
    End If
    Else
    Sheet1.Cells(i, 2).Value = "2"
    Sheet1.Cells(i, 2).Value = t.NumberFormat = "dd/mmm/yy"
    Sheet1.Cells(i, 3).Value = b
    Sheet1.Cells(i, 4).Value = a
    Sheet1.Cells(i, 5).Value = ""
    Sheet1.Cells(i, 3).Value = "BAYAR"

    End If
    Next i
    End Sub

  2. Coba Seperti ini

  3. Terima kasih banyak ilmunya, smg dibalas kebaikannya berkah umur dn rizqinya

 

atau Mendaftar untuk ikut berdiskusi!