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

• #52601 Delila_1 veterán Lasersailing #52600

  Új Válasz 2024-05-09 15:16:58 #52601

  Ú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 #52600 üzenetére

  Szerencsére még nem töröltem ki a makrót.
  Átalakítva:
  Sub Inditas()
    Dim sm As Integer, szoveg As String
    
    For sm = 1 To 4
        szoveg = Right(Cells(sm, 1), 4) & "." & Mid(Cells(sm, 1), 4, 2) & "." & Left(Cells(sm, 1), 2)
        Kiszallitasform.datumok.AddItem szoveg
    Next
    Kiszallitasform.Show
End Sub

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