sayfa aratmak ve veri çekmek yardım

[CONANFORCE]

iyi çalışmalar hocalarım. bir konuda yardımınıza ihtiyacım var.

istemiğim. 60 adet sayfadan oluşan bir kitabımda 61. sayfam analiz sayfam. analiz sayfamda C3 hücreme (hücre doğrulama ile 60 sayfamın listesini yaptım isimlerini C3 hücresine getirebiliyorum) sayfa isimi bulunuyor. C3 te yazılı olan sayfa ismini arattırıp, sayfayı bulduktan sonra bu sayfadaki A3:A33 arası verileri 61. sayfam olan analiz sayfamın B6:B35 arasına yapıştırmak istiyorum. makro ile yapamadım. kodu yazarsanız sevinirim.

 

[Mahir64]

iyi çalışmalar hocalarım. bir konuda yardımınıza ihtiyacım var.

istemiğim. 60 adet sayfadan oluşan bir kitabımda 61. sayfam analiz sayfam. analiz sayfamda C3 hücreme (hücre doğrulama ile 60 sayfamın listesini yaptım isimlerini C3 hücresine getirebiliyorum) sayfa isimi bulunuyor. C3 te yazılı olan sayfa ismini arattırıp, sayfayı bulduktan sonra bu sayfadaki A3:A33 arası verileri 61. sayfam olan analiz sayfamın B6:B35 arasına yapıştırmak istiyorum. makro ile yapamadım. kodu yazarsanız sevinirim.

Merhaba
C1 Sayfa ismi varsa

=DOLAYLI($C$1& "!A3")

Seçili sayfanın A3 Hücresini gösterir

 

[mancubus]

dener misiniz?

Sub kopya()

Dim sh As string
sh = Sheets("Sayfa61").Range("C3").Value

Sheets(sh).Range("A3:A33").Copy Sheets("Sayfa61").Range("B5:B35")

End Sub

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz?

Sub SayfaAktar()
    Dim syf As String
    syf = Sheets("analiz").Range("C3")
    Sheets(syf).Range("A3:A33").Copy Sheets("analiz").Range("B6")
End Sub

 

[CONANFORCE]

teşekkür ederim hocam sorunumu formülle çözdünüz.

 

[Necdet]

Bizim kodlar güme mi gitti?

 

[mancubus]

Bizim kodlar güme mi gitti?

muhtemelen öyle oldu.

üyeler ne istediklerini bilerek konu açarsalar cevap vermeye çalışanlar açısından çok yararlı olur.

bakın iki kişi zaman ayırmışız.

neyse ki, fazla gayret isteyen bir çalışma değildi.

 

[Mahir64]

Hangi formülle çözdünüz bilmiyorum ama
eğerki benim yazdığım formül ise;
utandım

 

[Altay3555]

Bende merak ettim şimdi,hangisi ile çözüldü.Anlaşılması zor ve örneksiz dosyalara lütfedip cevap yazan hocalarıma da ayrıca teşekkürler.Muhtemelen her bir formül arkadaşın gördü ama bizler yine az ve anlaşılmaz bir bilgi ile kaldık.
Hani örneksiz dosyalara cevap yoktu.)

 

[Mahir64]

Bende merak ettim şimdi,hangisi ile çözüldü.Anlaşılması zor ve örneksiz dosyalara lütfedip cevap yazan hocalarıma da ayrıca teşekkürler.Muhtemelen her bir formül arkadaşın gördü ama bizler yine az ve anlaşılmaz bir bilgi ile kaldık.
Hani örneksiz dosyalara cevap yoktu.)

Sayın Altay3555
Örneksiz ama soru anlaşılır.

 

[CONANFORCE]

hocalarım hepinize ayrı ayrı teşekkür ederim. fakat zamanım kısıtlıydı ve sayfayı yapmak zorundaydım. bir önceki teşekkür mesajını yazarken makroları görmedim teşekkür mesajımı yazdığım an sizler makroları yazdığınızdan aynı anda gönderdik sanrım. ondan dolaylı formülüde işimi gördü o an, makrıda şuan denedim çok ama çok sağolun.

zaten ne zaman başım şıkışsa yardımıma excel.web.tr'nin saygı değer siz hocalarım koşutunuz. o yüzden tüm excel.web.tr üyelerine ve siteyi her koşulda ayakta tutan ustalarıma çok teşekkür ederim.