Jag har ett enkelt makro som hämtar värden från ett blad och lägger in i ett annat.
Det hämtar värden från en del lösa celler samt från området B14:I33 på blad "Försäljning"
Dessa klistras sedan in på blad "Transaktioner".
Får dock inte skriptet att fungera om det inte finns minst två rader med värden inom området.
Om det bara finns en rad med värden inom området, markerar Range(Selection, Selection.End(xlToRight)).Select
utanför det önskade området, och lever sedan rövare när det klistras in på blad "Transaktioner"
Makrot ser ut enligt följande:
------------------------------------------
Sub Makro2()
'Hämta FakturaNr
Range("H4").Select
Selection.Copy
Sheets("Transaktioner").Select
Range("K1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, -10).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
'Hämta Säljare
Sheets("Försäljning").Select
Range("B7").Select
Selection.Copy
Sheets("Transaktioner").Select
Range("K1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, -9).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
'Hämta Betaltyp
Sheets("Försäljning").Select
Range("A10").Select
Selection.Copy
Sheets("Transaktioner").Select
Range("K1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, -8).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
'Hämta Transaktioner
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
End Sub
------------------------------------------
Jag förstår vart det går fel, kan bara inte komma på hur det skall kunna acceptera endast en rad med värden.
Med vänlig hälsning
Jonny