VBA
HejJeg er klart ikke nogen ørn til VBA men forsøgte alligevel med hjælp fra AI at få lavet en kode der skulle gøre dette:
Slette første række i faneblad Page001 kolonde A der indeholder "Serial number" og hvor cellen i kolonde C ikke er tom. Derefter gå til faneblad "Verificering" celle A1.
Desværre kommer der en boks op når jeg forsøger at køre koden.
Boksen hedder Gå til: Page001 og spørger efter en reference???
Der er 2 faner: Page001, og Verificering. Hvad har jeg gjort galt?
Koden ser sådan her ud:
Sub SlettFørsteRadOgGåTilA1()
Dim ws As Worksheet
Dim lastRow As Long
Dim i As Long
'Sletter første linje i Page001 som oppfylder kriterierne
Set ws = ThisWorkbook.Worksheets("Page001")
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
For i = 1 To lastRow
If InStr(ws.Cells(i, "A"), "Serial number") > 0 And Not IsEmpty(ws.Cells(i, "C")) Then
ws.Rows(i).Delete
Exit For
End If
Next i
'Gå til A1 i Verificering
ThisWorkbook.Worksheets("Verificering").Activate
Range("A1").Select
End Sub
