Koşullu satır silme

[katip16487]

Herkese kolaylıklar diliyorum.

Bi programdan verileri excelle aktarmak suretiyle alıyorum.
Ancak aldığım program excelle aktarım yaparken her sayfa başına SIRA NO - ADI - SOYADI - TC NO ibarelerinin yer aldığı başlıkları da atıyor. Ancak bana sadece en başta bu verilerin yer alacağı tablo gerekiyor.
Bu nedenle,
A sütununu baz almak suretiyle;
A2 ile A65536 satırları arasında arama yaparak bu satırlar arasında A sütununda SIRA NO verisi yer alan hücrelerin bulunduğu TÜM SATIRI silmesini istiyorum.

Saygılarımla...

 

[veyselemre]

Merhaba, aşağıdaki kod işinizi görür.

Sub tekrarEdenSatirlariSil()
    'veyselemre
    Dim rSil As Range, huc As Range
    For Each huc In Range([A2], [A65536].End(xlUp))
        If huc.Value = "SIRA NO" Then
            If rSil Is Nothing Then
                Set rSil = huc
            Else
                Set rSil = Union(rSil, huc)
            End If
        End If
    Next
    If Not rSil Is Nothing Then rSil.EntireRow.Delete
    Set rSil = Nothing
    Set huc = Nothing
End Sub

 

[katip16487]

Çok teşekkür ederim, elinize sağlık...