-
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
-
ssrobi
csendes tag
Na kicsit másképp de megoldottam egyenlőre a problémát
csak vigyázni kell, hogy az adott lapon nehogy valaki elkattintsa az A2 ből
viszont most egy olyan kérdésem lenne, hogy lehetne-e olyat csinálni hogy a gomb megnyomásakor megvizsgálja hogy van-e valami az A16-ban (bármi) és ha nincs akokr ne hajtsa végre a makrót!?köszi
-
Delila_1
veterán
Hű, de fürge vagy! Alig néhány hónap, és már meg is nézed!
Sheets("kiinduló lap").Select
usor = Range("A65536").End(xlUp).Row
Range("A16:J" & usor).Select
Selection.Copy
Sheets("nyilvántartás").Select
Cells(1, 1).Select
ucso = Range("A65536").End(xlUp).Row
If Cells(ucso, 1) > "" Then ucso = ucso + 1
Cells(ucso, 1).Select
Selection.PasteSpecial Paste:=xlPasteValuesAz lehet a baj az előzővel, hogy a nyilvántartás lapodon még nem volt adat, az xlDown leszaladt a 65536. sorig, és oda akart bemásolni néhány sort. Ettől persze kiakadt a lelke.
Új hozzászólás Aktív témák
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Bambu Lab 3D nyomtatók
- Kuponkunyeráló
- Motorolaj, hajtóműolaj, hűtőfolyadék, adalékok és szűrők topikja
- Automata kávégépek
- Autós topik
- iPhone topik
- Lexus, Toyota topik
- MW2 - MW3 játékosok baráti köre
- Egyéni arckép 2. lépés: ARCKÉPSZERKESZTŐ
- További aktív témák...
- ÁRGARANCIA! Épített KomPhone Ultra 9 285K 64GB RAM RTX 5090 32GB GAMER PC termékbeszámítással
- Gamer PC-Számítógép! Csere-Beszámítás! R5 8400F / RX 6800 16GB / 32GB DDR5 / 1TB SSD
- GYÖNYÖRŰ iPhone 15 Pro Max 256GB Black Titanium -1 ÉV GARANCIA - Kártyafüggetlen, MS3067
- REFURBISHED és ÚJ - HP Thunderbolt Dock G2 230W with combo cable (3TR87AA)
- Eredeti Lenovo USB-C 65W töltő (használtak) (ELKELTEK)
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: NetGo.hu Kft.
Város: Gödöllő