Arama fonksiyonu hk.

[HACI46]

Arkadaşlar merhab,
Excel çalışma sayfasında çalışırken Ctrl+F tuşlarıyla getirilien Bul metodunun çalışma özelliği gibi,
Excel çalışma sayfasında belirlediğim bir hücreye aynı özelliği yapabilirmiyim.

Yani çalışma sayfamda belirlediğim hücerye bir değer,kod girdiğimde o sayfada ki listemde alt sıralarda bulunan bir satırı tüm veri ve öellikleri ile birlikte bana bulup yukarılarda çalıştığım satırın hemen altına getirebilirmiyim.
Bilen ve yardımcı olacak kardeşimizin ilgisine şimdiden teşekkür ederim.Selamlar.

 

[Ömer BARAN]

Merhaba.
Belgeniz açıkken, alt taraftan sayfa adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin,
açılan VBA ekranında sağ taraftaki boş alana aşağıdaki KOD'u yapıştırın.

NOT:
-- Arama için kullanılacak hücrenin A1 hücresi olduğu,
-- çağrılacak verinin bulunduğu satırda A:J sütun aralığındaki verinin getirileceği,
-- bulunan verinin A5:J5 hücrelerine yazdırılmak istendiği
varsayılmıştır.
UYARI: Aranan veri bir'den fazla satırda var ise; ilk rastlanan satırdaki veriler getirilir.
.

[B]Private Sub Worksheet_Change(ByVal Target As Range)[/B]
If Intersect(Target, [[B][COLOR="red"]A1[/COLOR][/B]]) Is Nothing Then Exit Sub
    Call getir
[B]End Sub

Sub getir()[/B]
With Range("[B][COLOR="Blue"]A5:J5[/COLOR][/B]")
    .ClearContents
    .ClearFormats
End With
    aranan = Range("[B][COLOR="Red"]A1[/COLOR][/B]")
Range("A2").Select
    Cells.Find(What:=aranan, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
    satır = ActiveCell.Row
If satır = 1 Then GoTo 10
    Range("A" & satır & ":J" & satır).Copy Range("[B][COLOR="Blue"]A5:J5[/COLOR][/B]")
10:    Range("A2").Activate
[B]End Sub[/B]

 

[HACI46]

Ömer bey ilginize çok teşekkür ediyorum,Gönderdiğiniz kod u çalışma sayfama uyarladım,bir sorunum var.Benim çalışmamda (A1) hücresine girilecek değeri (ürün kodunu) ben liste kutusundan seçiyorum A1 hücresine ürün kod umu şöyle bir fomülle [=İNDİS(TümStokKodları;SABİTLER!Q1)] getiriyorum,Hücrede formül olunca bu kodlama çalışmıyor.Ama A1 hücresine ürün kodunu elle yazarsam çalışıyor.
Aranan A1 hücre değeri [=İNDİS(TümStokKodları;SABİTLER!Q1)] bu fomül ile bu kodlamayı çalıştırabilirmiyiz ? Bilgi ve ilginizi esirgemediğiniz için tekrar teşekkür ediyorum.

 

[Ömer BARAN]

Merhaba.
Worksheet_Change kodlarının tetiklenmesi için hedef hücredeki verinin elle girilmesi
(veri doğrulama listesinden seçim yapmak da bu kapsamda tabi) gerekir.
Afaki bir soru soruyorsunuz aslında.

En iyisi örnek belgenizi (asıl belgenizle aynı yapıda olmasına dikkat ediniz)
burası veya burası gibi bir dosya paylaşım sitesine yükleyin
ve oradan alacağınız erişim bağlantı adresini buradan paylaşın.
Ben veya başka bir üye destek verecektir.

 

[HACI46]

Ömer bey Merhaba,
Ben dediğiniz gibi yapmak istediğimi ifade edemedim,daha anlaşılabilir olması için örnek çalışmamı ( http://s3.dosya.tc/server6/mgiwzy/STOK_TAKIBI.rar.html ) link'ine ekledim,fırsatınız olduğunda inceleyip bir fikir verebilirmisiniz.ilginize tekrar teşekkür ediyorum.Selamlar.