OTOMATÃK ÇALIÃAN MAKRO
Aşağıdaki Kodun TextBox3 değer girilince otomatik çalışmasını istiyorum yordımcı olursanız sevinirim.
Aşağıdaki Kodun TextBox3 değer girilince otomatik çalışmasını istiyorum yordımcı olursanız sevinirim.
Kod:
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