25. november 2014 - 21:19Der er
2 kommentarer og 1 løsning
Flyt rækker fra 1 regneark til flere med vba
Hej,
Nedenstående VBA kode bruges til at finde bestemte værdier i kolonne A i arket "8 nov" og flytte linjerne over i separate ark navngivet efter værdien i kolonne A.
Den første del af koden flytter overskriften, den næste linjerne.
Udfordringen, som jeg gerne vil have hjælp til, er:
1. at jeg gerne vil have formateringen fra arket "8 nov" med over i de andre ark, og jeg kan ikke få det til at virke med copy.destination.
2. hvis en af cellerne i en række er tomme, flyttes værdierne i de efterfølgende kolonner ikke med over.
For Each wks In ActiveWorkbook.Worksheets If wks.Name <> "8 nov" Then Worksheets("8 nov").Range("A1", Range("A1").End(xlToRight)).Copy Destination:=Worksheets(wks.Name).Range("A1")
End If Next
For Each C In Range("A2", Range("A2").End(xlDown)) arknavn = C.Value
For Each wks In ActiveWorkbook.Worksheets Dim Navn As String, C As Range, ArkNavn As String, RW As Long If wks.Name <> "8 nov" Then Navn = wks.Name Worksheets("8 nov").Rows(1).Copy Worksheets(wks.Name).Range("A1") End If Next With Worksheets("8 nov") RW = .Range("A1").End(xlDown).Row For Each C In .Range("A2:A" & RW) ArkNavn = C.Value RW = Worksheets(ArkNavn).Range("A65536").End(xlUp).Offset(1, 0).Row Worksheets("8 nov").Rows(C.Row).Copy Worksheets(ArkNavn).Range("A" & RW)
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.