VBA Object Required error

FLOC - hvad er det?

FLOC og FLOC_Doc_Relation er bare ark navne.

Sheets(FLOC).

Tak for det, det ændrede så error til "Subscript out of range"
og det kan jeg ikke helt forstå for navnet på arket er skrevet på præcist samme måde ?

Glemte "
Sheets("FLOC").

Tak for det, det hjalp på subscript fejlen :)

Nu virker scriptet som sådan.
Men af en eller anden grund får jeg ikke alle relationerne med. Er der noget i min kode der kunne antyde at den vil springe nogle kolonner over ?

Min kode som den er nu:

Private Sub Relation_List()
Dim hjEndRow As Long

Set FLOC = ThisWorkbook.Sheets("FLOC")
Set FLOC_Doc_Relation = ThisWorkbook.Sheets("FLOC_Doc_Relation")
hjEndRow = 1

        For mCol = 1 To 500
       
        If FLOC.Cells(10, mCol).Value = "x" Or FLOC.Cells(10, mCol).Value = "y" Or FLOC.Cells(10, mCol).Value = "xy" Then
                FLOC_Doc_Relation.Cells(hjEndRow, 1).Value = FLOC.Cells(3, mCol).Value
                FLOC_Doc_Relation.Cells(hjEndRow, 2).Value = FLOC.Cells(10, 2).Value
                FLOC_Doc_Relation.Cells(hjEndRow, 3).Value = FLOC.Cells(10, mCol).Value
                   
                    hjEndRow = hjEndRow + 1
            Else
            GoTo lastline
            End If
lastline:
            mCol = mCol + 1
           
        Next

End Sub

Nogle bud ?

Prøv at steppe gennem koden med F8 - så vil det måske afsløres.

LUKKET