-
Fototrend
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
Topikgazda
válasz marec1122 #46017 üzenetére
A kérdéses laphoz rendeld az eseményvezérelt makrót, ami a B oszlopba íráskor felviszi a K oszlop első üres sorába a beírt dátumot, mellé az L-be pedig az A oszlopban megadott számot. Arra a fevitelt végzőnek kell ügyelnie, hogy a B oszlopban valóban dátumot adjon meg.
Az eddigi dátumokat és a hozzájuk tartozó számokat előre fel kell vinni, mert csak a makró beírása után végzi automatikusan ezt a munkát. B oszlopot másold K-ba, Ismétlődések eltávolítása funkció, majd (INDEX, HOL.VAN) függvénnyel melléjük az A oszlop adatai.Private Sub Worksheet_Change(ByVal Target As Range)
Dim ide As Long
If Target.Column = 2 Then
If Application.WorksheetFunction.CountIf(Columns(11), Target) = 0 Then
Application.EnableEvents = False
ide = Range("K" & Rows.Count).End(xlUp).Row + 1
Range("K" & ide) = Target: Range("L" & ide) = Range("A" & Target.Row)
Application.EnableEvents = True
End If
End If
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
Új hozzászólás Aktív témák
- Windows 10
- Milyen okostelefont vegyek?
- Kerékpárosok, bringások ide!
- Sokat fogyaszt az AI, egyre több az adatközpont, kell az atomenergia
- PlayStation 5
- Fűnyíró topik
- Mibe tegyem a megtakarításaimat?
- Debrecen és környéke adok-veszek-beszélgetek
- Okos Otthon / Smart Home
- Társasjáték topic
- További aktív témák...
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
- Canva Pro előfizetés - 1 éves
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Steam, Windows, Origin kulcsok, előfizetések közvetlenül a kiadótól, a LEGJOBB ÁRON!
- Windows 10, 11 Professional, Home, Enterprise licenckulcsok 64, 32 bit - MEGA Akció!
- Windows Server 2016, 2019, 2022 Standard, Datacenter, Essentials termékkulcsok - MEGA akció!
- Vírusirtó, Antivirus, VPN licenckulcsok - kedvezményes ajánlatok (frissítve: 2024. 05. 01.)
- Office Professional Plus 2013, 2016, 2019, 2021 RETAIL licenckulcsok - MEGA Akció!
- Windows 7 Home Premium, Pro, Ultimate és Windows 8, 8.1 Pro licenckulcsok 64, 32 bit - MEGA Akció!
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Promenade Publishing House Kft.
Város: Budapest