Hücredeki değer değişince çalışma sayfası ismi değişmesi

[tocy41]

Merahab!...
Benim şöyle bir sorum olacak:
Çalışma kitabındaki sayfa1' de A1 hücresine "Elma" ve A2 hücresine "Armut" yazdım. Sayfa2 nin adını değiştirip "Elma", Sayfa3 ün adını değiştirip "Armut"
yaptım.
sayfa1' de A1 hücresine "Elma" değerini değiştirip "Elmalar" yaptığımda
sayfa2 nin adının "Elmalar" diye otomotik değişmesini istiyorum.
yada
sayfa2' nin "Elma" olan ismini " değiştirip "Elmalar" yaptığımda
sayfa1' de A1 hücresine "Elma" değerinin değişip "Elmalar" olmasını istiyorum.
Bunun için neler yapmam gerekir? Böyle birşey acaba mümkün mü?

 

[N.Ziya Hiçdurmaz]

Yanıt

Sayfa1'in kod bölümüne yazınız

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a1]) Is Nothing Then Exit Sub
Set s = Sayfa2
s.Name = Range("a1")
End Sub

 

[Zeki Gürsoy]

Adlarının değişmesini istediğiniz sayfların kod modulune yapıştırın.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target <> [a1] Then Exit Sub
    ActiveSheet.Name = [a1]
End Sub

 

[leumruk]

Bununla hücre ismine göre sayfa ismi değişir.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
If ActiveSheet.Name <> [A1] Then
ActiveSheet.Name = [A1]
End If
End Sub

Bu kodla da Sayfa ismi değişince hücre içeriği değişir.

[CODE]Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
If ActiveSheet.Name <> [A1] Then
[A1]=ActiveSheet.Name 
End If
End Sub

[/CODE]

 

[tocy41]

Hocam ben biraz acemiyimde, beceremedim. Verdiğim örneğe göre örnek dosya hazırlayabilirmisiniz. Yada hangi kodu nereye yazacağımı daha iyi anlatabilirmisiniz.

 

[leumruk]

Sayfa1'de hücreden sayfaya,
Sayfa2'de sayfadan hücreye

 

[tocy41]

Sayfa1'de hücreden sayfaya,
Sayfa2'de sayfadan hücreye

Hocam örneğinize göre Sayfa2'de sayfadan hücreye olmuyor. Artı siz Sayfa1'de hücreden sayfaya yapmışsınız oluyor ama aynı sayfa adı değişiyor. Ben bu sayfadaki hücreyle diğer sayfanın adını değiştirmeyi sormuştum?
Size zahmet bidaha bakarmısınız.

 

[tocy41]

Birde bu işlemi ben her sayfa için yapmak istiyorum.
Yani A1 değiştikçe Sayfa2
A2 değiştikçe sayfa3
A3 değiştikçe sayfa4..... değişsin gibi.

 

[leumruk]

Birde bu işlemi ben her sayfa için yapmak istiyorum.
Yani A1 değiştikçe Sayfa2
A2 değiştikçe sayfa3
A3 değiştikçe sayfa4..... değişsin gibi.

Private Sub Worksheet_Change(ByVal Target As Range)
For i = 2 To 2
If Sheets(i).Name <> [A1] Then
[COLOR="Red"]Sheets(i).Name = [A1][/COLOR]
End If

Next i
For a = 3 To 3
If Sheets(a).Name <> [A2] Then
[COLOR="red"]Sheets(a).Name = [A2][/COLOR]
End If
Next a

For b = 4 To 4
If Sheets(b).Name <> [A3] Then
[COLOR="red"]Sheets(b).Name = [A3][/COLOR]
End If
Next b
End Sub

Dosya ekte. Diğer isteğiniz; yani bu işlemin tersini de yaparız fakat aynı dosyada olmaz. Kodlar birbiriyle çakışır. Yapacağınız tek işlem kırmızı kısımlarda Hücre başvurusuyla Sayfa başvurusunun yerlerini değiştirmek.

 

[tocy41]

Hocam denedim denedim A4 hücresi ve sayfa4 ü aynı şekilde yapmak için ama yapamadım.
Çünkü işimi görmesi için 50 hücre ve 50 sayfayı aynı yapmam gerek kaldıki sizinkine bir bile ekleyemedim.

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

 

[tocy41]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

Hocam öncelikle ilginize teşekkür ederim. Ekteki örnek dosyanızı inceledim. Siz çalışma kitabı ve çalışma sayfası1' e (Anasayfaya) kodları yazmışsınız. Örnek dosya çok güzel. Ama benim çalışma kitabımda Liste sayfam excel görünümünde 7.sırada yer alıyor(VBA da ise 1.sayfa görünüyor) ve listemde B de numaralar C de ise isimler var. Değişmesini istediğim sayfalar ise 8 ile 57.sayfalar. Yani listem 50 kişilik. Bu duruma göre ben kodları nasıl değiştireceğim?Ve kodları nerele yapıştıracağım?
Cevabınızı sabırsızlıkla bekliyorum.

 

[tocy41]

Saat 04:10 hala bir cevap alamadım. Yukarıdada belirttiğim sorunumu nasıl gidereceğim? Yardımlarınızı beklemeğe devam edeceğim.

 

[tocy41]

Ertesi gün oldu, öğle yemeği arasına geldim. Hala bi cevap yok. Beklemeğe devam ediyorum.

 

[tocy41]

Ben hala bekliyorum. Yok mu bu kodu 12. mesajda izah ettiğim gibi düzeltebilecek gönüllü bir arkadaş?

 

[Korhan Ayhan]

Selamlar,

Siz örnek dosyanızı ekleyin. Kodları ona göre düzenleyelim.

 

[tocy41]

Selamlar,

Siz örnek dosyanızı ekleyin. Kodları ona göre düzenleyelim.

Hocam beni cevapsız bırakmadığınız için teşekkür ederim. Ben tam olarak örnek dosyamdaki;
SLİST sayfasındaki C3 hücresi değiştiğinde "1" adlı çalışma sayfasının adının
C4 hücresi değiştiğinde "2" adlı çalışma sayfasının adının
.................................................................
ve devamının değişmesini istiyorum. En sondaki HKKO çalışma sayfasının değişmesini istemiyorum.
Hocam buna göre kodu örnek dosyama ekleyip tekrar yüklermisiniz.
Sabırsızlıkla bekliyorum.

 

[Korhan Ayhan]

Selamlar,

Siz örnek dosyanızı ekleyin kodu üzerinde düzenleyelim.

 

[tocy41]

Selamlar,

Siz örnek dosyanızı ekleyin kodu üzerinde düzenleyelim.

Hocam pardon heyecandan unutmuşum.

 

[tocy41]

Hocam dosyamı 17. mesaja ekledim.