Kapalı Dosyadan veri aktarma

[zorro1071]

Merhabalar Yardımlarınıza ihtiyacım oldu. Kapalı dosya hakkında fazla bilgim yok araştırdım ama bir türlü uyarlayamadım. Yardımcı olursanız sevinirim.

Makro ile yada VBA ile ; Masaüstünde bulunan veri.xls kapalı dosyasından A10:I26,A35:I70;A75:I100...... (artarak giden) satırlarının hücre değerlerini açık olan ( ki hücre yapısını bozmadan) ayırma.xls dosyasındaki B3:J19:, B25:J60;B65:J90 ... gibi hücrelerine kopyalamasını istiyorum.

 

[zorro1071]

yani userform üzerinden command button ile olacak

 

[zorro1071]

allah rızası için bir yardım. lütfen. örnek dosya da yükleyemiyorum.

 

[zorro1071]

Lütfen Yardım !!
Arkadaşlar araştırarak burdaki bir linkten istediğim kodları buldum ve yapmak istediğimi kendi dosyalarıma uyguladım ama bir türlü saat formatını açık olan dosyama aynı formatta kopyalatamadım bir yerde hata yapıyorum ama nedir çözemedim yardımcı olursanız sevinirim. Kodlarım aşağıdaki gibidir.

Dim Baglanti As Object
Dim rs As Object, rs1 As Object, rs2 As Object, rs3 As Object
Set Baglanti = CreateObject("ADODB.Connection")
dosya = ThisWorkbook.Path & "\veri.xls"
aralık = "[veri1$A9:26]"
aralık1 = Format("[veri1$E9:E26]", "ss:dd")
aralık2 = "[veri1$I9:I26]"
aralık3 = Format("[veri1$G9:G26]", "ss:dd")

Baglanti.Open "provider=microsoft.ace.oledb.12.0;data source=" & dosya & ";extended properties=""excel 12.0;hdr=yes"""

Set rs = Baglanti.Execute(aralık)
Set rs1 = Baglanti.Execute(aralık1)
Set rs2 = Baglanti.Execute(aralık2)
Set rs3 = Baglanti.Execute(aralık3)
Range("B3").CopyFromRecordset rs
Range("F3").CopyFromRecordset rs1
Range("J3").CopyFromRecordset rs2
Range("H3").CopyFromRecordset rs3
Baglanti.Close
Set Baglanti = Nothing
Set rs = Nothing
'Set rs1 = Nothing
'Set rs2 = Nothing
'Set rs3 = Nothing