Macro in Excel

[riezert]

Ik ben de vorige keer super geholpen dus ik probeer het nog een keer.

Ik wil graag in excel dat bij een bepaalde waarde de volledige rij naar een nieuw werkblad springt. Iemand vult bij de bestelhoeveelheid het aantal producten in.

Op het moment dat hier iets wordt ingevuld wil ik graag dat de volledige rij gekopieerd wordt naar het 2e werkblad.

Ik ben mij nu voor het eerst aan het verdiepen in macro's en heb het volgende gevonden en gebruikt. Het werkt echter niet. Heeft iemand tips?

Sub Verzenden()
Worksheets("Dagaanbieding Verzenden").Range("A7:Q250").ClearContents
Dim rij As Long
Dim n As Long
Dim src As Worksheet
Dim trg As Worksheet
Set src = Sheets("Dagaanbieding")
Set trg = Sheets("Dagaanbieding Verzenden")

Application.ScreenUpdating = False
rij = trg.[A100].End(xlUp).Row
For n = 1 To Blad1.[A100].End(xlUp).Row
If Cells(n, "E").Value = "1" Then
Range(Cells(n, "A"), Cells(n, "Q")).Copy
trg.Cells(rij, "A").PasteSpecial
rij = rij + 1
End If
Next
End Sub


Groet,

Riezert

[Angeloonie]

Los van het oplossen, met een simpele "het werkt niet" schieten we hier natuurlijk niets op. Wát werkt niet, waar gaat het fout?

[TheVMaster]

Excel is nog steeds geen Windows Client >>MOVE>>CSA