mükerrer verilerin tamamının silinmesi

[orcunerkek54]

iyi akşamlar. textbox1'in içeriğindeki veriye göre, sayfa2 deki (e) sütunundaki aynı olan bütün verilerin hiç kalmayacak şekilde "f" ile "a" sütunları arasındaki verilerin silinmesini istiyorum.
biraz karışık oldu galiba. yardımcı olursanız sevinirim.

 

[1Al2Ver]

iyi akşamlar. textbox1'in içeriğindeki veriye göre, sayfa2 deki (e) sütunundaki aynı olan bütün verilerin hiç kalmayacak şekilde "f" ile "a" sütunları arasındaki verilerin silinmesini istiyorum.
biraz karışık oldu galiba. yardımcı olursanız sevinirim.

Sayın Necdet YEŞERTENER'den alıntıdır, kodu kendinize göre uyarlayıp modüle kopyalarsanız olabilir sanırım.

Public Sub Bul()
For i = [A65536].End(3).Row To 2 Step -1
Adet = Application.WorksheetFunction.CountIf(Range("A2:A" & i), Cells(i, "A"))
If Adet > 1 Then
Evet = InputBox(i & ". Satırda " & Cells(i, "A") & " Değeri Fazladan Var, Sileyim mi?", "Silme Ekranı", "Hayır")
If Evet = "Evet" Or Evet = "E" Or Evet = "e" Then Rows(i).Delete
If Evet = "" Then Exit For
End If
Next i
End Sub

 

[orcunerkek54]

syn 1Al2Ver yardımınız ve ilginiz için teşekkürler. kodunuz güzel ancak ben bunu kendime uyarlayamadım.
inputbox ile her seferinde soruyor. benim istediğim userformdaki textin içindeki veriye göre hepsini birkerede silsin istiyorum. iyi akşamlar

 

[1Al2Ver]

syn 1Al2Ver yardımınız ve ilginiz için teşekkürler. kodunuz güzel ancak ben bunu kendime uyarlayamadım.
inputbox ile her seferinde soruyor. benim istediğim userformdaki textin içindeki veriye göre hepsini birkerede silsin istiyorum. iyi akşamlar

Ek'li dosyayı incelermisiniz, belki faydası olur, bende bunları siteden almıştım.

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub CommandButton1_Click()
Dim S2 As Worksheet
Dim SUT As Long
Set S2 = Sheets("Sayfa2")
For SUT = 1 To S2.Cells(65336, "F").End(3).Row
If S2.Cells(SUT, "F") = TextBox1 And WorksheetFunction.CountIf(S2.Range("F1:F" & SUT), S2.Cells(SUT, "F")) > 1 Then
Range(S2.Cells(SUT, "A"), S2.Cells(SUT, "F")).Delete SHIFT:=xlUp
End If
Next
End Sub

 

[orcunerkek54]

N.Ziya Hiçdurmaz ilginize çok teşekkür ederim kodunuz çok güzel çalışıyor ancak benim istediğim mükerrer kayıtların hepsini silmesini istiyorum. seçtiğim kayıttan dört tane varsa dördünü birden silmesini istiyorum o kayıttan hiç kalmasın istiyorum. bu kaydı sileyimmi diye sorsun evet dersem o kayıttan hiç kalmayıncaya kadar silsin. bu mümkünmü.

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

 

[orcunerkek54]

syn Korhan Ayhan size çok teşekkür ediyorum.elinize sağlık.iyi çalışmalar

 

[orcunerkek54]

arkadaşlar syn Korhan Ayhan yazmış olduğu kodu kendime uyarladıktan sonra hata verdi.yardımcı olabilirseniz sevinirim.

 

[baba_karabatak]

silinecek kaydı boş geciyorsundur

 

[orcunerkek54]

silinecek kaydı boş geçmiyorum. siz kontrol ettinizmi sizde kod çalıştımı yazmamışsınız. deneyen varsa cevap versin lütfen.
aşağıdaki hata kodunu veriyor. resmide ekliyorum cevap yazan olursa sevinirim

run time error '1004'
worksheetfunction sınıfının match özelliği alınamıyor.