- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Samsung Galaxy S25 - végre van kicsi!
- Samsung Galaxy S23 Ultra - non plus ultra
- Apple iPhone 17 Pro Max – fennsík
- Xiaomi 14T Pro - teljes a család?
- Megérkezett végre a várva-várt órafrissítés
- „Új mérce az Android világában” – Kezünkben a Vivo X300 és X300 Pro
- Szerényebb panelt kap a OnePlus 15
- Samsung Galaxy Watch7 - kötelező kör
- Filléres telefonok érkeztek a ZTE-től
-
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
- World of Tanks - MMO
- SzDavid99: Van 20 perced? Akkor tanulj meg koreait olvasni!
- Autós topik
- Milyen joysticket vegyek?
- Váratlan kütyü hódít a nők körében
- Star Trek
- Linux Mint
- Amazon Kindle
- Fortnite - Battle Royale & Save the World (PC, XO, PS4, Switch, Mobil)
- VR topik (Oculus Rift, stb.)
- További aktív témák...
- GYÖNYÖRŰ iPhone 12 Pro Max 256GB Graphite -1 ÉV GARANCIA - Kártyafüggetlen, MS3375, 100% Akkumulátor
- Honor Magic 7 Pro 512 Gb - AI Pro kamera, 6,8 120 Hz LTPO OLED, Snapdragon 8 Elite,3 hó gari!
- Telefon felvásárlás!! Honor 90 Lite/Honor 90/Honor Magic5 Lite/Honor Magic6 Lite/Honor Magic5 Pro
- Telefon felvásárlás!! Samsung Galaxy Note 10+/Samsung Galaxy Note 20/Samsung Galaxy Note 20 Ultra
- BESZÁMÍTÁS! HP EliteDesk 800 G1 TWR brand számítógép garanciával hibátlan működéssel
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: Promenade Publishing House Kft.
Város: Budapest