Çalışma Kitabında İçeriği Geçen Satırı Silmek

[botex]

Bir excel sayfasında ad soyad telefon il ilçe var ve çok uzun


ali veli 0412 540 15 26 Samsun Bafra

bu şekilde çok uzun bir liste var ben içeriğinde örneğin "Bafra" geçen bütün kayıtları tek seferde silmek istiyorum excelde ve openoffice de ne yapmam gerek yardımlarınız için teşekkürler.

 

[Seyit Tiken]

Bu kodu kendinize uyarlayıp deneyiniz.

Sub Düğme2_Tıklat()
For a = 1 To 1000
If Cells(a, 1).Value = "bafra" Then Cells(a, 1).ClearContents
Next
End Sub

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz. (A sütununu tarar ve içeriğinde "Bafra" geçen satırları tamamen siler.)

Sub SATIRSİL() 
For X = [A65526].End(3).Row TO 2 Step -1 
If Cells(X, 1) Like "*Bafra*" Then 
Rows(X).Delete 
End If 
Next
End Sub

 

[Seyit Tiken]

Alternatif :
Silinecek veri ismini B1 hücresine yazın ve düğmeye basın.

Sub Düğme1_Tıklat()
For a = 1 To 1000
If Cells(a, 1) = [B1] Then Cells(a, 1) = ""
Next
End Sub