Makroyu Tüm sayfalarda uygulama

[Ferhat3441]

iyi günler ..

Exel çalışma kitabında yenilenenleri sil makrosunu kullanıyorum

Sub sil()
For a = [A65536].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("a1:a" & a), Cells(a, "a")) > 1 Then Rows(a).Delete
Next
End Sub

fakat bunu sayfalara tek tek uygulamak zorunda kalıyorum bunun yerine bunu tüm sayfalarda uygulayabileceğim şekilde dönüştürebilirmiyim ?

 

[Ömer]

Merhaba,
Sayfa aktif ederek:

Sub sil()
    For i = 1 To Worksheets.Count
        Sheets(i).Select
        For a = [A65536].End(3).Row To 1 Step -1
            If WorksheetFunction.CountIf(Range("a1:a" & a), Cells(a, "a")) > 1 Then Rows(a).Delete
        Next
    Next i
End Sub

Sayfa aktif etmeden:

Sub sil1()
    For i = 1 To Worksheets.Count
        With Sheets(i)
            For a = .[A65536].End(3).Row To 1 Step -1
                If WorksheetFunction.CountIf(.Range("a1:a" & a), .Cells(a, "a")) > 1 Then .Rows(a).Delete
            Next
        End With
    Next i
End Sub

Size uyanı kullanırsınız.

 

[Ferhat3441]

Merhaba,
Sayfa aktif ederek:

Sub sil()
    For i = 1 To Worksheets.Count
        Sheets(i).Select
        For a = [A65536].End(3).Row To 1 Step -1
            If WorksheetFunction.CountIf(Range("a1:a" & a), Cells(a, "a")) > 1 Then Rows(a).Delete
        Next
    Next i
End Sub

Sayfa aktif etmeden:

Sub sil1()
    For i = 1 To Worksheets.Count
        With Sheets(i)
            For a = .[A65536].End(3).Row To 1 Step -1
                If WorksheetFunction.CountIf(.Range("a1:a" & a), .Cells(a, "a")) > 1 Then .Rows(a).Delete
            Next
        End With
    Next i
End Sub

Size uyanı kullanırsınız.

tesekkürler Sub sil1() daha uygun ..