tıkla

[gallip]

merhabalar ,
daha önce bu site yardımı ile çok güzel bir makro elde etmiştim. bir çok işimde de yardımcı oluyor . fakat eksik kalan bir noktası kaldı . o konuda yardımcı olabilirseniz çok sevineceğim.
ekteki dosyada '' isim '' sayfasında herhangi bir isme çift tıkladığımızda başka sayfalarda aynı değer nerede ise buluyor. ''isim '' sayfasında MEHMET e çift tıkladığımızda '' kilo '' safyasındaki değere gidiyor . test ettim , son sayfada hangi değer var ise ( boy sayfasında da MEHMET değeri var ) . benim yapmak istediğim bu makroda çift tıkladığımızda hangi safyada o değeri bulmak istiyorsak o sayfada arasın . ( boy sayfasındaki AHMET değerine gitsin )
yardımlarınızı rica ediyorum. şimdiden teşekkürler herkese...

 

[antonio]

merhabalar ,
daha önce bu site yardımı ile çok güzel bir makro elde etmiştim. bir çok işimde de yardımcı oluyor . fakat eksik kalan bir noktası kaldı . o konuda yardımcı olabilirseniz çok sevineceğim.
ekteki dosyada '' isim '' sayfasında herhangi bir isme çift tıkladığımızda başka sayfalarda aynı değer nerede ise buluyor. ''isim '' sayfasında MEHMET e çift tıkladığımızda '' kilo '' safyasındaki değere gidiyor . test ettim , son sayfada hangi değer var ise ( boy sayfasında da MEHMET değeri var ) . benim yapmak istediğim bu makroda çift tıkladığımızda hangi safyada o değeri bulmak istiyorsak o sayfada arasın . ( boy sayfasındaki AHMET değerine gitsin )
yardımlarınızı rica ediyorum. şimdiden teşekkürler herkese...

İşinize karışmak gibi olmasın ama, ben olsam bu sayfayı ekte ki gibi düzenlerdim.

 

[gallip]

şu yüzden benim adres belirttiğim bir sayfaya gitmesini istiyorum. örneğin alımlarla ilgili bir tablom var detay başka bir sayfada alım detaylarındaki sayfada o ismi bulsun , bulması gereken isimden başka bir tablomda da var malzeme tüketimleri safyasında mesela . o da en son safyada olduğu için gidip tüketim sayfasındaki o değeri buluyor . yani belirttiğim sayfada arma yapıyor olması çok işime yarayacak...

 

[gallip]

arkadaşlar çözüm kolay olmalı ama ben makro bilmediğim için deneme yanılma ile çözemedim. makronun bir yerine tıkladığımızda gitmesi gereken sayfa ismi yazılacak ama neresine bilemedim.
yardımlarınızı bekliyoerum

 

[gallip]

gitmesi gereken safya ismini makroda nerede belirtmeliyim...

 

[gallip]

yardımcı olabilecek birisi yok mu ..

 

[antonio]

şu yüzden benim adres belirttiğim bir sayfaya gitmesini istiyorum. örneğin alımlarla ilgili bir tablom var detay başka bir sayfada alım detaylarındaki sayfada o ismi bulsun , bulması gereken isimden başka bir tablomda da var malzeme tüketimleri safyasında mesela . o da en son safyada olduğu için gidip tüketim sayfasındaki o değeri buluyor . yani belirttiğim sayfada arma yapıyor olması çok işime yarayacak...

Ne istediğini net belirtince, durumun farklı olduğu ortaya çıkıyor. O halde sen farklı sayfalar içeren bir dosya ekle, şu sayfaya gitmesini istiyorum diye belirt, ona göre gelen cevaplarda boşa gitmesin.

 

[gallip]

tam anlatamamış olabilirim istediğimi. isim sayfasını ana sayfa olarak düşünelim , makro da bu sayfada kayıtlı . makronun özelliği ana sayfadaki ( isim sayfası ) bir isim üzerine tıklandığında diğer sayfalarda tokladığımız ismi buluyor . ama makroda safya ismi belirtilmediği için ( BOY ve KİLO sayfalarında arama yapıyor ) ama KİLO sayfasındaki değeri buluyor . sayfaları yer değiştirsem BOY sayfasını sona koysam orada arama yapıyor. Kısaca makroda hangi sayfada arama yapacağını belirtebilsem sorunum çözülecek.

 

[antonio]

tam anlatamamış olabilirim istediğimi. isim sayfasını ana sayfa olarak düşünelim , makro da bu sayfada kayıtlı . makronun özelliği ana sayfadaki ( isim sayfası ) bir isim üzerine tıklandığında diğer sayfalarda tokladığımız ismi buluyor . ama makroda safya ismi belirtilmediği için ( BOY ve KİLO sayfalarında arama yapıyor ) ama KİLO sayfasındaki değeri buluyor . sayfaları yer değiştirsem BOY sayfasını sona koysam orada arama yapıyor. Kısaca makroda hangi sayfada arama yapacağını belirtebilsem sorunum çözülecek.

Düşünceniz doğru. Döngü ile tüm sayfalarda arama yaptığı için en son sayfada ki değerde kalıyor. Sonuç olarak ya bulmasını istediğiniz sayfayı sona taşırsınız, yada kodda sayfa ismi belirtirsiniz, aramanın sadece o sayfada yapılmasını sağlarsınız.

 

[gallip]

kodda sayfa ismini nasıl ve nereye belirteceğimi bilmiyorum. kod şu şekilde

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim c As Range, sayfa As Worksheet
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
For Each sayfa In Sheets
Set c = sayfa.[A:A].Find(Target, LookAt:=xlWhole)
If Not c Is Nothing Then
sayfa.Select
c.Select
End If
Next sayfa
End Sub





bu kodda BOY sayfasında bulmasını istiyorsam . kodu nasıl düzenleyeceğim yardımcı olabilir misiniz lütfen...

 

[antonio]

kodda sayfa ismini nasıl ve nereye belirteceğimi bilmiyorum. kod şu şekilde

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim c As Range, sayfa As Worksheet
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
For Each sayfa In Sheets
Set c = sayfa.[A:A].Find(Target, LookAt:=xlWhole)
If Not c Is Nothing Then
sayfa.Select
c.Select
End If
Next sayfa
End Sub





bu kodda BOY sayfasında bulmasını istiyorsam . kodu nasıl düzenleyeceğim yardımcı olabilir misiniz lütfen...

Aşağıda ki kodları kopyalayıp diğer kodların yerine yapıştırın.
"hedef" isminde belirttiğim sayfa adı yerine gitmesini istediğiniz sayfanın adını yazınız. Yine kodlarda hedef sayfada aranacak öğelerin mutlaka A sütununda olmasına dikkat edin. Yok eğer burda da değişiklik yapmak istiyorsanız, sayfa[A:A] yerine istediğiniz sütunu belirtiniz.

Option Explicit
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim c As Range, sayfa As Worksheet
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
'    For Each sayfa In Sheets 'BUNU İPTAL ETTİK
Set sayfa = Sheets("hedef") 'BUNU İLAVE ETTİK
        Set c = sayfa.[A:A].Find(Target, LookAt:=xlWhole)
        If Not c Is Nothing Then
            sayfa.Select
            c.Select
        End If
'    Next sayfa 'BUNU İPTAL ETTİK
End Sub

 

[gallip]

Elinize , aklınıza sağlık. istediğim tam olarak buydu . bence çok faydalı bir makro . tekrar teşekkür ederim..

 

[antonio]

Elinize , aklınıza sağlık. istediğim tam olarak buydu . bence çok faydalı bir makro . tekrar teşekkür ederim..

Rica ederim. Kolay gelsin.