Avanceret liste funktion?

Ikke helt forstået?, kan du beskrive det anderledes. Hvad mener du med spring over? :o)

nu har jeg forstået det!! :o), men har ikke lige nogen simple løsning

Du kan gøre det med følgende kode:

**************************
Public Sub SetFormulas()
    Dim objWS As Worksheet
    Dim objFormulaWS As Worksheet
    Dim objColumn As Range
    Dim objCell As Range
    Dim i As Long
    Dim j As Integer
    Dim k As Integer
   
    Set objWS = Sheets(1)
    Set objFormulaWS = Sheets(2)
    Set objColumn = objWS.Columns("A:A")
   
    j = 1
   
    For i = 1 To objColumn.Cells.Count
        Set objCell = objColumn.Cells(i, 1)
        If objCell.Value <> "" Then
            objFormulaWS.Cells(i, 1).Formula = "=" & objWS.Name & "!A" & j
            j = j + 3
            k = k + 1
            If k = 3 Then
                k = 0
                j = j - 8
            End If
        Else
            Exit For
        End If
    Next i
   
    Set objWS = Nothing
    Set objFormulaWS = Nothing
    Set objColumn = Nothing
    Set objCell = Nothing
End Sub
****************