• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Sayfa adlarındaki boşluklar

Katılım
11 Şubat 2016
Mesajlar
199
Excel Vers. ve Dili
2013
Sayfa adlarındaki boşlukları topluca kaldırmak istiyorum nasıl yaparız. Sayfa 1 Sayfa1 Sayfa 2 Sayfa2 gibi. Teşekkürler
 
Deneyiniz.

Kod:
Sub Test()
    Dim Sayfa As Worksheet
    For Each Sayfa In ThisWorkbook.Worksheets
        Sayfa.Name = Replace(Sayfa.Name, " ", "")
    Next
    
    MsgBox "İşleminiz tamamlanmıştır."
End Sub
 
Teşekkürler Korhan Bey
Elinize emeğinize sağlık.
 
Geri
Üst