Belirli Kriterlere Sahip Satırları Silme

Belirli Kriterlere Sahip Satırları Silme

Belirli Kriterlere Sahip Satırları Silme isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.

Hazır Kod​

VBA:
Sub Delete_Rows(Data_range As Range, Text As String)
Dim Row_Counter As Integer

For Row_Counter = Data_range.Rows.Count To 1 Step -1
    If Data_range Is Nothing Then
 Exit Sub
    If UCase(Left(Data_range.Cells(Row_Counter, 1).Value, Len(Text))) = UCase(Text) Then
    Data_range.Cells(Row_Counter, 1).EntireRow.Delete
    End If
Next Row_Counter

End Sub

Açıklama​

Belirli Kriterlere Sahip Satırları Silme işlemi, uzunluğu 110-150 karakter arasında olan satırları belirleyip kaldırmayı sağlar.

Faydalanılması temennisiyle
 
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst