Select Where syntax

if Range("I20") = "" And .ColorIndex = 34  = "" And Range("I20").Interior.ColorIndex = 34

If Range("I20") = "" And Range("I20").Interior.ColorIndex = 34 Then
Range("I20").Insert Shift:=xlDown
End If

skulle det være :-;-))

tak, hvad hvis jeg ikke kender Range? men bare vil søge hele sheetet igennem for om de er tomme eller har en baggrundsfarve. Kopiere dem, og ligge dem længere ned på siden?

Denne finder de celler i I kolonnen, der ingen værdi hat og hvor baggrundsfarven er 34.
hvis det er opfyldt, indsætter den en tom linje.

Public Sub test()
    Dim RW As Long, I As Long
    RW = ActiveSheet.UsedRange.Rows.Count ' tæller antal brugte rækker i arket
    For I = RW To 1 Step -1
        If Cells(I, "I") = "" And Cells(I, "I").Interior.ColorIndex = 34 Then
            Rows(Cells(I, "I").Row).Insert Shift:=xlDown
        End If
    Next
End Sub


Du skriver videre
"Kopiere dem, og ligge dem længere ned på siden?"

hvad mener du ??

F.eks Jeg har et design/opsætning, hvori jeg gerne vil have nogle linjer kopieret ind i. F.eks vil jeg gerne have kopieret alle de linjer/rows hvor der er grøn baggrund i colum B, ind efter alle de linjer hvor baggrunden er gul. For alle linjer i sheetet.

Her er en funktion, som læser baggrundsfarven, sæt den i en tom kolonne og sorter data på den.

Public Function ColorNumber(rColor As Range) As Long
    Application.Volatile
  ColorNumber = rColor.Interior.ColorIndex
End Function

Super... Kan du komme med et hurtigt eksempel? For jeg er ikke super.

Du sætter koden ind i et modul, ikke i et ark eller ThisWorkbook modul.

Vi siger du har farver i I kolonnen, så skriver du sådan i den tomme kolonne og trækker den nedad.

=ColorNumber(I2)

Her er vist den tomme kolonne række 2