sütunu doldurma

[ofis34]

arkadaşlar

sütunu kendim belirledğim bir şey ile (deneme) doldurmak istiyorum.bunu makro ile nasıl kaydedebilirim.

Sub dosya()
Sheets("sayfa1").Select
Range("b2:b65000").Select
ActiveCell.FormulaR1C1 = "DENEME"
ActiveWorkbook.Save
End Sub

bunun ile yapmaya çalıştım ama yapamadım.

 

[uzmanamele]

Merhaba

Bunu deneyiniz.

Sub dosya()
Sheets("Sayfa1").Select
    Range("b2").Select
    ActiveCell.FormulaR1C1 = "deneme"
    Selection.AutoFill Destination:=Range("b2:b10"), Type:=xlDFilefalut
End Sub

 

[Necdet]

Alternatif

Sub doldur()
    Range("A1:A40") = "Deneme"
End Sub

 

[ofis34]

çok teşekür ederim.
ikiside işime yaradı.