Tarih ve Vardiye düzenine göre veri çekme yardım

[uGuR GüVen]

1. 4925 gerçek ve 4925 tüzel isimli dosyalardaki verileri günlük isimli dosyaya çekerken tutanak seri numaralarına göre sıralamıyor (günlük isimli dosyada hata örneğini kırmızı renkle işaretledim , tutanak serinoları UBK-A ile başlayıp arada bir boşluk verdikten sonra seri no yazılmaktadır.2918 isimli dosyada sorun yok)


2. 2918 , 4925 gerçek ve 4925 tüzel isimli dosyalara vardiya isimli yeşil renkte sütun ekledim , makro verileri süzerken tarih ve vardiyaya göre çekmesini istiyorum(08:00-20:00 veya 09:00-21:00)

 

[omerceri]

Sn uGuR GüVen
1- Sayfalardaki VARDİYA sütununu "Metin" olarak ayarlayın.
2- Nedenini Bulamadım 4925 TÜZEL deki kayıtta bir sorun var. Tarih ve Vardiya alanını diğer 4925 GERÇEK sayfasından kopyalayıp yapıştırınca düzeliyor (zaten değerler aynı)
3- Vardiya Alanını her kayıt için doldurun

Sub Süz()
Sheets("GÜNLÜK").Range("B14:E38").ClearContents

Dim cn As Object, rs As Object
tar = CDbl(Sheets("GÜNLÜK").Range("D1"))
Var = Sheets("GÜNLÜK").Range("D3")
For i = 1 To 3
say = Sheets(i).Range("c65536").End(3).Row
Sql = Sql & " SELECT [TUTANAK SERİ NUMARASI], [PLAKA], [MADDE], [TUTAR] FROM [" & Sheets(i).Name & "$B2:I" & say & "] " & "WHERE [TUTANAK TARİHİ]=" & tar & " And [VARDİYA]='" & Var & "' UNION"
Next
Sql = Mid(Sql, 1, Len(Sql) - 5) & " ORDER BY [TUTANAK SERİ NUMARASI]"

Set cn = CreateObject("ADODB.Connection")
cn.Open "DRIVER={Microsoft Excel Driver (*.xls)};DBQ=" & ThisWorkbook.FullName

Set rs = CreateObject("ADODB.Recordset")
rs.Open Sql, cn
 
Sheets("GÜNLÜK").[B14].CopyFromRecordset rs

rs.Close
cn.Close
End Sub

 

[omerceri]

Sn uGuR GüVen
Hatayı buldum 4925 TÜZEL sayfasındaki kayıtta 08:00 20:00 yazıyor Diğer sayfalarda ve arama yapılan hücrede 08:00-20:00 yazıyor, bu tip hatalarda o kaydı GÜNLÜK sayfasına getirmez.

 

[uGuR GüVen]

Ömer bey ne kadar teşekkür etsem azdır , ellerinize sağlık.

 

[uGuR GüVen]

ömer bey merhabalar sizden bir ricam olacak ;

günlük isimli dosyada ''TUTAR'' kısmında bir hata vermekte
(harf olarak saklanan sayı - diye bir formül hatası veriyor) ve
A41:H41 de tanımladığım formüller çalışmıyor. örn: toplam ceza miktarı vs.

 

[omerceri]

Sizin örnek dosyanız istatistik.xls i indirdim kodları yapıştırdım. hata vermedi. hücre formatlarınızda bir değişiklik mi yaptınız.
Hata veren dosyayı ekleyin bir bakayım.