Új hozzászólás Aktív témák

• #53134 Owlet újonc

  Új Válasz 2024-09-02 15:18:53 #53134

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Owlet

  újonc

  Sziasztok!

  Készítek egy időpontfoglaló "makróegyüttest", melyben a szabad időpontokból a felhasználó tud érkezési és távozási dátumot választani. A szabad időpontok a munkalapon zöld háttérszínnel rendelkeznek.

  Ablak inicializáláskor beolvassuk a szabad időpontokat:

  Private Sub FillDates2()
    Dim ws As Worksheet
    Dim cell As Range
    Dim greenColor As Long
    greenColor = RGB(0, 204, 102)
    Set ws = ThisWorkbook.Sheets("2025")
    For Each cell In ws.UsedRange
        If cell.Interior.Color = greenColor And IsDate(cell.Value) Then
            Me.ErkezesiDatum.AddItem Format(cell.Value, "yyyy.mm.dd")
            Me.TavozasiDatum.AddItem Format(cell.Value, "yyyy.mm.dd")
        End If
    Next cell
End Sub

  Ez rendben fut, a ComboBox-ban láthatóak a szabad időpontok, viszont azt nem tudom megoldani, hogy az időpontok a legrégebbitől a legfrissebbig legyenek listázva.
  Jelenleg így néznek ki a dátumok:
  

  Nem is értem, alapértelmezetten mi alapján rendezi ezeket sorba. Mert nem hónap szerint és nem is nap érték szerint. Van erre valami ultimate egysoros megoldás? Vagy akár több?

  Előre is köszönöm a segítséget : )

Új hozzászólás Aktív témák