Metin Kutusu

[nadirornek]

Merhaba Arkadaşlar
Sayfa1'de B1 hücresine Yazdığım veri sayfa1 ve diğer sayfalardaki tanımlı metin kutularına atsın.
Sayfa1'de B2 hücresine Yazdığım tarih verisi sayfa1 ve diğer sayfalardaki tanımlı metin kutularına atsın.

Böyle bir uygulama macro ile yapabilirmiyiz.

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [b1:b2]) Is Nothing Then Exit Sub
    Sayfa1.Shapes("Text Box 4").Select
    Selection.Characters.Text = [b1]
    Sayfa1.Shapes("Text Box 5").Select
    Selection.Characters.Text = [b2]
    Sayfa2.Activate
    Sayfa2.Shapes("Text Box 2").Select
    Selection.Characters.Text = [b1]
    Sayfa2.Shapes("Text Box 6").Select
    Selection.Characters.Text = [b2]
    Sayfa3.Activate
    Sayfa3.Shapes("Text Box 1").Select
    Selection.Characters.Text = [b1]
    Sayfa1.Activate
    [b1].Activate
End Sub

 

[nadirornek]

Kodu kendi sayfama aktardım B2 hücresine tarihi yazdığımda metin kutusunda sayı olarak algılıyor.Burada ne işlem yaptınız.ben b2 yi tarih olarak formatladım ama almadı.

 

[Skorpiyon]

B2 'deki hücre formatı METİN olarak tanımlanmış.

 

[nadirornek]

Kod ve açıklama için teşekkürler.