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

• #28650 elttiL senior tag m.zmrzlina #28647

  Új Válasz 2015-09-16 14:19:32 #28650

  Ú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

  Privát üzenet küldése

  

  elttiL

  senior tag

  válasz m.zmrzlina #28647 üzenetére

  Köszönöm a fáradozást. A tök üres táblát úgy értettem, hogy nyitottam egy teljesen üreset, hogy próbálgassam. Beírtam A oszlopba valahova a keresendő szöveget. Így próbáltam.
  Biztos rosszul fogalmaztam. Egyszerűsítsünk: beillesztési pont=xxx Az A oszlopban tetszőleges helyen lehet az xxx. A vágólapra kitett táblázat: beillesztés után a bal felső cellájának a helyének kell lennie az xxx-et tartalmazó cellának (tehát felülírjuk a beillesztett táblával).A beillesztett táblázat utolsó A oszlop eleme az xxx tartalom. Így az új beillesztett táblázat beilleszthető arra pontra. (és csak egy darab xxx tartalmú cella lesz az A oszlopban.
  Z
  Update: Nem, Te segítőkész vagy. csekkolom a patch-et...

• #28648 m.zmrzlina senior tag m.zmrzlina #28647

  Új Válasz 2015-09-16 13:55:42 #28648

  Ú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

  Privát üzenet küldése

  

  m.zmrzlina

  senior tag

  válasz m.zmrzlina #28647 üzenetére

  De ha így próbálod meghatározni az utolsó sort az is működhet.

  Sub beilleszt()
  holavege = Range("A" & Rows.Count).End(xlUp).Row
  Worksheets("Munka1").Range("A" & holavege).PasteSpecial Paste:=xlPasteAll
  End Sub

  Ez persze csak akkor működik, ha a Beillesztési pont mindig az A oszlop legutolsó cellájában van.

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