Esqueceu sua senha? Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

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: 21
Registrado em: Seg Jun 03, 2019 11:22 am

Apagar SE:

Mensagem por leandropotter2019 » Ter Set 03, 2019 11:19 am

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 6 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.



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

Re: Apagar SE:

Mensagem por leandropotter2019 » Qua Set 04, 2019 3:44 pm

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
Colaborador
Colaborador
Mensagens: 64
Registrado em: Sex Out 05, 2018 2:42 pm

Re: Apagar SE:

Mensagem por Julio Mangilli » Qua Set 04, 2019 5:37 pm

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