nickfysiek
Gebruiker
- Lid geworden
- 27 jan 2010
- Berichten
- 12
ik heb volgende code hier op dit forum gevonden:
Sub februari()
Dim x As Long
Dim y As Long
Dim c As Variant
x = Sheets("Steve Dedeine").Cells(Rows.Count, "A").End(xlUp).Row
y = 1
For Each c In Range("C5:C1000")
If c = "feb" Or c = "X" Then
c.Rows.EntireRow.Copy Sheets("Overzicht Steve Dedeine").Range("A" & y).Offset(1, 0)
y = y + 1
End If
Next c
End Sub
Dit doet voor mij wat het moet doen, doch het volgende, de knop staat nu op het blad van waar de gegevens verzonden worden, maar ik wil de knop hebben op de plaats waar ze toekomen.
Iemand?
Sub februari()
Dim x As Long
Dim y As Long
Dim c As Variant
x = Sheets("Steve Dedeine").Cells(Rows.Count, "A").End(xlUp).Row
y = 1
For Each c In Range("C5:C1000")
If c = "feb" Or c = "X" Then
c.Rows.EntireRow.Copy Sheets("Overzicht Steve Dedeine").Range("A" & y).Offset(1, 0)
y = y + 1
End If
Next c
End Sub
Dit doet voor mij wat het moet doen, doch het volgende, de knop staat nu op het blad van waar de gegevens verzonden worden, maar ik wil de knop hebben op de plaats waar ze toekomen.
Iemand?