Makrolarla hisse takip

[sonokta]

Bir kaç gün önce
http://www.excel.web.tr/showthread.php?t=78621

bu linkte bir konu açtım Arkadaşlardan Allah razı olsun çok yardımcı oldular fakat izlediğim yol tam amatörceydi hemde zahmetli ayrıca ortaya bir çalışma çıksa bile sadece benim işime yarayacak türden bişey olacaktı

Arkadaşların yardımıyla altaki gibi bir çalışma çıkartmaya çalıştım fakat dediğim gibi izlediğim yol hem zahmetli hem kullanışsız

Siz excel ve makrolarda benden çok iyi olduğunuz için sizlerin tavsiye ve bilginizden yararlanmak istiyorum

Altaki linki nasıl daha az zahmetli ve daha kullanışlı yapabilirim

 

[sonokta]

For k = 4 To 12
Cells(3, k).Value = Application.ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\[200912241.xls]N1- 1'!R38C" & k)
Next

For k = 4 To 12
Cells(4, k).Value = Application.ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\[200912242.xls]N2- 1'!R38C" & k)
Next

For k = 4 To 12
Cells(5, k).Value = Application.ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\[200912251.xls]N1- 1'!R38C" & k)
Next

For k = 4 To 12
Cells(6, k).Value = Application.ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\[200912252.xls]N2- 1'!R38C" & k)
Next

bu kısmı otomatik atacak gibi yapabilirmiyiz

2009 12 25 1 günler şeklinde artıyor hergün için 200912251 ve 200912252 şeklinde artarak değişiyor

 

[afyon03]

teşekkürler