Just nu i M3-nätverket
Gå till innehåll

Makroproblem - igen


balnoj
 Share

Rekommendera Poster

Vill börja med att säga att jag startade en annan tråd tidigare som jag lyckades markera som "Solved" :(

Förutsätter att jag blir tillrättavisad om jag ändå skulle ha fortsatt i den tråden.

 

Makrot fungerar som jag vill förutom den lilla detaljen, att om jag bara har en rad med värden i området som skall kopieras,
blir markeringen och därmed efterföljanade inklistring utanför sina områden. 

Har jag däremot minst två rader med värden fungerar det perfekt.

 

Koden:

 

Sheets("Försäljning").Select
    Range("B14").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Transaktioner").Select
    Range("K1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, -7).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Range("A1").Select

 

När jag stegar fram i makrot ser det ut som att det går fel vid rad 4: Range(Selection, Selection.End(xlToRight)).Select, just när det bara finns en post

 

Med vänlig hälsning

 

Jonny

Länk till kommentar
Dela på andra webbplatser

Har testat med en variant där jag valt det specifika område som skall kopieras: Range("B14:I33").Select

Sheets("Försäljning").Select
    Range("B14:I33").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Transaktioner").Select
    Range("K1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, -7).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=True, Transpose:=False
    Range("A1").Select

 

Men då klistrar den in tomma rader så datasamlingen blir extremt fragmenterad.

Excelklipp.png

Länk till kommentar
Dela på andra webbplatser

 Share

×
×
  • Skapa nytt...