yinelenen değer

[sadobay]

sitede bir kod buldum.Ancak yinelenen değerleri B sütununa kopyalarken hücre biçimlendirmesini bozmasın istiyorum. bu kodu ona göre tekrar düzenleyen olur mu acaba..


Sub benzersiz()
Range("a5:a50").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("b5"), Unique:=True

End Sub

 

[numan şamil]

Merhaba
Örnek dosya eklerseniz arkadaşlar yardımcı olurlar diye düşünüyorum

 

[numan şamil]

sitede bir kod buldum.Ancak yinelenen değerleri B sütununa kopyalarken hücre biçimlendirmesini bozmasın istiyorum. bu kodu ona göre tekrar düzenleyen olur mu acaba..


Sub benzersiz()
Range("a5:a50").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("b5"), Unique:=True

End Sub

Merhaba
kodları dener misiniz

Sub benzersiz()
Dim z As Long
Application.ScreenUpdating = False
Range("B5:B" & Rows.Count).ClearContents
satır = 5
For z = 5 To [A65536].End(3).Row
If WorksheetFunction.CountIf(Range("A5:A" & z), Cells(z, "A")) = 1 Then
Range("B" & satır).Value = Range("A" & z).Value
satır = satır + 1
End If
Next z
Application.ScreenUpdating = True
End Sub

 

[sadobay]

kardeş ellerine sağlık teşekkür ederim..

 

[numan şamil]

kardeş ellerine sağlık teşekkür ederim..

İyi çalışmalar