cellen kopieren indien ze niet leeg zijn

[atila1977]

In 1ste tab heb ik een kollom met cijfers ,deze moeten gekoppieerd worden naar tab 2
lege cijfers moeten overgelagen worden bij het kopieren naar tab2
in tab2 wil ik deze ook onder elkaar zonder lege ruimtes.
wat belangrijk is dat de waardes voor de cijfers meegekopieerd worden


VB: tab 1

wit 1
bruin 4
zwart 0
geel 4
paars 0
oranje 5

Tab 2

wit 1
bruin 4
geel 4
oranje 5

hier op de forum is al een deel oplossing ,hier worden cellen gekopieerd en lege overgeslagen,alleen lukt het mij niet om de kleuren mee te kopieeren

http://www.helpmij.nl/forum/showthread.php/523705-waardes-kopieren-zonder-lege-cellen
(OPlossing WHER)


kan iemand mij helpen ,
alvast bedankt .
gegroet

 

[HSV]

In een standaard module.

Sub tst()
  Dim cl As Range
   With Sheets("Sheet1")
For Each cl In .Range("A1:A" & .Cells.SpecialCells(xlCellTypeLastCell).Row)
   With Sheets("Sheet2")
    If cl <> "" Then
     cl.Copy .Cells(.Rows.Count, 1).End(xlUp).Offset(1)
    End If
   End With
  Next
 End With
End Sub