Textbox"tan otomatik yazdırma

[abone0069]

Sn. Arkadaşlarım

Hazırlamış olduğum userform'da bir sürü textbox var. Formu o kadar aradım ama benim karşılaştığım sorun ile ilgili tam çözüm bulamadım. Benim istediğim textbox"a yazdığım değer (kelime, sayı vs.) otamatik olarak ilgili sütun başlığının altına ben başka bir textbox"a geçince yazsın. Bunun için ayrı bir command buton beklemesin alt alta yazmasını istiyorum. illaki bir command butonmu lazım yoksa tabla geçince otamatik yazabilirse bunun kodu nasıl olmalı. Saygılar...

 

[Orion1]

Textbox'tan çıkarken Textbox'taki değeri A1 hücresine yazar.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Range("A1").Value = TextBox1.Value
End Sub

 

[abone0069]

Tamam Teşekür ederim ama alta alta yazmıyor üstüne yazıyor. Ben çıktığımda hangi hücrede ise alt alta yazmasını istiyorum.Saygılar....

 

[Orion1]

Tamam Teşekür ederim ama alta alta yazmıyor üstüne yazıyor. Ben çıktığımda hangi hücrede ise alt alta yazmasını istiyorum.Saygılar....

Aşağıdaki kodu deneyiniz.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim sat As Long
sat = Cells(65536, "A").End(xlUp).Row + 1
Cells(sat, "A").Value = TextBox1.Value
End Sub

 

[abone0069]

Tamamdır

Tamam şimdi oldu çok sağol...