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.
Kod:
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
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.