Sn. derebeyi,
Eğer mantığını anlarsanız, gerisini kendiniz de geliştirebilirsiniz.
Excel'de yapılacak işlemlerin kodları karışık gelebilir ama o kodları yine excel'den otomatik olarak alabilirsiniz.
Excel'de iken Araçlar-Makro-Yeni Makro Kaydet dediğinizde
yaptığınız işlemlere karşılık gelen Vba kodları otomatik olarak kaydedilir.
Kaydetmeyi durdurduktan sonra Araçlar-Makro-Makrolar kısmında
kaydedilen kodları görebilirsiniz.
Tek yapacağınız buradaki gerekli kodları Access'e kopyalayıp, Access'e göre biraz düzenlemek.
ya her komutun başına ExcelDosyasi. ekleyeceksiniz veya
Kod:
With ExcelDosyasi
...
End WithMesela;
Kod:
With ExcelDosyasi
.Columns("A").EntireColumn.ColumnWidth = 1
' Bold İşlemleri
.Range(.Cells(SatirNo1 + 1, 2).Address, .Cells(SatirNo1 + 1, 9).Address).Select
.Selection.Font.Bold = True
' Çerçeve ve Ortalama İşlemleri
.Range(.Cells(SatirNo1, 2).Address, .Cells(SatirNo1 + 1, 9).Address).Select
.Selection.HorizontalAlignment = xlCenter
.Range("A1").Select
End With