Metin kutuları

[s.savas]

Arkadaşlar herkese merhaba.
Merak ettiğim bir husus var. Metin kutularına formülle veri alınabiliyormu. Eğer mümkünse;
Ekteki örnekte A1, A2 ve A3 te bulunan isimleri formülle karşılarında olan metin kutularına atayabilirmiyiz.

 

[Orion1]

text kutusunu seçin.Formül çubuğundan istediğiniz formülü giriniz.
Örnek dosyanız ektedir.

 

[hamitcan]

Kodu, Sayfa1 kod kısmına ekleyin.

Private Sub Worksheet_Change(ByVal Target As Range)
    For i = 1 To Shapes.Count
       ActiveSheet.Shapes(i).Select
       Selection.Text = Cells(i, 1)
       [a1].Select
    Next
End Sub

 

[s.savas]

Teşekkürler

Değerli üstatlar her ikinizede teşekkür ederim.

 

[s.savas]

Excelin bu özelliğini yeni öğrendim ve çok hoşuma gitti.
Metin kutularının sayfa2 de olduğunu farzedelim ve metin kutusu1 için sayfa1 deki a1,a2 ve a3 hücrelerini birleştirerek yazılması mümkünmü?

=birleştir(sayfa1!$a$1;sayfa1!$a$2;sayfa1!$a$3)

şeklinde bir formül oluşturmaya çalıştım ama "Girilen metin geçerli bir başvuru veya tanımlı ad değil" diye hata mesajı aldım.

 

[Orion1]

Excelin bu özelliğini yeni öğrendim ve çok hoşuma gitti.
Metin kutularının sayfa2 de olduğunu farzedelim ve metin kutusu1 için sayfa1 deki a1,a2 ve a3 hücrelerini birleştirerek yazılması mümkünmü?

=birleştir(sayfa1!$a$1;sayfa1!$a$2;sayfa1!$a$3)

şeklinde bir formül oluşturmaya çalıştım ama "Girilen metin geçerli bir başvuru veya tanımlı ad değil" diye hata mesajı aldım.

Sanırım 1den fazla hücre giremiyorsunuz.Bu durumda verilerinizde başka bir hücre içinde birleştirip veriyi oradan ad tanımlayıp alırsanız sorun çözlecektir.