TextBox girdiğim veriyi hücreye aktarma

[morphey]

Herkese Merhaba
Forumda var biliyorum ama bir türlü istediğim gibi uyarlayamadım şimdi bi örnek buldum ama olmuyor şimdi


Private Sub CommandButton3_Click()
mlastrow = Cells(Rows.Count, "b").End(xlUp).Row
Cells(mlastrow + 1, "b").Activate
' kaydetme
Cells(X + 1, "b") = TextBox1.Text
ActiveWorkbook.Save
MsgBox "Veri kaydedildi", vbCritical
End Sub

Ben CommandButton3 tıklıyorum veri kaydedildi diyor ama B stununa hiç bir şey kaydolmuyor nerde yanlış yapıyorum acaba

 

[Orion1]

Herkese Merhaba
Forumda var biliyorum ama bir türlü istediğim gibi uyarlayamadım şimdi bi örnek buldum ama olmuyor şimdi

Private Sub CommandButton3_Click()
mlastrow = Cells(Rows.Count, "b").End(xlUp).Row
Cells(mlastrow + 1, "b").Activate
' kaydetme 
Cells(X + 1, "b") = TextBox1.Text
ActiveWorkbook.Save
MsgBox "Veri kaydedildi", vbCritical
End Sub

Ben CommandButton3 tıklıyorum veri kaydedildi diyor ama B stununa hiç bir şey kaydolmuyor nerde yanlış yapıyorum acaba[/QUOTE]
Aşağıdaki gibi deneyiniz.:cool:
[CODE]Private Sub CommandButton3_Click()
mlastrow = Cells(Rows.Count, "b").End(xlUp).Row
Cells(mlastrow + 1, "b").value=TextBox1.Text
' kayde
ActiveWorkbook.Save
MsgBox "Veri kaydedildi", vbCritical
End Sub

 

[morphey]

Orion hocam valla teşekkürler iyiki varsınız.