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

• #24878 Fferi50 Topikgazda Wyll #24877

  Új Válasz 2015-01-06 12:43:34 #24878

  Ú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

  

  Fferi50

  Topikgazda

  válasz Wyll #24877 üzenetére

  Szia!

  Azért mégis próbáld meg a beillesztéses verziót a következőképpen:
  kitoltendo.Select
  ActiveSheet.Paste link:=True
  Ennek így működnie kell.

  Az én verzióm ilyen esetekre akkor működik, ha a forrás cellák és a cél cellák címei megegyeznek a két munkalapon (azaz pl A1:H1 mindkét lapon).
  Ha ez nem így van, akkor a következőt javaslom:

  kitoltendo.cells(1,1).formula="=" & dstbook.WorkSheets(1).range("KELL").cells(1,1)address(external:=true,rowabsolute:=false,columnabsolute:=false)
  kitoltendo.formula=kitoltendo.cells(1,1).formula

  Ez azért jobb szerintem, mint a copy mert nem használja a vágólapot.

  Üdv.

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