bir sütunda yer alan bilgiler....

[drlacter]

Arkadaşlar merhaba,

Ek'te örnek dosyada A sütununda yer alan firmalardan örneğin 5 adet a firması,4 adet x firması,2 adet b firması,1 adet c firması var..burada yapmak istediğim A sütununda hangi firmalar varsa sadece birkere yazsın..çok açıklayıcı olmadı sanırım..

 

[İhsan Tank]

Arkadaşlar merhaba,

Ek'te örnek dosyada A sütununda yer alan firmalardan örneğin 5 adet a firması,4 adet x firması,2 adet b firması,1 adet c firması var..burada yapmak istediğim A sütununda hangi firmalar varsa sadece birkere yazsın..çok açıklayıcı olmadı sanırım..

merhaba

Sub mükerrer()
For sil = [A65536].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("A2:A" & sil), Range("A" & sil)) > 1 Then Rows(sil).Delete
Next
End Sub

bu kod işinizi görür

 

[drlacter]

İhsan bey çok teşekkür ederim yine tam istediğim gibi

 

[İhsan Tank]

İhsan bey çok teşekkür ederim yine tam istediğim gibi

rica ederim
:yazici: