Print side | Luk vindue

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

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=4702
Udskrevet den: 22.Nov.2024 kl. 17:16


Emne: Kopiere celler og indsætte værdier i andet sheet
Besked fra: NikolaiJ
Emne: Kopiere celler og indsætte værdier i andet sheet
Posteringsdato: 23.Mar.2022 kl. 15:00
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


Print side | Luk vindue