Excelde Belirli Hücreleri Silmek

[mustafa1205]

Ekteki örnekte açıklama yapmaya çalıştım. Sadece armut yazan hücreleri silmek istiyorum. Teşekkür ediyorum

 

[İhsan Tank]

Ekteki örnekte açıklama yapmaya çalıştım. Sadece armut yazan hücreleri silmek istiyorum. Teşekkür ediyorum

merhaba
boş bir module kopyalayın ve deneyin

Option Explicit
Sub sil()
Dim ts, kaplan
kaplan = MsgBox("Armutları Temizliyorum", vbYesNo, "Onay")
If kaplan = vbNo Then Exit Sub
Application.ScreenUpdating = False
For ts = Cells(65536, "A").End(xlUp).Row To 1 Step -1
If Cells(ts, "A") = "ARMUT" Then
Cells(ts, "A")=""
End If
Next
Application.ScreenUpdating = True
MsgBox "Armutları Temizledim", vbInformation, "Bitiş"
End Sub

 

[mustafa1205]

Hocam yalnız şöyle bir durum var ben açıkllamayı tam yapmamışım. Sadece hücre içerisindeki veriyi simesini istiyorum yani satırı silmesin.

 

[İhsan Tank]

Hocam yalnız şöyle bir durum var ben açıkllamayı tam yapmamışım. Sadece hücre içerisindeki veriyi simesini istiyorum yani satırı silmesin.

üstteki kodu güncelledim

 

[mustafa1205]

Hocam çok teşekkür ederim tam istediğim gibi oldu.Hayırlı akşamlar diliyorum

 

[İhsan Tank]

Hocam çok teşekkür ederim tam istediğim gibi oldu.Hayırlı akşamlar diliyorum

rica ederim
:yazici: