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
-
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
- The Elder Scrolls Online Imperial Collector s Edition
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- HP. Laptop. i5. Model: 15-da1002nq
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Eladó jogtiszta, Windows 11/10, Office 2019/2021/2024, Fizikai és Digitális licencek, Számlával.
- AKCIÓ! MacBook Pro 13 M1 8GB RAM 512GB SSD notebook garanciával hibátlan működéssel
- Keresünk Galaxy S23/S23+/S23 Ultra/S23 FE
- Apple iPhone 12 64Gb,Újszerű,Dobozaval,12 hónap garanciával
- Csere-Beszámítás! Playstation 5 Lemezes kiadás!
- ÁRGARANCIA!Épített KomPhone Ryzen 7 5700X 32/64GB RAM RTX 5060 Ti 8GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest

Fferi50
