- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Luck Dragon: Asszociációs játék. :)
- Depression: Hardver rúzs effektus?
- sziku69: Fűzzük össze a szavakat :)
- plevips: Sorozatkövető v 1.1
- norbx: IRC a 90-es évek és a 2000-es évek elején
- gban: Ingyen kellene, de tegnapra
- Luck Dragon: Alza kuponok – aktuális kedvezmények, tippek és tapasztalatok (külön igényre)
- bambano: Bambanő háza tája
- gerner1
Ú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
- Horgász topik
- World of Tanks - MMO
- Samsung Galaxy Felhasználók OFF topicja
- Motorolaj, hajtóműolaj, hűtőfolyadék, adalékok és szűrők topikja
- Okos Otthon / Smart Home
- Gyúrósok ide!
- TCL LCD és LED TV-k
- Elmentünk fotózni a Xiaomi 17 Ultrával
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- Fejhallgató erősítő és DAC topik
- További aktív témák...
- HP EliteDesk 800 G2 SFF, i5-6500,8GB DDR4,128GB SSD, DVD, WIN11
- HP EliteDesk 800 G2 (Tower) i5-6500,8GB DDR4,240GB SSD, DVD, WIN11
- Asus Tuf A15 Ryzen 5 7535HS 16gb ddr5 512ssd RTX 3050 FHD 144Hz Garancia
- ROG Strix G713RW 17.3" FHD IPS Ryzen 9 6900HX RTX 3070Ti 32GB 1TB NVMe gar
- Dobozos ÚJ Lenovo Legion 5 16 2.5K OLED Ultra 7 255HX 32gb ddr5 1 TB RTX 5070
- Dell Latitude 7320 2-in1 i5-1145G7 16GB 256GB 1 év garancia
- -75% Dell XPS 13 (9320) i7-1260P 16GB Ram/1TB SSD FHD+ Gari
- Keresünk Galaxy S22/S22+/S22 Ultra
- Lenovo ThinkPad X1 Carbon Gen 9 i7-1185G7 32 GB RAM Iris Xe 4k kijelző törésgarancia
- ÁRGARANCIA! Épített KomPhone Ultra 9 285K 64GB RAM RTX 5090 32GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
