Logistiek
Gebruiker
- Lid geworden
- 8 okt 2008
- Berichten
- 74
onlangs heb ik van het helpmij form een marco gehaald en die werk opzich prima maar als je en nog een keer op klikt gaat hij voor de 2e keer allers weer in vullen is hier iets tegen toe doen ???
Sub macro1 ()
Dim rng As Range
Dim y As Long
With Sheets(1)
For Each rng In .Range("D247")
If rng = "x" Then
y = Sheets(5).Cells(Rows.Count, "B").End(xlUp).Row + 1
rng.Offset(, -3).Resize(, 3).Copy
Sheets(5).Range("B" & y).PasteSpecial xlPasteValues
End If
Next rng
Application.CutCopyMode = False
End With
end sub
Sub macro1 ()
Dim rng As Range
Dim y As Long
With Sheets(1)
For Each rng In .Range("D247")
If rng = "x" Then
y = Sheets(5).Cells(Rows.Count, "B").End(xlUp).Row + 1
rng.Offset(, -3).Resize(, 3).Copy
Sheets(5).Range("B" & y).PasteSpecial xlPasteValues
End If
Next rng
Application.CutCopyMode = False
End With
end sub