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
>>
>>
>>
>>
>>
>
>
