Kapalı Dosyadan Veri al Makrosu Hk.

[ormann]

İyi günler;
Ekli dosyada herhangi bir dosyadan Dikili Girişi sayfasında f19:g60000 hücre aralağındaki verileri aşağıdaki makro ile alıyorum.Bu makroya ilave olarak yine dikili girişi sayfasından Q3:Q4 hücresindeki verileri de almak için makroya nasıl bir ilave eklemeliyiz ?
http://dosya.co/8sykpzpe8vzz/DAMGA_PROGRAMI.xlsb.html

Dim Dosya As Variant
Sub VeriAl()
    Beep
On Error Resume Next
    Dim XDosya As Workbook
    Dim xAlan As Range
       Dim Time1 As Date, Time2 As Date
    Dim timeElapsed As String, myFile As String
   

     Dosya = Application.GetOpenFilename(FileFilter:="Excel Dosyası,*.xls; *.xlsb; *.xlsx; *.xlsm", MultiSelect:=True)
    If Dosya(1) = Empty Then
        Time1 = Now
        MsgBox "Lütfen önce Dosya seçiniz.", vbExclamation
        Exit Sub
    End If
   
      Set ac = Workbooks.Open(Dosya(1))
   
    Set xAlan = ac.Sheets("dikili girişi").Range("f19:g60000")
    ThisWorkbook.Activate
    ThisWorkbook.Sheets("dikili girişi").Range("f19:g60000") = xAlan.Value
   
    Application.DisplayAlerts = False
        xAlan.Parent.Parent.Close
    Application.DisplayAlerts = True
   

   Time2 = Now
    timeElapsed = Format(Time2 - Time1, "ss") & " Saniye"
    Sheets("Dikili Girişi").Range("s6") = Sheets("Dikili Girişi").Range("m10")
    Sheets("Dikili Girişi").Range("R6") = Sheets("Dikili Girişi").Range("E19")

    MsgBox "İşlem süresi: " & timeElapsed, vbInformation
End Sub

 

[Korhan Ayhan]

Aşağıdaki kırmızı renkli bölümü ekleyin.

Set xAlan = ac.Sheets("dikili girişi").Range("f19:g60000")
ThisWorkbook.Activate
ThisWorkbook.Sheets("dikili girişi").Range("f19:g60000") = xAlan.Value
Set xAlan = ac.Sheets("dikili girişi").Range("Q3:Q4")
ThisWorkbook.Sheets("dikili girişi").Range("Q3:Q4") = xAlan.Value

 

[ormann]

Korhan bey çok teşekkür ederim.