... Como criar um IF para pecorrer toda a planilha e detectar se ela esta com a cor AMARELO e deletar essa linha?

A partir da versão 2007 as planilhas têm mais de 17 milhões de células.
Será que você realmente precisa de um código para percorrer toda a planilha ?

sugestão - disponibilize uma amostra do seu arquivo, com no máximo 10 linhas como exemplo, e informe quais as linhas a serem excluídas.

Tópico duplicado.

http://www.planilhando.com.br/forum/viewtopic.php?f=10&t=25203&p=126487#p126487

... Como criar um IF para pecorrer toda a planilha e detectar se ela esta com a cor AMARELO e deletar essa linha?

A partir da versão 2007 as planilhas têm mais de 17 milhões de células.
Será que você realmente precisa de um código para percorrer toda a planilha ?

sugestão - disponibilize uma amostra do seu arquivo, com no máximo 10 linhas como exemplo, e informe quais as linhas a serem excluídas.

Não toda a planilha. Apenas até a ultima linha escrita, pois assim terei excluído todas as linhas em amarelo.

Teoricamente, essa planilha muda todo dia, ou seja o numero de linhas escritas mudam a cada dia. E não necessariamente as linhas amarelas vão ser as mesmas de um dia para o outro. Preciso de uma macro que identifique qual linha ficou amarela e excluir ela. Preciso que a macro percorra a planilha até a ultima linha escrita.

Boa tarde marvini,

Teste esse código:

Sub Exemplo_Deletar_Linha()
    
    ThisWorkbook.Activate
    
    Dim i       As Double
    Dim Nlin    As Double
    
    Nlin = Range("A1048575").End(xlUp).Row
    
    For i = Nlin To 1 Step -1
        
        '65535 = Amarelo desse exemplo
        If Range("A" & i).Interior.Color = 65535 Then
            
            Rows(i & ":" & i).Delete Shift:=xlUp
            
        End If
    
    Next i
    
    
End Sub

att,

Experimente:

Sub ExcluiLinhasAmarelas()
 Dim k As Long
  Application.ScreenUpdating = False
   For k = Cells(Rows.Count, 1).End(3).Row To 1 Step -1
    If Cells(k, 1).Interior.ColorIndex = 6 Then Rows(k).Delete
   Next k
  Application.ScreenUpdating = True
End Sub

Obrigado!!!