fonksiyon olarak kullanmak

[METE]

mehraba makro ile ilgili bir sorum vardı fakat aldığım cevapla dosyam çalışmadı dosyamın kendisini yolluyorum,yadımcı olursanız sevinirim.

L1:L9 arasındaki hücreyi makro olarak çalıştırmak istiyorum,(yani kodla)

 

[idogus]

hücreyi makro olarak çalıştırmak

Anlamadım ?
Eğer hücredeki değerleri formül yerine macro ile elde etmek istiyorsanız bu mümkün ancak o kadar uzun bir formülü macroya çevirme zahmetine sizden başka kim katlanır bilmiyorum. Bunu sizin yapmanız için bir bir başlangıç yapayım.

Sub Hesapla ()
For satir = 1 To 30
If [K19] <= [S5] Then
        Range("L" & satir).Value =  [I19] * [S6] 'Yukarıdaki şartın oluşması durumundaki işlemi buraya yaz(ilk noktalı virgülden sonraki)
        If [K19] <= ([I19] + [S5]) Then
              Range("L" & satir).Value = ([K19] - [S5]) * [T6] + ([I19] - ([K19] - [S5])) * [S6]  
              '...
         Else
              '...(İkinci noktalı virgülden sonraki)
         End If
End If
Next For
End Sub