Aynı Sütunda Tekrar Eden Değerlerin, Yan Sütundaki Maksimum Değerini Bulmak

[onuraou]

Merhaba Arkadaşlar,

Öncelikle hepinize merhaba diyorum. Aşağıdaki gibi bir sorunla karşı karşıyayım.

Excel'de A sütununda birbirini tekrar eden verilerim var ve benim istediğim şey tekrar eden değerlerin B sütunundaki maksimum karşılığını bulmak.

Aşağıya bir ekran alıntısı ekleyip durumu örnekle açıklıyorum:

Mesela yukarıdaki görüntüde, A sütunundaki -8.60 değeri tekrar eden bir değer. Benim istediğim bu değerin B sütunundaki maksimum karşılığını yazdırmak.

Teşekkür Ederim.

 

[Murat OSMA]

Merhabalar,

Bu kodları kullanabilirsiniz;

[FONT="Trebuchet MS"]DefObj C, R
Sub Emre()
    Set con = CreateObject("adodb.connection")
    con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
    ThisWorkbook.FullName & ";extended properties=""excel 12.0;hdr=no"""
    Set rs = con.Execute("Select f1, max(f2) from [Sheet1$] group by f1 having count(f1)>1")
    Range("E1").CopyFromRecordset rs
    rs.Close: con.Close
    Set rs = Nothing: Set con = Nothing
End Sub[/SIZE][/FONT]

 

[onuraou]

Merhabalar,

Bu kodları kullanabilirsiniz;

[FONT="Trebuchet MS"]DefObj C, R
Sub Emre()
    Set con = CreateObject("adodb.connection")
    con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
    ThisWorkbook.FullName & ";extended properties=""excel 12.0;hdr=no"""
    Set rs = con.Execute("Select f1, max(f2) from [Sheet1$] group by f1 having count(f1)>1")
    Range("E1").CopyFromRecordset rs
    rs.Close: con.Close
    Set rs = Nothing: Set con = Nothing
End Sub[/FONT]

Murat Bey çok teşekkür ederim.

Ama "gerekli bir veya daha fazla parametre için girilen değer yok" hatası alıyorum. Debug dediğimde ise " Set rs = con.Execute("Select f1, max(f2) from [Sheet1$] group by f1 having count(f1)>1")" satırını sarı ile işaretliyor excel.

Yardımcı olabilirseniz çok sevinirim,

Şimdiden teşekkür ederim.

 

[Murat OSMA]

Sayfa isminin Sheet1 olduğundan emin olun. Sayfa isminiz ne ise koddaki yerine o sayfa adını yazın.
Onun haricinde kodlarda hata vermesine sebep olacak bir durum yoktur.

 

[onuraou]

Murat Bey,

Çok teşekkür ederim,

Saygılarımla.

 

[Murat OSMA]

Rica ederim, hoşça kalın.