VBA Yardım

[bulentkars]

Arkadaşlar Merhaba

Sorum ekteki çalışma sayfada incelip yardım ederseniz sevinirim. şimdiden çok teşekkür ederim.

 

[Orion1]

Dosyanız ekte.

Private Sub CommandButton1_Click()
If Not IsNumeric(TextBox2.Text) Then
    MsgBox "Stok miktarı sayısal bir değer olmalıdır..!!", vbCritical, "UYARI"
    TextBox2.SetFocus
    Exit Sub
End If
Cells(ComboBox2.ListIndex + 2, "A").Value = CDbl(TextBox2.Text)
End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()
ComboBox2.RowSource = "E2:E" & Cells(65536, "E").End(xlUp).Row
ComboBox2.ListIndex = 0
End Sub

 

[bulentkars]

çok teşşekkür ederim

 

[Orion1]

çok teşşekkür ederim

Rica ederim.
İyi çalışmalar.

 

[mr_aksoy]

Arkadaşlar benim de bir sııntım var. Bu kod ile "C" kolununu verilerini toplatamıyorum.
Teşekkürler.

Private Sub TextBox1_Change()
Set S1 = Sheets("hakedis")
a = S1.[A65536].End(3).Row + 1
TextBox1.Value = WorksheetFunction.Sum(S1.Range("C2:C" & a))
TextBox1 = Format(TextBox1, "#,##0.00")
End Sub