İ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
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
Kod:
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