Navigation

   Hej
Jeg har følgende problemstilling jeg håber i kan hjælpe med.

Jeg har et ark "Input", hvor jeg indsætter data i B7:H26. Typisk er det kun rækkerne 7-15, der bliver udfyldt.

Jeg kunne godt tænke mig at indsætte værdierne fra B7:H26 i næste tomme række i arket "Liste", men uden at den sætter 20 rækker ind uanset om der er indhold i dem eller ej.

Jeg har lige nu følgende:

Sub Test()
  Application.ScreenUpdating = False
  Dim copySheet As Worksheet
  Dim pasteSheet As Worksheet

  Set copySheet = Worksheets("Input")
  Set pasteSheet = Worksheets("List")

  copySheet.Range("B7:H26").Copy
  pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
  Application.CutCopyMode = False
  Application.ScreenUpdating = True
End Sub

Hvis muligt, så måtte den gerne indsætte indholdet i B:H i stedet for A.

På forhånd tak for hjælpen

Navigation

Kopiere celler og indsætte værdier i andet sheet