Mungkin file terlampir bisa menjadi contoh sederhana kegiatan loop. Wassalam, Kid.
N.B. Mohon pada posting berikutnya, ukuran file lampiran diusahakan dengan berbagai cara untuk bisa memenuhi batas ukuran file dalam peraturan milis, yaitu <250KB 2012/6/7 Ahmad Zawawi <[email protected]> > ** > > > Dalam file yg saya lampirkan terdapat sheet: "Form Purchase", "Rekap" & > "Dbase" > Di sheet "Form Purchase" yg merupakan sheet utk menginput data, terdiri > dari bbrp baris data item yg akan dibeli yg diinput satu persatu oleh > sebuah Combobox. > Setelah bbrapa baris item terisi, baris2 tsb ingin saya salin menggunakan > sebuah button yang akan mengkopi semua baris yg ada isinya ke sheet > "Rekap". > > Saya baru menemukan tombol yg cuma bisa mencopy satu baris data item. > Baris selanjutnya dg tombol terpisah. Sehingga ada tombol di setiap > barisnya. > > Script tombol tsb sperti ini: > ======script begin==== > Sub CBExport1_Click() > Dim baris As Integer > Dim noNota As Integer > With Worksheets(2) > baris = 3 > noNota = Val(Mid(Worksheets(1).Cells(8, 3), 6)) > While .Cells(baris, 2) <> "" > If .Cells(baris, 2) = noNota Then > MsgBox "Simpan Error, No Urut Sudah Ada", vbCritical, "^_^ > DBase" > Exit Sub > End If > baris = baris + 1 > Wend > .Cells(baris, 2) = GetNoUrut > .Cells(baris, 3) = Date > .Cells(baris, 4) = Worksheets(1).Cells(8, 2) '(baris,4) artinya > kolom 4 di Dbase > .Cells(baris, 5) = Worksheets(1).Cells(8, 1) 'Cells (8, 1) > artinya: cell A8 > .Cells(baris, 6) = Worksheets(1).Cells(8, 8) > .Cells(baris, 7) = Worksheets(1).Cells(8, 9) > .Cells(baris, 8) = Worksheets(1).Cells(8, 10) > .Cells(baris, 9) = Worksheets(1).Cells(8, 11) > .Cells(baris, 10) = Worksheets(1).Cells(8, 12) > .Cells(baris, 11) = Worksheets(1).Cells(20, 12) > > .Cells(baris, 13) = Worksheets(1).Cells(22, 12) > > > > .Cells(baris, 17) = Worksheets(1).Cells(8, 13) > .Cells(baris, 18) = Worksheets(1).Cells(8, 14) > .Cells(baris, 19) = Worksheets(1).Cells(3, 3) > End With > 'kasih border > kasihBorder baris > MsgBox "Data berhasil disimpan ke Database", vbInformation, "^_^ > Database" > > End Sub > =====script end===== > Pertanyaan saya, bagaimana kode utk sebuah tombol yg bisa mewakili seluruh > tombol di setiap baris? > Atas bantuan para master saya ucapkan terimakasih. Mohon maaf jika > bahasanya kacau. > > Zawawi @ Cilegon > > > >
vba_input_sheet.xlsm
Description: Binary data
