Makro ile Ara-Bul-Yapıştır.

[bluefalcon]

Sevgili forumdaşlarım merhaba, geçenlerde sizlerinde yardımı ile çok işime yarayan bir fonksiyonu kullanabilmiştim. Tekrar teşekkür ediyorum. Bugün karşıma işyerinde çıkan ve büyük miktardaki veri kontrolünü gerektiren bir durum oluştu. Ekteki dosyada açıklamayı yaptım. Üzerinde uğraştım ama sürekli hata mesajı aldım. Yardımınızı rica ediyorum. İlginize şimdiden teşekkürler..

 

[bluefalcon]

yokmu arkadaşlar bilgisi olan?

 

[enderturk]

formülle yapsak

merhaba
formülle yapsak olmaz mı

aşağıda formülle yapılmış örneği var
umarım işine yarar

 

[Orion1]

Merhabalar.
Aşağıdaki kodları bir modüle yapıştırıp deneyiniz.

Sub karsilastir()
Dim i As Long, Veri_veri As String, netsis_veri As String
Sheets("NETSIS").Select
Range("E2:E65536").ClearContents
For i = 2 To Cells(65536, "A").End(xlUp).Row
   Set no1 = Sheets("VERI").Range("B2:B65536").Find(Cells(i, "B").Value, lookat:=xlWhole)
   If Not no1 Is Nothing Then
   Veri_veri = Sheets("VERI").Cells(no1.Row, "A").Value & Sheets("VERI").Cells(no1.Row, "C").Value & Sheets("VERI").Cells(no1.Row, "D").Value
   netsis_veri = Cells(i, "A").Value & Cells(i, "C").Value & Cells(i, "D").Value
   If Veri_veri = netsis_veri Then
    Cells(i, "E").Value = "DOĞRU"
    Else
    Cells(i, "E").Value = "YANLIŞ"
   End If
   Else
   Cells(i, "E").Value = "VERI sayfasında Bu numaraya rastlanmamıştır.."
   End If
Next
End Sub

 

[bluefalcon]

Enderturk ve Sezar dostlarıma teşekkür ediyorum. Sezar arkadaşım son olarak büyük yada küçük harfleri karşılaştırırken hata veriyor.Yani kişinin adında ilk sayfada büyük harf varsa ve ikinci sayfada o karakter küçük ise yanlış değeri veriyor. Bu sorunu nasıl çözebilirim?

 

[Orion1]

Merhaba.
Aşağıdaki kodları deneyiniz.

Sub karsilastir()
Dim i As Long, Veri_veri As String, netsis_veri As String
Sheets("NETSIS").Select
Range("E2:E65536").ClearContents
For i = 2 To Cells(65536, "A").End(xlUp).Row
   Set no1 = Sheets("VERI").Range("B2:B65536").Find(Cells(i, "B").Value, lookat:=xlWhole)
   If Not no1 Is Nothing Then
   Veri_veri = Sheets("VERI").Cells(no1.Row, "A").Value & Sheets("VERI").Cells(no1.Row, "C").Value & Sheets("VERI").Cells(no1.Row, "D").Value
   netsis_veri = Cells(i, "A").Value & Cells(i, "C").Value & Cells(i, "D").Value
   If WorksheetFunction.Proper(Veri_veri) = WorksheetFunction.Proper(netsis_veri) Then
    Cells(i, "E").Value = "DOĞRU"
    Else
    Cells(i, "E").Value = "YANLIŞ"
   End If
   Else
   Cells(i, "E").Value = "VERI sayfasında Bu numaraya rastlanmamıştır.."
   End If
Next
MsgBox "İşlem Tamam.."
End Sub

 

[bluefalcon]

Eline, koluna, emeğine sağlık süper oldu... Çok teşekkürler...