niet de rij kopiëren maar een selectie

[Joske2000]

Hallo Iedereen,

Ik heb de volgende VBA code die gegevens kopieert naar een ander werkblad.
Momenteel copieert hij de volledige rij.
Ik heb echter maar de gegevens nodig van kolom D tot kolom F.
Hoe kan ik dit aanpassen ?

Thx,

Joske

Sub ToCopy()
    Dim r As Range
    For Each r In Range("A25:A38")
        If r.Value > 0 Then
            r.Target.EntireRow.Copy
    Sheets("sales").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
    End If
    Next
End Sub

 

[Joske2000]

Ja, daar was ik mee aan het stoeien sinds deze morgen, maar ik kom er niet uit !

 

[danny147]

Beste Joske2000

Probeer deze eens.

Public Sub Wegschrijven()
Dim cl As Range
  For Each cl In Sheets("Blad1").Range("A25:A38")
    If cl.Value > 0 Then cl.Offset(, 3).Resize(, 3).Copy Sheets("Blad2").Cells(Rows.Count, 1).End(xlUp).Offset(1)
    'Voor 4 cellen weg te schrijven, verander Resize (, 3) in Resize (,4)
  Next
End Sub

Groetjes Danny. :thumb:

 

[Joske2000]

Bedankt Danny,

werkt als een trein !

Joske :thumb: