[belajar-excel] Mengisi tabel kosong jika terdapat Total Row

classic Classic list List threaded Threaded
3 messages Options
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

[belajar-excel] Mengisi tabel kosong jika terdapat Total Row

Milis Belajar Excel mailing list
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 LongDim ws As WorksheetSet ws = Worksheets("Sheet1")
irow = ws.Cells.Find(What:="*", searchorder:=xlRows, searchdirection:=xlPrevious, LookIn:=xlValues).Row + 1ws.Cells(irow, 3).Value = Me.Barang.Valuews.Cells(irow, 5).Value = Me.Harga.Valuews.Cells(irow, 6).Value = Me.Satuan.Value
End Sub


Terima kasih.
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: [belajar-excel] Mengisi tabel kosong jika terdapat Total Row

Milis Belajar Excel mailing list
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 [hidden email]
[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.
>

Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Bls: Re: [belajar-excel] Mengisi tabel kosong jika terdapat Total Row

Milis Belajar Excel mailing list
 

Wah iya bener :D
Terimakasih NangAgus 

Regards,

Danny Prasetyo
Terkirim: 8 Agustus 2017 6.34 AM
Balas ke: [hidden email]
Hal: Re: [belajar-excel] Mengisi tabel kosong jika terdapat Total Row

 

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 [hidden email] [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.

__._,_.___

Posted by: Danny Prasetyo <[hidden email]>
Reply via web post [hidden email] [hidden email] Start a New Topic Messages in this topic (3)

Have you tried the highest rated email app?
With 4.5 stars in iTunes, the Yahoo Mail app is the highest rated email app on the market. What are you waiting for? Now you can access all your inboxes (Gmail, Outlook, AOL and more) in one place. Never delete an email again with 1000GB of free cloud storage.

============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
bergabung ke milis (subscribe), kirim mail kosong ke: [hidden email]
posting ke milis, kirimkan ke: [hidden email]
berkunjung ke web milis : http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran : http://www.mail-archive.com/belajar-excel@.../
atau (sejak 25-Apr-2011) bisa juga di : http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: [hidden email]
keluar dari membership milis (UnSubscribe), kirim mail kosong ke : [hidden email]
---------------------------------------------------------------------

.

__,_._,___
Loading...