- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Yettel topik
- Milyen okostelefont vegyek?
- Samsung Galaxy Z Fold7 - ezt vártuk, de…
- Hat év támogatást csomagolt fém házba a OnePlus Nord 4
- Poco F7
- Samsung Galaxy Watch6 Classic - tekerd!
- iPhone topik
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Honor Magic V5 - méret a kamera mögött
Hirdetés
-
Mobilarena
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
- Milyen egeret válasszak?
- Apple MacBook
- sziku69: Fűzzük össze a szavakat :)
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- Folyószámla, bankszámla, bankváltás, külföldi kártyahasználat
- Izmos, RTX-es NUC géppel jelentkezett az ASUS
- NVIDIA GeForce RTX 5070 / 5070 Ti (GB205 / 203)
- Nem indul és mi a baja a gépemnek topik
- Milyen routert?
- Milyen belső merevlemezt vegyek?
- További aktív témák...
- ROBUX ÁRON ALUL - VÁSÁROLJ ROBLOX ROBUXOT MÉG MA, ELKÉPESZTŐ KEDVEZMÉNNYEL (Bármilyen platformra)
- 27%-OS ÁFÁS SZÁMLA I Jogtiszta Microsoft digitális és fizikai termékek I DIGITALKEYZ.COM
- PC Game Pass előfizetés
- Eladó Steam kulcsok kedvező áron!
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap
- Bomba ár! HP EliteBook 840 G4 - i5-7GEN I 16GB I 256GB SSD I 14" FHD Touch I Cam I W10 I Garancia!
- BESZÁMÍTÁS! Gigabyte B450M R5 5600 16GB DDR4 512GB SSD GTX 1080Ti 11GB ZALMAN I3 NEO Chieftec 650W
- iPhone 15 128GB Black -1 ÉV GARANCIA - Kártyafüggetlen, MS3069, 93% Akkumulátor
- DELL Latitude 7340 i7-1365U 16GB 1000GB 13.3" FHD+ TouchScren 1 év garancia
- PS 5 kontroller // Számla // Garancia //
Állásajánlatok
Cég: FOTC
Város: Budapest