Hirdetés
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- ricsi99: 6. Genes alaplap tündöklése kontra MS/Zintel korlátozásai
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- Gurulunk, WAZE?!
- Graphics: Telefonvásárlási kálváriám....avagy clickbait cím: Horror a hardveraprón
- Parci: Milyen mosógépet vegyek?
- Luck Dragon: Alza kuponok – aktuális kedvezmények, tippek és tapasztalatok (külön igényre)
- bambano: Bambanő háza tája
-
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
-
Delila_1
veterán
-
Delila_1
veterán
Más módszerrel:
Sub Keres_1()
v% = InputBox("Kérem a keresendő értéket", "Keresés")
On Error GoTo Hiba
Cells.Find(What:=v%, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
sor = Selection.Row
Rows(sor).Select
Exit Sub
Hiba:
MsgBox "Nincs ilyen érték"
End Sub -
Delila_1
veterán
Tegyél ki egy gombot az Űrlap eszköztárról, és rendeld hozzá a lenti makrót. Az A oszlopban keresi a bekért értéket, és kijelöli a sort, ahol megtalálta.
Sub keres()
f = 0
v% = InputBox("Kérem a keresendő értéket", "Keresés")
sor = Cells(Rows.Count, "A").End(xlUp).Row
Do Until sor = 2
If Cells(sor, 1) = v% Then
Rows(sor).Select
f = 1
Exit Sub
Else
sor = sor - 1
End If
Loop
If f = 0 Then MsgBox "Nincs ilyen érték"
End Sub
Új hozzászólás Aktív témák
Hirdetés
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Azonnali VGA-s kérdések órája
- Diablo IV
- Windows 10
- Filmvilág
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- Jelentősen meglazítja a gyeplőt a Windows 11 frissítéseknél a Microsoft
- Májusban már megérkezhet a Xiaomi 17T
- Elektromos cigaretta 🔞
- További aktív témák...
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Game Pass Ultimate előfizetések 3 - 36 hónapig azonnali kézbesítéssel! 13 hónap ultimate - 50.000 ft
- Játékkulcsok olcsón: Steam, Uplay, GoG, EA, Xbox stb.
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Autodesk & CorelDRAW - Azonnal - Számlával - Garanciával
- Bomba ár! Dell Latitude E6420 - i5-2GEN I 8GB I 250GB I DVDRW I HDMI I 14" HD I Cam I W10 I Gari!
- SzoftverPremium.hu
- HP EliteBook 840 G6, G5 14" i5, 8-16GB RAM, SSD, jó akku, számla, 6 hó gar
- Targus DOCK423A - USB-C Dual HDMI 4K HUB - 2 x HDMI (120Hz)
- Dell Latitude 5300 13,3" FHD IPS touch, i5 - i7 8665U, 8-16GB RAM, SSD, jó akku, számla, 6 hó gar
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest

Fferi50