Çözüldü Sayfa adlarının değişmesi

[yuzun23]

ekteki sayfa adlarının otomatik değişmesi

 

[hamitcan]

Bu şekilde deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [b13:h18]) Is Nothing Then Exit Sub
    j = 12
    For i = 4 To 9
        j = j + 1
        Sheets(i).Name = Cells(j, "b")
    Next
End Sub

 

[yuzun23]

Bu şekilde deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [b13:h18]) Is Nothing Then Exit Sub
    j = 12
    For i = 4 To 9
        j = j + 1
        Sheets(i).Name = Cells(j, "b")
    Next
End Sub

Bu kodu nereye ekleyecem. veri sayfasına ekliyorum. ekliyor ama Hata veriyor

 

[hamitcan]

Evet, Veri sayfasına eklemelisiniz.

 

[yuzun23]

Evet, Veri sayfasına eklemelisiniz.

hata veriyor

 

[hamitcan]

Dosya çalışıyor B13 ile B18 hücrelerinde bir değişiklik yaptığınızda kod çalışacaktır.

 

[yuzun23]

Dosya çalışıyor B13 ile B18 hücrelerinde bir değişiklik yaptığınızda kod çalışacaktır.

Hamit kardeşim, veriler geliyor ama hata verdiği zaman x kapatmak zorunda kalıyorum. ordaki değerleri silip başka değerler tek tek yazdığım zaman her defasında hata geliyor. Hakkınızı helal ediniz

 

[yuzun23]

Hamit kardeşim, veriler geliyor ama hata verdiği zaman x kapatmak zorunda kalıyorum. ordaki değerleri silip başka değerler tek tek yazdığım zaman her defasında hata geliyor. Hakkınızı helal ediniz

Gelen Hata

 

[YUSUF44]

Aşağıdaki gibi deneyiniz:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [b13:b18]) Is Nothing Then Exit Sub
    On Error Resume Next
    j = 12
    For i = 4 To 9
            j = j + 1
            Sheets(i).Name = Cells(j, "b")
    Next
End Sub

 

[yuzun23]

Aşağıdaki gibi deneyiniz:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [b13:b18]) Is Nothing Then Exit Sub
    On Error Resume Next
    j = 12
    For i = 4 To 9
            j = j + 1
            Sheets(i).Name = Cells(j, "b")
    Next
End Sub

Teşekkür ederim Ellerinize sağlık