formulu makroya çevirme

[echobrain]

merhaba arkadaşlar benim bir konuda yardıma ihtıyacım var.ornek te gonderdigim formulleri nasıl makroya nasıl çevirebilirim yardımcı olursanız cok sevinirim

 

[ozgretmen]

Bence formüllerinizi makroya çevirmek yersiz.Çünkü tablonuza göre formül kullanmak daha işlevsel.

 

[echobrain]

araya satır girdigim zaman zor oluyor.formul oyuzden makroya çevirmek istiyorum

 

[Ayhan Ercan]

Merhaba sn echobrain

Aşağıdaki kodu bir butona atayıp deneyiniz...

Private Sub CommandButton1_Click()
Dim say As Long
say = Sheets("Sayfa1").Range("A65536").End(3).Row
For i = 2 To say
    If Cells(i, "i") = 0 Then
        Cells(i, "n") = Cells(i, "g")
    ElseIf Cells(i, "i") = 1 Then
        Cells(i, "n") = Cells(i, "g") * Cells(1, "o")
    Else
        Cells(i, "n") = Cells(i, "g") * Cells(1, "q")
    End If
Next
End Sub

 

[echobrain]

çok teşekkur ederim.cok yararlı oldu