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.
Faydalanılması temennisiyle
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