Rij wegschrijven

[danny147]

Beste,

Ik gebruik volgende code om een rij met een voorwaarde weg te schrijven
Nu zou ik willen dat de eerste 19 cellen worden weggeschreven in plaats van de volledige rij

Sub Rest_aanvullen()
   Dim c As Range
   
   For Each c In [T2:T200]
        If c = 1 Then
            c.Rows.EntireRow.Copy
            ['Kress1'!A65536].End(xlUp).Offset(1, 0).PasteSpecial xlPasteAll
        End If
    Next
    
End Sub

 

[edmoor]

Wijzig:

c.Rows.EntireRow.Copy

Eens in:

Range("A" & c.Row & ":T" & c.Row).Copy

Of dit:

Sub Rest_aanvullen()
   Dim c As Range
   
   For Each c In [T2:T200]
        If c = 1 Then
            ['Kress1'!A65536].End(xlUp).Offset(1, 0) = Range("A" & c.Row & ":T" & c.Row).Value
        End If
    Next
End Sub

 

[danny147]

Bedankt edmoor :thumb:

 

[HSV]

Niet echt Ed.

['Kress1'!A65536].End(xlUp).Offset(1, 0)[COLOR=#ff0000].resize(,19) [/COLOR]= Range("A" & c.Row & ":T" & c.Row).Value

Of:

sheets("kress1").cells(rows.count,1).End(xlUp).Offset(1, 0).resize(, 19) = cells(c.Row,1).resize(,19).Value

Of:

[FONT=monospace][COLOR=#0000ff]cells([/COLOR][/FONT][COLOR=#3E3E3E][FONT=monospace]c[/FONT][/COLOR][COLOR=#0000FF][FONT=monospace].[/FONT][/COLOR][COLOR=#3E3E3E][FONT=monospace]Row,1).resize(,19)[/FONT][/COLOR][COLOR=#0000FF][FONT=monospace].[/FONT][/COLOR][COLOR=#0000FF][FONT=monospace][URL="http://www.php.net/copy"]Copy[/URL] sheets("kress1").cells(rows.count,1).end(xlup).offset(1)[/FONT][/COLOR]

Of waarom geen filter op kolom T.

[CODE]Sub Rest_aanvullen()
   with cells(1).currentregion
    .autofilter 20, 1
    .offset(1).resize(,19).copy sheets("kress1").cells(rows.count,1).end(xlup).offset(1)
    .autofilter
 end with
End Sub

[/CODE]