Silmek

[arslan]

Slm
comboboxa girilmiş olan adı, A sutundaki listede İki sayfada birden o ismi buldurup satırlarını nasıl sildirebilirim.

 

[Levent Menteşoğlu]

Aşağıdaki şekilde deneyin.

[vb:1:2e239ba2f4]sat=Sheets("sayfa1").columns(1).find(combobox1.value).row
sheets("sayfa1").Rows(sat).delete[/vb:1:2e239ba2f4]

veya daha kısa olarak

[vb:1:2e239ba2f4]sheets("sayfa1").Rows(Sheets("sayfa1").columns(1).find(combobox1.value).row
).delete[/vb:1:2e239ba2f4]

 

[arslan]

anlatamadım galiba
sadece tek sayfada siliyor
İki sayfada bulsun ve silsin
yada tüm sayfalarda arasın bulsun ve silsin istiyorum

 

[Levent Menteşoğlu]

Ben anlayacağınızı düşünerek tek kod yazmıştım. Diğer sayfada da silmesi için "sayfa1" yerine "sayfa2" yazmanız yeterli. Sayfa sayısı çok değilse aynı kodu alta sadece sayfa ismini değiştirerek yazmak yeterli yada aşağıdaki gibi bir döngü kurulabilir.

[vb:1:912bc64089]on error resume next
for a=1 to worksheets.count
sat=Sheets(a).columns(1).find(combobox1.value).row
sheets(a).Rows(sat).delete
next[/vb:1:912bc64089]