• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Aktif Buton Nasıl Yapabilirim?

S

shadow2766

Katılım
24 Şubat 2011
Mesajlar
22
Excel Vers. ve Dili
excell 2007 türkçe
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.
 

Ekli dosyalar

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.
 
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
 
Yaptığım çözüm yarım kaldı ancak pazartesi ekleyebileceğim.
 
ç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...
 
ustam bugün seni bekliyorum inşallah eklersin ona göre verecem teklifimi :)
 
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.
Kod: 
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
 

Ekli dosyalar

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
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst