EXCEL USTALARI Bİ BAKABİLİR Mİ

arkadaşlar benim için çok önemli bir konuda yardımınıza ihtiyacım var
şöyle ki vermiş olduğum excel görüntüsünde indirim oranı kısmına değer girilip entera basılınca renkli bazı hücrelerde otomatik olarak o indirim-bindirim oranının uygulanıp yeni değerin o hücreye yansımasını nasıl yaptırabilirim.(mesela indirim kısmına 10 yazdığımda D5 hücresinin değeri 420 - 42 den 378 yazacak )
https://drive.google.com/file/d/1bIEKstmxeHsNU-a3eiMtl5a1ZkYNpq50/view?usp=sharing

Bazı hücreleri Excel bilemez. Değişecek hücreleri tanımlamanız gerekir.

o değişecek kısımları biz aralık olarak söyleyecez hocam

sayının bulunduğu hücrede mi gösterecek...
örneğin siz A8'e 400 yazdınız, D5'e 10 yazınca A8'deki sayının 400+40= 440'a dönüşmesi gerekiyor.
yanlış mı anladım yoksa...

Btrgs' Alıntı:

o değişecek kısımları biz aralık olarak söyleyecez hocam

Genişletmek için tıkla ...

O hücreler hangi hücreler?

C5:L42 arası tüm değerler.
aslında yaptım ama makrosuz yaptım ve tek indirim veya bindirim kısımları oluyor. ikisini aynı anda ve makroyla nasıl yaparım bilmiyorum

Sub İndir()
Application.ScreenUpdating = False
For i = 3 To 12
For j = 5 To 42
If Not IsNumeric(Cells(j, i)) Then GoTo 10
If Cells(j,i)="" Then Goto 10
Cells(j, i) = Cells(j, i) - Cells(j, i) * Range("N4") / 100
10
Next j
Next i
End Sub



Sub Bindir()
Application.ScreenUpdating = False
For i = 3 To 12
For j = 5 To 42
If Not IsNumeric(Cells(j, i)) Then GoTo 10
If Cells(j,i)="" Then Goto 10
Cells(j, i) = Cells(j, i) + Cells(j, i) * Range("Q4") / 100
10
Next j
Next i
End Sub


Kodları deneyiniz.

ekteki dosyaya bir bakın hocam