Hücredeki Veriyi Metin Kutusuna Yazma

[saviola26]

Merhaba hocalarım,

A1 hücresindeki veriyi eklediğim bir metin kutusuna (textbox değil normal metin kutusu) yazmak istiyorum. A1 deki değer değişince metin kutusu da değişsin. Nasıl yapılır acaba?

 

[Ömer BARAN]

Merhaba.

Alt taraftan sayfa adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçtiğinizde açılan VBA ekranının
sağ tarafındaki boş alana aşağıdaki kod'u yapıştırın ve A1 hücresinde değişiklik yaparak sonucu gözlemleyin.
Metin kutusunu seçtiğinizde formül çubuğunun sol tarafındaki alandan
Metin Kutusu'nun numarasını (benim örneğimde Metin Kutusu 1) kontrol etmeyi unutmayın.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [[B][COLOR="red"]A1[/COLOR][/B]]) Is Nothing Then Exit Sub
    ActiveSheet.Shapes.Range(Array("TextBox [B][COLOR="Blue"]1[/COLOR][/B]")).Select
    Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = Target
    Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 4).Font.Fill.Visible = msoTrue
Target.Activate
End Sub

 

[aerten]

Metin Kutusunu ekleyin. Metin kutusu seçili iken (Ad kutusu'nda "Metin Kutusu 1") yazılıyken Formül çubuğuna

=$A$1

yazın. Artık A1 hücresine yazdığınız metin kutusunda görüntülecektir.

 

[Ömer BARAN]

Metin Kutusunu ekleyin. Metin kutusu seçili iken (Ad kutusu'nda "Metin Kutusu 1") yazılıyken Formül çubuğuna

=$A$1

yazın. Artık A1 hücresine yazdığınız metin kutusunda görüntülecektir.

Basit düşünmek her zaman en pratik olanı.
Hiç aklıma gelmemişti doğrusu.

 

[aerten]

Ben de Fonksiyonlar başlığına açıldığı için böyle bir yol arandığını düşünerek yanıt yazdım.

 

[saviola26]

Ben de Fonksiyonlar başlığına açıldığı için böyle bir yol arandığını düşünerek yanıt yazdım.

Evet aradığım şey buydu. O yüzden fonksiyonlara yazdım. Ben de epeyce başka yerleri karıştırdım oysa. Ikinize de teşekkürler.

 

[YUSUF44]

Ben de böyle bir şey olduğunu ilk defa öğrendim mesela, teşekkürler.

 

[grikurt]

Metin Kutusunu ekleyin. Metin kutusu seçili iken (Ad kutusu'nda "Metin Kutusu 1") yazılıyken Formül çubuğuna

=$A$1

yazın. Artık A1 hücresine yazdığınız metin kutusunda görüntülecektir.

Hayıııır Bu kadar basit olmamalıydıııııı
....çok işime yaradı elinize sağlık....