Makro ile Formülleriyle birlikte aktarma

[ayagiz44]

Bu Tabloya Makro ile A1:d1 kopyalayıp formülleriylebirlikte alt alta aktaracak

 

[veyselemre]

Sub test()
    For i = 1 To 4
        Cells(i + 1, "M").Formula = Cells(2, i).Formula
    Next i
End Sub

 

[ayagiz44]

Üstat Saygılar teşekkür ederim.

 

[ayagiz44]

Üstad
Sub test()
For i = 4 To 8
Cells(i + 6, "BH").Formula = Cells(2, i).Formula
Next i
End Sub
denedim çalışmadı (d7:h7) alacak BH7:BH11 formülleriyle yapıştıracak

 

[muratboz06]

Üstad
Sub test()
For i = 4 To 8
Cells(i + 6, "BH").Formula = Cells(2, i).Formula
Next i
End Sub
denedim çalışmadı (d7:h7) alacak BH7:BH11 formülleriyle yapıştıracak

Cells(i + 6, "BH").Formula = Cells(2, i).Formula satırını
Cells(i + 2, "BH").Formula = Cells(7, i).Formula ile değiştiriniz. Sorununuz net anlaşılmıyor. İstediğiniz bu değilse eşitliğin solundakini sağa sağındakini sola alarak deneyiniz.

 

[ayagiz44]

Teşekkürler üstad