Kapalı Dosyalardan Veri Almak

[lion_25_77]

Arkadaşlar merhaba;
elimde aşağıdaki gibi formül var. Bu formülü bir klasörün içinde birkaç kapalı excel dosyasından veri almak için nasıl uyarlıya bilirim?
Şimdiden teşekkür ederim.

Private Sub CommandButton1_Click()
Dim a, i
a = 1
Sayfa2.Cells(1, 1).Value = "ADI"
Sayfa2.Cells(1, 2).Value = "SOYADI"
Sayfa2.Cells(1, 3).Value = "MÜŞTERİ NO"
Sayfa2.Cells(1, 4).Value = "ÜRÜN ADEDİ"
Sayfa2.Cells(1, 5).Value = "ÜRÜN ADI"
Sayfa2.Cells(1, 6).Value = "STOK ADEDİ"

For i = 1 To 10000 Step 1
If Sayfa1.Cells(i, 21) = "Kalem" Then
Sayfa2.Cells(a + 1, 1).Value = Sayfa1.Cells(i + 4, 4)
Sayfa2.Cells(a + 1, 2).Value = Sayfa1.Cells(i + 4, 1)
Sayfa2.Cells(a + 1, 3).Value = Sayfa1.Cells(i + 4, 7)
Sayfa2.Cells(a + 1, 4).Value = Sayfa1.Cells(i + 1, 21)
Sayfa2.Cells(a + 1, 5).Value = Sayfa1.Cells(i + 4, 17)
Sayfa2.Cells(a + 1, 6).Value = Sayfa1.Cells(i + 4, 12)
a = a + 1
End If

Next i

End Sub

 

[askm]

Alınacak dosya ve aktarılacak dosyalardan örnek dosya eklerseniz dosyanıza uygun kod yazmaya çalışırız. Dilerseniz workbooks.open yöntemini araştırın.