- Z Fold6 imitátor árulkodik a fogyókúrázó igaziról
- iPhone topik
- Milyen okostelefont vegyek?
- Motorola Edge 50 Pro - több Moto-erő kéne bele
- Apple iPhone 15 Pro Max - Attack on Titan
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Xiaomi 14 Ultra - Leica hercegnő
- Okosóra és okoskiegészítő topik
- Honor Magic6 Pro - kör közepén számok
- MIUI / HyperOS topik
Hirdetés
-
Z Fold6 imitátor árulkodik a fogyókúrázó igaziról
ma Több lesz kívül a változás, mint belül.
-
Megérkezett Magyarországra a Samsung új OLED gaming monitora
ph Az Odyssey OLED G8 32 hüvelyes, sík OLED panellel dolgozik.
-
Retro Kocka Kuckó 2024
lo Megint eltelt egy esztendő, ezért mögyünk retrokockulni Vásárhelyre! Gyere velünk gyereknapon!
-
Mobilarena
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
-
Delila_1
Topikgazda
válasz
hallgat #13831 üzenetére
Ha a Munka2 lap L oszlopának az aljára akarod bemásolni ismételten a Munka1!B1:T1 tartományát, akkor az usor változót ehhez kell igazítani.
Sub mm()
Dim usor As Integer
'Munka1!B1:T1 másolása a Munka2!L2-be transzponálva
Sheets("Munka1").Range("B1:T1").Copy
Sheets("Munka2").Select
Range("L2").Select
Selection.PasteSpecial Paste:=xlValues, Transpose:=True
'usor az L oszlopban a Munka2 lapon
usor = Range("L65536").End(xlUp).Row
'másolás az utolsó alatti sorba, transzponálva
Range("L" & usor + 1).Select
Selection.PasteSpecial Paste:=xlValues, Transpose:=True
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
Új hozzászólás Aktív témák
- Betelik a pohár: nagy igény lenne a gyorshajtás-ellenes technológiára
- A fociról könnyedén, egy baráti társaságban
- Z Fold6 imitátor árulkodik a fogyókúrázó igaziról
- iPhone topik
- Horgász topik
- Politika
- sziku69: Fűzzük össze a szavakat :)
- Milyen légkondit a lakásba?
- Milyen okostelefont vegyek?
- Robot fűnyírók
- További aktív témák...
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Windows 10/11 Home/Pro , Office OEM/Retail kulcsok
- Autómatricák a legjobb minőségben, több ezer minta! PH tagoknak 30% kedvezmény!
- 10 Darab PC Játék (Bontatlanul!) Egyben 6990Ft.-ért Foxal!!!
- Canva Pro előfizetés - 1 éves