Gentage makro i regneark

Hej Denero

Prøv om følgende vil virke for dig ??


Sub LøbNedGennemKolonneL
Dim rCell As Range
Dim r As Integer

'sæt r = sidste række i kolonne L indeholdende data
r = Sheets("1").Range("L65536").End(xlUp).Row

'for hver celle i kolonne L fra række 1 til sidste række med data
For Each rCell In Sheets("Sheet1").Range("L1:L" & r)

'vælg den aktuelle celle
rCell.select
   
Selection.Find(What:="x", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Select
   
    Selection.EntireRow.Select
    Selection.Cut
    Sheets("2").Select
    Range("A10000").Select
    Selection.End(xlUp).Select
    Selection.Offset(1, 0).Select
    ActiveSheet.Paste
    Sheets("1").Select
    Selection.Delete Shift:=xlUp
    Range("A1").Select


Next


End Sub




Med venlig hilsen, Nicolai

Hej Igen

Sættenissen er tidlig på spil i år :o)
Prøv lige denne her ...


Sub LøbNedGennemKolonneL
Dim rCell As Range
Dim r As Integer

'sæt r = sidste række i kolonne L indeholdende data
r = Sheets("1").Range("L65536").End(xlUp).Row

'for hver celle i kolonne L fra række 1 til sidste række med data
For Each rCell In Sheets("1").Range("L1:L" & r)

'vælg den aktuelle celle
rCell.select
   
Selection.Find(What:="x", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Select
   
    Selection.EntireRow.Select
    Selection.Cut
    Sheets("2").Select
    Range("A10000").Select
    Selection.End(xlUp).Select
    Selection.Offset(1, 0).Select
    ActiveSheet.Paste
    Sheets("1").Select
    Selection.Delete Shift:=xlUp
    Range("A1").Select


Next


End Sub


Med venlig hilsen, Nicolai

Prøv at teste denne, indsat i et modul:

Til store-morten,

bliver ErrorHandle: i din kode eksekveret automatisk ved fejl, eller kræver den en On Error GoTo ErroHandle først?

Nej, der mangler en linie...



Godt set, Thorp.

Hej Nicolai

Dit forslag genererer flg fejl.:
Run time error 91

Objekt variable or with block variable not set.

Hej Store Morten

Har prøvet dit forslag af, men det når kun til at markere "første forekomst af "x" med tilhørende linje.

Jeg har koblet store-mortens og lalocins forslag med en for i next loop i stedet for en for each loop. Det er vigtigt at der også er data i kolonne A i sheet 2, da denne bestemmer hvor linje indsættes.

Sub testTHIS()

Dim MyRange As Range
Dim r As Integer, i As Integer

On Error GoTo ErrorHandler

r = Sheets("1").Range("L65536").End(xlUp).Row

Sheets("1").Select
    Set MyRange = Columns("L:L")
   
    n = 1
    For i = 1 To r
   
    MyRange.Select
   
    Selection.Find(What:="x", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Select
   
    Selection.EntireRow.Select
    Selection.Cut
    Sheets("2").Select
    Sheets("2").Range("A10000").Select
    Selection.End(xlUp).Select
    Selection.Offset(1, 0).Select
    ActiveSheet.Paste
    Sheets("1").Select
    Selection.Delete Shift:=xlUp
    Range("A1").Select
   
    Next

Beforeexit:

Exit Sub

ErrorHandler:

Resume Beforeexit

End Sub

Prøv denne:
Jeg brugte: "Sheets(2).Select" i stedet for "Sheets("2").Select"
Men det kræver at det vittelig er Ark2 der er døbt "2"

Minus: sletter ikke rækker på Ark1

Hej Morten

Den sidste du sendte virker, men den tager ikke alle forekomster(linjer) af "x" med.
Fint med at lade kol l bestemme indsætningspunkt for flyttede data, da der jo altid vil være data i den række.

Har du x og X ?

Nej, det havde jeg i første omgang (kan man gøre noget ved det?).

Hvis jeg "kører" makroen flere gange, bliver alle forekomster flyttet. Der er ikke rigtig noget mønster i, hvor mange der bliver taget med ved hver kørsel.

Hvis der er to x'er lige efter hinanden, så bliver den næste i rækken sprunget over, da række n+1 bliver række n og den aktive række slettes.

Selection.Delete Shift:=xlUp

kan evt. løses med en sekundær tæller.

øh - det må du lige forklare eller hvad gør jeg. Jeg mener jeg prøvede, at stille alle efter hinanden og der tog den heller ikke alle med? Ikke helt sikker.

Store-Morten anvender en "For i=1 to Start .....Next løkke, til at gennemløbe rækkerne i kolonne L.

Hvis eksempelvis i =10 så tjekker koden værdien af L10 og hvis det er et "x" så flyttes rækken til det andet ark og linjen slettes. Men hermed bliver række 11 jo til række 10. Når koden når til Next så tæller i op til 11 og værdien i L11 tjekkes, men hvis den tidligere række 11 indeholdt et "x" så bliver den jo ikke tjekket, da den nu er række 10 og dermed springes der over.

Prøv:

Eller lidt kortere ( + Kommentar):

Det virker.

Nicolai, Store Morten og Torp er et stjerneeksempel på godt samarbejde, når man har brug for hjælp. Ligger i et svar alle 3.

Tak for hjælpen!

svar

Velbekomme

Hej, hvad skete der lige der. Troede at jeg kunne give point til jer alle, har ikke med vilje afvist Stor Morten. Mangler svar fra Nicolai.

Hej Denero

Ingen sure miner herfra :o)
Godt du fik løst dit issue ...

Med venlig hilsen, Nicolai

Hej Nicolai
Alligevel - tak for hjælpen.