Metin Kutusuna otomatik bilgi getirme

[Mdemir63]

Selamlar,

Arkadaşlar isim listemvar bu isimleri düşeyara ile metin kutusuna nasıl getirebilirim.

Saygılar

 

[Necdet]

Merhaba,

Doğru mu anladım acaba?

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [F3:G3]) Is Nothing Then Exit Sub
    ActiveSheet.Shapes("Text Box 1").Select
    Selection.Characters.Text = [G3]
Son:
End Sub

 

[Mdemir63]

Necdet Abi harikasın
Ellerine sağlık

Abi Bunu çogaltabilirmiyiz? Yani Başka Metin kutularına ayrı ayrı getirebilirmiyiz?

Saygılar

 

[Necdet]

Merhaba,

Bir deneme yaptım Komutanım, bakalım nasıl olmuş?

Sub Macro1()
For i = 2 To [B65536].End(3).Row
    Metin = Metin & Chr(10) & Cells(i, "B")
Next i
    ActiveSheet.Shapes("Text Box 1").Select
    Selection.Characters.Text = Metin
    Range("F4").Select
End Sub

 

[Mdemir63]

Necdet abi merhaba,

Seni yoruyorum ama istediğimi ekteki sizin yaptığınız dosyada anlatmaya çalıştım

Saygılar

 

[Necdet]

Merhaba Komutanım,

Birşeyler yapmaya çalıştım, istediğiniz gibi olmuş mu bilemiyorum. İnceleyiniz.

 

[Mdemir63]

Necdet abi çok teşekürler yordum abi seni
sağol

Saygılar sunarım

 

[Necdet]

Rica ederim Sayın Komutanım.

Saygı bizden.

 

[Seyit Tiken]

Makrosuzda yapılabilir. Metin Kutusunun kenarına tıklanır > Formül Çubuğuna =(eşittir) işareti ve hücre adresi.

 

[Mdemir63]

Makrosuzda yapılabilir. Metin Kutusunun kenarına tıklanır > Formül Çubuğuna =(eşittir) işareti ve hücre adresi.

Selamlar,

Hocam bu da çok güzel valla
Harikasınız

Saygılar