Textbox Kaynak HÜcreyİ Okusun Hedefe Yazsin

[kuşak]

Merhabalar

Ekİmde Örnek ÇaliŞmam Var. Sorum Şu A2 HÜcresİ A8 HÜcresİnİ Hedef GÖstermekte Textbox Bu Dehef HÜcreyİ A2 HÜcresİnİ GÖrÜp Hangİ HÜcreye DeĞer YazacaĞini Belİrten Macro Hangİsİdİr.

Sheets("sayfa1").range("a8").value = Textbox1.value DiŞinda. Texbox1 Nereye YazacaĞini A2 HÜcresİnden GÖrsÜn İstİyorum Yardimci Olacaklara TeŞekkÜrÜmÜ BorÇ Bİlİrİm.

 

[hamitcan]

Private Sub TextBox1_Change()
 Range([a2].Text) = TextBox1.Text
End Sub

 

[kuşak]

çok teşekkür ettim
sayfa2 ve sayfa3 teki a8 hücrelerine yazan kod hangisi

 

[Skorpiyon]

Sayın kuşak,

İlk sorunuzun cevabı niteliğinde yazmıştım. Hamit Hocam cevap vermişler bile.

Private Sub TextBox1_Change()
a = [A2]
Range(a).Value = TextBox1.Value
End Sub

 

[Skorpiyon]

Sayfa ismini A2 hücresine, Satır ve Sütunu A3 hücresine yazarsanız, aşağıdaki kodları kullanabilirsiniz.

Private Sub TextBox1_Change()
a = [A2]: b = [A3]
Sheets(a).Range(b).Value = TextBox1.Value
End Sub

 

[hamitcan]

Kodu aşağıdaki ile değiştirin

Private Sub TextBox1_Change()
 Evaluate("" & [a2].Text & "") = TextBox1.Text
End Sub