Yup. Untuk penggunaan loop dengan For Next sudah benar pada sisi menyimpan nilai kedalam variabel. Masalahnya adalah variabel belum didefinisikan (lihat baris dim blabla) untuk berisi berapa elemen. Karena for next nya fix dengan 4 elemen mulai dari 1 sampai 4, maka baris dim didefinisikan lebih dulu dim data1(1 to 4) as string
Loop pada penulisan ke cell juga sudah benar, hanya isi dalam loop, terutama dalam hal pengertian menyimpan (menulis) data dan membaca data yang masih harus diperbaiki, yaitu melalui penjelasan tentang tanda sama dengan di email yang lalu. Benda yang ada di kiri sama dengan akan menyimpan atau ditulisi data, sedang benda yang ada di kanan sama dengan adalah sumbernya (yang menyimpan nilai yang akan ditulis atau disimpan ke tempat lain). Jadi baris penulisan data di loop kedua yang terbalik, karena lokasi penulisan data (cell tertentu) diletakkan di kanan sama dengan, yang harusnya di kiri sama dengan. Yang perlu diingat, banyak sekali cara membaca dan menulis data dari dan ke sesuatu. Bisa jadi tidak perlu menggunakan loop. Tidak semua proses dengan loop akan membuat proses menjadi cepat, dan ada beberapa proses yang justru akan lebih cepat menggunakan loop. Semoga proses loop tersebut adalah langkah awal untuk lebih berani mencoba cara-cara lainnya, termasuk penggunaan object milik Excel secara optimal, karena object banyak yang memiliki methods dan properti yang akan memudahkan proses, seperti copy paste dan sebagainya. Wassalam, Kid. 2013/6/14 Sony Ario <[email protected]> > ** > > > Mr Kid, > > Thanks respon nya. > > Mungkin pertanyaan nya apakah metode memasukan nilai yang ada di range, > dengan cara For Next di code saya sudah benar ? :) mohon koreksi dari Mr > Kid dan teman2 disini terhadap code saya. > > Salam > Sony > > > 2013/6/14 Mr. Kid <[email protected]> > > ** >> >> >> Eh lupa. >> >> Untuk copy paste data dari suatu range ke range lain, bisa dengan : >> 1. copy paste seluruhnya >> range(asal).copy range(tujuan) >> contoh : >> range("a1:a4").copy range("j1:j4") >> atau >> range("a1:a4").copy range("j1") >> >> jika antar worksheet >> sheets("nama sheet asal").range("a1:a4").copy sheets("nama >> sheet tujuan").range("j1") >> >> 2. copy paste special values >> range(asal).copy >> range(tujuan).pastespecial xlpastevalues >> >> Wassalamu'alaikum Wr. Wb. >> Kid. >> >> >> >> >> 2013/6/14 Mr. Kid <[email protected]> >> >>> Wa'alaikumussalam Wr. Wb. >>> >>> Coba baris : >>> Dim Data1() As String >>> >>> diganti dengan : >>> dim Data1( 1 to 4 ) as string >>> >>> Sekalian juga, coba diperhatikan baris berbunyi : >>> Data1(N) = ActiveCell.Value >>> >>> Artinya : >>> "Simpan nilai dalam aktif cell ke variabel data1 elemen ke-N" >>> >>> Jadi, yang dikiri tanda sama dengan adalah tujuan atau lokasi >>> penyimpanan >>> dan yang dikanan sama dengan adalah nilai yang akan disimpan. >>> >>> Menyimpan data ke variabel tertentu artinya, variabel tertentu >>> diletakkan di kiri sama dengan >>> Menyimpan data ke cell tertentu (atau menulis ke cell) artinya, cell >>> tertentu diletakkan di kiri sama dengan >>> >>> Wassalam, >>> Kid. >>> >>> >>> >>> >>> >>> >>> >>> >>> >>> >>> >>> >>> 2013/6/14 Sony Ario <[email protected]> >>> >>>> ** >>>> >>>> >>>> Assalamualaikum Be-Excelers. >>>> >>>> Mohon bantuan. Di file terlampir saya bermaksud mengisi variable Data1 >>>> dengan menggunakan looping (For... Next) yang data nya ada di range G1 >>>> sampai dengan G4. Sudah coba berapa kali tapi tetap nggak bias ya ? yang >>>> ingin saya lakukan adalah isi variable Data1 tsb, setelah terisi, dengan >>>> menggunakan looping, menulis data tsb mulai dari Range J1. >>>> >>>> Kendengaran nya simple ya ? maklum saya nubie banget. Disisi lain >>>> pikiran juga lagi buntu banget.. hehehe.. >>>> >>>> terima kasih sebelumnya. >>>> >>>> Wassalam >>>> Sony >>>> >>>> >>>> >>>> >>> >> > >
