- Kaspersky Antivirus és Internet Security Fórum
- Windows 11
- Cisco vizsgák (CCNA, CCNP, CCIE)
- Hamarosan elképesztő mennyiségű áramot fogyasztanak el az adatközpontok és az AI
- Milyen routert?
- Otthoni hálózat és internet megosztás
- Synology NAS
- Kodi és kiegészítői magyar nyelvű online tartalmakhoz (Linux, Windows)
- Mozilla Firefox
- Adobe Photoshop
-
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
-
Delila_1
Topikgazda
Az egyik üres lapodat nevezd el "Találatok"-nak, és a Munka1 címsorát másold át oda.
A Munka1 A1 cellájába írd be a keresendő adatot.
Sub Kigyujtes()
Application.ScreenUpdating = False
Sheets("Találatok").Select
Rows("2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete Shift:=xlUp
Sheets("Munka1").Select
Cells(1).Select
sor_k = 2
sz = Selection.Value
Cells.Find(What:=sz, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
sor = Selection.Row: sor_m = sor + 1
Rows(sor).Copy Sheets("Találatok").Rows(sor_k)
sor_k = sor_k + 1
Do 'Keresés ismétlése
Cells.FindNext(After:=ActiveCell).Activate
sor = Selection.Row
Rows(sor).Copy Sheets("Találatok").Rows(sor_k)
sor_k = sor_k + 1
Loop While sor >= sor_m
Sheets("Találatok").Select
usor = ActiveSheet.UsedRange.Rows.Count
Rows(usor).Select
Selection.Delete Shift:=xlUp
Cells(1).Select
Application.ScreenUpdating = True
End SubEz a makró kigyűjti a Találatok lapra a kért adatokat.
Remélem, megfelel, mert ma csak délután leszek gép közelében.
[ Szerkesztve ]
Programozó: 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
- 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
- Autómatricák a legjobb minőségben, több ezer minta! PH tagoknak 30% kedvezmény!
- AKCIÓ! - STEAM kulcsok / Punch Club, Oddworld: Soulstorm, Children of Morta, stb. - 2024.05.16.
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Alpha Laptopszerviz Kft.
Város: Pécs