Hirdetés
- eBay-es kütyük kis pénzért
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Luck Dragon: Asszociációs játék. :)
- Doky586: Torrent beállítás kezdőknek
- SirRasor: Látásjavítás alapfokon
- Brogyi: CTEK akkumulátor töltő és másolatai
- sziku69: Fűzzük össze a szavakat :)
- Fire/SOUL/CD: INGYENES Clone és Backup-Restore alkalmazások tesztje [2024]
- sziku69: Szólánc.
- Magga: PLEX: multimédia az egész lakásban
-
LOGOUT
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
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
- 2db Apple Lightning - jack átalakító eladó egyben 1999 Ft
- HIBÁTLAN iPhone 13 mini 128GB Starlight -1 ÉV GARANCIA -Kártyafüggetlen, MS3614
- Készpénzes / Utalásos Videokártya és Hardver felvásárlás! Személyesen vagy Postával!
- Apple iPhone 13 Pro max 512GB,Újszerű,Dobozával,12 hónap garanciával
- BESZÁMÍTÁS! ASUS Z170 i7 6700K 16GB DDR4 512GB SSD GTX 1660Ti 6GB CooleMaster MasterboxMB 600 CM650W
Állásajánlatok
Cég: NetGo.hu Kft.
Város: Gödöllő
Cég: Laptopműhely Bt.
Város: Budapest