Aktif Buton Nasıl Yapabilirim?

[shadow2766]

arkadaşlar öncelikle merhaba. bi konuda yardımınıza ihtiyacım var. Ekteki liste işi almamda çok önemli benim için o yüzden sorunsuz olmasını istiyorum. Listenin bazı satırlarında yanında kırmızı dolgulu "!" işareti var. Onlar aynı olan fakat farklı markaya ait olduğu için aynı satırda gösteremediğim ürünler. O yüzden belirtip ürünün koduna da bi açıklama ekledim. Benim istediğim şu;o kırmızı dolgulu"!" işaret kutucuğunu aktif hale getirip tıkladığımızda benzer olan satırlara direk atsın. Yani bi nevi ctrl+f işini sadece ona tıklayarak yapsın istiyorum. böyle bişey yapabilmem mümkün mü acaba bilgisi olan varsa yardımcı olursa çok sevinirim benim için gerçekten çok önemli.

 

[RONIN1]

Merhaba

Ekteki dosyada yardımcı olmaya çalıştım.

İyi çalışmalar

 

[hamitcan]

Sorunuzu bir örnekle destekleyin.

 

[shadow2766]

Kusura bakmayın örnek vermek aklıma gelmemişti teşekkür ederim uyarınız için. Örneğin FH1037 kodlu ürün hem Tofaş-Fiat hem de Peugeot grubunda mevcut ikisinin de yanında "!" işaret var. o kırmızı kutucuğa tıkladığım zaman ikisine de geçiş yapsın istiyorum. RONNIN teşekkür ederim listeyi inceliyorum şimdi deneyim ona göre yazarım sonucu.

 

[hamitcan]

ikisine de geçiş yapsın istiyorum

Burayı anlamadım.

 

[shadow2766]

O butona tıkladığımda ilk önce tofaş grubundaki sonra peugeot grubundaki satırı göstersin bana.Yani önce A51 sonra A119 sütununa geçiş yapsın. Başta da dediğim gibi ctrl+f yapınca kodu yazdığınızda "sonrakini bul" tuşunun görevi gibi her "sonrakini bul" dediğimizde aynı kodlu satırları gösterir ya o görevin aynısından bahsediyorum. Teşekkür ederim ilginiz için çok sağolun

 

[hamitcan]

Yaptığım çözüm yarım kaldı ancak pazartesi ekleyebileceğim.

 

[shadow2766]

çok teşekkür ederim hamitcan. Pazartesi günü de benim son günüm zaten o günü bekliyorum tekrar ilgin alakan için çok teşekkür ederim saygılar iyi günler...

 

[shadow2766]

ustam bugün seni bekliyorum inşallah eklersin ona göre verecem teklifimi

 

[hamitcan]

Kırmızı renkli alanlarda dolaştığınızda karşınıza bir form çıkacak ve aynı koddan olan hücrelerin adresleri formda belirecek, tıkladığınızda istediğiniz hücreler arasında dolaşabileceksiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     Unload UserForm1
     If Target.MergeCells Then ara = Cells(Range(Split(Target.Address, ":")(0)).Row, 1): GoTo 10
     If Target = Empty Then Exit Sub
     If Target.Column > 6 Then Exit Sub
     ara = Cells(Target.Row, 1)
     s = WorksheetFunction.CountIf(Columns(1), ara)
10
     For i = 2 To [a65536].End(3).Row
        If ara = Cells(i, 1) Then UserForm1.ListBox1.AddItem Cells(i, 1).Address
     Next
     UserForm1.Show
End Sub

 

[shadow2766]

Hocam harikasın çok teşekkür ederim sana ellerine emeğine sağlık çok işimi görecek benim bu sağolasın