Hai Mansor, 1. Sebaiknya deklarasikan dulu variabel wksDatabase bertipe data apa. 2. Lanjutkan dengan pendefinisian isi wksDatabase. 3. Baru gunakan variabel wksDatabase untuk bisa mendapatkan nilai yang akan disimpan dalam variabel iRow.
Hal lainnya, sebaiknya sertakan proeperti object control yang digunakan. Contoh, untuk cboID, properti yang digunakan adalah text, maka gunakan Me.cboID.Text daripada sekedar Me.cboID Wassalam, Kid. 2012/11/4 Mansor <[email protected]> > ** > > > > > Saya mau tanya ni, jika saya mau transfer data dari user form ke sheet > database gimana? > > Mohon dicheck makro ini, apakah benar? > > File juga dilampirkan > > Terima kasih. > > -Mansor > > > Private Sub cmdHantar_Click() > Dim iRow As Long > iRow = wksDatabase.Cells(Row.Count, 1).End(xlUp).Offset(1, 0).Row > > With wksDatabase > .Cells(iRow, 1).Value = Me.cboID > .Cells(iRow, 2).Value = Me.txtNama > .Cells(iRow, 3).Value = Me.txtTgl > > End With > > End Sub > > > 2012/11/3 Mr. Kid <[email protected]> > > ** >> >> >> Oh... tentang methods Offset dan Resize milik Range dan juga properti >> CurrentRegion milik Range... >> >> 1. Tentang properti CurrentRegion milik Range. >> >> Sudah pernah coba Goto Special Current Region ? >> Coba deh : >> disebuah tabel data mana saja, klik sebuah cell header (misal A1), tekan >> CTRL G, tekan Special, pilih Current Region, tekan OK >> scriptnya : >> range("a1").currentregion >> hasil script adalah object range >> >> Mau coba ? File terlampir menyediakan ruang untuk mencobanya. >> >> >> 2. Tentang methods Offset dan Resize milik Range. >> >> Sudah kenal fungsi Offset dalam worksheet ? >> >> Kalau belum, sudah pernah dengarkah ? >> >> Kalau belum juga, berarti harus rajin baca deh... >> Garis besarnya begini : >> >> =Offset( *rujukan_range* *,* *lompat_baris , lompat_kolom* * >> **,** * *luasan_baris_hasil , luasan_kolom_hasil** * ) *Range( >> alamat_range_rujukan )**.**Offset( lompat_baris , lompat_kolom )**.** >> Resize( luasan_baris_hasil , luasan_kolom_hasil )* Hasil keduanya >> (ketika >> worksheet menggunakan fungsi Offset atau ketika script menggunakan >> Range.Offset.Resize sesuai kebutuhan) adalah object range. >> >> File terlampir disertai sedikit contoh data yang bisa digunakan untuk >> mencobanya. >> >> >> Wassalam, >> Kid. >> >> >> >> 2012/11/3 him mah <[email protected]> >> >>> ** >>> >>> >>> sudah. berhasil pak. makasih. tapi saya kadang masih bingung dengan >>> offset resize. curenntregion >>> _ >>> >>> >> > >
