Terimakasih Sekali Atas tanggapan Master,,,,,sangat berguna bagi saya Terimakasih.... maaf saya masih NewBie
Pada 8 Oktober 2012 13:45, aji mumpung <[email protected]> menulis: > ** > > > Pak Jono, > > Selamat bergabung di millis Belajar Excel.. > > nampaknya thread bapak belum ada yang sempat menanggapi jadi boleh ya kalo > saya jadi penanggap yang pertama, mumpung lagi sempat posting hehehe.. > > berikut kode yang ditulis di sebuah Command Botton: > > Option Explicit > > Private Sub cmdSimpan_Click() > ' deklarasikan semua variabel yang dibutuhkan > Dim IdxcKelas As Long > Dim IdxrTgl1, IdxrTgl2, IdxrTgl3 As Long > Dim Idx > > ' pergi ke sheet Hasil > Sheets("HASIL").Select > ' cari nomor kolom kelas > IdxcKelas = Cells.Find(Sheets("INPUT").Range("c3").Value).Column > ' cari nomor baris tanggal pertama & jam-nya > IdxrTgl1 = Application.WorksheetFunction.Index(Range("d:d"), _ > > Application.WorksheetFunction.Match(Sheets("INPUT").Range("c8").Value, > Range("d:d"), 0)).Row + Sheets("INPUT").Range("c10").Value > ' cari nomor baris tanggal kedua & jam-nya > IdxrTgl2 = Application.WorksheetFunction.Index(Range("d:d"), _ > > Application.WorksheetFunction.Match(Sheets("INPUT").Range("e8").Value, > Range("d:d"), 0)).Row + Sheets("INPUT").Range("e10").Value > ' cari nomor baris tanggal ketiga & jam-nya > IdxrTgl3 = Application.WorksheetFunction.Index(Range("d:d"), _ > > Application.WorksheetFunction.Match(Sheets("INPUT").Range("g8").Value, > Range("d:d"), 0)).Row + Sheets("INPUT").Range("g10").Value > > ' input data ke sheet hasil > Sheets("HASIL").Cells(IdxrTgl1, IdxcKelas).Value = > Sheets("INPUT").Range("c12").Value > Sheets("HASIL").Cells(IdxrTgl1, IdxcKelas + 1).Value = > Sheets("INPUT").Range("c14").Value > > Sheets("HASIL").Cells(IdxrTgl2, IdxcKelas).Value = > Sheets("INPUT").Range("e12").Value > Sheets("HASIL").Cells(IdxrTgl2, IdxcKelas + 1).Value = > Sheets("INPUT").Range("e14").Value > > Sheets("HASIL").Cells(IdxrTgl3, IdxcKelas).Value = > Sheets("INPUT").Range("g12").Value > Sheets("HASIL").Cells(IdxrTgl3, IdxcKelas + 1).Value = > Sheets("INPUT").Range("g14").Value > End Sub > > code aslinya bisa di lihat pada sheet Input > cara lihatnya dengan cara menekan tombol F11 > > silakan dilihat file lampirannya > > wassalam, > > -aji mumpung- > > > > > Pada 6 Oktober 2012 00:28, jono selaludinanti <[email protected] > > menulis: > > ** >> >> >> para master mohon bantuanya untuk permasalahan yang saya hadapi >> terimakasih >> > > >
