@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.