Tak for svar.
Jeg endte med at tage en eksisterende løsning og tilrette den til mit ark, så det virker som det skal lige nu. Den mangler dog noget funktionalitet hvis den skal bygges videre på, men det virker da lige nu :)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
Dim lastRow As Integer, lastRowOut As Integer, pasteRow As Integer
Dim wsÅbne As Worksheet, wsLøst As Worksheet
Set wsÅbne = ThisWorkbook.Sheets("Aktuelt")
Set wsLøst = ThisWorkbook.Sheets("Godkendt")
lastRow = wsÅbne.Cells(wsÅbne.Rows.Count, 2).End(xlUp).Row
' The variable KeyCells contains the cells that will
' cause an alert when they are changed.
Set KeyCells = wsÅbne.Range("G2:G" & lastRow)
If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
For i = 2 To lastRow
lastRowOut = wsLøst.Cells(wsLøst.Rows.Count, 2).End(xlUp).Row
If lastRowOut = 1 Then
pasteRow = 2
Else
pasteRow = wsLøst.Cells(wsLøst.Rows.Count, 2).End(xlUp).Row + 1
End If
If wsÅbne.Range("G" & i).Value = "GODKENDT" Then
wsÅbne.Range("A" & i & ":G" & i).Cut Destination:=wsLøst.Range("A" & pasteRow)
wsÅbne.Rows(i).EntireRow.Delete
End If
Next i
End If
End Sub
Forum start
Forummets regler
Sådan uploader du filer
Marker Accepteret løsning
Del dine regneark
Excel-regneark.dk
Betinget formattering flytter række til nyt ark
Emne funktioner
