Ado ile nasıl yapabilirim?

[Zeyback]

Merhaba,

elimdeki kod satırlarını ado dosyayı açmadan nasıl yapabilirim.

Şimdiden yardımlarınız için çok teşekkürler.

foyno = Sheets("Sayfa1").Range("O2")
tarihk = Sheets("Sayfa1").Range("O1")
firma = Sheets("Sayfa1").Range("F3")
isadi = Sheets("Sayfa1").Range("F4")
bolcusu = Range("I8") & "*" & Range("K8")
adet = Sheets("Sayfa1").Range("I19")
kebat = Sheets("Sayfa1").Range("I8")
renk = Sheets("Sayfa1").Range("L14")
kadet = Sheets("Sayfa1").Range("N19")
selefon = Sheets("Sayfa1").Range("C43")
lak = Sheets("Sayfa1").Range("I43")
bobst = Sheets("Sayfa1").Range("C49")
kazanli = Sheets("Sayfa1").Range("C49")
yapistirma = Sheets("Sayfa1").Range("N43")
varak = Sheets("Sayfa1").Range("I49")
enot = Sheets("Sayfa1").Range("C22")
mparkur = Sheets("Sayfa1").Range("P3")
Application.Workbooks.Open (ThisWorkbook.Path & "\70x100-4 Baski Listesi.xlsx")
Son_Dolu_Satir = Sheets("Sayfa1").Range("A65536").End(xlUp).Row
Bos_Satir = Son_Dolu_Satir + 1
Sheets("Sayfa1").Range("A" & Bos_Satir).Value = _
Application.WorksheetFunction.Max(Sheets("Sayfa1").Range("A:A")) + 1
Sheets("Sayfa1").Range("B" & Bos_Satir).Value = tarihk
Sheets("Sayfa1").Range("C" & Bos_Satir).Value = foyno
Sheets("Sayfa1").Range("D" & Bos_Satir).Value = firma
Sheets("Sayfa1").Range("E" & Bos_Satir).Value = isadi
Sheets("Sayfa1").Range("I" & Bos_Satir).Value = bolcusu
Sheets("Sayfa1").Range("J" & Bos_Satir).Value = adet
Sheets("Sayfa1").Range("K" & Bos_Satir).Value = renk
Sheets("Sayfa1").Range("L" & Bos_Satir).Value = kadet
Sheets("Sayfa1").Range("M" & Bos_Satir).Value = selefon
Sheets("Sayfa1").Range("N" & Bos_Satir).Value = lak
Sheets("Sayfa1").Range("O" & Bos_Satir).Value = bobst
Sheets("Sayfa1").Range("P" & Bos_Satir).Value = kazanli
Sheets("Sayfa1").Range("Q" & Bos_Satir).Value = yapistirma
Sheets("Sayfa1").Range("R" & Bos_Satir).Value = varak
Sheets("Sayfa1").Range("T" & Bos_Satir).Value = enot
Application.DisplayAlerts = False
ActiveWorkbook.Save
ActiveWorkbook.Close

 

[Korhan Ayhan]

Merhaba,

Bu işlem için örnek dosyalarınızı paylaşmalısınız. Ayrıca hangi alanları aktarmak istediğinizi açıklamalısınız.