• Merhaba Dostlar,
    yeni forum ile yola devam ediyoruz. Bu büyüklükte bir forum yeni bir sisteme taşımak epey bir yordu bizi. Üstelik bir de yeni XenForo Forum altyapısına geçtik.
    Eminim çok yerde hatalar ve eksikler vardır. Kısa sürede toparlayıp hızlı bir şekilde yolumuza devam edeceğiz.
    Lütfen gördüğünüz eksik ve hataları aşağıdaki bölüme dönderin. Sırasıyla inceleyip yapılabilirliği varsa üzerinde çalışacağım.
    HATA BİLDİRİM BAŞLIĞI
    Forumdaki kullanıcı adınızla ile giriş yapamıyorsanız kullanıcı adınızın sonuna 1 veya 2 gibi rakamlar ekleyerek deneyin.

    Hepimize Hayırlı Olsun!
    Hüseyin
ALTIN ÜYELİK Hakkında Bilgi
-----------------------

ÜST SİMGELERİ EXCELL FORMUL İLE SİLDİRME

badem18

Altın Üye
Altın Üye
Katılım
27 Mart 2014
Mesajlar
13
Beğeniler
1
Excel Vers. ve Dili
2010
#1
LÜTFEN YARDIM ( HASANAGA) YAZISINDA HASAN NORMAL AGA İSE ÜST KARAKTER OLARAK YAZILIDIR FORMULÜN ÜST KARAKTER KISMINI 3 - 5 VEYA 10 KARAKTER NE OLURSA OLSUN SİLİNMESİNİ İSTİYORUM YARDIM EDECEK DOSTLARA ŞİMDİDEN ÇOK TEŞEKKÜRLER.
 

Ömer

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
19,159
Beğeniler
16
Excel Vers. ve Dili
Excel 2010 Türkçe
#2
Merhaba,

A1:A10 arası için yazdım.

Kod:
Sub EfektSil()

    Dim a As Range, i As Byte, d As String, deg As String
    
    For Each a In Range("A1:A10")
        For i = 1 To Len(a.Value)
            d = Mid(a.Value, i, 1)
            If a.Characters(i, 1).Font.Superscript = False Then
                deg = deg & d
            End If
        Next i
        a.Value = deg
        deg = ""
    Next a

End Sub
 
Üst