İndis kaçıncı güzelde...

[Dede Korkut]

Arkadaşlar indis kaçıncı formülleriyle bir ürünün 7000 ürünlük bir liste içinde bulunup bu üründen kaçtane satıldığını hangi tarihde satıldığını görebiliyorum.. Bunu sayenizde öğrenmişdim sağolun varolun...

Örn:
----A----------B--------C--------D
1-)ÜRÜN ADI---SATIŞ---TARİh
2-)ELMA--------3------1/5/2007
3-)ARMUT------4-------3/6/2007
4-)ŞEFTALİ-----5------12/4/2007
5-)KARPUZ------6------16/3/2007
6-)ARMUT------7-------15/6/2007

İndis kaçıncı formülünü D1 hücresine uyguladık diyelim... Armut yazıyorum Eye hemen armutun satış adedi olan 4 çıkıyor..Yanına da tarihi çıkıyor(3/6/2007) . Buraya kadar güzelde benim istediğim şu...

Armutdan listede 20 tane var diyelim....D1'e öyle bir formül koyayımki buraya Armut yazdığımda E sütununda şak şak şak diye listedeki 20 adet Armut çıksın ve karşısına satış adedi onunda yanına satış tarihi çıksın... Bunu nasıl yapabilirim?

 

[cyberwolf1980]

sn.dedekorkut ıstersenız fılıtlerele yapabılırsınız yada ozet tablo kullanabılırsınız.
ıyı gunler.

 

[Orion1]

Merhaba.
Makrolu bir çözüm istiyorsanız aşağıdaki dosyayı inceleyiniz.E1 hücresine aranıcak veriyi giriyorsunuz.Buton'a basıyorsunuz.
Makroları etkinleştirmek için.:
Araçlar==>Makro==>Güvenik==>Güvenlik Düzeyi==>Düşük(Önerilmez) seçip.Excel'i kapatıp tekrardan açınız.

Sub RAPOR()
Dim kriter As String, veri As String, sat As Long, i As Long
Sheets("Sayfa1").Select
sat = 2
Application.ScreenUpdating = fales
Range("D2:F65536").ClearContents
kriter = LCase(Replace(Replace(Range("E1").Value, "I", "ı"), "İ", "i"))
For i = 2 To Cells(65536, "A").End(xlUp).Row
    veri = LCase(Replace(Replace(Cells(i, "A"), "İ", "i"), "I", "ı"))
    If veri = kriter Then
        Cells(sat, "D").Value = Cells(i, "A").Value
        Cells(sat, "E").Value = Cells(i, "B").Value
        Cells(sat, "F").Value = Cells(i, "C").Value
        sat = sat + 1
    End If
Next
Application.ScreenUpdating = True
MsgBox "RAPOR ÇIKARILDI..!!"
End Sub

 

[Dede Korkut]

Teşekkürler istediğim şey tam olarak bu....ama makrosuz lütfen...

Makroya kafam basmıyor... Ayrıca bazı makrolar openofficede çalışmıyor...Ama formüllerin tamamı çalışıyor.. Makrosuz bir çözüm öneriniz varmıdır?

 

[Dede Korkut]

yardımcı olacak bir arkadaş yokmu? (makrosuz)

 

[Necdet]

Sayın cyberwolf1980 Süz yöntemini önermiş ama yorum yapmamışsınız.

Bende süz'ü öneriyorum.

 

[İdris SERDAR]

yardımcı olacak bir arkadaş yokmu? (makrosuz)

Örnek dosya ekte.

..

 

[Dede Korkut]

Sayın cyberwolf1980 sayın Orion2 sayın Necdet_Yesertener sayın Yurttaş hepinize ayrı ayrı teşekkür ederim...

İstediğim oldu...

 

[Necdet]

Sayın Dede Korkut,

Geribildirimde bulunduğunuz için bende size teşekkür ederim.