DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
Target.Characters(Start:=5, Length:=1).Font.Superscript = True
End Sub
A sütununa gireceğiniz verinin 5. karakterini üst karakter yapar. Deneyiniz...
Kod:Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 1 Then Exit Sub Target.Characters(Start:=5, Length:=1).Font.Superscript = True End Sub
A sütununa gireceğiniz verinin 5. karakterini üst karakter yapar. Deneyiniz...
Kod:Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 1 Then Exit Sub Target.Characters(Start:=5, Length:=1).Font.Superscript = True End Sub
Merhaba,
Yapmak istediğiniz işlemi örnek dosya ile açıklarmısınız.
Merhaba,
Bu tarz özel biçimlendirmeler excelde problem yaratır ve sizi çok uğraştırır. Ana kaynaktaki sorunu üst karakter ile halletmişsiniz. Fakat aynı veriyi formülle başka hücreye aldığınızda üst karakter özelliği kayboluyor. Benim aklıma verileri makro ile ilgili hücreye kopyalamaktan başka çözüm gelmiyor. Eğer varsa bende öğrenmiş olurum.
Bu aralar Osman Bey adını sıklıkla duyar oldum, kendisine selamlarımı iletin lütfen...
Excel simge eklede "q" üst karakter olarak aradım, acaba kodunu bilen arkadaşlar yardımcı olursa sevinirim.