Dear Danny,
Bagaimana kalau total row disembunyikan dahulu, diisi tabelnya, kemudian
total rownya dimunculkan lagi?
Dim irow As Long
Dim ws As Worksheet
Set ws = Worksheets("Sheet1")
ws.ListObjects("Transaksi").ShowTotals = False
irow = ws.Cells.Find(What:="*", searchorder:=xlRows,
searchdirection:=xlPrevious, LookIn:=xlValues).Row + 1
ws.Cells(irow, 3).Value = Me.Barang.Value
ws.Cells(irow, 5).Value = Me.Harga.Value
ws.Cells(irow, 6).Value = Me.Satuan.Value
ws.ListObjects("Transaksi").ShowTotals = True
Salam
NangAgus
On 8/7/2017 2:24 PM, Danny Prasetyo aydprase...@yahoo.com
[belajar-excel] wrote:
Case 1 = Saya memiliki 1 tabel yang bernama Transaksi, dan pada tabel
tersebut terdapat Total Row yang berada paling bawah.
Permasalahannya adalah, saya tidak bisa mengisi di dalam tabel, karena
terdapat Total Row tersebut.
Bagaimana caranya agar dapat mengisi di dalam tabel, jika saya
menggunakan rumus seperti di bawah ini?
Dim irow As Long
Dim ws As Worksheet
Set ws = Worksheets("Sheet1")
irow = ws.Cells.Find(What:="*", searchorder:=xlRows,
searchdirection:=xlPrevious, LookIn:=xlValues).Row + 1
ws.Cells(irow, 3).Value = Me.Barang.Value
ws.Cells(irow, 5).Value = Me.Harga.Value
ws.Cells(irow, 6).Value = Me.Satuan.Value
End Sub
Terima kasih.