koding tombol simpan form

  1. 2 tahun lalu

    Assalmu'alaikum
    yth para master vb
    aku minta bantuan buatin koding simpan pls...
    tadinya sya sdh buat tapi salah terus....

    dari form disimpan di sheets db_trx [TBL_LAYANAN]
    Sekalian no. transksainya dengan no. : TRXDDMMYY0001 contoh :TRX0310210001

    sebelum dan sesudahnya saya ucapkan terima kasih semoga menjadi amal baik yang diterima di sisi-Nya
    aplikasi ini saya buat untuk bukan untuk bisnis tapi untuk membantu dalam pengiriman paket ke pondok biar lebih rapi

  2. Caton

    28 Okt 2021 Terverifikasi Indonesia + 20.101 Poin

    @waa ...

    Coba ubah script pada prosedur Sub Layanan() menjadi seperti berikut:

    Sub Layanan()
        Dim lRow As Long, lCount As Long
    
        With Sheet3.ListObjects("TB_LAYANAN").DataBodyRange
            lCount = WorksheetFunction.Count(.Columns(1))
            If lCount > 0 Then
                If .Rows.Count < lCount + 1 Then
                    Sheet3.ListObjects("TB_LAYANAN").ListRows.Add AlwaysInsert:=True
                    lRow = Sheet3.ListObjects("TB_LAYANAN").ListRows.Count
                Else
                    lRow = lCount + 1
                End If
            ElseIf lCount = 0 Then
                lRow = 1
            End If
                
            .Cells(lRow, 1).Value2 = Sheet8.Range("E3").Value2
            .Cells(lRow, 2).Value2 = Sheet8.Range("E5").Value2
            .Cells(lRow, 3).Value2 = Sheet8.Range("E7").Value2
            .Cells(lRow, 4).Value2 = Sheet8.Range("E9").Value2
            .Cells(lRow, 5).Value2 = Sheet8.Range("E11").Value2
            .Cells(lRow, 6).Value2 = Sheet8.Range("E13").Value2
            .Cells(lRow, 7).Value2 = Sheet8.Range("E15").Value2
            .Cells(lRow, 8).Value2 = Sheet8.Range("E17").Value2
            .Cells(lRow, 9).Value2 = Sheet8.Range("E19").Value2
            .Cells(lRow, 10).Value2 = Sheet8.Range("J7").Value2
            .Cells(lRow, 11).Value2 = Sheet8.Range("J9").Value2
            .Cells(lRow, 12).Value2 = Sheet8.Range("J11").Value2
        End With
        
    End Sub

    Sedangkan untuk nomor transaksi, pada sheet FORM_LYN sel E5 masukkan saja formula:

    =CONCATENATE("TRX";TEXT($E$3;"ddmmyy");TEXT(COUNT(TB_LAYANAN[TANGGAL]);"0000"))

    Demikian.

  3. alhamdulillah... trims mas @Caton ...
    jazakumulloh akhsanal jaza...
    saya coba dulu

  4. alhamdulillah... ternyata jos master... thank mastah

  5. Caton

    2 Nov 2021 Terverifikasi Indonesia + 20.101 Poin

    @waa...

    Wa jazakallahu khair... Alhamdulillah.

 

atau Mendaftar untuk ikut berdiskusi!