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

• #29677 Polllen félisten

  Új Válasz 2015-11-30 16:35:53 #29677

  Ú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

  

  Polllen

  félisten

  Sziasztok!

  Ez a sor a változó(k) definiálása után csak akkor nem dob application defined error-t ha a Layout fül ki van választva:
  Worksheets("Layout").Range(Cells(1, 1), Cells(1, wk)).Copy Destination:=Worksheets("Summary").Range("A1")

  Ha helyettesítem egy változóval:
  Dim ws1 As Worksheet
  Set ws1 = Worksheets("Layout")
  Worksheets(ws1).Range(Cells(1, 1), Cells(1, wk)).Copy Destination:=Worksheets("Summary").Range("A1")

  Akkor pedig Type missmatch...

  Mi a helyes megoldás anélkül, hogy beírnám elé, hogy Worksheets("Layout").select?

  Még annyi, hogy az eredeti kód változó nélkül szépen lefut:
  Worksheets("Layout").Range("A1:T3").Copy Destination:=Worksheets("Summary").Range("A1")

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