probleem variabel bereik kopiëren voor jaaroverzicht

Status
Niet open voor verdere reacties.
R

rrtz

Gebruiker
Lid geworden
15 apr 2015
Berichten
5
Ik zit met het probleem dat het mij niet lukt om een variabel bereik te selecteren, die de data telkens op een blad jaaroverzicht kopieert volgens jaar.

vb op blad 1

1/03/2015 blabla
5/03/2015 fzfzf
4/02/2014 ezfz
6/04/2015 zzffz

op blad jaaroverzicht

2015
1/03/2015 blabla
5/03/2015 fzfzf
6/04/2015 zzffz

2014
4/02/2014 ezfz
 
hoe ziet het eruit ?
hoe moet het worden ?
waar loop je vast ?

deze 3 in een voorbeeld doet wonderen


mvg

Leo
 
Private Sub kopieerBereik_Click()
Dim bereik As Range
Dim van As Integer
Dim tot As Integer


Worksheets("rekening 1").Activate
van = 2
Cells(van, 1).Select
If Not IsEmpty(Cells(van, 1)) Then
tot = Cells(2, 1).CurrentRegion.Rows.Count
Set bereik = Range(Cells(van, 1), Cells(tot, 5))
bereik.Copy
Worksheets("jaaroverzicht").Activate
ActiveSheet.Paste
End If
End Sub[/LEFT][/RIGHT][/CENTER]

dat is de code.
ik kan dus het variabel bereik al selecteren, maar met die jaartallen zit ik toch nog in de problemen.
 
rrtz,

Maak twee tabbladen met het jaaroverzicht een met de naam "jaaroverzicht 2014" en een met "jaaroverzicht 2015" en
gebruik dan onderstaande macro.

Code: 
Private Sub kopieerBereik_Click()
Dim CurrCel As Range

Worksheets("rekening 1").Activate
For Each CurrCel In Range("A2:A20000")
    If CurrCel = "" Then
        Exit Sub
    Else
        CurrCel.Resize(1, 2).Copy (Sheets("Jaaroverzicht " & _
            Year(CurrCel.Value)).Range("A100000").End(xlUp).Offset(1, 0))
    End If
Next
End Sub

Veel Succes.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan