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
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Apagar SE:
-
- Colaborador
- Mensagens: 25
- Registrado em: Seg Jun 03, 2019 11:22 am
-
- Colaborador
- Mensagens: 25
- Registrado em: Seg Jun 03, 2019 11:22 am
Re: Apagar SE:
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
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
-
- Manda bem
- Mensagens: 127
- Registrado em: Sex Out 05, 2018 2:42 pm
Re: Apagar SE:
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