Sayfa içinde köprü kurmak

[cerselog]

Değerli arkadaşlar ekli dosyanın 2.sayfasında vermiş olduğum listedeki isimlerin üzerine tıkladığımda birinci sayfada ilgili cami isminin açılmasını ve hesabının gözüklesini istiyorum. Yardımcı olursanız çok sevinirim. Şimdiden teşekkür ederim. Ekli dosyayı görüntüle 45882

 

[uzmanamele]

merhaba
1-2. sayfada köprü kuracağınız hücreyi sağ tıklayın / köprü tıklayın
2- gelen köprü ekle penceresinde; bu belgede tıklayın (dosyadaki tüm sayfalar görünecekdir)
3- hücre başvurusu için B1 yazın ve sayfa1 işaretleyin
4- görüntülenecek metin ve ekrar ipucu opsiyoneldir

not: başvuru için B1:F10 gibi alan seçebilirsiniz

 

[cerselog]

Üstadım yanlız bu liste çok uzun bir liste hepsi için tek tek yapmak zorundamıyız senin söylediğini, ben sadece çok küçük bir parçayı örnek olarak koydum oraya. İkinci sayfadaki isimler ile 1birinci sayfadaki isimler aynı, kendisine denk gelen ismi bulup köprü kurması söz konusu olamazmı?

 

[hurkanpisirici]

bütün camiler tek tek ayrı sayfalarda olsaydı olurdu ama sizin cami listenizde her cami ayrı hücrelerde ve bu hücreleri tek tek girmek zorundasınız.bence ctrl+f yapıp cami isminizi yazdığınızda direk sizi o hücreye götürür zaten bence bu özelliği kullanın.

 

[uzmanamele]

merhaba
örnek dosyanızda veri aralığı için bir sistematik yok, 15-20 satır aralık gibi bir sistematiğe bağlayın ve aşağıdaki linkdeki syn Necdet Yeşertener'in çalışmasını dosyanıza uyarlayın.

http://www.excel.web.tr/showthread.php?t=52797

 

[Ayhan Ercan]

Merhaba
Ek dosyayı inceleyiniz...
Hangi cami ismini seçerseniz, Sayfa1 deki o camiye ait hücre seçilmiş olacaktır.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim hcr As Range
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub
Set hcr = Sayfa1.Cells.Find(Target, lookat:=xlWhole)
Sayfa1.Select
hcr.Select
Set hcr = Nothing
End Sub

 

[hurkanpisirici]

ayhan hocam kodla bitirmiş olayı yine

 

[cerselog]

Merhaba
Ek dosyayı inceleyiniz...
Hangi cami ismini seçerseniz, Sayfa1 deki o camiye ait hücre seçilmiş olacaktır.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim hcr As Range
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub
Set hcr = Sayfa1.Cells.Find(Target, lookat:=xlWhole)
Sayfa1.Select
hcr.Select
Set hcr = Nothing
End Sub

üstad çok teşekkürler

 

[cerselog]

üstad çok teşekkürler

üstadım liste tek olmasına rağmen veriler sayfa1, sayfa2, ve 3,4,5 şeklinde onlarca sayfaya yayılmış halde, şu durumda bana nasıl yardımcı olursunuz?

 

[Ayhan Ercan]

üstadım liste tek olmasına rağmen veriler sayfa1, sayfa2, ve 3,4,5 şeklinde onlarca sayfaya yayılmış halde, şu durumda bana nasıl yardımcı olursunuz?

Merhaba

Sorunuzu sorduğunuzda emin olun ki elimizden geldiğince cevap vermeye calışıyoruz.

İlk sorunun cevabından yola cıkarak ikinci sorunuzu düzeltmeye çalışmak öyle kolay bişey değil.



"liste tek" diyorsunuz?
Bende "liste nerde" diye soruyorum

Onlarca sayfa var diyorsunuz

Ama öyle dediğiniz gibi onlarca sayfaya kafadan hükmetmek olmuyor.

Net olan herşeye müdahale edilebilir, ama net olmayan herşey belirsizliğini koruyacaktır ve buda
çözüme gitmeyi imkansız kılacaktır..

 

[cerselog]

Haklısınız..daha net sormalıydım. bu anlamda çok özür dilerim.
izniniz olursa sorumu düzeltip tekrar sormak isterim.

ekli dosyanın liste bölümündeki camilerden; örnek olarak MARDİN Kızıltepe Alemdar Köyü Caminin hesap dökümü Sayfa 1 de, hemen altındaki ANKARA Sincan M.Akif Ersoy Caminin hesap dökümü Sayfa 3 de, MUĞLA Milas Selimiye Konak Köyü Caminin hesap dökümü Sayfa 2 tedir.

listedeki camilerden birine tıkladığım zaman o camiye ait hesap dökümü hangi sayfanın içinde ise bulup göstermesini istiyorum. hesap dökümlerinin ayrı ayrı sayfalarda olmasının nedeni siparişlerin farklı aylarda sevk edilmiş olmasıdır.

İlginize çok teşekkürler.Ekli dosyayı görüntüle 45962

 

[Ayhan Ercan]

Merhaba

Ek dosyayı İnceleyiniz...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim hcr As Range, syf As Integer
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub
    For syf = 2 To Sheets.Count
    Set hcr = Sheets(syf).Cells.Find(Target, lookat:=xlWhole)
        If Not hcr Is Nothing Then
            Sheets(syf).Select
            hcr.Select
        End If
    Next
Set hcr = Nothing
End Sub

 

[cerselog]

Üstadım çok teşekkür ederim..

 

[Ayhan Ercan]

Üstadım çok teşekkür ederim..

Rica ederim.
İyi Çalışmalar... k::