A:\ dan aktarma

[talatcd]

Selam Arkadaşlar ben A:\ vela Flaş Disk G:\ den aynı format , aynı dosya ismi ve aynı sayfa numaralırına ait bilgileri masaüstümdeki yine aynı dosya ismi ve aynı sayfa numarasına aktarmak istiyorum. Yardımcı olursanız sevinirim. Herkese iyi çalışmalar
saygılarımla.

 

[talatcd]

Arkadaşlar masaüstüne attığım puantaj dosyam sayfa1-sayfa2-sayfa3-sayfa-4 ten oluşmuş. Okullara sayfa 1 e ait formatı vermişim. 150 okul var bu okullardan gelecek puantajları kopyala yapıştır çok zor ve zahmetli iş (A) veya (G) disklerle gelen sayfa 1 e ait bilgileri AKTAR butonu oluşturarak masaüstümdeki Puantaj dosyama aktarmak istiyorum.

Böyle bir kod yazdım olmadı,,,,,,

Sub Aktar()
a = WorksheetFunction.CountA(Sheets("C:\Documents and Settings\Administrator\Desktop\Puantaj.xls").Range("B3:B65536"))
Sheets("C:\Documents and Settings\Administrator\Desktop\Puantaj.xls").Range("A" & a + 3) = a + 1
Sheets("C:\Documents and Settings\Administrator\Desktop\Puantaj.xls").Range("B" & a + 3) = [t4]
Sheets("C:\Documents and Settings\Administrator\Desktop\Puantaj.xls").Range("C" & a + 3) = [t51]
Sheets("C:\Documents and Settings\Administrator\Desktop\Puantaj.xls").Range("D" & a + 3) = [g12] & "." & [h12] & "." & [ı12] & "." & [j12] & "-" & [k12] & "-" & [m12] & "." & [n12] & "." & [o12] & "." & [p12]
Sheets("C:\Documents and Settings\Administrator\Desktop\Puantaj.xls").Range("E" & a + 3) = [t3]
Sheets("C:\Documents and Settings\Administrator\Desktop\Puantaj.xls").Range("F" & a + 3) = [s47]
Sheets("C:\Documents and Settings\Administrator\Desktop\Puantaj.xls").Range("G" & a + 3) = [t51]
Sheets("C:\Documents and Settings\Administrator\Desktop\Puantaj.xls").Range("h" & a + 3) = [t12]
End Sub