autofill / otomatik doldurma

[walabi]

Herkeze merhaba,

Makro kaydet ile aşağıda görünen otomatik doldurmayı oluşturmuştum.
Bunu tek bir sütun için, örneğin H2 den Hson ya da aralık belirterek yazmam gerekirse , A2 den Hson gibi,

Makro ile nasıl ifade etmem gerekir.

    Selection.AutoFill Destination:=Range("G2:G190")
    Range("G2:G190").Select

 

[Emir Hüseyin Çoban]

. . .

Hson = Cells(Rows.Count, "H").End(3).Row
Range("H2:H" & Hson).Select

. . .

 

[walabi]

Hüseyin bey teşekkürler cevabınız için.

 

[walabi]

Hüseyin bey,

Yazdığınz kodu aşağıda göründüğü gibi uyarlamaya çalıştım.
Ancak düşündüğüm gibi çalışmadı ve hata vermekte. E2 den Eson a kadar otomatik doldurması için nasıl düzeltebiliriz.

Sub Doldur()

Son = Cells(Rows.Count, "E").End(3).Row
Range("E2:E" & Son).Select
Selection.AutoFill Destination:=Range("E2:E" & Son)




End Sub

 

[Emir Hüseyin Çoban]

. . .

Aynı verilerle mi dolduracak yoksa
artarak mı gidecek.

. . .

 

[walabi]

Veri doldurmaktan ziyade formülü kopyalamak diyelim. Yani 1,2,3 şeklinde bir veri doldurmak değil, 1.Satırı sütun başlıkları sayarsak, 2 satırdan itibaren formül içeren bir hücreyi en son dolu olan satıra kadar kopyalamak ya da doldurmak.

 

[Emir Hüseyin Çoban]

. . .

Son = Cells(Rows.Count, "E").End(3).Row
Range("E2:E" & Son).Select
Selection.FillDown

. . .

 

[walabi]

Hüseyin bey çok teşekkürler, yeni kontrol edebildim. istediğim son gönderdiğiniz koddu.