-
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
-
Lasersailing
senior tag
Sziasztok,
Excel 365 VBA kérdésem lenne:
Van egy adatbázis, amibe makró segítségével szkennelek be adatokat. Teszt alatt 6 sora van, a sorból az első a megrendelés szám, ami tartalmilag egy 10 jegyű szám (csak szám). Az első 5 sorba beszkennelt adat valamiért text formátumban lett letárolva, most viszont ha beszkennelek adatokat, akkor azokat számként tárolja el. (gondolom azóta valamit átírhattam a makróban, de ez mindegy is, mert nem tudom, hogy mit...)Nem is lenne ezzel gondom. A makró egy másik részében kiolvasom ezeket a sorokat és az első oszlop adatát, mint kulcsot használva keresem vissza, hogy a felhasználó a lehetséges kulcsok közül melyikhez tartozó adatokat szeretné megnézni. A gondom itt kezdődik: Ha text-ként van letárolva a mező adata, akkor azt megtalálja, ha viszont számként, akkor nem találja meg. Pedid a beolvasott adatra keresek (felhasználó csak kiválaszthatja a beolvasott adatot, nem írhat be), azt gondolnám, hogy mindenképp meg kellene találja, de nem.
Eltárolt adatok:

A 2-6 sor között a zöld háromszög mutatja, hogy "text"-ként értelmezi az adatokat
A 7-es sor viszont szám. Bár minden adat text típusú (fent jelőlve). Ha összehúzom a cellákat csak A7-et adja hozzá, a többi az excel szemében nem szám.Az alábbi sor keresi a "Seged" táblában az "ordervalaszto.value" (itt választja ki a user a 6 lehetséges érték valamelyikét) értékét.
Ha pl a 2133990001-et választom ki megtalálja, ha a 2135480001-et akkor viszont nem találja meg, vidáman továbblép (F8-cal léptetve a futást látom):Do
sm = sm + 1
Loop Until Sheets("Seged").Cells(sm, 1).Value = ordervalaszto.Value Or IsEmpty(Sheets("Seged").Cells(sm, 1))Mi ennek az oka, és főleg hogyan tudnám ezt elkerülni?
Biztosan minden orderszám kizárólag számból fog állni, de amúgy az sem gond, ha text-ként tárolom de találja meg "saját magát" mindig.(remélem érthetően sikerült megírni a kérdést)
Új hozzászólás Aktív témák
- mefistofeles: Az elhízás nem akaratgyengeség!
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- Automata kávégépek
- Sorozatok
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- Háztartási gépek
- Raspberry Pi
- Bittorrent topik
- Windows 7
- Steam, GOG, Epic Store, Humble Store, Xbox PC Game Pass, Origin Access, uPlay+, Apple Arcade felhasználók barátságos izgulós topikja
- További aktív témák...
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- PC Game Pass előfizetés
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Game Pass Ultimate előfizetések 1 - 36 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN! AKCIÓ!
- ÚJ HP EliteBook 6 G1a Ryzen 5 PRO 230 4.9GHz 32GB DDR5 1TB FHD+ 16:10 már jobbik kijelző, gar 2028
- Samsung Galaxy A12 /64GB/Független/Számlával/
- Dell XPS 13 9310 i7-1185G7 16GB 512GB 13" FHD+ 1 év garancia
- ÁRGARANCIA!Épített KomPhone i5 14600KF 32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- Honor 200 Pro - Black - 12/512GB - Új Garanciába cserélt!
Állásajánlatok
Cég: Central PC számítógép és laptop szerviz - Pécs
Város: Pécs
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Fferi50
