Just nu i M3-nätverket
Jump to content

Makroproblem - igen


balnoj
 Share

Recommended Posts

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

Link to comment
Share on other sites

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

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share



×
×
  • Create New...