Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Apagar SE:

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
leandropotter2019
Colaborador
Colaborador
Mensagens: 25
Registrado em: Seg Jun 03, 2019 11:22 am

Apagar SE:

Mensagem 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
Anexos
teste.rar
(8.69 KiB) Baixado 184 vezes


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Apagar SE:

Mensagem por webmaster »



leandropotter2019
Colaborador
Colaborador
Mensagens: 25
Registrado em: Seg Jun 03, 2019 11:22 am

Re: Apagar SE:

Mensagem 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


Julio Mangilli
Manda bem
Manda bem
Mensagens: 127
Registrado em: Sex Out 05, 2018 2:42 pm

Re: Apagar SE:

Mensagem 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


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder