[حل شده] تغییر نام شیت

[میثم مقدم نیا]

با سلام خدمت اساتید و کلیه دوستان عزیزم

یک سوال برای من پیش اومده که میخوام راهنمایم کنید.

تو شیت اولم که شیت دیتا نام داره در سلهای a1 تا a10 اسمهای نوشته شده است که هر کدام متصل به شیت مخصوص خود هستند.
آیا امکانش هست که با تغییر نام در هر سل نام شیت مود نظر هم تغییر کنه؟

[M_ExceL]

با سلام خدمت اساتید و کلیه دوستان عزیزم

یک سوال برای من پیش اومده که میخوام راهنمایم کنید.

تو شیت اولم که شیت دیتا نام داره در سلهای a1 تا a10 اسمهای نوشته شده است که هر کدام متصل به شیت مخصوص خود هستند.
آیا امکانش هست که با تغییر نام در هر سل نام شیت مود نظر هم تغییر کنه؟

سلام
داخل رویداد change شیت دیتا این کد را وارد کنید :

Private Sub Worksheet_Change(ByVal Target As Range)
    
    Dim lCount As Long
    
    If Target.Cells.Count > 1 Then Exit Sub
    
    On Error Resume Next
    If Not Intersect(Target, Range("A1:A3")) Is Nothing Then
        For lCount = 1 To Sheets.Count
            If Sheets(lCount).Name <> Me.Name Then
            Sheets(lCount).Name = Me.Cells(lCount, "A")
            End If
        Next lCount
    End If
    
End Sub

در این کد رنج a1 تا a3 در نظر گرفته شده لذا شما میتونید رنج رو تغییر بدید
موفق باشید...