Página 1 de 1

Apagar SE:

Enviado: Ter Set 03, 2019 11:19 am
por leandropotter2019
Bom dia!

Na planilha de exemplo anexo, gostaria de apagar as linhas referentes as celulas que eu selecionar, mas se dentre estas celulas alguma estiver fora do intervalo especificado e/ou estiver vazia, não apagar. Pode dar uma mensagem de erro e pedir pra selecionar novamente, ou se puder, apagar as linhas que condizem com a regra e nao apagar as que estao fora desta regra.

Obrigado
Leandro Potter

Re: Apagar SE:

Enviado: Ter Set 03, 2019 4:06 pm
por webmaster

Re: Apagar SE:

Enviado: Qua Set 04, 2019 3:44 pm
por leandropotter2019
Boa tarde!

Não consegui incorporar o código nesta planilha, conseguiria fazer o código girar nesta planilha? apagando somente as celulas preenchidas que estao dentro do intervalo?
Outra coisa. Se eu quiser selecionar todas as linhas em que o valor da célula na coluna A é 1 por exemplo, como posso fazer?

Grato

Re: Apagar SE:

Enviado: Qua Set 04, 2019 5:37 pm
por Julio Mangilli
Verifica essa amigo, só mandar rodar e a partir de qual numeração quer excluir , maior que 1 e dale

Código: Selecionar todos

Sub Auto_open()
    Dim Crit As String, WkSh As Worksheet, i As Long
    Crit = InputBox("Critério para deleção: ", "Apagar células")
    If MsgBox("Confirma a deleção das células cujo conteúdo seja """ & Crit & """?", vbCritical + vbYesNo, "Confirme a solicitação") = vbYes Then
        For Each WkSh In Worksheets
            With WkSh
                .Activate
                For i = 2 To 12
                    .Range("A" & Trim(Str(i))).Select
                    If .Cells(i, 1) > Crit Then
                        .Cells(i, 1).EntireRow.Delete
                    End If
                Next i
            End With
        Next
    End If
    MsgBox "Rotina finalizada"
End Sub