Hej alle

Jeg har den udfordring at første gang jeg åbner regnearket og blot taster en enkelt celle eller flere i området (A8:J8) udfører den resten af koden. Dette skal den ikke!

Efter første gang at have kørt makroen så virker koden efter hensigten forstået på den måde at hvis ALLE cellerne i området (A8:J8) er udfyldte så fungere den kun og dermed efterhensigten.

Det skal gerne være sådanne at første gang man åbner regnearket at den kun vil køre resten af koden hvis alle cellerne er udfyldte i området (A8:J8).

Håber i kan hjælpe

Her følger VBA koden:

Sub Makro1()
Dim Cell As Range, CanContinue As Boolean

CanContinue = True
For Each Cell In Range("A8:J8")
If Cell.Value = "" Then CanContinue = False
Next Cell
If CanContinue Then

Sheets("Indtast").Unprotect "f10"

Range("A8:J8").Copy

Rows("11:11").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    
Range("A11:J11").Select
ActiveSheet.Paste

Range("A8:J8").Select
    Selection.ClearContents

Application.CutCopyMode = False

Rows("11:11").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Locked = True
    Selection.FormulaHidden = False
       
Sheets("Indtast").Protect "f10"

Range("L5").Select

End If

End Sub

Dette er faktisk et nyt spørgsmål (forbundet med spørgsmålet i den anden tråd og burde have været fortsat der), men jeg forstår det desværre ikke, så ikke meget hjælp herfra.