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

• #12875 Cufter tag Delila_1 #12874

  Új Válasz 2012-02-10 15:41:56 #12875

  Ú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

  

  Cufter

  tag

  válasz Delila_1 #12874 üzenetére

  Közben sikerült ennyit összeszedni:

  Sub masol()
  Sheets("Számolás").Range("F29").Copy
  Sheets("Cégek").Activate
  Range("a65536").End(xlUp).Offset(1, 0).Activate
  Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
  True, Transpose:=False
  Application.CutCopyMode = False
  Sheets("Számolás").Activate
  Range("a1").Select
  End Sub

  Ez már a fix cellákat és az értékeket másolja, így az megoldva.
  Már csak tényleg az hiányzik, hogy az értékeket(4db cella) ne egymás alá tegye, hanem egymás mellé. Aztán a következő futásnál már új sort töltsön fel újra egymás mellé téve a cellákat.

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