flytte en linje fra et ark til en andet via vba

Hvis du sender et lille uddrag af filen - så skal jeg se på det.

@-adresse under profil.

ps.: der er vist nogle svar der venter på "afslutning"

VBA-koden kan anbringes under arket Åbne

Dim arkÅ As Worksheet, rækÅ As Long, antalRækÅ As Long
Dim arkL As Worksheet, rækL As Long
Public Sub overførJaRækker()
    Set arkÅ = ActiveWorkbook.Sheets("Åbne")
    Set arkL = ActiveWorkbook.Sheets("Lukkede")
   
    antalRækÅ = findAntalRæk(arkÅ)
    rækL = findAntalRæk(arkL) + 1
   
    arkÅ.Select
   
    Application.ScreenUpdating = False
   
    For rækÅ = 1 To antalRækÅ
        If LCase(Range("F" & CStr(rækÅ))) = "ja" Then
            Rows(rækÅ).Select
            Selection.Copy
            indsætIlukkede
                     
            arkÅ.Select
            Selection.Delete Shift:=xlUp
            rækÅ = rækÅ - 1
        End If
    Next rækÅ
   
    Application.ScreenUpdating = True
    arkÅ.Select
End Sub
Private Function findAntalRæk(arkNavn)
    arkNavn.Select
    findAntalRæk = ActiveCell.SpecialCells(xlLastCell).Row
End Function
Private Sub indsætIlukkede()
    arkL.Select
    ActiveSheet.Rows(CStr(rækL) & ":" & CStr(rækL)).Select
    Selection.Insert Shift:=xlDown
    Application.CutCopyMode = False
   
    rækL = rækL + 1
End Sub

Den virker lige som jeg ønskede.
Mange tak.

Det ark jeg har dataene liggende i har jeg en del små makroer som jeg inddelt i forskellige "modules" så jeg nemt kan finde frem til dem.

Som koden er skrevet her skal den gemmes under arket Åbne.
Kan man rette den til, så den kan gemmes under et "module" i stedet?

selv tak - når du har accepteret - så retter jeg til det ønskede..

Sorry... :-)
Tak for hjælpen.

ok - selv tak - vender tilbage..

Har prøvet at flytte til et module og afvikle koden uden problemer...

Ja, det gør den også ved mig.

Havde slet ikke testet det, da jeg var helt sikker på at når der var noget med "private sub", så skulle koden være direkte i arket.

Men det viser jo bare at jeg ikke har den helt grundlæggende forståelse for vba-kode.

Beklager ulejligheden.

Læg mærke til at kodens hovedprocedure er "Public" - denne kan ses fra selve arket (Alt+F8) mens "Private" Sub og Funtion - kun anvendes inden for "egne rammer".