Cel kopieeren ipv hele rij

[Rap261]

Goedemorgen,



Onderstaadn heb ik een macro die na het vinden van een waarde de hele rij kopipeert naar een ander blad.
Omdat ik uit de gekopieerde rij niet alle kolommen nodig heb, wil ik graag dat ik zelf de kolommen kan aangeven die moeten worden gekopieerd.

bv: indien de gevonden waarde in rij 38 zit, dan alleen cel A38, B38, E38, I38 en P38 kopieren naar blad twee.
Wie kan me helpen?

Private Sub CommandButton2_Click()
    Dim zoekletter As String, EersteRij, TempRij, c As Range
    zoekletter = "N1" 'UCase("*" & TextBox2.Text & "*")

        If CheckBox1 = True Then
        
        With ActiveSheet.Range("B19:B5000")
            Set c = .Find(What:=zoekletter, After:=[B5000], LookIn:=xlValues, _
            lookat:=xlWhole, MatchCase:=False, SearchFormat:=False)
            If Not c Is Nothing Then
            EersteRij = c.Row
            Do
            c.Rows.EntireRow.Copy Sheets(5).[B65536].End(xlUp).Offset(1, -1) 'kopieert de rij naar blad 2 (offset = regel)
            Set c = .FindNext(Cells(c.Row + 1, "B"))
            Loop While Not c Is Nothing And c.Row <> EersteRij
            UserForm5.Show
            Else
            UserForm4.Show
            End If
        End With
    End If
End Sub
[code]

 

[Warme bakkertje]

Union(Cells(c.Row, 1), Cells(c.Row, 2), Cells(c.Row, 5), Cells(c.Row, 9), Cells(c.Row, 16)).Copy Sheets(5).[B65536].End(xlUp).Offset(1, -1)

 

[Rap261]

Dat is 'm Rudi, Thanks!

 

[Rap261]

Rudi,

Toch nog een vraag.
Kan ik ook de gekopieerde cellen op de juiste plek zetten?
Nu kopieerd ie de gegevens uit cel E19 naar Blad 5 C19 (hij zet de resultaten dus naast elkaar)

 

[Rap261]

Niet meer nodig..