Çözüldü Hücredeki metin değerini Metin Kutusuna yazdırırken Büyük HARF ile yazması

[ptcsite]

Ben örneğin B3 hücresine ahmet yazınca. o hücereye bağlantılı Metin Kutusuna "ahmet" yerine "AHMET" yazsın istiyorum. Ancak çoğu makroya baktım yapamadım. Textbox VBA ekranındaki değil Ekle/Metin Kutusu kullanılmıştır.

Örnek Dosya basit şekilde ektedir. Teşekkür ederim.

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Shp As Object
    Set Shp = Sayfa1.Shapes("kutu1")
    With Shp.DrawingObject
        .Formula = Empty
        .Text = Evaluate("UPPER(""" & Target & """)")
    End With
End Sub

 

[ptcsite]

Deneyiniz.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Shp As Object
    Set Shp = Sayfa1.Shapes("kutu1")
    With Shp.DrawingObject
        .Formula = Empty
        .Text = Evaluate("UPPER(""" & Target & """)")
    End With
End Sub

.Formula=Empty kaldırınca oldu. Çok teşekkür ederim.

Shp.DrawingObject.Formula = Empty anlamı ne oluyor ? oNu da söyleyebilir misiniz?

 

[Korhan Ayhan]

Nesne üzerine tıklayınca formül çubuğunda yazan hücre adresini gösteren bölümdür. İşin içine makro girince artık formülün bir esprisi kalmadığı için o satırı eklemiştim.