Wa'alaikumussalam wr wb
Maaf, tidak mudeng apa yang Anda maksudkan.
Menghapus record yang membuatnya ter-duplicate bisa dengan fitur Remove
Duplicate.
Wassalamu'alaikum wr wb
Kid
On Wed, Nov 18, 2015 at 8:36 AM, imam cahyo yuwono chy...@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> 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.
>
>
>
>
>
>
