TextBox ile hücreye veri girmek.

[muratgunay48]

Arkadaşlar, bir excel dosyam var. Sayfa1'de A1 hücresine veri girdiğim zaman B1'de HATALI ya da DOĞRU diyor. Buraya kadar sıkıntı yok. Hem kendimi geliştirmek hem de derli toplu gözüksün diye, bunu userform içine almayım dedim. Çünkü 2*4 8 hücre için excel sayfası açık olmasın dedim.

A1,A2,A3,A4 hücrelerine veri giriyorum, karşısında B1,B2,B3,B4 hücrelerinde sonuç çıkıyor.
B1,B2,B3,B4 hücrelerinin TextBox'ta gözükmesini

Private Sub UserForm_Initialize()
TextBox5.ControlSource = "Sayfa1!B1"
TextBox6.ControlSource = "Sayfa1!B2"
TextBox7.ControlSource = "Sayfa1!B3"
TextBox8.ControlSource = "Sayfa1!B4"
End Sub

ile yaptım. Sorum şu, tersi de aynı mantıkla çalışır mı. Yani TextBox1 içine yazıp ENTER deyince A1 hücresine yazar mı. Farklı bir kod mu gerekir.
Şimdiden teşekkür ederim.

 

[muratgunay48]

Çözüldü. Araştırdım buldum.
@dEdE hocam paylaşmış. Başta bulamamıştım.

Private Sub TextBox1_Change()
Range("Sayfa1!A1").Value = TextBox1.Value
End Sub

Teşekkürler.

Sayın hocalarımız, şu an gerek olmadığı için denemedim. Peki bu kodu çoklu olarak benim kullandığım şekilde kullanabilir miyiz.
Yani şöyle.

Private Sub UserForm_Initialize()
Range("Sayfa1!A1").Value = TextBox1.Value
Range("Sayfa1!A2").Value = TextBox2.Value
Range("Sayfa1!A3").Value = TextBox3.Value
Range("Sayfa1!A4").Value = TextBox4.Value
End Sub