- Megjött a Razer DeathAdder egerek legfrissebb nemzedéke
- Ismét minimalista miditorony érkezett a Fractal Design műhelyéből
- Alakul a SpaceX Starlink európai ellenfele
- Digital Fingerprinting: Így buktat le a böngésződ a neten - Tech Percek #18
- Prezentálta PCI Express 6.0-s SSD-vezérlőjét a Silicon Motion
- Fejhallgató erősítő és DAC topik
- Milyen CPU léghűtést vegyek?
- NVIDIA GeForce RTX 5070 / 5070 Ti (GB205 / 203)
- Házi barkács, gányolás, tákolás, megdöbbentő gépek!
- Tápokról alaposan - mélyvíz
- Amazon Kindle
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- Vezetékes FEJhallgatók
- Milyen TV-t vegyek?
- TCL LCD és LED TV-k
Ú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
- BMW topik
- Napelem
- Vékonyabb lett, jobb kamerát kapott, de az akku maradt a régi: itt a Fold7
- Motorola Moto G56 - bátyja árnyékában
- Világ Ninjái és Kódfejtői, egyesüljetek!
- CURVE - "All your cards in one." Minden bankkártyád egyben.
- Windows 11
- Szombathely és környéke adok-veszek-beszélgetek
- EAFC 25
- Ford topik
- További aktív témák...
- Asztali PC , i7 6700K , 1080 Ti 11GB , 32GB DDR4 , 500GB NVME , 500GB HDD
- Asztali PC , R5 8400F , RTX 3070 , 32GB DDR5 , 500GB NVME , 2TB HDD
- Legion Go 1TB
- Lenovo LOQ 15IRX9 - i5 13450HX, 16GB, RTX 4060 8G, 1TB M.2 (Gari: 2027.03.11.)
- LG 34WR55QK-B - 34" Ívelt VA - 3440x1440 - 100Hz 5ms - FreeSync Premium - HDR 10 - USB Type-C 65W
- Amazon Kindle 10th Generation ébresztős tok
- ÁRGARANCIA! Épített KomPhone i7 14700KF 32/64GB RAM RTX 5090 32GB GAMER PC termékbeszámítással
- BESZÁMÍTÁS! ASUS B450 R7 2700X 16GB DDR4 512GB SSD RTX 2060 Super 8GB Zalman i3 FSP 600W
- Samsung Galaxy S23PLUS 256GB Kártyafüggetlen 1Év Garanciával
- BESZÁMÍTÁS! 4TB Samsung 870 EVO SATA SSD meghajtó garanciával hibátlan működéssel
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest