Yinelenen değerlerin bulunduğu satırları silme

[Astalavista58]

Cümleten hayırlı akşamlar. Ekteki dosyamda sadece "A" sütununda yinelenen değerlerin bulunduğu satırları silmek istiyorum. Her değerden 1 tane kalmasını istiyorum. Koşullu biçimlendirmeden denedim ancak bazı sütunlarda veriler farklı oluyor bu sebeple sonuç alamadım.

 

[Asri]

Bu şekilde deneyiniz.

 

[asi_kral]

Merhaba

sub sil()
dim STR as Long
for str= range("A"&rows.count).end(xlup).row  to 2 step -1
if worksheetfunction.countif("A:A"),cells(str,"A"))> 1 then
range("A"& str ":D"& str).delete xlup
end if
next
End Sub

Not : Ezber yazılmıştir. Deneme yapılamamıştır.

 

[Astalavista58]

Bu şekilde deneyiniz.

Asri bey, çok teşekkür ederim. Gündüz aynı şeyi denedim olmadı galiba ben orda tümünü seçtiğim için hata aldım. Bu basit şey için zamanınızı aldım çok teşekküre derim.

 

[Astalavista58]

Merhaba

sub sil()
dim STR as Long
for str= range("A"&rows.count).end(xlup).row  to 2 step -1
if worksheetfunction.countif("A:A"),cells(str,"A"))> 1 then
range("A"& str ":D"& str).delete xlup
end if
next
End Sub

Not : Ezber yazılmıştir. Deneme yapılamamıştır.

Sayın asi_kral denedim ancak syntax hatası verdi.

 

[asi_kral]

Doğru bir yeri atlamisim

sub sil()

dim STR as Long

for str= range("A"&rows.count).end(xlup).row  to 2 step -1

if worksheetfunction.countif(range("A:A"),cells(str,"A"))> 1 then

range("A"& str ":D"& str).delete xlup

end if

next

End Sub

Bu şekilde dener misiniz

 

[Astalavista58]

Doğru bir yeri atlamisim

sub sil()

dim STR as Long

for str= range("A"&rows.count).end(xlup).row  to 2 step -1

if worksheetfunction.countif(range("A:A"),cells(str,"A"))> 1 then

range("A"& str ":D"& str).delete xlup

end if

next

End Sub

Bu şekilde dener misiniz

range("A"& str ""& str).delete xlup


Bu satırdaki "" syntax hatası veriyor

 

[EmrExcel16]

Merhaba, alternatif olarak.

Sub Tekrarsiz()
    Range("A2:D" & Cells(Rows.Count, 1).End(3).Row).RemoveDuplicates Columns:=1
    MsgBox "Islem tamam..."
End Sub

 

[asi_kral]

Ezber yazmanın zararlari

sub sil()

dim STR as Long

for str= range("A"&rows.count).end(xlup).row  to 2 step -1

if worksheetfunction.countif(range("A:A"),cells(str,"A"))> 1 then

range("A"& str & ":D"& str).delete xlup

end if

next

End Sub

 

[Astalavista58]

Merhaba, alternatif olarak.

Sub Tekrarsiz()
    Range("A2:D" & Cells(Rows.Count, 1).End(3).Row).RemoveDuplicates Columns:=1
    MsgBox "Islem tamam..."
End Sub

Emre bey hayırlı akşamlar, çok teşekkür ederim kod çalışıyor elinize sağlık

 

[Astalavista58]

Ezber yazmanın zararlari

sub sil()

dim STR as Long

for str= range("A"&rows.count).end(xlup).row  to 2 step -1

if worksheetfunction.countif(range("A:A"),cells(str,"A"))> 1 then

range("A"& str & ":D"& str).delete xlup

end if

next

End Sub

Çok teşekkür ederim ilginiz için hakkınızı helal edin zamanınızı aldım