Soru Formülün diğer hücrelere tekrarı yapma

[stirra_ej]

Aşağıda ki formül D16 - E 16 ve F16 yı konu olan bu formül alt alta tekrar ederek D46 E46 ve f46 ya kadar nasıl yazılabilir.
yardımcı olurmusunuz lütfen.

Private Sub GuncelleZaman_Click()
On Error Resume Next

If Range("D16").Value <> "" And Range("e16").Value = "--" Then
Range("D16").Value = Range("D16").Value & (" - ") & BitisMer.Value
Exit Sub

Else

If Range("D16").Value <> "" And Range("f16").Value = "--" Then
Range("D16").Value = BaslamaMer.Value & (" - ") & Range("D16").Value
Exit Sub

Else

If Range("D16").Value <> "" And Range("e16").Value <> "" And Range("f16").Value <> "" Then
Range("D16").Value = BaslamaMer.Value & (" - ") & Range("D16").Value & (" - ") & BitisMer.Value
Exit Sub

End If
End If
End If
End Sub

 

[Orion1]

Aşağıda ki formül D16 - E 16 ve F16 yı konu olan bu formül alt alta tekrar ederek D46 E46 ve f46 ya kadar nasıl yazılabilir.
yardımcı olurmusunuz lütfen.

Makro demek istediniz herhalde.

 

[stirra_ej]

evet makro istiyorum. Eğer bir kolayı var ise ve zahmet olmaz ise lütfen yardımcı olurmusunuz.. Comman buttonun içine yazddım bunu ama aynı formulu tekrar ederek diğer satırlara da yazarsam ilk satırın ki çalışıyor diğerleri çalışmıyor, ilk satırı boş bırakırsam da bir alttaki çalışıyor. formülleyemiyorum..

 

[muratb06]

Private Sub GuncelleZaman_Click()
On Error Resume Next
For i =16 to 46

If Range("D"& i).Value <> "" And Range("e"&i).Value = "--" Then
Range("D"&i).Value = Range("D"&i).Value & (" - ") & BitisMer.Value
Exit Sub

Else

If Range("D"& i).Value <> "" And Range("f"&i).Value = "--" Then
Range("D"&i).Value = BaslamaMer.Value & (" - ") & Range("D"&i).Value
Exit Sub

Else

If If Range("D"& i).Value <> "" And Range("e"&i).Value <> "" And Range("f"&i).Value <> "" Then
Range("D"&i).Value = BaslamaMer.Value & (" - ") & Range("D"&i).Value & (" - ") & BitisMer.Value
Exit Sub

End If
End If
End If
activecell. Offset(1,0).select
Next i
End Sub

Butona basmadan once formülün çalışacağı ilk hücre secilmis olmalı. Telefondan yazdım deneme fırsatım olmadı.

ASUS_Z00LD cihazımdan Tapatalk kullanılarak gönderildi