Cara Copy Data dari Satu Sheet ke Sheet Lain

Mengcopy data memang sudah menjadi suatu hal yang lumrah dalam tugas menggunakan Ms. Excel dan copy paste seperti yang telah dilakukan sepertinya hal tersebut sudah biasa, namun kali ini bagaimana jika kita lakukan copy data pada sheet menggunakan script VBA? Itu dia 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 seperti 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 kemudian silakan cari Caption dan ganti dengan tulisan " 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()
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

Script diatas jika tombol " Copy Sheet" di klik akan menjalankan copy data dari sheet 1 dan dipastekan ke sheet2 dan hasilnya akan tampak seperti gambar berikut

Selesai.

Lihat tutorial : Cara Memasukan data pada Sheet yang Berbeda

Tweet