metin kutusu ile ilgili

[cyberman]

metin kutusuna mesela A1 hücresindeki değeri atamak istiyorum. A1 hücresindeki değer değiştikçe metin kutusundaki değer de değişmeli. Şimdiden yardım eden arkadaşlara teşekkürler.

 

[Levent Menteşoğlu]

Aşağıdaki kodu metin kutusunun bulunduğu sayfanın kod sayfasına kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
ActiveSheet.Shapes("Text Box 1").Select
Selection.Characters.Text = [a1]
[a1].Select
End Sub

 

[cyberman]

metin kutusuna örnek

ekte gönderdiğim örnekteki gibi istiyorum, teşekkürler
Ayrıca "Leventm" kardeşimize de göstermiş olduğu ilgi ve alaka sebebiyle teşekkürlerimi arzederim.

 

[Ali]

İlk metin kutunuzu mouse ile seçin seçili iken formül çubuğuna =A1 yazın ikinci metin kutunuzu seçin seçili iken formül çubuğuna =A9 yazın.
A1 ve A9 hücrelerinizi değiştirdiğinizde metin kutularınızda değişecektir.

 

[cyberman]

"fructose" kardeşimize çok teşekkürler, gerçekten faydalı oldu, insanın bilmediği çok şeyler olabiliyor ancak "akıl akıldan üstündür" atasözü tam da burada muhteşem bir şekilde anlamını buluyor. Teşekkürler yardımsever kardeşim.