oke agan master,terimakasih saya tunggu kabar selanjutnya
Pada 9 Oktober 2012 09:40, aji mumpung <[email protected]> menulis: > ** > > > Pak Jono, > > setelah saya berkonsultasi dengan Mr Kid, dan mengulang kembali wejangan > beliau.. maka saya coba memanggil prosedur simpan dari command botton > tersebut.. > > Sekarang tombol simpannya sudah berfungsi dengan baik.. sementara ini > belum sempat buat ngutak-atik kodenya agar script tersebut bisa langsung > ditulis di tombol Simpan > > berikut kode lengkapnya: > > > ==================================================================================================== > Bagian 1, ditulis di command button Simpan > > Option Explicit > > Private Sub cmdSimpan_Click() > Call Simpan > End Sub > > ===================================================================================================== > > > > ===================================================================================================== > Bagian 2, ditulis di sebuah modul dengan nama prosedur Sub Simpan > > Option Explicit > > Sub Simpan() > ' deklarasikan semua variabel yang dibutuhkan > Dim IdxcKelas As Long > Dim IdxrTgl1, IdxrTgl2, IdxrTgl3 As Long > > ' 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 > > =========================================================================================================== > > terima kasih untuk Mr Kid.. > > wassalam, > > -aji mumpung- > > *Tuntutlah ilmu, sesungguhnya menuntut ilmu adalah pendekatan diri kepada > Allah SWT dan mengajarkannya kepada orang yang tidak mengetahuinya adalah > sedekah* > > > > Pada 9 Oktober 2012 08:39, aji mumpung <[email protected]> menulis: > > Pak Jono, >> >> maaf ternyata masih muncul error ya.. letak errornya di tombol simpannya >> pak.. >> awalnya saya tulis kode tersebut di sebuah modul, setelah saya tes dan >> tidak ada error lalu kode tersebut saya pindah ke command button.. >> >> insya Allah nanti kalo agak senggang saya coba utak-atik lagi kodenya, >> biar tombol savenya berfungsi dengan baik.. sementara pakai file yang ini >> dulu ya pak.. >> caranya simpan dengan menekan 3 (tiga) tombol secara bersamaan >> >> [CTRL] [Shift] [A] >> >> wassalam, >> >> -aji mumpung- (lagi angon kambing di luar kota) >> >> >> Pada 8 Oktober 2012 18:27, jono selaludinanti < >> [email protected]> menulis: >> >> ** >>> >>> >>> 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 >>>>>> >>>>> >>>>> >>>> >>> >> > >
