Silmek

Katılım
30 Mart 2005
Mesajlar
86
Slm
comboboxa girilmiş olan adı, A sutundaki listede İki sayfada birden o ismi buldurup satırlarını nasıl sildirebilirim.
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,030
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
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]
 
Katılım
30 Mart 2005
Mesajlar
86
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

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,030
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
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]
 
Üst