S,T,U sütunlarında birbirinin aynı rakamlar varsa uyarı ver

[imyourfate]

Değerli arkadaşlar hocalarım,

benim söyle bir sorunum vardı

S,T,U sütunlarında birbirinin aynı rakamlar varsa uyarı ver
''ÇAKIŞAN RAKAMLAR VAR LÜTFEN KONTROL EDİNİZ'' şeklinde
bir makro yazılabilirmi ekli dosya mevcuttur

Saygılarımı sunarım

 

[Husgvarna]

Değerli arkadaşlar hocalarım,

benim söyle bir sorunum vardı
S,T,U sütunlarında birbirinin aynı rakamlar varsa uyarı ver
''ÇAKIŞAN RAKAMLAR VAR LÜTFEN KONTROL EDİNİZ'' şeklinde
bir makro yazılabilirmi ekli dosya mevcuttur
Saygılarımı sunarım

Merhaba.
Eklediğiniz dosyaya göre; eki inceleyiniz.

 

[imyourfate]

hocam cok güzel olmuş elinize sağlık ama Call dizisinde çalıştıramadaım private sub olmasından dolayımı?

 

[Husgvarna]

hocam cok güzel olmuş elinize sağlık ama Call dizisinde çalıştıramadaım private sub olmasından dolayımı?

Ek dosyadaki gibi modüle alarak denermisiniz?

 

[imyourfate]

hocam boşluklarıda karşılaştırıyor birde size zahmet olmazsa rakamları kırmızı değilde msg box ta yazdıra bilirmiyiz yeni dosyam ektedir

 

[Husgvarna]

hocam boşluklarıda karşılaştırıyor birde size zahmet olmazsa rakamları kırmızı değilde msg box ta yazdıra bilirmiyiz yeni dosyam ektedir

Merhaba
İlgili kodları aşağıdakiyle değiştirip deneyin.
Dosyanıza göre karşılaştırma 33. satıra kadar yapılırsa yeterli gibi fazla ise
siz değiştirin.

 Sub bul()
For Each a In Range("s2:u[COLOR="Red"]33[/COLOR]")
If WorksheetFunction.CountIf(Range("s" & a.Row & ":u[COLOR="#ff0000"]33[/COLOR]"), a) > 1 Then
If a <> " " Then b = b & a & "  "
End If
Next
If b <> Empty Then _
MsgBox "ÇAKIŞAN RAKAMLAR VAR LÜTFEN KONTROL EDİNİZ" & vbCrLf & vbCrLf & b
End Sub

Karşılaştırılacak satırlar değişkense;

 Sub bul()
x = ActiveSheet.UsedRange.Rows.Count
For Each a In Range("s1:u" & x)
If WorksheetFunction.CountIf(Range("s" & a.Row & ":u" & x), a) > 1 Then
If a <> " " Then b = b & a & "  "
End If
Next
If b <> Empty Then _
MsgBox "ÇAKIŞAN RAKAMLAR VAR LÜTFEN KONTROL EDİNİZ" & vbCrLf & vbCrLf & b
End Sub