Hücre Değerine Göre Satır Silme/Ekleme

[bilisim]

Hücre Değerine Göre Satır Silme/Ekleme
Mrb arkadaşlar yapmak istediğim işlem hücre değerine göre satırın tamamını silmek yada satır eklemek birden fazla satır da birleştirilmiş hücrelerim var mecburen tek tek silmek zorunda kalıyorum Sadece birleştirilmiş hücrelere bağlı satırların bazılarını silmek istiyorum yada bazılarına satır eklemek istiyorum örnek dosya ektedir.
saygılarımla
iyi çalışmalar

 

[uzmanamele]

merhaba

bu kod işinizi görür mü?

Sub satir_sil_ekle()
sil = Range("f1").Text
ekle = Range("g1").Text
ss = Range("c65536").End(3).Row
For i = ss To 1 Step -1
If Cells(i, "c").Text = sil Then
Cells(i, "c").EntireRow.Delete
End If
If Cells(i, "c").Text = ekle Then
Cells(i, "c").EntireRow.Insert
End If
Next
End Sub

 

[bilisim]

hocam şöle bir textbox olsa içine yazdığımız hücre değerine göre satırı eklese
başka bir textboxa içine yazdığımız hücre değerine göre satırı silse
çok güzel olur

bunu tam olarak anlayamadım

 

[uzmanamele]

hocam şöle bir textbox olsa içine yazdığımız hücre değerine göre satırı eklese
başka bir textboxa içine yazdığımız hücre değerine göre satırı silse
çok güzel olur

bunu tam olarak anlayamadım

merhaba

texbox olur, neden olmasın.
bunun alternatifi; F1 ve G1 hücreye yazdığımız kelimelere göre satır ekleyip çıkarsa olmaz mı?


not:
önceki mesaja eklediğim kod ve örnek dosyada, makronun çalışmasını kontrol etmek için yazılan 2 satırı silmeyi unutmuşum.
sanırım bundan dolayı bu kod ne ola ki dediniz, düzeltir özür dileriz.
örnek dosya ve kod 2. mesajda düzeltildi.

 

[bilisim]

esatgfirullah eline emeğine sağlık özür dilemeniz haddimize değil hocam

 

[baydeniro]

Sayın uzmanamele paylaşım için çok teşekkürler. Çok yararlı bir kod. Konuyu açan bilisim'e ve size çok teşekkürler.