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

• #15967 poffsoft veterán D5 #15955

  Új Válasz 2013-01-03 13:24:44 #15967

  Ú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

  

  poffsoft

  veterán

  válasz D5 #15955 üzenetére

  mert a következőre utasítod:
  a bevétel vegye fel a Sheets("Munka2").Range("E4").Value értékét
  majd:
  jelölje ki a bevétel nevű range-t (ami azért nagy eséllyel nem létezik):
  Range(bevétel).Select

  

• #15956 sztanozs veterán D5 #15955

  Új Válasz 2013-01-03 09:53:26 #15956

  Ú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

  

  sztanozs

  veterán

  válasz D5 #15955 üzenetére

  Miért kell Range(bevétel)? A bevétel-nek már magában is Range típusúnak kell legyen...

  Hogy definiálod a bevétel változót?

  Csináld inkább ezt:
  Sheets("Alap").Range("G9").Copy
  Dim bevétel as Range
  Set bevétel = Sheets("Munka2").Range("E4")
  bevétel.Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  :=False, Transpose:=False

  Vagy még egyszerűbben:
  Sheets("Alap").Range("G9").Copy
  Sheets("Munka2").Range("E4").Select
  Selection.PasteSpecial Paste:=xlPasteValues

  Amúgy nem árt leellenőrizni, hogy mi az aktív workbook, ha nem az, amire számítasz (nincsenek ilyen Worksheet-ek rajta), azon is simán elhasal - vagy mást csinál, mint amit szeretnél...

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