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

• #52599 Delila_1 veterán Lasersailing #52598

  Új Válasz 2024-05-09 14:49:19 #52599

  Ú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

  

  Delila_1

  veterán

  válasz Lasersailing #52598 üzenetére

  Szia,

  A feltöltés előtt átalakítom magyar dátumra az A1:A4 adatait.
  Sub Inditas()
    Dim sm As Integer
    For sm = 1 To 4
        Cells(sm, 1) = Right(Cells(sm, 1), 4) & "." & Mid(Cells(sm, 1), 4, 2) & "." & Left(Cells(sm, 1), 2)
        Kiszallitasform.datumok.AddItem Sheets("sob").Cells(sm, 1)
    Next
    Kiszallitasform.Show
End Sub

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