Hücre ve metin kutusu sorusu

[nintro]

A1 Hücresine yazdığım rakam veya sayının, açacağım bir metin kutusunda gözükmesini istiyorum. nasıl formül kullanmalıyım Teşekkürler.

 

[Orion1]

Tasarım modundayken nesneye sağ tıklayın özelliklerden LinkidCell özelliğine A1 yazın tama.Tasrım modundan çıkın işlem tamamdır.

 

[nintro]

Çok özür diliyorum tasarım modu nereden açılıyor. ve nasıl yapacağım. metin kutusu oluşturuyorum ve a1 hücresine yönlendirecek hiç bir seçenek göremiyorum

 

[Orion1]

Çok özür diliyorum tasarım modu nereden açılıyor. ve nasıl yapacağım. metin kutusu oluşturuyorum ve a1 hücresine yönlendirecek hiç bir seçenek göremiyorum

Metin kutusu oluşturduğunuzda zaten tasarım modundasınız demektir.Tasarım moduna bardaki üçgen gönyeye tıklarsanız geçersiniz.Bir daha dağa tıklarsanız tasarım modundan çıkarsınız.
Ekledikten sonra metin kutusuna sağ tıklayın orada özellikleri göreceksiniz.İşiniz bitince o üçgen gönyeye basıp tasarım modundan çıkın.

 

[nintro]

Sizden ricam bir excell sayfasında örnek yapıp yayınlayabilirmisiniz.

 

[Orion1]

Sizden ricam bir excell sayfasında örnek yapıp yayınlayabilirmisiniz.

Ekli dosyayı inceleyiniz.

 

[nintro]

Evren bey ilginiz için çok teşekkür ediyorum ben metin kutusunda bu uygulamayı gerçekleştirmek istiyorum "Textbox a1 hücresine bağlıdır." yazdığımız kutucuk.

 

[Orion1]

Evren bey ilginiz için çok teşekkür ediyorum ben metin kutusunda bu uygulamayı gerçekleştirmek istiyorum "Textbox a1 hücresine bağlıdır." yazdığımız kutucuk.

Kodlar çalışma sayfasının kod bölümünde.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
ActiveSheet.Shapes(1).Select
    Selection.Characters.Text = Target.Value
    With Selection.Characters(Start:=1, Length:=6).Font
        .Name = "Arial Tur"
        .FontStyle = "Normal"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Target.Select
End Sub

 

[nintro]

Evren bey teşekkür ederim çalışma için güzel olmuş. Ben kodları kullanarak çoğalma yapayım dedim ama yapamadım . İhtiyacım olan 25 tane metin kutusu ve 25 hücre ekteki dosyayı bağlayabilrsek sevinirim.

 

[Orion1]

Dosyanız ektedir.

 

[nintro]

Evren bey Bu sefer hiç kod yok görünürde ellerinize sağlık ben şimdi buna 5 adet daha nasıl ekleyeceğim. Mümkünse 25 e kadar yapabilirmisiniz. Yada bana nasıl yapacağımı öğretebilirmisiniz.

 

[nintro]

Buldum Evren bey çok çok teşekür ediyorum balık tutmayı öğrendim sağolun