-
IT café
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
-
samfishR
senior tag
válasz Delila_1 #34190 üzenetére
Sziasztok,
Ennél a makrónál már így is sokat segítettetek, már csak a dátumot kellene áthozni az újonnan beszúrt sorba a következő sorból az idő-1mp mellett (ami már megvan). Tehát a 21-es sorban a következőnek kellene lennie:
A21: 2016.07.06 (a jelenlegi makróval ez sajnos nem változik, marad 2016.07.03)
B21: 00:29:59
C21: MUSZAK2Ami most be van másolva excelbe (mindent megcsinált kivéve a dátumot az A oszlopban):
Sub Beszuras()
Dim usor As Long, sor As Long
usor = Range("C" & Rows.Count).End(xlUp).Row
For sor = usor To 3 Step -1
If Cells(sor, 3) <> Cells(sor - 1, 3) Then
Rows(sor).EntireRow.Insert
Cells(sor, 1) = Cells(sor - 1, 1)
Cells(sor, 2) = Cells(sor + 1, 2) - TimeValue("0:0:1")
Cells(sor, 3) = Cells(sor - 1, 3)
End If
Next
End Subköszönöm előre is!
[ Szerkesztve ]
Új hozzászólás Aktív témák
- Steam kulcsok - UTALÁS/REVOLUT
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24
- AKCIÓ! - STEAM kulcsok / Punch Club, Oddworld: Soulstorm, Children of Morta, stb. - 2024.05.16.
- Vírusirtó, Antivirus VPN kulcsok
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Alpha Laptopszerviz Kft.
Város: Pécs