Soru Hücredeki veriyi başka bir sayfanın adı yapmak!

[fgecesefa]

Ana sayfada 10 satırlık isim listesi var. ana sayfa hariç 10 çalışma sayfası var. bu listedeki isimleri çalışma sayfalarına vermek istiyorum. her isim bir sayfayı temsil ediyor. Soru şu; hücredeki isim değiştikçe o hücreyi temsil eden çalışma sayfası ismi değişsin. göndereceğiniz örnek 10 sayfa olması gerekmez 2 sayfa yeterli olur. şimdiden teşekkür ederim.

 

[fgecesefa]

Sadece C3 hücresinde yazan değer olsun isterseniz;

sub erbag()
sheets.add
activesheet.name = sheets("Anasayfa").range("c3").value
end sub

Bunları bir modül oluşturup içine kopyalayın, F5 ile çalıştırıp deneyin...

Fikret bey ilginiz için çok teşekkür ederim ama malesef istediğim yeni sayfa oluşturmak değil. sayfalar mevcut zaten ana sayfada örnek veriyorum r4 hücresindeki ismi değiştiğim an o isme ait sayfa ismi de değişsin. elimde şu kod var. belki örnek olur sizin için. ama bu kod aynı sayfada a1 hücresi için geçerli. a1 hücresine isim yazınca sayfa ismi değişiyor. ben ana sayfa r4 hücresini aktif sayfa a1 hücresine bağladım. çalışması için a1 hücresine girip tekrar enter tuşuna basmak zorunda kalıyorum. yani hücreyi aktif hale getirmeden çalışmıyor.
Private Sub worksheet_change(ByVal target As Range) If Not Intersect(target, Range("A1")) Is Nothing Then ActiveSheet.Name = ActiveSheet.Range("A1") End If End Sub

 

[fgecesefa]

Ana sayfada 10 satırlık isim listesi var. ana sayfa hariç 10 çalışma sayfası var. bu listedeki isimleri çalışma sayfalarına vermek istiyorum. her isim bir sayfayı temsil ediyor. Soru şu; hücredeki isim değiştikçe o hücreyi temsil eden çalışma sayfası ismi değişsin. göndereceğiniz örnek 10 sayfa olması gerekmez 2 sayfa yeterli olur. şimdiden teşekkür ederim.

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