script pengulangan

  1. 2 minggu lalu
    Di sunting 2 minggu lalu oleh bejo

    Selamat malam, mohon bantuannya membuat / script perulangan bagaimana ya, contoh terlampir, terima kasih

  2. Yang diulang apanya ya, hasil yg diharapkan spt apa, tolong diketik manual di dalam file supaya kami mengerti, 10-20 baris saja.

  3. itu ada tombol prev (untuk menampilkan data baris sebelumnya) dan next untuk menampilkan data baris selanjutnya. data ada pada sheet 2 master. terima kasih

  4. Caton

    Sep 2 Terverifikasi Indonesia + 14.352 Poin

    @bejo ...

    Coba salin script berikut, dan timpa ke dalam module UserForm1:

    Option Explicit
    
    Private m_lCurIdx As Long
    Private m_lMaxIdx As Long
    
    Private Sub FillTextbox()
        Dim lIdx As Long
        
        If m_lCurIdx >= 1 And m_lCurIdx <= m_lMaxIdx Then
            For lIdx = 1 To 7
                Me.Controls("Textbox" & lIdx) = Sheet2.Cells(m_lCurIdx, lIdx)
            Next
        End If
    End Sub
    
    Private Sub CBnext_Click()
        If m_lCurIdx < m_lMaxIdx Then
            m_lCurIdx = m_lCurIdx + 1
            Call FillTextbox
        End If
    End Sub
    
    Private Sub CBprev_Click()
        If m_lCurIdx > 1 Then
            m_lCurIdx = m_lCurIdx - 1
            Call FillTextbox
        End If
    End Sub
    
    Private Sub UserForm_Initialize()
        m_lCurIdx = Sheet2.Cells(Rows.Count, 1).End(xlUp).Row
        m_lMaxIdx = m_lCurIdx
        Call FillTextbox
    End Sub

    Demikian, semoga sesuai...

  5. terima kaih banyakkkkkkkkkkkkkkk master, tp bahasanya udah programer bgt, saya gk mengerti apa isi perintahnya, tp sekali lagi terima kasih atas waktu dan ilmunya. semoga tuhan membalas budi baik anda.

  6. Caton

    Sep 2 Terverifikasi Indonesia + 14.352 Poin

    @bejo ...

    Sama-sama mas. Terlampir script yang sudah saya kasih keterangan per barisnya agar bisa dipelajari. Silahkan diskusikan kembali jika ada hal yang belum dipahami.

  7. Terima kasih banyak @caton, semoga anda dan keluarga selalu dalam keadaan sehat, dan dilancarkan rezekinya, aamiin,

  8. Caton

    Sep 3 Terverifikasi Indonesia + 14.352 Poin

    @bejo ...

    Allahumma Aamiin... Semoga kebaikan yang lebih baik untuk Anda mas @bejo...

 

atau Mendaftar untuk ikut berdiskusi!