• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

automatisch bestelformulier

Status
Niet open voor verdere reacties.

jurg1505

Gebruiker
Lid geworden
2 feb 2008
Berichten
14
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
 
Laatst bewerkt:
Bij gebrek van een voorbeeldbestand kan je deze zelf aanpassen naar je huidige situatie
Code:
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
 
Dunk U voor de code,

Hoe kan ik de code aanpassen zodat niet de gehele rij gekopieerd wordt maar bv A,B,C,E ?
 
Nog steeds op goed geluk
Code:
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
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan