Çözüldü Birden Fazla Veri Getiren Arama

[gicimi]

Merhaba;
Ekteki Excel Çalışmamda;

Eğerhata (IFERROR)
İndis (INDEX)
Satır (ROW)
Satırsay (ROWS)
Eğersay (COUNT)
Toplama (AGGREGATE) formüllerini kullandım. Acaba bu işlemi makro ile nasıl yapabilirim. Yardımcı olabilir misiniz.

=EĞERHATA(İNDİS($C$4:$C$11;TOPLAMA(15;6;(SATIR($B$4:$B$11)-SATIR($B$4)+1)/($B$4:$B$11=$G$4);SATIRSAY(G$4:G4)));"")

=EĞERHATA(İNDİS($D$4:$D$11;TOPLAMA(15;6;(SATIR($B$4:$B$11)-SATIR($B$4)+1)/($B$4:$B$11=$G$4);SATIRSAY(H$4:H4)));"")

 

[çıtır]

Sayfa kodu G4 hücresindeki tarihi değiştirdiğinizde çalışır.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer: Dim y As Integer
If Intersect(Target, [G4]) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
SonSatir = Cells(65536, "B").End(3).Row
sat = 4
Range("H4:I" & Cells(65536, "H").End(3).Row).ClearContents
For y = 8 To 9
For i = 4 To SonSatir
If Cells(4, 7) = "" Then
Exit Sub
End If
If Cells(i, 2) = Cells(4, 7) Then
Cells(sat, y) = Cells(i, y - 5)
sat = sat + 1
End If
Next i
sat = 4
Next y
Application.ScreenUpdating = True
End Sub

 

[gicimi]

Sn. @çıtır Teşekkür ederim.

 

[çıtır]

Sn. @çıtır Teşekkür ederim.

Rica ederim.Dönüş yaptığınız için teşekkür ederim.