PROHARDVER! témák
Mobilarena témák
IT café témák
GAMEPOD témák
Új hozzászólás Aktív témák
-
Vagy pl:
Public Sub test()
Dim Keresett As String
Keresett = "Keresettoszlopszövege"
oszlop = 1
Dim megvan As Boolean
megvan = False
While Worksheets("Munka1").Cells(1, oszlop) <> Keresett And Not megvan And _ Worksheets("Munka1").Cells(1, oszlop) <> ""
oszlop = oszlop + 1
If Worksheets("Munka1").Cells(1, oszlop) = Keresett Then megvan = True
Wend
If megvan Then MsgBox (Keresett & " megvan, a következő oszlopban: " & oszlop) Else MsgBox ("Nincs meg")
End SubMondjuk ha a keresett oszlop pont az első akkor nem működik, de nem tartana sokáig módosítani, hogy azzal is működjön. (Neked is hagyok gondolkodni valót
)
)Új hozzászólás Aktív témák
Aktív témák
- sziku69: Fűzzük össze a szavakat :)
- Ford topik
- Allegro vélemények - tapasztalatok
- Víz- gáz- és fűtésszerelés
- Nintendo Switch 2
- Honor 600 – kezes, kitartó, költséges
- Gyúrósok ide!
- Megújult mobilos felület, fórumos ráncfelvarrás a PROHARDVER! lapcsaládon
- Mától Huawei okosórákkal is lehet érintésmentesen fizetni
- Huawei P30 Pro - teletalálat
- További aktív témák...
Új fizetett hirdetések
Üzleti előfizetők hirdetései
- Bontatlan! Playstation Portal 2 év garancia 2028.04.09-ig számlával!
- Apple Mac Pro Workstation Dual Xeon,18GB RAM,WIFI,BT,Profi Munkaállomás és Szerver
- Bontatlan! Samsung 2.5 870 EVO 500GB SATA3 (MZ-77E500B)!
- ÁRGARANCIA!Épített KomPhone Ryzen 5 7500F 32/64GB RAM RX 9060 XT 16GB GAMER PC termékbeszámítással
- 27% - Samsung S32DM700UU Smart M7 Monitor! 3840x2160 / 4ms / 60hz / 4K
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest