input data tersimpan ke 2 baris

  1. 2 minggu lalu

    Salam Para master, Mohon pencerahannya ketika menginput tesimpan ke 2 baris sekaligus dari perintah dibawah ini, sementara coba berkali2 yang tersimpan hanya satu bari dari dua perinta berikut

    Sub Rectangle1_Click()
    Dim Baris, totalBaris As String
    totalBaris = ShBuku.Cells.Rows.Count
    Baris = ShBuku.Cells(totalBaris, 2).End(xlUp).Row + 1

    ' Simpan data ke 1
    ShBuku.Range("A" & Baris).Value = JurnalK.Range("F6").Value
    ShBuku.Range("B" & Baris).Value = JurnalK.Range("F10").Value
    ShBuku.Range("C" & Baris).Value = JurnalK.Range("F12").Value
    ShBuku.Range("D" & Baris).Value = JurnalK.Range("F1").Value
    ShBuku.Range("E" & Baris).Value = JurnalK.Range("F20").Value

    ' Simpan data ke 2
    ShBuku.Range("A" & Baris).Value = JurnalK.Range("F14").Value
    ShBuku.Range("B" & Baris).Value = JurnalK.Range("F10").Value
    ShBuku.Range("C" & Baris).Value = JurnalK.Range("F1").Value
    ShBuku.Range("D" & Baris).Value = JurnalK.Range("F18").Value
    ShBuku.Range("E" & Baris).Value = JurnalK.Range("F20").Value

    MsgBox "Data yang diinput sudah tersimpan ke Sheet Database,Silahkan dicek...!!!"

    End Sub

  2. Caton

    Sep 14 Terverifikasi Indonesia + 18.913 Poin

    @mumuskh ...

    ... sementara coba berkali2 yang tersimpan hanya satu bari dari dua perinta berikut ...

    Masalahnya jelas dapat dilihat dari script macro di atas, dimana saat macro dieksekusi, hasil akhir yang muncul di sheet DB_PUSTAKA hanyalah data yang diproses setelah baris ' Simpan data ke 2.

    Detilnya begini, eksekusi baris script berikut :

    ' Simpan data ke 1
    ShBuku.Range("A" & Baris).Value = JurnalK.Range("F6").Value
    ShBuku.Range("B" & Baris).Value = JurnalK.Range("F10").Value
    ShBuku.Range("C" & Baris).Value = JurnalK.Range("F12").Value
    ShBuku.Range("D" & Baris).Value = JurnalK.Range("F1").Value
    ShBuku.Range("E" & Baris).Value = JurnalK.Range("F20").Value

    akan menyimpan data dari sheet TRANSAKSI ke sheet DB_PUSTAKA. Namun kemudian, data tersebut ditimpa (overwriting) kembali oleh baris script :

    ' Simpan data ke 2
    ShBuku.Range("A" & Baris).Value = JurnalK.Range("F14").Value
    ShBuku.Range("B" & Baris).Value = JurnalK.Range("F10").Value
    ShBuku.Range("C" & Baris).Value = JurnalK.Range("F1").Value
    ShBuku.Range("D" & Baris).Value = JurnalK.Range("F18").Value
    ShBuku.Range("E" & Baris).Value = JurnalK.Range("F20").Value

    Jadi, baris script ' Simpan data ke 1 pada dasarnya tidak berguna karena prosesnya akan dilakukan kembali oleh baris script ' Simpan data ke 2.

    ... ketika menginput tesimpan ke 2 baris sekaligus dari perintah dibawah ini ...

    Jika yang Anda inginkan adalah menyimpan data yang sama (dari sheet TRANSAKSI ke sheet DB_PUSTAKA) namun pada baris yang berbeda (misalkan dibedakan berdasarkan kolom DEBET KREDIT pada sheet DB_PUSTAKA), maka yang harusnya Anda lakukan adalah menambahkan nilai variabel Baris dengan 1 (satu) agar proses penyimpanan data beralih ke baris berikutnya, misalkan seperti script berikut :

    ' Simpan data ke 1
    ShBuku.Range("A" & Baris).Value = JurnalK.Range("F6").Value
    ShBuku.Range("B" & Baris).Value = JurnalK.Range("F10").Value
    ShBuku.Range("C" & Baris).Value = JurnalK.Range("F12").Value
    ShBuku.Range("D" & Baris).Value = JurnalK.Range("F1").Value
    ShBuku.Range("E" & Baris).Value = JurnalK.Range("F20").Value
    
    ' Simpan data ke 2
    '+-- Simpan data ke baris berikutnya!
    ShBuku.Range("A" & Baris + 1).Value = JurnalK.Range("F14").Value
    ShBuku.Range("B" & Baris + 1).Value = JurnalK.Range("F10").Value
    ShBuku.Range("C" & Baris + 1).Value = JurnalK.Range("F1").Value
    ShBuku.Range("D" & Baris + 1).Value = JurnalK.Range("F18").Value
    ShBuku.Range("E" & Baris + 1).Value = JurnalK.Range("F20").Value

    Demikian.

  3. Tirima kasih banyak mas @caton pencerahannya, ternyata sederhana gak kepiran kestu.... smg ilmunya bs mnafaat dn berkah khususnya bagi sy, smg kebaikannya dilipat gandakan.

 

atau Mendaftar untuk ikut berdiskusi!