Adı bilinen dosya yerinde değilse, sonrakine bak nasıl denir?

[Tevfik_Kursun]

Merhaba Arkadaşlar,
Örnek dosyada D12 den itibaren, içinde sadece 1 satırlık data bulunan text dosyaların bulunduğu konum ve adları var. E12 den itibaren bulunan dosyaların içindeki datayı almak istiyorum. Oluşturduğum makroda dosya yoksa alttaki satıra bak diyemedim. Yardımcı olursanız sevinirim.
Saygılarımla

 

[Haluk]

Aşağıdaki kırmızı renkli satırları ekleyip, deneyin ...

Not: Döngüdeki 40 değerini de, orjinal dosyanıza göre ayarlamayı unutmayın...

Sub Getir()
    sat = 11
    For x = 1 To 40
    If Dir(Cells(x + sat, 4)) <> "" Then
        Open Cells(x + sat, 4) For Input As #1
            Do While Not EOF(1)
                Line Input #1, a
                Cells(x + sat, 5).Value = a
            Loop
        Close #1
    End If
    Next x
End Sub

.

 

[Tevfik_Kursun]

Sayın Haluk Hocam,
Çok teşekkür ederim.
Saygılarımla