Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("r4")) Is Nothing Then
Sheets(3).Name = Target
End If
If Not Intersect(Target, Range("r5")) Is Nothing Then
Sheets(4).Name = Target
End If
If Not Intersect(Target, Range("r6")) Is Nothing Then
Sheets(5).Name = Target
End If
If Not Intersect(Target, Range("r7")) Is Nothing Then
Sheets(6).Name = Target
End If
If Not Intersect(Target, Range("r8")) Is Nothing Then
Sheets(7).Name = Target
End If
If Not Intersect(Target, Range("r9")) Is Nothing Then
Sheets(8).Name = Target
End If
If Not Intersect(Target, Range("r10")) Is Nothing Then
Sheets(9).Name = Target
End If
If Not Intersect(Target, Range("r11")) Is Nothing Then
Sheets(10).Name = Target
End If
If Not Intersect(Target, Range("r12")) Is Nothing Then
Sheets(11).Name = Target
End If
If Not Intersect(Target, Range("r13")) Is Nothing Then
Sheets(12).Name = Target
End If
If Not Intersect(Target, Range("r14")) Is Nothing Then
Sheets(13).Name = Target
End If
If Not Intersect(Target, Range("r15")) Is Nothing Then
Sheets(14).Name = Target
End If
If Not Intersect(Target, Range("r16")) Is Nothing Then
Sheets(15).Name = Target
End If
End Sub
kodu buldum işine yarayan kullanabilir. Herkese teşekkür ederim