Yardım Tarih Aralığına göre dönemin asgari ücretini bulup sıralama..

Merhabalar;

Fotoğraflarda görüldüğü gibi excele tarihleri girdiğimde o tarih aralığındaki asgari ücret dönemini bulup. Girdiğim ikinci tarihe kadar sıralamasını istiyorum. Excelimde yaptığım şey çalışıyor gibi fakat oldukça uzun ve karışık şekilde yapabildim. Bunu yapabilmemin daha kısa bir yolu var mıdır?

Merhaba,
Bu kodları kullanabilirsiniz;

Murat OSMA' Alıntı:

Merhaba,
Bu kodları kullanabilirsiniz;

Python:Panoya kopyala

Sub OSMA()
    Dim con As Object, rs As Object, sorgu As String, bas As Date, bit As Date
   
    Set con = CreateObject("adodb.connection")
    Set rs = CreateObject("adodb.recordset")
   
    con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
    ThisWorkbook.FullName & ";extended properties=""excel 12.0;HDR=yes"""
   
    bas = CDate(Sayfa2.Range("B11").Value): bit = CDate(Sayfa2.Range("F11").Value)
   
    sorgu = "Select MIN([Tarih]),MAX([Tarih]), [Tutar] FROM [Sayfa1$]"
    sorgu = sorgu & " WHERE CLng(cdate([Tarih]))>= " & CLng(CDate(bas)) & ""
    sorgu = sorgu & " AND CLng(cdate([Tarih]))<= " & CLng(CDate(bit)) & ""
    sorgu = sorgu & " GROUP BY [Tutar]"
   
    rs.Open sorgu, con, 1, 1
    Sayfa2.Range("K11:M10000").ClearContents
    Sheets("Sayfa2").Range("K11").CopyFromRecordset rs
    rs.Close: con.Close
   
    MsgBox "Islem Tamam", vbInformation, "Www.ExcelArsivi.Com"
    Set con = Nothing: Set rs = Nothing: sorgu = ""
End Sub

Genişletmek için tıkla ...

Öncelikle cevap verdiğiniz için teşekkürler. Kodu denedim fakat hata ile karşılaştım. VBA'dan çok anlamadığım için sebebini anlayamadım. Hata görüntülerini cevabıma ekliyorum.

Tarihlerin olduğu sayfada en üste yeni bir satır açıp başlık olarak A1'e Tarih, B1'e Dönem, C1'e Tutar yazıp deneyiniz.