Aynı tarihlerdeki en büyük rakamı bulmak

[engin.kilic.73]

Merhaba herkese kolay gelsin.
a sutununda tarihler vardır. b sutununda rakamlar vardır. aynı tarihlerdeki en büyük rakamı bulmam gereklidir.
Örneğin;
a sutununda 20.04.2023 tarihine ait 55 satır var
a sutununda 21.04.2023 tarihine ait 50 satır var
a sutununda 22.04.2023 tarihine ait 20 satır var
a sutununda 23.04.2023 tarihine ait 99 satır var
b sutunundada bunun karşılığında (30 ,35 188,1280, 1, 2, 450 gibi) rakamlar vardır.
Yapmak istediğim. her tarih aralığındaki en büyük sayısı bulabilmek.
Teşekkür ederim şimdiden yardımlarınız için.

 

[maliex]

Merhaba,
c1
=MAK(EĞER(A:A=A1;B:B))

 

[KoNFiCuS]

@engin.kilic.73
Deneyiniz,

Sub maxbul()

Dim Rng As Range
Dim dblMax As Double, son As Double, b As Double, a As Double, son2 As Double

'son satiri bulalim

Cells(1, 1).Select
Selection.End(xlDown).Select
son = ActiveCell.Row
Cells(1, 1).Select

son2 = 2

son3 = son2 + 1

' ayni tarihteki range bulalim

b = 1

For a = 1 To son

'burada range buluyoruz

While Cells(a + 1, 1) = Cells(a, 1)

a = a + 1

Wend

'range bitti

'range ayarla

Set Rng = Range(Cells(b, son2), Cells(a, son2))
dblMax = Application.WorksheetFunction.Max(Rng)

    Set cell = Range(Cells(b, son2), Cells(a, son2)).Find(dblMax)
    If Not cell Is Nothing Then
    thrg = cell.Row
    thrg2 = cell.Column
    Range(Cells(thrg, son3), Cells(thrg, son3)).Value = "MaxValue"
    End If

b = a + 1
Next a


End Sub

 

[engin.kilic.73]

Çok teşekkür ederim.