Cengizhantr06
Altın Üye
- Katılım
- 16 Mayıs 2020
- Mesajlar
- 327
- Excel Vers. ve Dili
- Office 365 Türkçe
- Altın Üyelik Bitiş Tarihi
- 18-05-2025
Kod:
For cen = 67 To 77
If CDbl(Controls("textbox" & cen)) > 0 Then
deg = deg + CDbl(Controls("textbox" & cen))
End If
Sheets(sayfa).Range("L4").Value = deg
TextBox81.Value = deg
TextBox81.Value = FormatNumber(TextBox81.Value, 2)
Sheets(sayfa).Range("E4").Value = Sheets(sayfa).Range("E4").Value - TextBox81.Value
Next
Nerde hata yaıyorum acaba ?
Son düzenleme: