Assalammualaikum Wr. Wb.
dear BeExceller,
saya sudah mencoba beberapa contoh tentang macro ahkan mencoba menggabung dua
contoh tentang menyalin dan menghapus data ganda belum di sort itu juga tapi
yang berfungsi hanya sastu saja gimana ya cara nya
ini contoh yang saya gabung
Private Sub CommandButton1_Click()
Dim Z As Long
Dim iPaKolom As Long
Set ipaone = Sheets("Sheet1")
Set iPaFace = Sheets("Sheet2")
Set UpaOne = ipaone.Range("A1:Z1000")
iPaKolom = Range("B1000").End(xlUp).Row
For Z = iPaKolom To 1 Step -1
If Application.WorksheetFunction.CountIf(Range("B1:B" & Z), Range("B" &
Z).Text) > 1 Then
Range("B" & Z).EntireRow.Delete
ActiveSheet.Unprotect
ipaone.Range("A1:Z1").Copy
iPaFace.Range("A1").PasteSpecial Paste:=xlPasteColumnWidths
UpaOne.SpecialCells _
(xlCellTypeVisible).Copy Destination:=iPaFace.Range("A1")
End If
Next Z
End Sub
sebaiknya bagai mana menggabung perintah perintah tersebut
terima kasih
Wassalammualaikum Wr. Wb.
