Copy paste data antar sheets

Copy paste data antar sheets - Luar biasa, inilah Microsoft excel, berbagai macam pekerjaan dapat kita lakukan dengan aplikasi ini, tanpa basi basi panjang yang pastinya membuat anda "ngga banget" kali ini saya akan membagikan file yang bisa copy paste data dengan microsoft excel VBA

Kode macro Copy paste data antar sheets pertama

Set ipaone = Sheets("Sheet1")

Set ipatwo = Sheets("Sheet2")

Set Status = ipaone.Range("A3", ipaone.Range("A3").End(xlDown))

For ipa = 1 To WorksheetFunction.CountA(Status)

    ipatwo.Cells(2 + ipa, 1).Value = ipaone.Cells(ipa + 2, 1).Value

    ipatwo.Cells(2 + ipa, 2).Value = ipaone.Cells(ipa + 2, 2).Value

    ipatwo.Cells(2 + ipa, 3).Value = ipaone.Cells(ipa + 2, 3).Value

Next ipa

Kode macro Copy paste data antar sheets kedua

Private Sub CommandButton1_Click()

srt = Cells(Rows.Count, "A").End(xlUp).Offset(0, 0).Row

Range("A1:C" & srt).Copy

Sheets.Add After:=ActiveSheet

ActiveSheet.Paste

Cells.EntireColumn.AutoFit

MsgBox srt & " baris data berhasil disalin "

End Sub

Lihat tutorialnya dalam YT Excel home