Master ,Masih sedikit error .Keteranganya error Debuger Pada 8 Oktober 2012 18:21, jono selaludinanti <[email protected]>menulis:
> 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 >>> >> >> >> > >
