Diskusi tentang Excel

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

Related

Macro Excel VBA 2792676049202098132

Post a Comment

Tulisan ini Bermanfaat..? Silakan berkomentar sesuai topik artikelnya, tidak dianjurkan menggunakan kata-kata yang dapat menimbulkan hal negatif. Mohon maaf apabila tidak memiliki etika akan Admin HAPUS tanpa pemberitahuan kembali. Terimakasih... salam Exceler

emo-but-icon

item