Açılan sayfaya git

[aydgur]

Merhaba, aşağıdaki kod ile Z.ÖRNEK sayfasından Anasayfa E1 deki adı yazarak yeni bir sayfa açıyorum.
Fakat açtıktan sonra o açılan yeni sayfanın (örneğin ) A1 hücresine gir komutunu nasıl verebilirmi m?

Sub xlwtr_t150829_yenisayfaekle()

Sheets("Z.ÖRNEK").Copy After:=Sheets("Z.ÖRNEK")

With ActiveSheet
.Name = Sheets("ANASAYFA").Range("E1").Value

End With

Sheets("ANASAYFA").Select
[A1].Select
Call SayfaSirala
Call sayfayazA
End Sub

 

[relaxim]

.

 

[ÖmerFaruk]

Boş excele 4 sayfa oluşturun.
Sayda1 de E1:E4 arasına diğer sayfaların isimlerini yazın
Örnek kodu F8 ile adımlayarak inceleyin.

Sub git()
For i = 1 To 3
ShName = Range("E" & i)
Sheets(ShName).Select
Sheets(ShName).Range("A5").Select
Sheets("Sayfa1").Select
Next i
End Sub

 

[aydgur]

Teşekkür ederim de anlayamadım. Yeni açılan sayfaya gitmek için Araya Sheets(ShName).Range("A1").Select satırını girdim ama hata verdi
Başka ne yapabilirim ?

 

[Korhan Ayhan]

Önce sayfayı seçtirin. Sonra gitmek istediğiniz hücreyi seçtirin.

 

[aydgur]

Sheets("ShName").Select
Range("A1").Select
Korhan bey; bu şekilde yazdım sayfayı açtı ama hata verdi

 

[ASLAN7410]

Merhaba.

Bu şekilde çalışıyor galiba.

Sub xlwtr_t150829_yenisayfaekle()
Sheets("Z.ÖRNEK").Copy After:=Sheets("Z.ÖRNEK")
With ActiveSheet
.Name = Sheets("ANASAYFA").Range("E1").Value
.Range("A1").Select
End With
End Sub

 

[aydgur]

Evet , fakat sayfa açıldıktan sonra açılan sayfanın A1 hücresinde kalsın istiyorum.

 

[ÖmerFaruk]

#3 nolu mesajımdaki örneği incelediniz mi?
Kendinize uyarlamanızda hiç bir zorluk yok.

 

[ASLAN7410]

Ben denedim, imleç yeni oluşan sayfanın A1 hücresinde kalıyor.

 

[ASLAN7410]

Merhaba.

 

[Seyit Tiken]

Muhtemelen başka kodlarda var, bu hataya sebebiyet veriyor, onun için [a1].Select'i kodunu en sonuna ekleyip deneyiniz.

 

[aydgur]

Evet yeni sayfada duruyor. Ama ben Call sırala ve Call sayfa yaz makrolarını eklediğimde yeni sayfada değil anasayfada duruyor
Sub xlwtr_t150829_yenisayfaekle()
Sheets("Z.ÖRNEK").Copy After:=Sheets("Z.ÖRNEK")
With ActiveSheet
.Name = Sheets("ANASAYFA").Range("E1").Value
.Range("A1").Select
Call sayfaSirala
Call sayfayaz
****burada tekrar yeni açılan sayfaya git*** nasıl derim
End With
End Sub

 

[ÖmerFaruk]

Sheets("Z.ÖRNEK").Copy After:=Sheets("Z.ÖRNEK")
With ActiveSheet
.Name = Sheets("ANASAYFA").Range("E1").Value
ShName=.Name
.Range("A1").Select
Call sayfaSirala
Call sayfayaz
Sheets(ShName).Select
Sheets(ShName).Range("A1").Select
End With
End Sub

 

[aydgur]

Merhaba NextLevel, çok çok teşekkür ederim.
(Kusura bakmayın adınızı bilmediğimden size NextLevel diye hitap ettim)

 

[ÖmerFaruk]

Ziyanı yok.
Sadece #3 nolu mesajı okumanızı ve uygulamanızı beklerdim.