Arkadaşlar merhaba,
dosyayı "Application.GetOpenFilename" ile seçebileceğim XXX.xlsx dosyasında yer alan DETAYLAR sayfasındaki D1 hücresindeki sayısal veriyi; AÇIK.xlsx dosyasındaki SONVERİ sayfasındaki A1 hücresine nasıl yazdırabilirim?
Aşağıdaki kodlarla bir türlü beceremedim. Yardımcı olursanız sevinirim.
"""
Sub VeriAl(DosyaAdi As String, SayfaAdi As String)
Dim Kayit As String ' Çekilen kaydın veri yolunu tutan değişken
Dim Dosya As String
Application.DisplayAlerts = False
Kayit = "'" & [" & DosyaAdi & "] & SayfaAdi & "'!R"
Sayfa1.Cells(1, 1) = ExecuteExcel4Macro(Kayit & 1 & "C4")
Application.ScreenUpdating = True
MsgBox "İşlem Tamam", vbInformation + vbOKOnly, "Sonuç Mesajı"
End Sub
Private Sub CommandButton1_Click()
Dim Dosya As String
Dosya = Application.GetOpenFilename("Excel Dosyaları,xlsx", , "LÜTFEN DOSYAYI SEÇİNİZ")
Call VeriAl(Dosya, "Sayfa1")
End Sub
"""
dosyayı "Application.GetOpenFilename" ile seçebileceğim XXX.xlsx dosyasında yer alan DETAYLAR sayfasındaki D1 hücresindeki sayısal veriyi; AÇIK.xlsx dosyasındaki SONVERİ sayfasındaki A1 hücresine nasıl yazdırabilirim?
Aşağıdaki kodlarla bir türlü beceremedim. Yardımcı olursanız sevinirim.
"""
Sub VeriAl(DosyaAdi As String, SayfaAdi As String)
Dim Kayit As String ' Çekilen kaydın veri yolunu tutan değişken
Dim Dosya As String
Application.DisplayAlerts = False
Kayit = "'" & [" & DosyaAdi & "] & SayfaAdi & "'!R"
Sayfa1.Cells(1, 1) = ExecuteExcel4Macro(Kayit & 1 & "C4")
Application.ScreenUpdating = True
MsgBox "İşlem Tamam", vbInformation + vbOKOnly, "Sonuç Mesajı"
End Sub
Private Sub CommandButton1_Click()
Dim Dosya As String
Dosya = Application.GetOpenFilename("Excel Dosyaları,xlsx", , "LÜTFEN DOSYAYI SEÇİNİZ")
Call VeriAl(Dosya, "Sayfa1")
End Sub
"""