Penambahan Data di Row Kosong tidak jalan apabila boolean di aktifkan

  1. 12 bulan yang lalu
    Di sunting 12 bulan yang lalu oleh Raka

    "Salam Kenal rekan-rekan dan para Master Excel"
    Mohon Bantuanya para Master nih
    saya lagi buat tugas VBA
    tapi ada kelsulitan dalam penggunaan Boolean yang dikolaborasikan dengan penggunaan script penambahan data di baris baru menggunakan iRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
    berikut file nya saya lampirkan
    semoga Master sekalian dapat membantu
    Terima kasih

  2. .

  3. ini contoh file yang sedang saya garap, mohon bantuannya

  4. Caton

    18 Nov 2017 Terverifikasi Indonesia + 12.493 Poin

    Pada prosedur simpan_Click(), variabel iRow tidak terdefinisi. Solusinya definisikan dahulu variabel tersebut. Penggunaan opsi Option Explicit mengharuskan setiap variabel didefinisikan (dideklarasikan) terlebih dahulu. Definisikan (deklarasikan) varibel iRow dengan menggunakan Dim iRow As Long:

    Private Sub simpan_Click()
        Dim ws As Worksheet
        Dim iRow As Long
    
        Set ws = ThisWorkbook.Worksheets("DATA")
        iRow = ws.Cells(Rows.Count, 1) _
            .End(xlUp).Offset(1, 0).Row
    ...

    Demikian... ;)

  5. terimakasih banyak atas bantuannya

  6. Coba file ini, apakah Sesuai yang diharapkan?

 

atau Mendaftar untuk ikut berdiskusi!