Hirdetés
- btz: Internet fejlesztés országosan!
- Luck Dragon: Asszociációs játék. :)
- Mr.Csizmás: Bestbuy travel, utazós, kirándulós topic - szállások, jegyek
- sziku69: Fűzzük össze a szavakat :)
- Ndruu: Segíts kereshetővé tenni a PH-s arcképeket!
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Doky586: SecureBoot kulcsok frissítése (2026 nyara)
- potyautas: Olyan valóságosnak tűnt
- ricsi99: 6. Genes alaplap tündöklése kontra MS/Zintel korlátozásai
- Hieronymus: Az igaz barátság kezdete
-
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
-
bteebi
veterán
válasz
Melack
#29125
üzenetére
Szia!
Konvertáld a tartományokat táblázattá. Beszúrás → Táblázat. Dinamikusan fognak bővülni. Az ismétlődő elemeket ki tudod szűrni (Adatok → Speciális → Más helyre másolja → Csak az egyedi rekordok megjelenítése), de ez egy kicsit macerás.
A 4. táblázatot mindig megcsinálhatnátok frissen, makróval (makrórögzítővel is elég jól meg lehetne oldani, pláne, ha fixek a nevek, talán csak a tartományokat kellene átírni ActiveCell.Currentregion-re, vagy valami hasonlóra).
-
poffsoft
veterán
válasz
Melack
#28733
üzenetére
mi a képlet a conditional formattingnál?
ha az A1-ben kezdődik a validálásod, állj az a1 cellára,
magyarban a "formázandó cella kijelölése képlettel", a képlet pedig:
=$A1="close"
ehhez beállítod a formátumot.
az "Érvényesség" tartományba pedig =$1:$100megjegyzem, hogy teljes sorokat nem érdemes formázni, célszerűbb helyette az adattábla tartományát megadni.
-
Delila_1
veterán
válasz
Melack
#27477
üzenetére
A próbánál a füzet utolsó lapját elneveztem Gyűjtés-nek. A MitKeres változóba tettem be a keresendő adatot.
A makró az elsőtől az utolsó előtti lapig megkeresi a MitKeres értéket, és a találat sorát a Gyűjtés lap első üres sorába bemásolja.Sub Kigyujt()
Dim lap As Integer, WSG As Worksheet, Hol, usor As Long
Application.ScreenUpdating = False
Const MitKeres = "Máté" 'Itt add meg a keresendő értéket
Set WSG = Sheets("Gyűjtés")
WSG.Rows("2:2000") = ""
For lap = 1 To Worksheets.Count - 1
Sheets(lap).Select
Set Hol = Cells.Find(MitKeres, LookIn:=xlValues, lookat:=xlWhole)
If Hol Is Nothing Then
GoTo Tovabb
Else
usor = WSG.Range("A" & Rows.Count).End(xlUp).Row + 1
Rows(Hol.Row).Copy WSG.Range("A" & usor)
End If
Tovabb:
On Error GoTo 0
Next
WSG.Select
Application.ScreenUpdating = True
End SubEz laponként az első találatot teszi ki. Ha több kell, valaki biztosan segít, most el kell mennem.
Új hozzászólás Aktív témák
Hirdetés
- Futás, futópályák
- Folyószámla, bankszámla, bankváltás, külföldi kártyahasználat
- Dell notebook topic
- Gyúrósok ide!
- Konteó topic
- exHWSW - Értünk mindenhez IS
- TCL LCD és LED TV-k
- Jelentősen meglazítja a gyeplőt a Windows 11 frissítéseknél a Microsoft
- 3D nyomtatás
- Kínai és egyéb olcsó órák topikja
- További aktív témák...
- Microsoft és egyéb dobozos és OEM szoftverek
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- PC Szervizeket, Gépépítőket keresek B2B szoftver partnerségre (E-számlával)
- MS SQL Server 2016, 2017, 2019
- Game Pass Ultimate előfizetések 3 - 36 hónapig azonnali kézbesítéssel! 13 hónap ultimate - 50.000 ft
- ÚJ - MACBOOK PRO 16" M5 MAX 18C CPU / 32C GPU / 36 GB RAM / 2TB + 3 ÉV APPLE Care PLUS + ÁFÁ-s
- ELADÓ FÓLIÁZOTT HP EliteBook 840 G9 i7-1265U 16GB 512GB 14" FHD+ 1 év teljeskörű garancia
- HIBÁTLAN iPhone 13 128GB Green-1 ÉV GARANCIA - Kártyafüggetlen, MS4347
- HIBÁTLAN iPhone 11 128GB Black -1 ÉV GARANCIA - Kártyafüggetlen, MS4411, 100% Akksi
- 3440 x 1440 100Hz!!! 65W PD 34" CURVED 1800R Samsung C34H890WGR - 1 év garancia!
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
)
Fferi50