listboxtan seçilen isimle aynı olanların satırını silme...

Katılım
9 Ocak 2009
Mesajlar
557
Excel Vers. ve Dili
2002 TÜRKÇE
2007 TÜRKÇE
2010 TÜRKÇE
2019 TÜRKÇE
textboxtaki isimle aynı olanların satırını silme...

sayfa1 de açılan listboxta isim seçtiğimizde textboxa gelmekte temizle butonuna bastığımızda sayfa2 de textboxta bulunan isimin aynılarının olduğu satırların silinmesini nasıl sağlarız....acaba...
 

Ekli dosyalar

Son düzenleme:
Katılım
9 Ocak 2009
Mesajlar
557
Excel Vers. ve Dili
2002 TÜRKÇE
2007 TÜRKÇE
2010 TÜRKÇE
2019 TÜRKÇE
yardımcı olcak yokmu?
 

dEdE

Destek Ekibi
Destek Ekibi
Katılım
1 Temmuz 2005
Mesajlar
2,607
Excel Vers. ve Dili
Ofis 2013 TR 64 Bit
Merhaba,
Ekli dosyayı inceleyiniz.
 

Ekli dosyalar

Katılım
9 Ocak 2009
Mesajlar
557
Excel Vers. ve Dili
2002 TÜRKÇE
2007 TÜRKÇE
2010 TÜRKÇE
2019 TÜRKÇE
çok teşekkür ederim tam istediğim gibi olmuş sayın dEdE yardımlarınız için teşekkürler tekrar takrar
çalışmalarınızında devamı dileğiyle..
 

dEdE

Destek Ekibi
Destek Ekibi
Katılım
1 Temmuz 2005
Mesajlar
2,607
Excel Vers. ve Dili
Ofis 2013 TR 64 Bit
Rica ederim.
Güle :) güle :) kullanın.
 
Katılım
21 Ağustos 2005
Mesajlar
625
Excel Vers. ve Dili
Office 365 - İngilizce
sayfa1 de açılan listboxta isim seçtiğimizde textboxa gelmekte temizle butonuna bastığımızda sayfa2 de textboxta bulunan isimin aynılarının olduğu satırların silinmesini nasıl sağlarız....acaba...

Sanırım aşağıdaki gibi bir kod size fikir verebilir.

Kod:
Private Sub CommandButton1_Click()
x = TextBox1.Value
Sheets("Sayfa2").Select
y = [A65536].End(3).Row
For i = y To 1 Step -1
If Cells(i, "A").Value = x Then
Rows(i).Delete
End If
Next i
End Sub
 
Son düzenleme:
Katılım
9 Ocak 2009
Mesajlar
557
Excel Vers. ve Dili
2002 TÜRKÇE
2007 TÜRKÇE
2010 TÜRKÇE
2019 TÜRKÇE
SİZEDE ÇOK TEŞEKKÜR EDERİM SAYIN mesuttasar
 
Katılım
21 Ağustos 2005
Mesajlar
625
Excel Vers. ve Dili
Office 365 - İngilizce
SİZEDE ÇOK TEŞEKKÜR EDERİM SAYIN mesuttasar
Rica ederim Sayın üstadımız dede zaten cevabı göndermiş , görmeden bende göndermiş oldum kendisinden özür dilerim :) . İşinize yaramasına sevindim iyi çalışmalar.

Saygılarımla,
 
Üst