- Katılım
- 24 Nisan 2005
- Mesajlar
- 3,671
- Excel Vers. ve Dili
- Office 2016 EN 64 Bit
- Altın Üyelik Bitiş Tarihi
- 25/05/2022
Benim gönderdiğim kodlarda ne sorun var?bu formulde ilk once c ye desger yazdıgım zaman division by zero hatası alıyorum neden olur ?Kod:If Not Intersect(Target, [C:F]) Is Nothing Then satir = Target.Row If Cells(satir, "C") = "5" Then Cells(satir, "G").Value = (Cells(satir, "E") - ((Cells(satir, "F") + "10") * Cells(satir, "D")) * Cells(satir, "A")) / Cells(satir, "A") Else Cells(satir, "G") = 0 End If If Cells(satir, "C") = "6" Then Cells(satir, "G").Value = (Cells(satir, "E") - ((Cells(satir, "F") + "5") * Cells(satir, "D")) * Cells(satir, "A")) / Cells(satir, "A") Else Cells(satir, "G") = 0 End If End If End Sub
Neden If Cells(satir, "C") = "5" Then komutunu kullananız gerekiyor.
Ben kodda zaten C ye 5 ekliyorum. C 5 ise 10 ile topluyor.
C 6 ise 11 ile topluyor.
C boş ise, sonuca sıfır yazıyor