formül çoğaltma da satır sayısına göre fomülü çoğlatması

[songemi]

Arkadaşlar merhaba

hücredeki formlü aşağı doğru çoğaltırken sekizer satır ekleyerek çoğaltma istiyorum bunu makrı ile nasıl yapabilirim acaba
yardımcı olursanız çok sevinirim.

örneğin =a1*b1
.
.
.
.
.
.
.
.
=a9*b9 olsun istiyorum

saygılarımla

 

[md3m1ray]

dener misiniz

Sub FormulSekizSatirdaBirCogalt()
    Dim ws As Worksheet
    Dim baslangicHucresi As Range
    Dim hedefHucresi As Range
    Dim formül As String
    Dim i As Long
    Dim aralik As Integer
    Dim sonSatir As Long
    
    Set ws = ActiveSheet
    Set baslangicHucresi = ws.Range("A1") ' formülün yazılı olduğu hücre
    formül = baslangicHucresi.FormulaR1C1
    aralik = 8 ' Her kaç satırda bir kopyalayacağınızı seçin
    sonSatir = 100 ' Son satır (kaçıncı satıra kadar formülü kopyalasın)
    
    For i = baslangicHucresi.Row + aralik To sonSatir Step aralik
        Set hedefHucresi = ws.Cells(i, baslangicHucresi.Column)
        hedefHucresi.FormulaR1C1 = formül
        hedefHucresi.Formula = Replace(formül, "R1C1", "R" & i & "C" & baslangicHucresi.Column)
    Next i
    
    MsgBox "Formüller başarıyla çoğaltıldı!"
End Sub

 

[md3m1ray]

deneyebildiniz mi
songemi

 

[md3m1ray]

deneyebildiniz mi
@songemi