- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Luck Dragon: Asszociációs játék. :)
- sziku69: Szólánc.
- Gurulunk, WAZE?!
- sziku69: Fűzzük össze a szavakat :)
- vrob: Az utolsó DOS játékok 1996 - 1997-ben, egy korszak lezárul
- Rap, Hip-hop 90'
- btz: Internet fejlesztés országosan!
- Meggyi001: RTX 5060 - Az új népkártya?
- bitpork: Phautós tali a Balcsinál 2025 Augusztus 2 napján (szombat)
Hirdetés
Köszönjük a sok biztatást, támogatást! Egy rövid ideig még féláron tudsz hirdetni, előfizetni!
Új hozzászólás Aktív témák
-
pirit28
csendes tag
Jóó estét az uraknak ,hölgyeknek.
Régibb kaptam egy nagyon jó kis kereső kódocskát, amit egy másik excell file-ban szeretnék használni.
A problémám az lenne ,hogy a találati eredmény után ,ami ugye a keresett érték, a talált érték mellett a sorban 2 cellával arrébb kellene hogy kijelölje azt a cellát amibe adatot vinnék fel. Ez annyiban könnyítené meg a dolgom ,hogyha megvan az eredmény akkor nem kellene nyilacskát használnom ahhoz hogy az adatot a megfelelő helyre tudjam bevinni,minél hamarabbRange("a2:A1000").Select
amitkeres = InputBox("Add meg a keresni kívánt nevet vagy névrészletet !", "Keresés")On Error GoTo Nincs
Selection.find(What:=amitkeres, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Select
Selection.Font.Bold = FalseExit Sub
Nincs:
MsgBox ("A keresett név nincs a listában.")
End SubRem érthető voltam ,a választ válaszokat előre is köszönöm.
Üdv.
Új hozzászólás Aktív témák
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Gaming notebook topik
- Android alkalmazások - szoftver kibeszélő topik
- Jelszókezelők
- Samsung Galaxy Z Fold7 - ezt vártuk, de…
- Három új órát hozott a Samsung, a csúcson az Ultra
- A nagy Szóda, Szódakészítés topic - legyen egy kis fröccs is! :-)
- Wi-Fi 7-es mobilroutert villantott az ASUS
- Tesla topik
- Vezetékes FEJhallgatók
- További aktív témák...
- Bomba ár! HP 255 G7 - AMD A4 I 4GB I 128SSD I HDMI I 15,6" FHD I Radeon I HDMI I W11 I Cam I Gari!
- Törött, Hibás iPhone felvásárlás!!
- MacBook Pro 13, 14, 15, 16, MacBook Air M1, M2 M3 M4 bill magyarosítás lézerrel / sapkacserével
- Telefon felvásárlás!! Samsung Galaxy S21/Samsung Galaxy S21+/Samsung Galaxy S21 Ultra
- iKing.hu - Samsung Galaxy Z Flip 7 Blue Shadow Újszerű, karcmentes állapotban 512 GB
Állásajánlatok
Cég: FOTC
Város: Budapest