OTOMATİK ÇALIŞAN MAKRO

[oerbas]

OTOMATÝK ÇALIÞAN MAKRO

Aşağıdaki Kodun TextBox3 değer girilince otomatik çalışmasını istiyorum yordımcı olursanız sevinirim.

devam:
Sheets("Toplam").Activate
Cells(11, 1).Select
Do While ActiveCell.Value <> ""
If Trim(ActiveCell.Value) = Trim(Me.TextBox2.Value) Then
End If
ActiveCell.Offset(1, 0).Activate
Loop
ActiveCell.Value = TextBox1.Value
ActiveCell.Offset(0, 1).Value = TextBox2.Value
ActiveCell.Offset(0, 2).Value = TextBox3.Value
ActiveCell.Offset(0, 3).Value = TextBox4.Value
ActiveCell.Offset(0, 4).Value = TextBox5.Value
ActiveCell.Offset(0, 5).Value = TextBox5.Value

 

[danersin]

Tam anlamadım herhalde ama;

Private Sub TextBox1_Change()
End Sub

olayına bağlayınca olmuyormu, yada textbox'lar ile ilgili diğer event'lerden sizin isteğinize hangisi uygunsa bir iki denemede bulabilirsiniz.
Change,enter, keydown vb..

 

[oerbas]

İstediğim şu; TextBox1 çift tıklanınca UserForm2 açılıyor, burada ListBoxtan ürün adı seçilince TextBox2 ye Ürünün birim fiyatı düşüyor ve TextBox3 e Ürün adedi elle girilincede TextBox4 de ürünün toplam fiyatı otmatik hesaplanıyor. Ben TextBox4 de ürün fiyatı hesaplanınca otomatik olarak olarak yukarıdaki makronun çalışarak kayıt yapmasını sağlamak istiyorum.

TextBox2 DblClick olayında bir başka makro çalışıyor. Bu makro satılan ürünün stoktan düşülmesini sağlıyor. Ben Bu makronun otomatik olarak çalışmasını, hem kayıt işlemlerinin daha hızlı yapılması hemde unutkanlıktan kaynaklanan hataların önlenmesi için istiyorum.

 

[danersin]

Textbox4'de ürün fiyatı otomatik hesaplandığına göre

Private Sub TextBox4_Change()

olayının altına (başka kodlar varsa onlardan sonra, yukarıdaki kodunuzu yazdığınızda çalışması gerekir. :?

 

[danersin]

textbox3 teki kodlarınızı enter'a bağlamayı denermisiniz.

Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)

 

[danersin]

Bir deneyin isterseniz..