Új hozzászólás Aktív témák

• Apollo17hu őstag

  #2673

  #2672 bundli

  2016-02-23 23:02:45

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Apollo17hu

  őstag

  #2672 bundli

  #2672 bundli

  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.Paste

  Ez 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!

  Első lépésben egy do while... ciklusban megszámolnám, hány cella van feltöltve az "A" oszlopban. Ezt letárolnám akár változóba, de akár valamelyik cellába ki lehetne íratni, majd ezt felhasználva az

  ActiveCell.Offset(6, 0).Range("A1").Select

  utasításban a 6-ost kicserélném az 1. lépésben meghatározott változó értékére.

Új hozzászólás Aktív témák