REMOVER LINHAS COM VALOR DA CELULA EM BRANCO

ONBASS 18/09/2012 08:28:22
#409863
Bom dia pessoal,

Hoje amanheci com a idéia de usar um For, visto que as especialidade nao passam de 10, creio que vai ser por ai.
Quanto às respostas, agradeço grandemente o esforço de todos, vou fazer os testes finais e posto o resultado.
Agora pela manhã que que vi a resposta do amigo IRENKO, pelo uso do For foi quem mais aproximou da solução.
Assim que possível dou retorno. Grato
ONBASS 21/09/2012 10:44:59
#410151
Pessoal, bom dia!
Após várias tentativas, creio que cheguei a um código que atende momentaneamente à minha necessidade.
A quem interessar possa:

**Corrigindo.. para pegar todas as planilhas da pasta.
  

Public Function FormataPlan()
Dim busca As Integer

For Each sht In ThisWorkbook.Worksheets
    sht.Select
    
    busca = Cells.Find(What:=[Ô]QUANTIDADE[Ô]).Activate
    ref = ActiveCell.Address
    
    Do While busca = -1
        Formatar
        Cells.FindNext(After:=ActiveCell).Activate
        If ActiveCell.Address = ref Then: Exit Do
    Loop
    
  
Next

    MsgBox [Ô]Operação concluída com sucesso![Ô], vbInformation

End Function


Public Sub Formatar()

While Selection.Borders(xlEdgeBottom).ColorIndex = xlAutomatic
    Select Case ActiveCell.MergeCells
        Case False
            If ActiveCell.Value = [Ô][Ô] Or ActiveCell.EntireRow.Hidden Then
                ActiveCell.EntireRow.Delete
            Else
                ActiveCell.Offset(1, 0).Select
            End If
        Case True
            If InStr(1, Cells(ActiveCell.Row + 1, 3), [Ô]*[Ô], vbTextCompare) > 0 And Cells(ActiveCell.Row + 1, 4) = [Ô][Ô] Then
                ActiveCell.EntireRow.Delete
                Range([Ô]D[Ô] & ActiveCell.Row).Select
            ElseIf Cells(ActiveCell.Row - 1, 1).Interior.ColorIndex = 34 Then
                Cells(ActiveCell.Row - 1, 1).EntireRow.Delete
                Range([Ô]D[Ô] & ActiveCell.Row).Select
            Else
                ActiveCell.Offset(1, 0).Select
                Range([Ô]D[Ô] & ActiveCell.Row).Select
            End If
    End Select
Wend

End Sub


Obrigado a todos!
Agora é voltar ao .Net heheheh
Página 2 de 2 [12 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar