Wah.terima kasih banyak atas bantuannya Mbak Siti.. Salut deh sama Mbak Siti, bisa bikin makronya secepat itu.bagi resepnya dong Mbak biar bisa bikin macro dalam waktu yang singkat..
Terima kasih.. _____ From: [email protected] [mailto:[email protected]] On Behalf Of siti Vi Sent: Saturday, 24 October, 2009 12:11 To: [email protected] Subject: Re: [belajar-excel] Input & Menampilkan data secara otomatis untuk menginputkan memang perlu makro tetapi untuk menampilkan data sesuai kriteria tgl (sheet tampil) cukup dengan formula Private Sub CommandButton1_Click() '-------------------------------------------- ' siti Vi / 24okt2009 ' meng-entry data di sheet Input ke Tabel '-------------------------------------------- Dim MatchDateCol As Integer, i As Long, t As Long Dim TBL As Range, TBL1 As Range, TglBar As Range, dInput As Range Set TBL = Sheets("Table").Range("A2").CurrentRegion Set TBL = TBL.Offset(1, 1).Resize(TBL.Rows.Count - 1, TBL.Columns.Count - 1) Set TBL1 = TBL.Offset(0, -1).Resize(TBL.Rows.Count, 1) Set TglBar = TBL.Offset(-1, 0).Resize(1, TBL.Columns.Count) Set dInput = Me.Range("B4").CurrentRegion.Offset(1, 0) Set dInput = dInput.Resize(dInput.Rows.Count - 1, dInput.Columns.Count) MatchDateCol = WorksheetFunction.Match([B1], TglBar, 0) For i = 1 To dInput.Rows.Count If LenB(dInput(i, 1)) > 0 Then t = WorksheetFunction.Match(dInput(i, 1), TBL1, 0) TBL(t, MatchDateCol) = dInput(i, 2) End If Next i End Sub ----- Original Message ----- From: Edo Ymail To: [email protected] Sent: Saturday, October 24, 2009 10:14AM Subject: [belajar-excel] Input & Menampilkan data secara otomatis Dear para master XL.. Mau tanya nih & minta bantuannya.. Jika kita punya tabel yang terdiri dari kode & tanggal ( seperti di Sheet Table), apakah kita bisa menginputnya dengan cara meninputnya melalui Sheet Input? Sebagai contoh :Jika pada kolom kode kita isikan aaa dan pada kolom jumlah kita isikan 5000, maka jika kita klik pada tombol input, data tersebut akan terisikan secara otomatis pada tabel di Sheet Table dengan posisi yang seseuai dengan data dari Sheet Input ---baris 2 (sesuai dengan kode yaitu aaa) dan kolom B (sesuai dengan tanggal yaitu 1-Jan-09) akan terisi 5000. Sedangkan pada Sheet Tampil, jika kita klik tombol Tampil maka akan menampilkan data dari tabel di Sheet Table yang sesuai dengan tanggal yang terdapat pada B1. Sebagai contoh apabila kita klik tombol tampil dan tanggal pada B1 adalah 1-Jan-09, maka pada kolom kode kolom jumlah akan menampilkan data yang ada pada Sheet Table. Terima Kasih.. Edo
