Makroda hücreye formül tanımlama

[magnet2014]

Arkadaşlar merhaba,

Aşağıdaki gibi bir kod çalıyor. Bu kod "ÖZET RAPOR" isimli sayfaya diğer sayfalardan veri alarak döküm yapıyor. Bu formülü---> =IFERROR(IF(D6<>"c";L6/(K6+L6);"");"") makronun içerisine gömerek S6 hücresinden başlayarak bütün s kolonuna her satırda işlem yapacak şekilde uygulatmak istiyorum.

Dosya içeriği şirket bilgilerini içerdiği için paylaşamıyorum. Yardımcı olursanız minnettar olurum. Teşekkürler

Sub Dugme1_Tiklat()
Range("A6:Q" & Rows.Count).Clear
Range("a3").Select
    Selection.ClearContents
Dim i As Long, sonsat As Long, sat As Long, k As Integer
Dim myarr()
sat = 6
Sheets("ÖZET RAPOR").Select
 Range("a3").Select
    ActiveCell.Value = "TEKNIK YATIRIM ÖZET RAPORU"
myarr = Array("", "Ch1-1 transfer", "Ch1-1 tr. c.over", "Ch1-2", "Ch1-2 c.over")
For k = 1 To 4
    If Sheets(myarr(k)).FilterMode Then Sheets(myarr(k)).ShowAllData
    sonsat = Sheets(myarr(k)).Cells(Rows.Count, "A").End(xlUp).Row
    For i = 2 To sonsat
        If Sheets(myarr(k)).Cells(i, "A").Value = 1 Then
            Sheets(myarr(k)).Range("A" & i & ":Q" & i).Copy
            Range("A" & sat).PasteSpecial xlPasteValuesAndNumberFormats
            sat = sat + 1
        End If
    Next i
    sat = sat + 1
    Application.CutCopyMode = False
Next k
  
MsgBox "ISLEM TAMAM"
End Sub

 

[ÖmerBey]

Merhaba,
Aşağıdaki satırı kodunuzun sonuna ilave edip deneyiniz.

Range("S6:S" & sat).Formula = "=IFERROR(IF(D6<>""c"",L6/(K6+L6),""""),"""")"