• DİKKAT

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

Toplu sayfa adı değiştirme

aydgur

Altın Üye
Katılım
31 Ekim 2005
Mesajlar
455
Excel Vers. ve Dili
Excel 2007 Türkçe
Excel sayfasının Y sütununa yazdığım eski sayfa adlarını , tam karşısına Z sütununa yazdığım yeni sayfa adları ile değiştirmek istiyorum. (Yani dosyadaki sayfa adlarını toplu değiştirmek istiyorum) Bana yol gösterebilirmisiniz?
 
dosya eklerseniz yardımımız dokunabilir sanırım bu şekilde ezbere biraz zor oluyor
 
Dosyayı tekrar yolluyorum

Dosyayı tekrar yolluyorum, örnek yapayım derrken sayfa adlarını değiştirmemişim.
 

Ekli dosyalar

Merhaba,

Aşağıdaki kodları deneyiniz.

Kod:
Sub SayfaAd_Degistir()
    On Error Resume Next
    Dim i   As Long, _
        j   As Long, _
        Syf(), _
        s   As Worksheet
    
    Set s = Sheets("VERİ_AKTARMA")
    s.Select
    
    For i = 2 To Cells(Rows.Count, "A").End(3).Row
        If Not Cells(i, "H") = "" Then
            j = j + 1
            ReDim Preserve Syf(1 To 2, 1 To j)
            Syf(1, j) = Cells(i, "A")
            Syf(2, j) = Cells(i, "H")
        End If
    Next i
    
    For i = 1 To UBound(Syf, 2)
        Sheets(Syf(1, i)).Name = Syf(2, i)
    Next i
    
End Sub

Not : AKPLASTIK olarak belirttiğiniz sayfa adı aslında AKPLASTİK
Kodlar bunu değiştirmeyecektir.
 
Çok teşekkür ederim.

Peki 10.satırdan değilde ; örneğin 15.satırdan itibaren değiştir desem kodun hangi kısmı değiştirilecek, yani A sütununda hangi satırdan itibaren değiştirileceğini kodun hangi bölnesi ifade diyor.
 
Dosyayı tekrar yolluyorum, örnek yapayım derrken sayfa adlarını değiştirmemişim.

merhaba
bu kodu boş bir module kopyalayarak deneyiniz
H sütunu boş olduğunda işlem yapmaz
Kod:
Option Explicit
Sub sayfa_ismi()
On Error Resume Next
Dim ts, kaplan
For ts = 2 To Sheets("VERİ_AKTARMA").Cells(65536, "A").End(xlUp).Row
If Sheets("VERİ_AKTARMA").Cells(ts, "H") <> "" Then
Sheets(Sheets("VERİ_AKTARMA").Cells(ts, "A").Value).Select
Sheets(Sheets("VERİ_AKTARMA").Cells(ts, "A").Value).Name = _
Sheets("VERİ_AKTARMA").Cells(ts, "H")
End If
Next
End Sub
Not: Sayfa isimleri ile hücredeki ( A sütunundaki isimler ) birbiri ile aynı olmalıdır
 
Peki 10.satırdan değilde ; örneğin 15.satırdan itibaren değiştir desem kodun hangi kısmı değiştirilecek, yani A sütununda hangi satırdan itibaren değiştirileceğini kodun hangi bölnesi ifade diyor.

Kod:
    For i = 2 To Cells(Rows.Count, "A").End(3).Row

satırındaki 2 sayısını 15 yaparsanız 15. satırdan itibaren döngü başlar ve H sütunu boş olduğunda işlem yapmaz.
 
Çok teşekkür ederim.
 
Geri
Üst