Hirdetés
- Luck Dragon: Asszociációs játék. :)
- ubyegon2: Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
- GoodSpeed: Munkaügyi helyzet Hajdú-Biharban: észak és dél
- eldiablo: 30 év után szakítottunk, de azért még beszélünk...
- Magga: PLEX: multimédia az egész lakásban
- hcl: Amúgy mi a terv?
- sziku69: Szólánc.
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- sziku69: Fűzzük össze a szavakat :)
- GoodSpeed: Philips AWP9820 (vízlágyító) Calgon helyett?
Új hozzászólás Aktív témák
-
26centi
csendes tag
sziasztok,
én is most teszem kezdőlépéseimet vba-ban. és nem szeret engem. se.egy óriási adathalmaz adott feltétel alapján kiválasztott sorát szeretném egy másik munkalap, változóban (n) tárolt számú sorába másolni. kreáltam is egy kódot.
Do
Sheets("tools in SAP 3100").Activate 'forrás munkalapIf Cells(i, 14) = "#Hiányzik" Then
Rows(i).Select ' átmásolandó sor
Selection.Copy
Sheets("missing cost centers").Select 'cél munkalap
Rows(n).Select 'ezen a ponton kiakad, Application-defined or object defined error üzenettel Hibakód:1004
ActiveSheet.rows(n).Paste
n = n + 1End If
i = i + 1Loop Until Cells(i, 1) = ""
sajnos a hibakód helpjét elolvasva sem kaptam a leghalványabb utalást sem hogy mi a nyűgje. két sorral feljebb pedig ugyanez az utasítás működik.
van valakinek ötlete, hogy miért nem vagyunk barátok?
előre is kösz,
derűs, dolgos munkanapot
Új hozzászólás Aktív témák
Hirdetés
- HiFi műszaki szemmel - sztereó hangrendszerek
- Hat év támogatást csomagolt fém házba a OnePlus Nord 4
- Kuponkunyeráló
- Exkluzív órák
- Vezetékes FEJhallgatók
- Milyen belső merevlemezt vegyek?
- CES 2026: hivatalosan is kettészakítja a PC-s kézikonzolok piacát a Lenovo
- Robotporszívók
- Megtalálták az akkumulátortechnológiai Szent Grált? - CES
- Debrecen és környéke adok-veszek-beszélgetek
- További aktív témák...
- Surface Pro 7 12" 2K IPS érintő i5-1035G4 8GB 256GB NVMe IR kam 790 g gar
- ZBook Fury 16 G9 27% 16" FHD+ IPS érintő i7-12850HX RTX A4500 32GB 1TB NVMe ujjolv IR kam gar
- Dell Precision 7770 17.3" FHD IPS i9-12950HX RTX A3000 32GB 512GB NVMe gar
- L14 Gen6 14" FHD+ IPS Ryzen 7 PRO 250 Radeon 780M 16GB DDR5 512GB NVMe IR kam gar
- HP EliteBook 830 G10 13.3 FHD+ IPS i5-1335U 16GB 256GB NVMe IR kam gar
- Telefon felvásárlás!! Samsung Galaxy A50/Samsung Galaxy A51/Samsung Galaxy A52/Samsung Galaxy A53
- ÁRGARANCIA!Épített KomPhone i7 14700KF 32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- Telefon felvásárlás!! iPhone 13 Mini/iPhone 13/iPhone 13 Pro/iPhone 13 Pro Max/
- BESZÁMÍTÁS! LENOVO ThinkPad P15 Gen1 munkaállomás - i7 10875H 16GB DDR4 512GB SSD Quadro T1000 4GB W
- Apple iPhone 15 Pro Max 256GB, Kártyafüggetlen, 1 Év Garanciával
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: Laptopszaki Kft.
Város: Budapest

