data overzetten naar ander tabblad

[nickfysiek]

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?

 

[Hoornvan]

Zet op het blad een knop en verbind de macro daaraan

 

[nickfysiek]

dan doet hij niks... de knop

 

[Hoornvan]

dan doet hij niks... de knop

Heb je de macro eraan gekoppeld?

 

[danny147]

Beste nickfysiek

Heb je de namen van de tabbladen veranderd in jouw gegevens ?
En de gegevens "feb" en "X" aangepast ?

groetjes Danny. :thumb:

 

[nickfysiek]

Ik heb de code als onderstaand aangepast, dus "Steve Dedeine" is het tablad waar al mijn gegevens opstaan.
In het blad overzicht moet dus een knop komen met de maand erop. vb. als men op de knop maart drukt zoekt hij in de lange lijst "steve dedeine" alle reeksen op van maart en dan kopieert hij die naar "overzicht steve dedeine". De gegevens hier dus moeten niet steeds bewaart blijven, als iemand vb. op februari klikt moet alles vervangen worden door de gegevens voor de maand februari.

Als ik die knop nu dus op "Steve Dedeine" zet ipv het overzicht, dan gaat het wel.
Er zou ook nog een code moeten staan die alle rijen leegmaakt, vanaf A2
Heb in mijn opleiding nog geprogrammeerd, maar naast de logica, is de rest weg.

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
Sheets("Overzicht Steve Dedeine").Select
End Sub

 

[danny147]

Beste nickfysiek

Probeer deze code eens:

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
[COLOR="Red"][B]For Each c In Sheets("Steve Dedeine").[C5:C1000][/B][/COLOR]
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
Sheets("Overzicht Steve Dedeine").Select
End Sub

PS: Welke rijen moeten allemaal leeg gemaakt worden ?
Enkel de rijen die weggeschreven zijn ?

Plaats anders deze code eronder

[COLOR="Red"][B]c.Rows.EntireRow.Clear[/B][/COLOR]

Groetjes danny. :thumb:

 

[nickfysiek]

super! ca march!

trouwen om de velden leeg te maken heb ik volgende gebruikt!

Worksheets("Overzicht Steve Dedeine").Cells.ClearContents
Worksheets("Overzicht Steve Dedeine").Cells(1, 1).Value = "Overzicht Steve Dedeine februari"

ik heb al duizend keer forums gelezen, nog nooit een vraag gesteld,omdak dacht dat dat te lang duurde!

Jullie beweren het tegendeel!
Merci! echt waar!

 

[trucker10]

super! ca march!

Jullie beweren het tegendeel!
Merci! echt waar!

Meer vragen stellen , je niet inhouden ça marche aussi

 

[Warme bakkertje]

Sub februari()
With Sheets("Overzicht Steve Dedeine")
    .UsedRange.ClearContents
    .Cells(1, 1).Value = "Overzicht Steve Dedeine februari"
End With
With Sheets("Steve Dedeine")
    For Each c In .Range("C5:C" & .Cells(Rows.Count, 1).End(xlUp).Row)
        If c = "feb" Or c = "X" Then
            c.Rows.EntireRow.Copy ['Overzicht Steve Dedeine'!A65536].End(xlUp).Offset(1)
        End If
    Next c
End With
End Sub