Kapalı dosyadan veri alma

[nihatra]

Private Sub CommandButton1_Click()
Dim Klasor As String
Klasor = Sayfa1.Cells(3, "A")

Dim Dosya As String
Dosya = Sayfa1.Cells(3, "B")

Dim Sayfa As String
Sayfa = Sayfa1.Cells(3, "C")

Dim Sat As Integer
Sat = Sayfa1.Cells(3, "D")

Dim Sut As Integer
Sut = Sayfa1.Cells(3, "E")

Call VeriAl(Klasor, Dosya, Sayfa, Sat, Sut)
End Sub

Sub VeriAl(KlasorAdi As String, DosyaAdi As String, SayfaAdi As String, Satir As Integer, Sutun As Integer)
Dim Kayit As String ' Çekilen kaydın veri yolunu tutan değişken

Application.DisplayAlerts = False

Kayit = "'" & KlasorAdi & "\" & "[" & DosyaAdi & "]" & SayfaAdi & "'!R" & Trim(Str(Satir)) & "C" & Trim(Str(Sutun))

Sayfa1.Cells(5, "A") = Kayit

Sayfa1.Cells(7, "B") = ExecuteExcel4Macro(Kayit)


Application.ScreenUpdating = True
End Sub

ile kapalı dosyadan veri alıyorum.
Ancak;
Getir butonuna basıldığında kapalı dosyadaki 22. satırdan 150. satıra kadar olanları b7 den b100' e kadar alt alta yazmasını,
3. sütündan 8’e kadar olan bilgileri sayfa1’ deki B7-C8-D7-E7-F7 den B150-C150-D150-E150-F150 ye nasıl alabiliriz
Yani 22. satırdan 150. satıra kadar ve 3. sütündan 8. sütüna kadar kapalı dosyadaki bilgileri getirecek
ardışık bilgileri for döngüsü ile nasıl yapabailiriz

 

[byfika]

Merhabalar,
Son açıklamanız biraz karışık geldi. Size gönderdiğim dosya benim tam anlamadığım için bu şekilde ayarladığım dosya, inceleyin. Size uygunsa kendinize göre ayarlayıp kullanırsınız.
Kolay gelsin

 

[askm]

Alternatif olsun.

Sub askm()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Range("A7:F150").ClearContents
yol = ThisWorkbook.Path & "\kapalı.xls"
Workbooks.Open (yol)

Windows("kapalı.xls").Activate
Sheets("Asayfası").Range("a7:F150").Copy
Windows("verial.xlsm").Activate
Sheets("sayfa1").Range("a7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("kapalı.xls").Close True
Range("A7").Select
Application.ScreenUpdating = True
MsgBox "Veri alma işlemi tamam...", vbInformation, "ASKM"
End Sub