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
>
>
re-INPUT JADWAL.xlsb
Description: Binary data
