DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
=ETOPLA(ÇİÇEK!$B$3:$B$990;$C$5;ÇİÇEK!$H$3:$H$990)Private Sub CommandButton9_Click()
a = Sheets("temel veriler").Cells(11, 12)
bir = CLng(TextBox1 * a)
TextBox2.Value = bir
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox2 = Format(TextBox2, "###,###.00")
End Sub
Private Sub CommandButton9_Click()
a = Sheets("temel veriler").Cells(11, 12)
bir = CLng(TextBox1 * a)
TextBox2 = Format(bir,"#,##0.00")
End Sub