Autofill Fonksiyonu

[arkanonur]

Merhaba Arkadaslar,

Bir hucreye uyguladigim formulu diger hucrelere otomatik kaydetmek icin makro kaydettim ve asagidaki kodlar ortaya cikti:

Selection.autofill Destination:=Range("F60:S60"), Type:=xlFillDefault
Range("F60:S60").Select

Bu kodlari tanimladigim hucre sonlarina gore degistirmeye calistigimda su kodlari uyguladim:

Selection.autofill Destination:=Range("Cells(sprij,6):Cells(sprij, sutun)"), Type:=xlFillDefault
Range("Cells(sprij+1,6):Cells(sprij+1, sutun)").Select

Ama yukardaki kodda bir hata var cunku surekli debug veriyor.
Virgullerle ve paragraf isaretleriyle oynadim ama hala debug veriyor.
Yardimci olabilecek arkadaslara tesekkurler.

Saygilarimla,

Onur Arkan

 

[arkanonur]

cozum

Kodlar su sekilde olmali, database'a eklensin diye yaziyorum, daha yeni buldum.

Selection.autofill Destination:=Range(Cells(sprij + 1, 6), Cells(sprij + 1, sutun)), Type:=xlFillDefault
Range(Cells(sprij + 1, 6), Cells(sprij + 1, sutun)).Select

Saygilarimla,

Onur Arkan