VBA procedura max min

Witam, w załączniku przesyłam małą bazę danych. Czy jest ktoś w stanie napisać procedurę, dzięki której po wpisaniu imienia i miejscowości, będzie wyświetlało maksymalną sprzedaż danego produktu i minimalną ilość sprzedanego produktu tej osoby? Zależy mi na czasie, z góry dzięki.

Na pewno ktoś będzie w stanie to zrobić, zależy tylko ile zapłacisz za to.

Excel:
=MIN.WARUNKÓW(D:D;A:A;"Jan";F:F;"opole";C:C;"szminka")
=MAKS.WARUNKÓW(D:D;A:A;"Jan";F:F;"opole";C:C;"szminka")

amb00 napisał(a):

Na pewno ktoś będzie w stanie to zrobić, zależy tylko ile zapłacisz za to.

a ile takie coś może kosztować?

@smutek777: Zależy kto się tego podejmie. Tutejszy moderator by wziął za zrobienie tego najprawdopodobniej 100-300 zł, ja nieco bardziej złożone rzeczy, ale w kompletnie innym języku robiłem po 50-100 zł, aby po prostu przyciągnąć klientów do siebie.

Function NajwyzszaSprzedaz(zakres As Range, dystrybutor As Range, miejscowosc As Range, produkt As Range) As Single
Dim sprzedaz As Single
For Each komorka In zakres
    If dystrybutor = Range("A" & komorka.Row).Value Then
        If miejscowosc = Range("F" & komorka.Row).Value Then
            If produkt = Range("C" & komorka.Row).Value Then
                If komorka.Value > sprzedaz Then
                    sprzedaz = komorka.Value
                End If
            End If
        End If
    End If
    
    NajwyzszaSprzedaz = sprzedaz
Next komorka
End Function
Sub Znajdz()
'
' Makro1 Makro
Dim dystrybutor As Integer
Dim miejscowosc As Integer
Dim produkt As Integer
Dim sprzedaz As Single
dystrybutor = Range("L3").Value
miejscowosc = Range("M3").Value
produkt = Range("N3").Value
sprzedaz = 0
Set zakres = Range("D:D")
For Each komorka In zakres
    If dystrybutor = Range("A" & komorka.Row).Value Then
        If miejscowosc = Range("F" & komorka.Row).Value Then
            
                If komorka.Value > sprzedaz Then
                    sprzedaz = komorka.Value
                    produkt = Range("C" & komorka.Row).Value
                End If
            
        
        End If
    End If
Next komorka
        
        produkt = komorka.Value
        
        ActiveCell.Value = produkt

End Sub

To może ktoś chociaż mógłby na to zerknąć i to poprawić? Tyle mam, ale wykładowca powiedział, że czegoś tu jeszcze brakuje, a ja już nie mam pomysłów jak to zrobić

Jak już masz to w Excel'u to zrób tabelę przestawną i masz całe zestawienie, które możesz filtrować, zmieniać kolejność kolumn wedle uznania.