VBA İle Sütunda Tekrar Eden Verileri Belirleme

[badmad34]

Merhabalar,

Ekteki dosyanın A sütununda bazı veriler bulunmaktadır. Bu veriler arasında tekrar eden veri olması durumunda MSgBox aracılığıyla uyarı vermesi ve tekrar eden verileri B sütununa yazılmasını nasıl sağlayabilirim?

 

[İhsan Tank]

Merhabalar,

Ekteki dosyanın A sütununda bazı veriler bulunmaktadır. Bu veriler arasında tekrar eden veri olması durumunda MSgBox aracılığıyla uyarı vermesi ve tekrar eden verileri B sütununa yazılmasını nasıl sağlayabilirim?

merhaba
boş bir module kopyalayın ve deneyin

Option Explicit
Sub tekrarlı_msg()
Dim ts, kaplan, trabzonspor
trabzonspor = MsgBox("Tekrar Edenler Buluyorum", vbYesNo, "Onay")
If trabzonspor = vbNo Then Exit Sub
Range("B2:B65536").ClearContents
kaplan = 2
For ts = 2 To Cells(65536, "A").End(xlUp).Row
If WorksheetFunction.CountIf(Range("A2:A" & ts), Cells(ts, "A")) > 1 Then
MsgBox Cells(ts, "A")
Cells(kaplan, "B") = Cells(ts, "A")
kaplan = kaplan + 1
End If
Next
MsgBox "Tekrar Edenleri Buldum", vbInformation, "Bitiş"
End Sub

 

[badmad34]

Kodlar muntazam şekilde çalışıyor, çok teşekkür ederim. Hızlı cevap için ayrıca teşekkür ederim

 

[İhsan Tank]

Kodlar muntazam şekilde çalışıyor, çok teşekkür ederim. Hızlı cevap için ayrıca teşekkür ederim

rica ederim
:yazici:

 

[badmad34]

Tekrar merhaba,

Bütun sütunda tekrar eden hiçbir veri bulunamadıysa B2 hücresine "YOK!" yazdırmasını nasıl sağlayabilirm?