Kodu kısaltmak

[ASLAN7410]

Merhaba herkese hayırlı geceler.

Aşağıdaki kodu nasıl kısaltabilirim?

Private Sub Worksheet_Change(ByVal Target As Range)
Worksheets(2).Name = Range("D8")
Worksheets(3).Name = Range("D9")
Worksheets(4).Name = Range("D10")
Worksheets(5).Name = Range("D11")
Worksheets(6).Name = Range("D12")
Worksheets(7).Name = Range("D13")
Worksheets(8).Name = Range("D14")
Worksheets(9).Name = Range("D15")
Worksheets(10).Name = Range("D16")
Worksheets(11).Name = Range("D17")
Worksheets(12).Name = Range("D18")
Worksheets(13).Name = Range("D19")
Worksheets(14).Name = Range("D20")
Worksheets(15).Name = Range("D21")
Worksheets(16).Name = Range("D22")
Worksheets(17).Name = Range("D23")
Worksheets(18).Name = Range("D24")
Worksheets(19).Name = Range("D25")
Worksheets(20).Name = Range("D26")
Worksheets(21).Name = Range("D27")
End Sub

Yukarıdaki kodu aşağıdaki gibi yaptım ancak hata verdi.

Private Sub Worksheet_Change(ByVal Target As Range)
Worksheets(2:21).Name = Range("D8:D27")
End Sub

Yardım edecek arkadaşlara şimdiden teşekkür ederim.

 

[Ömer BARAN]

Merhaba.
Aşağıdaki gibi olabilir.
Bir Modüle uygulayıp isimlerin alınacağı sayfa aktif iken çalıştırın.

Sub SAYFALAR_BRN()
For satır = 8 To 27
If Cells(satır, 4) = "" Then GoTo 10
    Worksheets(satır - 6).Name = Cells(satır, 4)
10: Next
End Sub

NOT: Hata kontrolü eklenmedi.

 

[ASLAN7410]

Sayın Ömer Bey ilginiz için çok teşekkür ediyorum.

Forumdan yararlanarak apartman yöneticiliği gibi küçük basit bir program yapmaya çalıştım.
Sayfam ektedir. Sayfaların koruması şifresizdir.

Sizin yazmış olduğunuz kodu ANA SAYFA isimli sayfanın kod kısmına ekledim.
ANA SAYFA isimli sayfanın D8 hücresine yıl yazdığım zaman hata veriyor.
Ben bu D8 hücresine ne yazarsam yazayım, bütün alt sayfaları hata mesajı gelmeden alt sayfa isimleri değiştirir mi?