automatisch bestelformulier

[jurg1505]

Graag wil ik een automatisch bestelformulier van een prijslijst maken.
Als ik in kolom G dan de gewenste aantallen invoer, dat dan die rij gekopieerd wordt naar een ander tabblad.


Nu ben ik te lang bezig met knippen en plakken

 

[Warme bakkertje]

Bij gebrek van een voorbeeldbestand kan je deze zelf aanpassen naar je huidige situatie

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 7 Then
    Sheets("Blad2").[A65536].End(xlUp).Offset(1).EntireRow = Target.EntireRow.Value
End If
End Sub

 

[jurg1505]

Dunk U voor de code,

Hoe kan ik de code aanpassen zodat niet de gehele rij gekopieerd wordt maar bv A,B,C,E ?

 

[Warme bakkertje]

Nog steeds op goed geluk

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 7 Then
    With Sheets("Blad2").[A65536].End(xlUp)
        .Offset(1).Resize(, 3) = Range("A" & Target.Row).Resize(, 3).Value
        .Offset(1, 4) = Range("E" & Target.Row).Value
    End With
End If
End Sub