makro ile coklu eger kullanimi

[canburak]

Merhabalar ekli dosyada gonderdigim makroyu yapmak icin yardimci olabilir msizniz

Saygilar

 

[antonio]

Merhaba,
Aşağıdaki formülü deneyiniz:

=EĞER(A1<>"Gdr";B1/G1;B1)

 

[canburak]

Merhaba,
Aşağıdaki formülü deneyiniz:

=EĞER(A1<>"Gdr";B1/G1;B1)

hocam bunu makro ile yapmam lazim

 

[canburak]

icerisinde suan arkadaslarin yaptigi calisan bir makro var sadece buton eklemedim

 

[askm]

Sub askm()
Dim Son As Long
Application.ScreenUpdating = False
Son = Range("A" & Rows.Count).End(xlUp).Row ' Toplma Ruble
For i = 2 To Son
On Error GoTo 10
    If Cells(i, 1) <> "Gdr" Then
        If Cells(i, 7) > 0 Then  '
            Cells(i, 5) = Cells(i, 3) / Cells(i, 7)
        Else
            Cells(i, 5) = Cells(i, 2) / Cells(i, 8)
        End If
    Else
        Cells(i, 5) = Cells(i, 2)
    End If
10:
Next i
Application.ScreenUpdating = True
MsgBox "Hesaplama tamam...", vbInformation, "ASKM"
End Sub

 

[canburak]

Sub askm()
Dim Son As Long
Application.ScreenUpdating = False
Son = Range("A" & Rows.Count).End(xlUp).Row ' Toplma Ruble
For i = 2 To Son
On Error GoTo 10
    If Cells(i, 1) <> "Gdr" Then
        If Cells(i, 7) > 0 Then  '
            Cells(i, 5) = Cells(i, 3) / Cells(i, 7)
        Else
            Cells(i, 5) = Cells(i, 2) / Cells(i, 8)
        End If
    Else
        Cells(i, 5) = Cells(i, 2)
    End If
10:
Next i
Application.ScreenUpdating = True
MsgBox "Hesaplama tamam...", vbInformation, "ASKM"
End Sub

Sagol Ustad eline saglik