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

• #48177 Delila_1 veterán zsoci0914 #48176

  Új Válasz 2022-01-04 11:11:15 #48177

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

  Nem írtad, hogy mi adja a lehetőségeket. Érvényesítés, ComboBox a munkalapon, esetleg ComboBox Userformon. Azt sem írtad, melyik sorba kéred a dátumot és időt.
  Találomra vettem azt az esetet, mikor a munkalapon van egy ComboBox, és az A oszlopban folyamatosan vannak adatok.
  A laphoz rendeltem egy makrót, ami az első üres sorba írja ki a választásnak megfelelően a B, C, D, ill. az E oszlopba. A választási lehetőségek "B oszlopba dátum", "C oszlopba dátum", ...
  Megeshet, hogy egészen másról van szó, akkor írd meg pontosan, mit szeretnél.

  Private Sub ComboBox1_Change()
    Dim usor As Long
    usor = Range("A" & Rows.Count).End(xlUp).Row + 1
    Select Case Left(ComboBox1, 1)
        Case "B": Cells(usor, 2) = Format(Now, "yyy.mm.dd hh:mm:ss")
        Case "C": Cells(usor, 3) = Format(Now, "yyy.mm.dd hh:mm:ss")
        Case "D": Cells(usor, 4) = Format(Now, "yyy.mm.dd hh:mm:ss")
        Case "E": Cells(usor, 5) = Format(Now, "yyy.mm.dd hh:mm:ss")
    End Select
End Sub

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