Eşleşen kayıda veri ekleme

[bdmaestro]

Araç giriş sayfasında aracın otoparka giriş bilgileri var, Araç çıkış sayfasında ise çıkış bilgileri mevcut.

Eğer araç çıkış yapmışsa araç girişteki J sütununa X gibi bir işaret koymak istiyorum. Tabi Aracın plakası,modeli çıkışta bulunuyor yani eşleşiyor olması kaydıyla...

Düşeyara ile belki problem çözülür ama liste uzadığında sıkıntı olacaktır o yüzden çözülebilirse makro ile yardım istiyorum

 

[halit3]

Araç giriş sayfasında aracın otoparka giriş bilgileri var, Araç çıkış sayfasında ise çıkış bilgileri mevcut.

Eğer araç çıkış yapmışsa araç girişteki J sütununa X gibi bir işaret koymak istiyorum. Tabi Aracın plakası,modeli çıkışta bulunuyor yani eşleşiyor olması kaydıyla...

Düşeyara ile belki problem çözülür ama liste uzadığında sıkıntı olacaktır o yüzden çözülebilirse makro ile yardım istiyorum

bunu denermisiniz.

Sub karsilastir()
For r = 7 To Worksheets("aracgiris").Cells(Rows.Count, "B").End(3).Row
aranan1 = Sheets("aracgiris").Cells(r, "b").Value
aranan2 = Sheets("aracgiris").Cells(r, "d").Value
aranan3 = Sheets("aracgiris").Cells(r, "e").Value
aranan4 = aranan1 & aranan2 & aranan3
If Sheets("aracgiris").Cells(r, "b").Value <> "" Then
For i = 7 To Worksheets("araccikis").Cells(Rows.Count, "B").End(3).Row
bulunan1 = Sheets("araccikis").Cells(i, "b").Value
bulunan2 = Sheets("araccikis").Cells(i, "d").Value
bulunan3 = Sheets("araccikis").Cells(i, "e").Value
bulunan4 = bulunan1 & bulunan2 & bulunan3
If aranan4 = bulunan4 Then
deg1 = Sheets("araccikis").Cells(i, 1).Value & " sıra "
Sheets("aracgiris").Cells(r, "j").Value = deg1 & "  " & i & "  satır da çıkış kayıtı yapıldı"
End If
Next i
End If
Next r
MsgBox "işlem tamam"
End Sub

 

[bdmaestro]

Teşekkür ederim gayet güzel oldu....Yanında x olmayan verileri bir rapor sayfasında alt alta listeleme imkanım var mıdır?

 

[halit3]

Teşekkür ederim gayet güzel oldu....Yanında x olmayan verileri bir rapor sayfasında alt alta listeleme imkanım var mıdır?

örnek dosyanda rapor sayfası yok