makro ile formül yazdırma

[ismailozkan4224]

değerli arkadaşlar aşağıdaki formülleri sırası ile belirtilen hücrelere yazmak istiyorum. yardımlarınız için teşekkür ederim. diğer kodlarım var ancak bunu uyarlayamadım.
A4 HÜCRESİNE ---- =EĞER(I4="";"";ETARİHLİ(I4;BT4;"y"))
B4 HÜCRESİNE------ =EĞER(I4="";"";ETARİHLİ(I4;BT4;"y")&" "&"YIL"&" "&ETARİHLİ(I4;BT4;"ym")&" "&"AY"&" "&ETARİHLİ(I4;BT4;"md")&" "&"GÜN")
C4 HÜCRESİNE------ =EĞER(I4="";"";BUGÜN())
D4 HÜCRESİNE------ =EĞER(I4="";"";BUGÜN())

kodum aşagıdaki gibidir

Sub SINIFVERILERINIGETIR()
Range(Cells(4, 1), Cells(100, 100)).Select
Selection.Delete
sat = 4 'verileri yazmaya başlayacağısatır
For i = 4 To Sheets("BİLGİLER").Cells(Rows.Count, "F").End(3).Row 'diğer sayfalardaki dolu olan H sütununu sayıyor
If Sheets("BİLGİLER").Cells(i, "F") = Range("A1") Then 'diğer sayfaların H sütununda arıyor anasayfa A1 deki veriyi
Sheets("BİLGİLER").Range("A" & i & ":CV" & i).Copy Cells(sat, "A") 'Ai sütunu ile CVİ sütunu arasını kopyalıyor
Cells(sat, "B") = sat - 3 'satır numarasını veriyor anasayfada A sütununa

sat = sat + 1
Do While Cells(sat, 4).Offset(1, 0).Value <> ""
Cells(sat, 4).Offset(1, 0).Select
ActiveCell = Cells(sat, 4)
sat = sat + 1
Cells(sat, 73) = Format(Now, "dd.mm.yyyy hh:mm")
Loop
End If
Next i
Application.ScreenUpdating = True
End Sub

 

[çıtır]

Kodlarınıza göre ayarlayınız.Aşağıdaki şekilde olabilir.Kolay gelsin.

Sub formülyaz()
Dim s1 As Worksheet
Set s1 = Sheets("BİLGİLER")
s1.Range("A4").FormulaLocal = "=EĞER(I4" & "=" & """""" & ";" & """""" & ";" & "ETARİHLİ" & "(I4" & ";" & "BT4" & ";" & """y""" & "))"
s1.Range("B4").FormulaLocal = "=EĞER(I4" & "=" & """""" & ";" & """""" & ";" & "ETARİHLİ" & "(I4" & ";" & "BT4" & ";" & """y""" & ") & "" YIL "") & ETARİHLİ" & "(I4" & ";" & "BT4" & ";" & """ym""" & ") & "" AY ""& ETARİHLİ" & "(I4" & ";" & "BT4" & ";" & """MD""" & ") & "" GÜN """
s1.Range("C4").FormulaLocal = "=EĞER(I4" & "=" & """""" & ";" & """""" & ";" & "BUGÜN())"
s1.Range("D4").FormulaLocal = "=EĞER(I4" & "=" & """""" & ";" & """""" & ";" & "BUGÜN())"
End Sub

 

[ismailozkan4224]

teşekkürler sayın çıtır.

 

[çıtır]

teşekkürler sayın çıtır.

Rica ederim.Dönüş yaptığınız için teşekkür ederim.