ojibu
Altın Üye
- Katılım
- 14 Haziran 2005
- Mesajlar
- 196
- Excel Vers. ve Dili
- Office 365, Office 2019
- Altın Üyelik Bitiş Tarihi
- 28-06-2025
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.
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.