Tarih Filtresi ile kapalı dosyalardan veri almak

[nunikmakarios]

Sevgili arkadaşlar,

bu konuda çeşitli başlık ve çözümler var ama tarih filtreli olana rastlamadım. yardımcı olursanız sevinirim.

Benim her aylık olarak gelen verilerim var ve bunlar günlük olarak gönderiliyor. ekli dosyalardan adana, mersin, hatay gibi. Bu dosyaların formatları bire bir aynı. Bunları bir klasöre kaydediyorum.

Total isimli dosyada belirli bir gün filtresi vererek, o dosyalardaki belirtilen günlerin karşısındaki rakamları dosya isimlerindeki illere göre sıralamasını istiyorum. tarih değiştikçe yeni verileri alsın istiyorum.

Şimdiden teşekkürer

 

[Orion1]

Dosyanız ektedir.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sat As Byte, sat2 As Long
If Intersect(Target, [B1]) Is Nothing Then Exit Sub
sat2 = 3
Range("A3:B65536").ClearContents
Set fso = CreateObject("Scripting.FileSystemObject")
For Each fs In fso.getfolder(ThisWorkbook.Path).Files
    If fs.Name <> ThisWorkbook.Name Then
        sat = Day(Target.Value) + 1
        deg = Application.ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\[" & fs.Name & "]Sayfa1'!R" & sat & "C1")
        If Target.Value = deg Then
            Cells(sat2, "A").Value = Left(fs.Name, Len(fs.Name) - 4)
            Cells(sat2, "B").Value = Application.ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\[" & fs.Name & "]Sayfa1'!R" & sat & "C2")
            sat2 = sat2 + 1
        End If
    End If
Next
MsgBox "İşlem tamamlandı." & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[nunikmakarios]

Teşekkürler
Çözüm tam istediğim gibi

 

[Orion1]

Teşekkürler
Çözüm tam istediğim gibi

Rica ederim.
İyi çalışmalar.
Net sorulara,net cevaplar.

 

[nunikmakarios]

harikasınız,

Ancak sanırım benim bilgim yetersiz kaldığından bir şeyi anlayamadım;

benim bildirdiğim sorunda Kaynak dosyalardaki A sütunlarındaki tarihlere karşı B sütunlarındaki verileri alıyoruz. Ancak bunu B sutünu yerine C veya başka bir sütunu almak istersem fonksiyon da hangi değişkeni değiştireceğimi bulamadım... yardım ederseniz sevinirim.

 

[Orion1]

harikasınız,

Ancak sanırım benim bilgim yetersiz kaldığından bir şeyi anlayamadım;

benim bildirdiğim sorunda Kaynak dosyalardaki A sütunlarındaki tarihlere karşı B sütunlarındaki verileri alıyoruz. Ancak bunu B sutünu yerine C veya başka bir sütunu almak istersem fonksiyon da hangi değişkeni değiştireceğimi bulamadım... yardım ederseniz sevinirim.

kodda R1C1 bölümü var
R Row(satır),C Column(kolondur)
R1 satır1 dir
C1 kolon 1 dir
R2 satır2 dir
C2 kolon2 dir(B sütunu)
bunlara göre kendizi çalışabilirsiniz.

 

[nunikmakarios]

Yeniden teşekkürler