DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub CommandButton1_Click()
If TextBox1.Value <> "" Then
Sheets("Sayfa1").Activate
Cells(2, 2).Select
Do While ActiveCell.Value <> ""
ActiveCell.Offset(1, 0).Activate
Loop
ActiveCell.Value = TextBox1.Value
ActiveCell.Offset(0, 2).Value = TextBox2.Value
ActiveCell.Offset(0, 4).Value = TextBox3.Value
ActiveCell.Offset(0, 6).Value = TextBox4.Value
'Veyselemre'nin verdiği kodla
Range("b34") = WorksheetFunction.Sum(Range("b2:b33"))
Range("d34") = WorksheetFunction.Sum(Range("d2:d33"))
Range("f34") = WorksheetFunction.Sum(Range("f2:f33"))
Range("h34") = WorksheetFunction.Sum(Range("h2:h33"))
Range("b35") = Range("b34") - Range("d34") + Range("h34") - Range("f34")
MsgBox [b35] & " Net Gelir"
End If
End Sub
Range("b34") = WorksheetFunction.Sum(Range("b2:b33"))
Range("d34") = WorksheetFunction.Sum(Range("d2:d33"))
Range("f34") = WorksheetFunction.Sum(Range("f2:f33"))
Range("h34") = WorksheetFunction.Sum(Range("h2:h33"))
Range("b35") = Range("b34") - Range("d34") + Range("h34") - Range("f34")