2 formül birleştirme

[siyar0044]

merhabalar

G sütününda kullanmış oluğum bir formül var (g23 den başlıyor ve g633'de bitiyor) ancak bu formül içeriği düzenli sıralı gitmiyor arada farklılıklar gösterebiliyor

kullanılan örnek formül =ad23*ae23
çevrilmek istenilen formül eğer f sütününda değer yok ise sıfır değer var ise formül değerini verecek =EĞER(F23=0;0;ad23*ad23)

benim yapmak istediğim mevcut formülü bozmadan seri bir şekilde =EĞER(F23=0;0;ad23*ad23) haline nasıl çevirebilirim

 

[Korhan Ayhan]

Bu formülü ilk hücreye yazınız. Sonrasında yazdığınız hücreyi seçip sağ alt köşesinde mouse ile tutup aşağıya doğru sürükleyiniz.

 

[siyar0044]

Bu formülü ilk hücreye yazınız. Sonrasında yazdığınız hücreyi seçip sağ alt köşesinde mouse ile tutup aşağıya doğru sürükleyiniz.

merhabalar
mevcut formül sabit satünlü olmadığından o şekilde yapamıyourm malesef

 

[Ömer]

Merhaba,

Deneyiniz.

Sub degistir()

    Dim i As Range, d As String
   
    On Error Resume Next
    For Each i In Range("G23:G633")
        If i <> "" Then
            d = Right(i.Formula, Len(i.Formula) - 1)
            i.FormulaLocal = "=EĞER(F" & i.Row & "=0;0;" & d & ")"
        End If
    Next i
   
End Sub