farklı calısma sayfası getirme

[mosmos2009]

merhabalar

ek'li örnekte ana sayfayadaki sarı alana sheet isimlerindeki sheet numarasını
yazınca yanındaki ismi bulup O sayfadaki bilgileri nasıl getirebilirim, tsk

 

[YUSUF44]

H5 için:

=EĞER(DOLAYLI("'"&$I$2&"'!E"&SATIR())="";"";DOLAYLI("'"&$I$2&"'!E"&SATIR()))

I5 için:

=EĞER(DOLAYLI("'"&$I$2&"'!f"&SATIR())="";"";DOLAYLI("'"&$I$2&"'!f"&SATIR()))

J5 için:

=EĞER(DOLAYLI("'"&$I$2&"'!g"&SATIR())="";"";DOLAYLI("'"&$I$2&"'!g"&SATIR()))

formüllerini kullanıp aşağıdaki hücrelere kopyalayabilirsiniz.

 

[mosmos2009]

tsk üstad eline sağlık

 

[mosmos2009]

yandaki sheet örneğin 2 yazdığımızda 2 görüyor formül icinde 2 sheet okuduğuna dair bisey görünmüyor makro ilemi getiriliyor ?

 

[YUSUF44]

DOLAYLI formülü ile o sarı hücredeki sayfa ismini alıyor. Formül değerlendir diyerek formülün aşamalarını görebilirsiniz.

Dosyanızın daha kullanışlı olması için bir şeyler yaptım. Veri doğrulama, sayfa isimlerini listeleme, dinamik alan uygulaması mevcuttur. Dosyadaki Sayfa1 isimli sayfayı ben ekledim, o sayfaya dokunmayın ve herhangi bir değişiklik yapmayın, adını da değiştirmeyin.

Açılışta makroları etkinleştirirseniz Kapak sayfasında I2 hücresini seçtiğinizde açılır liste çıkacak ve sayfa adı 1, 2 gibi sayı olan sayfaları listeleyecektir. siz de burdan istediğiniz sayfayı seçebilirsiniz.

Yeni sayfa eklemek istediğinizde eklediğiniz sayfa örnekteki gibi Sayfa1 sayfasından önce olsun.

Kapak sayfasında başka bir hücreyi seçtikten sonra I2 hücresini seçtiğinizde o anki sayfa listesi gelecektir.

Profilinizde belirttiğiniz gibi 2003 kullanıyorsanız bu dosya açılmayabilir, belirtin 2003 versiyonunu ekleyeyim.

Düzeltme: Dosya son haliyle değiştirilmiştir. Aşağıda belirtilen değişiklikler uygulanmıştır.

 

[YUSUF44]

gönderdiğim dosyada Kapak sayfasının kod bölümündeki kodları aşağıdakiyle değiştirirseniz Sayfa1'in arada kalması durumunda sona taşır ve diğer işlevler düzgün çalışır:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("I2")) Is Nothing Then Exit Sub
Sheets("Sayfa1").Move After:=Sheets(Sheets.Count)
Sheets("Sayfa1").Range("a:a").ClearContents
Sheets("kapak").Select
For Each sayfa In ThisWorkbook.Worksheets
Sheets("Sayfa1").Range("A65536").End(xlUp).Offset(1, 0) = sayfa.Name
Next sayfa
End Sub

 

[mosmos2009]

üstad tesekkürler, simdi daha net açıklayıcı oldu,profil kısmı 2010 yeni gectim onuda hemen güncelliyorum. tesekkürler ilgi ve alakanız için ,
saygılar,

 

[YUSUF44]

Kodu aşağıdakiyle değiştirirseniz Kapak sayfasını da en başa alır (Olası bir arada kalma durumuna karşı):

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("I2")) Is Nothing Then Exit Sub
Sheets("kapak").Move before:=Sheets(1)
Sheets("Sayfa1").Move After:=Sheets(Sheets.Count)
Sheets("Sayfa1").Range("a:a").ClearContents
Sheets("kapak").Select
For Each sayfa In ThisWorkbook.Worksheets
Sheets("Sayfa1").Range("A65536").End(xlUp).Offset(1, 0) = sayfa.Name
Next sayfa
End Sub