Este fórum está sendo desativado

[Laertenovoa]

Preciso de um código que identifique as células que contenham um "ok" na coluna G e limpe as células das colunas C, D, E, H e J dessa linha.

Quando essas células forem limpas, a linha ficará em branco e as células que estejam preenchidas (que não continham o "ok") precisam subir para o lugar das que foram limpas.

Não tenho muito conhecimento em VBA, porém ajudaria muito aqui na empresa onde trabalho.

[eduardogrigull]

Deveria funcionar o código abaixo, nao tem como testar, pois a planilha está bloqueada, e nao é possível executar essa macro em uma planilha bloqueada.

Código: Selecionar todos

Sub LimparDados()
Dim UltimaLinha As Integer

UltimaLinha = Sheet1.Cells(Sheet1.Rows.Count, 3).End(xlUp).Row

For i = 8 To UltimaLinha
    
    If UCase(Sheet1.Cells(i, 7).Value) = "OK" Then
    
        Sheet1.Range("C" & i & ":J" & i).Delete xlShiftUp
        UltimaLinha = UltimaLinha - 1
        
    End If
    
        
Next


End Sub

[Laertenovoa]

Putz, não vi que estava bloqueada. Testei o código, porém ele exclui as linhas que estão com OK e tem formulas nas células das colunas F e I que conforme for limpando a planilha vão acabar sumindo. Precisava que apagasse mas mantivesse as fórmulas. Sera que tem como?

Segue anexa a planilha sem senha.


Valeu

[eduardogrigull]

Esse código funcionou aqui, tente:

Código: Selecionar todos

Sub LimparDados()
Dim UltimaLinha As Integer

UltimaLinha = Sheet1.Cells(Sheet1.Rows.Count, 3).End(xlUp).Row

i = 8
While i <= UltimaLinha
   
    If UCase(Sheet1.Cells(i, 7).Value) = "OK" Then
   
        Sheet1.Range("C" & i & ":V" & i).Delete xlUp
        UltimaLinha = UltimaLinha - 1
       
    Else
        i = i + 1
    End If
    
       
Wend


End Sub

Aqui manteve a fórmula, e apagou as linhas com o "ok"

[Laertenovoa]

Eduardo, só mais uma coisa. Quando executo a macro, as linhas do final perdem a configuração (vê a partir da linha 73 como ficou após executar a macro).

É possível manter a configuração e as fórmulas das linhas do final?

Muito obrigado!!