İf yardımı

[HALILİBRAHIM]

Sub Düğme2591_Tıklat()

Dim son As Long
son = Range("g" & Rows.Count).End(xlUp).Row
For i = 14 To son

If Range("F" & i).Formula = ("E" & i) > ("G" & i) Then

Range("F" & i).Formula = "=(E" & i & ")/(G" & i & ")"


Else: Range("F" & i).Formula = "=(G" & i & ")/(E" & i & ")"

End If


Range("L" & i).Formula = "=((I" & i & ")*(j" & i & ")*(K" & i & "))/1000000*(F" & i & ")"
Range("O" & i).Formula = "=(M" & i & ")*(F" & i & ")"
Range("P" & i).Formula = "=(N" & i & ")*(F" & i & ")"
Next



Range("F" & son + 1).Formula = "=SUM(F14:F" & son & ")"

Range("L" & son + 1).Formula = "=SUM(L14:L" & son & ")"

Range("O" & son + 1).Formula = "=SUM(O14:O" & son & ")"

Range("P" & son + 1).Formula = "=SUM(P14:P" & son & ")"


End Sub

Merhaba Hocalar,

Sayın arkadaşlar,

E > G den büyükse E/G bölüp F ye yazsın değilse G/E ye bölüp F ye yazmasını istedim, İf yapısıyla yapmaya çalıştım fakat yapamadım yardımlarınızı rica ediyorum nerede hatam var acaba?

Saygılarımla

 

[Orion1]

aşağıdaki gibi deneyiniz.

If Range("E" & i).Value > Range("G" & i).Value Then

Range("F" & i).Value = Range("E" & i).Value / Range("G" & i).Value


Else: Range("F" & i).Value = Range("G" & i).Value / Range("E" & i).Value

End If

 

[HALILİBRAHIM]

Çok teşekkür ederim orion hocam yaptım,

Saygılarımla, iyi çalışmalar