Soru Son satıra kadar formül uygulama?

[Mergulat]

VBA veya formül ile belirli bir sütundaki formülleri son dolu satıra kadar uzatma. Button yardımı ile olabilir veya otomatik olarak.

Teşekkürler..

 

[omerfarukzorlu]

formul olan hucreye tiklayinca hucrenin sag alt tarafina imleci goturunce arti seklinde beliren imlece cift tiklayinca hucre icindeki formul alt satirlarda ilk dolu hucreye kadar tasinir.

 

[NADİR YILDIZ]

Private Sub CommandButton1_Click()
Dim son As Long

Application.ScreenUpdating = False

son = [J:K].Find("*", , , , xlByRows, xlPrevious).Row

If son < 3 Then son = 3

Range("G6:H" & Rows.Count).ClearContents

Range("G5:H5").Copy Range("G5:H" & son)
End Sub