Macro til Excel 2007

En simpel løsning ville være at placere markeringen i den første celle og så ellers lave et loop der tester cellens værdi og hvis det ikke er den rigtige, så hopper til næste celle.

Det kunne se således ud.

    Range("A1").Select
    Do While ActiveCell.Value() <> "TestVærdi"
        ActiveCell.Offset(1, 0).Range("A1").Select
    Loop

Hej Wally73

Jeg kan desværre ikke få det til at fungere, kan du uddybe hvorledes jeg skal udfylde mine refferencer?

Her er min midlertidige macro:

U9 er start cellen for mine data jeg skal have kopieret, men jeg kan ikke få do-loop funktionen til at finde den specifikke måned hvor den skal kopiere dataerne ind?
de tre celler fra U18 til W18 er pt. månederne hvori den skal finde den rigtige måned.
og R8 cellen er der hvor den specifikke måned står, (denne vil skifte i næste måned)


Range("U9").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Range("U18:W18").Select
    Do While ActiveCell.Value() <> "R8"
    ActiveCell.Offset(0, 1).Range("U18").Select
    Loop
    ActiveSheet.Paste
End Sub

Sub Wally73()

    Range("U9").Select  ' Sætter U9-cellen til at være aktiv.
    Range(Selection, Selection.End(xlDown)).Select ' Markerer fra den aktive celle og resten af kolonnen nedad.
    Selection.Copy ' Kopierer markeringen.

    Range("R8").Select ' Sætter R8-cellen til at være aktiv.
    TestValue = ActiveCell.Value() ' Henter værdien fra den aktive celle og gemmer den i en variable.

    Range("U18").Select ' Sætter U18-cellen til at være aktiv.

    Do While ActiveCell.Value() <> TestValue ' Tester indtil den aktive celle er lig med værdien i variablen. Den tester indtil den finder den rigtige værdi eller indtil enden på arket nås og der opstår en fejl, så udbyg evt. med en tæller-funktionalitet for at gør den mere sikker mod fejl.
        ActiveCell.Offset(0, 1).Range("A1").Select ' Skifter den aktive celle til cellen til højre.
    Loop ' Gentager hvis betingelsen ikke er opfyldt.

    ActiveSheet.Paste ' Indsætter de kopierede celler.

End Sub

Allerede besvaret andet sted

helt ok. Du vender bare tilbage, hvis det bliver nødvendigt. :)