-
Fototrend
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
-
m.zmrzlina
senior tag
válasz Fire/SOUL/CD #9354 üzenetére
Ezt sikerült kiötleni, úgy tűnik működik.
Sub find()
eleje:
Cells(2, 3).Activate
amitkeres = InputBox("Add meg a keresni kívánt nevet!", "Keresés", amitkeres, 13000, 100)
On Error Resume Next
Cells.find(What:=amitkeres, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
If Err.Number = 91 Then
MsgBox ("A keresett név nincs a listában.")
GoTo eleje
End If
If ActiveCell.Row <> 2 Then
Cells(2, 3).Activate
MsgBox ("A keresett név nincs a listában.")
GoTo eleje
End If
End SubMűködni működik de jó ez így?
Új hozzászólás Aktív témák
- TCL LCD és LED TV-k
- Milyen videókártyát?
- Hivatalosan is reagált a Core CPU-k stabilitási gondjáira az Intel
- Asztrofotózás
- AMD GPU-k jövője - amit tudni vélünk
- EAFC 24
- Samsung Galaxy Z Fold5 - toldozás-foldozás
- Súlyos adatvédelmi botrányba kerülhet a ChatGPT az EU-ban
- Luck Dragon: Asszociációs játék. :)
- Milyen okostelefont vegyek?
- További aktív témák...
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: Ozeki Kft.
Város: Debrecen