Soru 2 excel tablosunu aralıklara göre karşılaştırma

[tempter]

Herkese iyi günler,
Elimde 2 ayrı excel tablom mevcut,
Biri trafik cezalarının olduğu excel, diğeri ise araç kiralama kontratlarının olduğu excel,
Birinde 1500 tane veri var diğerinde ise 60bin civarında,
Örneğin trafik cezalarında sütunlar aşağıdaki gibi,
Plaka, Ceza tarihi belli, diğer sütunkiracı ismi (boşta),
araç kiralama kontratlarında ise;
Plaka, Çıkış tarihi, Dönüş Tarihi, kiracı ismi belli
Bu 2 excel dosyasını nasıl karşılaştırabiliriz?
Plakaya ve ceza tarhinine göre kiracı ismini nasıl bulabiliriz?

 

[alicimri]

Eğer Access'e yabancı değilseniz, bu tabloları Access'e aktarıp basit bir sorgu ile iş halledilir. Tabloların bulunduğu sayfaların ve sütun başlıkların tam adını yazarsanız yardımcı olabilirim.

 

[tempter]

ilk excel tablosundan örnek satır;

Plaka	KD/ UD	Ceza Tarihi	Ceza Saati	Cezanın Yendiği İl	Makbuz No	Müşteri Adı, Soyadı	Müşteri Tel:	Kiraya Veren Şube	KONTRAT NO
61abb713	Kısa Dönem	18.5.2019	05:00	İstanbul	MA49648984

ikinci excel tablosundan örnek satır;

Kontrat No

Adı Soyadı

Cep Tel

Plaka

dönem

Tipi

Yakıt Türü

Çıkış Yeri

Çıkış Tarih

Çıkış Saat

Çıkış Km

Çıkış Yakıt

Dönüş Yeri

Dönüş Tarihi

Dönüş Saati

Dönüş Km

ASMMEH000000793

ERDOĞAN SEPETÇİ

+90 533-1234567

61ABB713

Kısa Dönem

FOCUS

Dizel

ANKARA ŞEHİR RENT-GO

16.05.2019

15:26

12310

8/8

ANKARA ŞEHİR RENT-GO

21.05.2019

14:38

13310

Yukarıdaki ilk excel tablosundaki boşluklar dolacak şekilde excel formülasyonu yazmaya çalışıyorum,
"ve" ve "düşeyara" denedim ama yetmedi, tek ortak sütun yeterli gelmiyor,
örneğin yukarıdaki örnekteki gibi ilk exceldeki ceza alttaki sözleşmeye ait ceza ise boşlukları 2.excelden alıp 1.excele nasıl çekebiliriz?

access için deneyeceğim, hiç aklıma gememişti...

 

[tempter]

"düşeyara" içinde "ve" formülünü kullanmaya çalıştım ama yapamadım,
mesela algoritmayı şöyle çıkartmaya çalıştım,
ceza listesinde plakayı al, kontrat listesinde aynı plakaları bulup aynı zamanda çıkış ve dönüş tarihleri aralığına bak,
denk gelen ceza tarihi ile karşılaştır,
doğru olan satırın sözleşme nosuna denk gelen kontrat numarasını al,
ceza listesinde ait olduğu hücreye yapıştır,
ancak bu algoritmada yazamadığım nokta;
kontrat listesindeki plakalar ile karşılaştırdığında "ve" formülü ile tarih aralığına bakması,
ceza tarihi ve saati net ancak aracın kullanım tarih aralığı var,
bu aradaki net tarihin tarih aralığına göre aranmasını fonksiyona dökemedim,

 

[alicimri]

Tablolarınızın gerçek verilerini silin, bir kaç örnek veri kalsın ve bir dosya paylaşım sitesine yükleyip, link i forma ekleyin.

 

[tempter]

çok basit şekilde yüklemeye çalıştım,

https://www.dosya.tc/server28/rt771m/ornek.xlsx.html

 

[alicimri]

Eğer Orijinal dosyanızdaki Sayfa adı, Sütun Başlıkları ve sırası aynı ise aşağıdaki kodları bir modülle yapıştırın, yoksa kodları orijinal dosyanıza göre uyarlayın.

Sub Plaka()
Dim k As Worksheet
Set k = Worksheets("kontratlar")
Dim t As Worksheet
Set t = Worksheets("trafik cezaları")
say1 = k.Cells(Cells.Rows.Count, 1).End(3).Row
say2 = t.Cells(Cells.Rows.Count, 1).End(3).Row
For x = 2 To say2
For i = 2 To say1
If t.Cells(x, 2) + t.Cells(x, 3) > k.Cells(i, 2) And t.Cells(x, 2) + t.Cells(x, 3) < k.Cells(i, 3) And t.Cells(x, 1) = k.Cells(i, 1) Then
t.Cells(x, 4).Value = k.Cells(x, 4).Value
End If
Next
Next
End Sub