Soru Boş satırlara formül kopyalama makrosu

[NADİR YILDIZ]

arkadaşlar sarı alan ve aşağısındaki alana sağ tarafta veri varsa makro ile formülleri nasıl kopyalama yaptırabiliriz.

 

[NADİR YILDIZ]

arkadaşlar çözümü var mı ?

 

[Ömer]

Merhaba,

Sorunuz net değil.
İstediğiniz; F:I arasındaki dolu olan satırları, A: D arasına alt alta getirmek mi?

 

[NADİR YILDIZ]

merhaba

F3 G3 H3 I3 te bulunan kırmızı verileri

A3 B3 C3 D3 Formülle alıyor.
kırmızı veriler başka bir sayfadan geliyor.benim istediğim a3ten d3 olan alan ve aşağısına formülleri makro ile aktarması.ama kırmızı alanda veri varsa formülü aşağı kopyalasın.kırmızı alanda veri yoksa formülü kopyalamasın

 

[Ömer]

Deneyiniz.

Sub f_ekle()
    
    Dim son As Long
    
    Application.ScreenUpdating = False
        
    son = [F:I].Find("*", , , , xlByRows, xlPrevious).Row
    
    If son < 3 Then son = 3

    Range("A4:D" & Rows.Count).ClearContents
    
    Range("A3:D3").Copy Range("A4:D" & son)
    
End Sub

 

[NADİR YILDIZ]

Sayın Ömer bey teşekkür ederim.

dosyama ekledim.sorunsuz çalışıyor
iyi çalışmalar