Toplu sayfa adı değiştirme

[aydgur]

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?

 

[İhsan Tank]

dosya eklerseniz yardımımız dokunabilir sanırım bu şekilde ezbere biraz zor oluyor

 

[aydgur]

Dosyamın küçük bir örneği

Dosyamın küçük bir örneği

 

[İhsan Tank]

sayfa adlarını göremedim şu anda kitap'da

 

[aydgur]

Dosyayı tekrar yolluyorum

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

 

[Necdet]

Merhaba,

Aşağıdaki kodları deneyiniz.

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.

 

[aydgur]

Ç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.

 

[İhsan Tank]

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

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

 

[Necdet]

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.

    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.

 

[aydgur]

Çok teşekkür ederim.