- Oroszok csomagolják ki a még be nem mutatott iPad Pro M5-öt
- Házimozi belépő szinten
- OLED monitor topic
- Nem saját tervezésű a Zhaoxin új szerverprocesszora
- AMD Ryzen 9 / 7 / 5 / 3 5***(X) "Zen 3" (AM4)
- Hobby elektronika
- GeForce RTX 5060: Ezt kapjuk 150 ezerért
- AMD Ryzen 9 / 7 / 5 7***(X) "Zen 4" (AM5)
- Milyen belső merevlemezt vegyek?
- Projektor topic
Ú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
- Samsung Galaxy Z Fold6 - ugyanaz, sarkosan fogalmazva
- E-roller topik
- Huawei Watch GT 6 és GT 6 Pro duplateszt
- Windows 11
- sziku69: Fűzzük össze a szavakat :)
- OTP Bank topic
- Rekordösszegért kerül szaúdi kézbe az Electronic Arts
- Tőzsde és gazdaság
- iPhone topik
- sparks: 15 év droid után iPhone tapasztalat, 7 nap alatt
- További aktív témák...
- XPS 16 9640 16.3" FHD+ IPS Ultra 7 155H RTX 4050 16GB 1TB NVMe ujjlolv IR kam gar
- Dell Precision 3520 i7-7700HQ/16GB/512NVMe/Nvidia620/WIN11PRO Új aksi.
- Beats Audio Solo 3 Wireless by Dr.Dre, Apple W1 chippel
- iKing-Apple iPhone 13 Pro Max Sierra Blue ProMotion 120 Hz, Pro kamerák 128 GB-100%-3 hó gari
- Xiaomi BHR7109EU Electric Scooter 4 Lite elektromos roller
- AKCIÓ! Asus ROG Flow Z13 +ROG XG RTX 3070- i9 12900H 16GB DDR5 1TB SSD RTX 3050Ti 4GB + RTX 3070 W11
- HP Elite Dragonfly G2 2in1 i5-1135G7 16GB 512GB 13" FHD TouchScreen 100%sRGB 1 év garancia
- ÁRGARANCIA!Épített KomPhone i7 14700KF 32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- BESZÁMÍTÁS! ASUS TUF Z390-PRO GAMING alaplap garanciával hibátlan működéssel
- GYÖNYÖRŰ iPhone 13 Pro 128GB Graphite -1 ÉV GARANCIA - Kártyafüggetlen, MS3082
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest