kopiere række uden farve til andet ark

copy - paste special .. det virker fint ?!

hmm skal jeg så markere alle ikke farvede rækker og kopiere?
Synes ikke der var mulighed for at kopiere ud fra kriterier, da jeg kiggede på paste speciel.

Så kan jeg vel lige så godt lave alm copy-paste.

Hmm tror du må forklare mere ;O)

Det drejer sig om over 1100 linier jeg skal igennem.

LN

Hvordan er der (udover farven) forskel på de gule og hvide rækker ?

Jo indholdet i alle celler er forskellige.

Tænker du på noget specielt.

Der er data for over 1100 varenumre. De varenumre der ikke er farvede indeholder data fejl jeg skal undersøge nærmere.

LN

Hvis nu de gule var år 2005 og de hvide år 2006

så du kunne indsætte en kolone i A:A
Derefter lave en formel der =HVIS(B1=2005;"";1) .. og kopiere den hele vejen ned.
Så vil du i kolone A have et 1-tal ud for de hvide rækker og ikke noget udfor de gule rækker ...

(du behøver ikke at kopier rækkerne et andet sted hen, men du kan jo godt gvis du vil dette)

Også lav en liste (under data - list) på A-kolonen og i den liste kan du jo vælge none-blanks - også endelig har du kun de hvide rækker tilbage.

Nej de gule rækker  er der hvor linierne er korrekt dvs kolonne 4 = kolonne 6
Eller feks hvor der i kolonne 5 starets med 815 eller 825

LN

Prøv denne macro. Den kopierer alle rækker fra Ark5 som ikke er farvet, til Ark6.
Tilret selv dine arknavne i makroen

Sub kopierfarvederækker()
Dim værdi()

Worksheets("Ark5").Activate
rækker = Range("a65536").End(xlUp).Row
ReDim værdi(rækker, 0)

For i = 1 To rækker
If Cells(i, 1).Interior.ColorIndex = xlNone Then
værdi(antal, 0) = Cells(i, 1).Row
antal = antal + 1
End If
Next i

For j = 1 To antal - 1
Cells.Rows(værdi(j - 1, 0)).Copy _
Destination:=Worksheets("Ark6").Cells.Rows(j)
Next j

End Sub

tak for hjælpen
Har ikke testet - men jeg har noget at arbejde videre med og det er noget jeg kan bruge igen og igen

Vil du ikke have point?

LN

nå ikke ;O|

LN