Kapalı dosyalardan bilgi alma.

[sward175]

Herkese Merhaba.

Ekte bulunan Klasör içinde Yıllar var.
STOK 2019
STOK 2020 Gibi,
Yılların içinde Aylar var.
OCAK 2019
Şubat 2019 Gibi,
Ayların içinde,
01.03.2019
02.03.2019
03.03.2019 Günler var,
Bu günlerin içinde sayfalar bulunuyor, bu sayfaların "Stok" sayfasının F97 hücresindeki rakamları bir excel sayfasına Tarihi ile beraber listelemek istiyorum.
Örnek:
01.03.2019 13.378.173
02.03.2019 4.880.307
03.03.2019 8.886.324
Not: F97 hücre adresi bazı ay yada yıllarda 93, 94,95 olabiliyor, Yazılacak kodda bu hücre seçimi yapılabilirse bu konunun da aşılacağı kanısındayım.
Konu hakkında yardımlarınızı rica ederim.
Saygılarımla,
sward175

 

[sward175]

Herkese Merhabalar,
Sorumu sadeleştirerek sormak istiyorum.
Klasör içinde Stok 01.03.2019' dan başlayıp günümüze kadar gelen dosyalar var.
Bu dosyaların "Stok" sayfası F97 hücresindeki bilgiyi tarihi ile Klasör içindeki ARŞİV dosyasına listelemek istiyorum.
Bu konuda yardımlarınızı rica ederim.
Saygılarımla,
sward175

 

[Haluk]

Sub Test()
'   Haluk - 15/05/2022
'
    Range("A2:B" & Range("A" & Rows.Count).End(xlUp).Row) = ""
    myFile = Dir(ThisWorkbook.Path & Application.PathSeparator & "*.xlsx")
    i = 1
    
    While myFile <> ""
        If myFile <> ThisWorkbook.Name And Left(myFile, 4) = "Stok" Then
            i = i + 1
            Cells(i, 1) = CDate(Replace(Replace(myFile, "Stok - ", ""), ".xlsx", ""))
            strFolder = ThisWorkbook.Path & Application.PathSeparator
            strSheet = "Stok"
            
            Set xRange = Range("F97")
            
            myArgs = Array(strFolder, myFile, strSheet, xRange.Address)
            argXL4 = "'" & myArgs(0) & "[" & myArgs(1) & "]" & myArgs(2) & "'!" & Range(myArgs(3)).Address(ReferenceStyle:=xlR1C1)
            Cells(i, 2) = ExecuteExcel4Macro(argXL4)
        End If
        myFile = Dir
    Wend
End Sub

.

 

[sward175]

Haluk Bey, Merhaba.
Her zaman ki gibi harikasınız.
Ellerinize, Beyninize sağlık.
Çok ama Çok teşekkür ediyorum.
Saygılarımla,
sward175

 

[Haluk]

Dosyaların birinde veri F97 hücresinde değil de, F98 hücresinde olduğu için o dosyadan veri alınamıyordu.

Aşağıdaki revize kodla, kapalı dosyalarda F100 hücresinden yukarıya doğru gidilerek bulunan ilk veri alınması sağlandı. Böylelikle, şimdi tüm örnek dosyalardan ilgili veriler alınabiliyor...

Sub Test2()
'   Haluk - 15/05/2022
' 
    Range("A2:B" & Range("A" & Rows.Count).End(xlUp).Row + 1) = ""
    myFile = Dir(ThisWorkbook.Path & Application.PathSeparator & "*.xlsx")
    i = 1
  
    While myFile <> ""
        If myFile <> ThisWorkbook.Name And Left(myFile, 4) = "Stok" Then
            i = i + 1
            Cells(i, 1) = CDate(Replace(Replace(myFile, "Stok - ", ""), ".xlsx", ""))
            strFolder = ThisWorkbook.Path & Application.PathSeparator
            strSheet = "Stok"
          
            iRow = 101
          
            Do
                iRow = iRow - 1
                Set xRange = Range("F" & iRow)
                myArgs = Array(strFolder, myFile, strSheet, xRange.Address)
                argXL4 = "'" & myArgs(0) & "[" & myArgs(1) & "]" & myArgs(2) & "'!" & Range(myArgs(3)).Address(ReferenceStyle:=xlR1C1)
                xData = ExecuteExcel4Macro(argXL4)
            Loop Until xData <> 0
          
            Cells(i, 2) = xData
        End If
        myFile = Dir
    Wend
End Sub

.

 

[sward175]

Haluk Bey,
Çok teşekkür ederim.
Sağlıklı huzurlu nice güzel günlere.
Saygılarımla,
sward175

 

[sward175]

Herkese Merhabalar.
Haluk Beyin yardımı ile çok işerimi halletmiş bulunmaktayım.
İstek bitmiyor tabi ki!
Ekli dosyada yapmak isteğim, Klasör içinde yılın ayları klasörü bulunuyor, Bunların içinde de günün tarihi ile excel dosyaları bulunuyor.
Bu günlük dosyaların içindeki "İkmal Kilo" sayfalarının L5 hücresinde tarih ve C8:L100 aralığındaki bilgileri "Listele" sayfasındaki şekle uygun olarak alt alta almak istiyorum.
Konu hakkında yardımlarınızı rica ederim.
Saygılarımla,
sward175

 

[sward175]

Herkese Merhabalar,
Konu çözüme ulaşmadığı için yardımlarınızı rica ederim.
Yapmak istediğin kısaca 3. mesajdaki Haluk Bey' in yazmış olduğu kodu,
Sayfa adını " İkmal Kilo" ve çekilecek bilgiyi "C8:L100" aralığı yapabilmek için yardımlarınızı rica ederim.
Saygılarımla,
sward175