12 satır ara ile formül kopyalama

[mançuryalı]

Selam,
12 satır ara ile formül kopyalama makro ile çözülebilirmi?Forumda ilgili linklere gözattım fakat bulamıyorum.
Tekrar selamlarımla,kolay gelsin.

 

[Ferhat Pazarçevirdi]

B1:B12 ve D1: D12 aralıklarında formül yok. Konuyu biraz daha açar mısınız?

 

[mançuryalı]

Selam ,
Haklısınız,sıra numarası ekledim ve unuttum.C1:C12 ve E1:E12 sutununda basitçe toplama formülü var.12 satırlık OLARAK AYNI FORMÜL periyodik olarak C ve E sutunları boyunca fakat 1 satır ara ile kopyalanabilirmi?

 

[Ferhat Pazarçevirdi]

Aşağıdaki gibi bir kod olabilir.

Sub Formul_Cogalt()
Dim i As Integer
For i = 1 To Cells(65536, 2).End(xlUp).Row
    If Len(Cells(i, 2) & Cells(i, 4)) > 0 Then
        Cells(i, 3).Formula = "=B" & i & "+" & "D" & i
        Cells(i, 5).Formula = "=B" & i & "-" & "D" & i
    End If
Next i
End Sub

 

[mançuryalı]

Selam,
Evet 12 satır ara ile oldu.Fakat 3 peryot olarak yapıyor.Ne kadar kodlarda uğraştıysamda 2100 peryota kadar çıkaramadım.En iyi açıklama, sayfa sonuna kadar formülleri kopyalamam lazım.Ayrıca şunuda eklemem gerek.Sonradan farkettim,Kodlar formüle göre düzenlenmiş,Formülleri değiştirsem de kopyalamayı yapabilmeliyim.Yani formül ne olursa olsun kopyalama yapabilmeli.
Tekrar selamlarımla,kolay gelsin.

 

[mançuryalı]

Selam,
Tamam gerek kalmadı .çözdüm kodları,Teşekkürler.

 

[ziya]

Kod kullanmadan çok basit bir uygulama ekte, satır aralığını istediğiniz gibi ayarlayabilirsiniz ( I , 0 )
Selamlar,