- gban: Ingyen kellene, de tegnapra
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- Mr Dini: Mindent a StreamSharkról!
- btz: Internet fejlesztés országosan!
- Luck Dragon: Asszociációs játék. :)
- Steven: Sokat utazó kávéfüggők ide!
- nonsen5e: DPD tapasztalatok
- M0ng00se: Hardvert áruhitelre?
- ricshard444: Fényképező ? Telefon helyett
Új hozzászólás Aktív témák
-
bundli
tag
Sziasztok!
Van egy 5x5-ös cellatartományom, legyen ez most A1:E5.
Azt szeretném megcsinálni, hogy egy gombnyomásra ezt az 5x5-ös területet másolja be ezalá mégegyszer. Ha megint megnyomom a gombot, akkor a következő alá illesztené be és így tovább.
Eddig idáig jutottam, hogy:
ActiveCell.Range("A1:E5").Select
Selection.Copy
ActiveCell.Offset(6, 0).Range("A1").Select
ActiveSheet.PasteEz pont azt csinálja ami nekem kéne, de csak akkor ha "jó helyre van kattintva".
Tehát ha máshova van kattinva induláskor, akkor már el van rontva az egész. Egy Rows("1:1").Select után tökéletes, egészen a második kattintásig, mert utána ugyanúgy mindig az 1:1 cellától fog indulni.
Valahogy azt kéne megoldani, hogy elmentse egy változóba azt, hogy hányszor lett már másolva. Ezt akár egy segédcellába is le lehetne menteni, de nem tudom hogyan. Azért is jó lenne ezt elmenteni, mert minden egyes másolt blokk mellé oda kéne írni, hogy ez éppen hanyadik.Nagyon megköszönék bármi nemű segítséget!
Új hozzászólás Aktív témák
- Teljes külső kijelzővel hódítana a Flip7, ami kapott egy kistestvért is
- Érkezik az OpenAI saját böngészője
- gban: Ingyen kellene, de tegnapra
- Automobilista 2
- Szünetmentes tápegységek (UPS)
- Lakáshitel, lakásvásárlás
- Építő/felújító topik
- PROHARDVER! feedback: bugok, problémák, ötletek
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- Léghűtés topik
- További aktív témák...
- BESZÁMÍTÁS! ÚJ AMD Ryzen 5600X 5700X 5800X 5900X processzor 3 év garancia 27% áfa termékbeszámítás
- BESZÁMÍTÁS! ÚJ AMD Ryzen 8500G / 8600G AMD Ryzen 7 8700G / 7800X3D processzor 3 év garancia 27% áfa
- Remek áron Lenovo ThinkPad x395 AMD Ryzen 7 pro-3700U/16GB/256 SSD/AMD Radeon Vega 10 Grap/FHD/IPS
- MacBook Air M1 8/256 92% Aksi szép állapotban
- iPhone 12 Pro Max 128GB Újszerű Független/1-3 hónap gar./Akku 86%/p4360
- Bomba ár! HP ProBook 450 G7 - i5-10GEN I 16GB I 256SSD I HDMI I 15,6" FHD I Cam I W11 I Gar
- Bomba ár! Dell Latitude E7450 - i5-5GEN I 8GB I 256SSD I 14" FHD I HDMI I Cam I W10 I Garancia!
- Telefon felváráslás!! Samsung Galaxy S22/Samsung Galaxy S22+/Samsung Galaxy S22 Ultra
- Bomba ár! Lenovo ThinkPad X280 - i5-G8 I 8GB I 256GB SSD I 12,5" FHD I HDMI I Cam I W10 I Gari!
- AKCIÓ! Dell Optiplex 5050 SFF asztali számítógép - i5 7500 8GB DDR4 256GB SSD HD630 Win10
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft
Város: Budapest
Cég: Promenade Publishing House Kft.
Város: Budapest