Mengcopy data memang sudah menjadi suatu hal yang lumrah dalam kiprah memakai Ms. Excel dan copy paste ibarat yang telah dilakukan tampaknya hal tersebut sudah biasa, namun kali ini bagaimana jikalau kita lakukan copy data pada sheet memakai script VBA? Itu ia kali ini akan saya bahas bagaimana Cara Copy Data dari Satu Sheet ke Sheet Lain.
Berikut tahapannya
Langkah pertama silakan Anda tuliskan data pada sheet1 ibarat berikut ini
Dari data tersebut kita akan copy kan ke sheet2 dengan cara menyisipkan tombol copy sheet dan caranya sebagai berikut
Silakan buat tombol "CommandButton" ingat pilih yang ActiveX Control
langkah berikutnya kita akan mengganti Caption CommandButton tersebut menjadi "Copy Sheet" dengan cara kita harus menampilkan terlebih dahulu Properti lalu silakan cari Caption dan ganti dengan goresan pena " Copy Sheet"
Simak : Cara Copy Sheet ke File Baru dengan Cepat
Kemudian silakan klik View Code dan ketikkan script berikut ini
Private Sub CommandButton1_Click()Script diatas jikalau tombol " Copy Sheet" di klik akan menjalankan copy data dari sheet 1 dan dipastekan ke sheet2 dan alhasil akan tampak ibarat gambar berikut
x = 2
Do While Cells(x, 1) <> “”
If Cells(x, 4) >= 20000 Then
Worksheets(“Sheet1”).Rows(x).Copy
Worksheets(“Sheet2”).Activate
eRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
ActiveSheet.Paste Destination:=Worksheets(“Sheet2”).Rows(eRow)
End If
Worksheets(“Sheet1”).Activate
x = x + 1
Loop
End Sub
Selesai.
Lihat tutorial : Cara Memasukan data pada Sheet yang Berbeda
Sumber http://www.excel-id.com/