kapalı excel dosyasından hücreden seçerek sayfa adıyla kopyalama

[ojibu]

Sub veri_al()
Application.ScreenUpdating = False
yol = ThisWorkbook.Path & "\SRC LİSTELER\CUMARTESİ.xlsx"
Workbooks.Open (yol)
Workbooks("CUMARTESİ").Sheets("Table 5").Range("a4:E23").Copy _
Workbooks("OPTİK").Sheets("LİSTEM").Range("a2")
Workbooks("CUMARTESİ").Close True
Application.ScreenUpdating = True
MsgBox " VERİ ALINDI "
End Sub

Benim yapmak istediğim CUMARTESİ çalışma kitabı ve Table 5 sayfasını hücreden alması, yani excel A1 hücresinde CUMARTESİ seçip A2 hücresinden Table 2 yapınca makroda koyu işaretlediğim yerler A1 ve A2 hücresinden gelsin. Böyle bir şey yapabilir miyiz. Tşk.

 

[ÖmerBey]

Merhaba,
Aşağıdaki şekilde deneyiniz.

Sub veri_al()
dim gun as String, tablo as String
gun = Range("A1").Text
tablo = Range("A2").Text
Application.ScreenUpdating = False
yol = ThisWorkbook.Path & "\SRC LİSTELER\" & gun & ".xlsx"
Workbooks.Open (yol)
Workbooks(gun).Sheets(tablo).Range("a4:E23").Copy _
Workbooks("OPTİK").Sheets("LİSTEM").Range("a2")
Workbooks(gun).Close True
Application.ScreenUpdating = True
MsgBox " VERİ ALINDI "
End Sub

 

[ojibu]

Ömer bey ilginiz ve bana zaman ayırdığınız için tşk ederim. Kod tam olarak çalıştı. Sıkıntı yok. Tşk

 

[ÖmerBey]

Rica ederim,
İyi çalışmalar...