Soldaki Son Hücreye Göre Formülü Kopyala

[Ömer2134]

Arkadaşlar merhaba

Yapmak istediğim a sutundaki son hücre hangisiye b sutundaki veriyide o kadar kopyalasın.


Teşekkürler

 

[Ömer BARAN]

Merhaba.
Aşağıdaki kod satırı istenilen sonucu verecektir.

Sub FORMUL_KOPYALA()
[B1].AutoFill Destination:=Range("B1:B" & Sheets("liste").Cells(Rows.Count, "A").End(3).Row)
End Sub

 

[Ömer2134]

Teşekkür ederim tam istediğim gibi olmuş.

 

[Ömer BARAN]

İyi çalışmalar.