Saberexcel - O site de quem precisa aprender Macros Microsoft Excel VBA
Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), deletam linhas baseada em critérios, neste caso
deletará linhas baseadas nas células em branco que existirem nas colunas: (F), (G), (H)
'simplificando códigos de programação ms excel vba.
Sub Deletar_Linhas_Celulas_Branco()
MsgBox ("Linhas onde houver células em branco na coluna(F:G:H) serão DELETADAS!!!!")
vUltimaLinha = Cells.SpecialCells(xlLastCell).Row
'montando o loop para verificar nas células vazias nas colunas específicas
'veja que a simetria e orgranização do código facilita o entendimento, obdeçam esse critério.
'
For i = vUltimaLinha To 1 Step -1
'-----------'
'Observem que não exisite o End If (fechando a estrutura if) - porque há uma condição verdadeira na frente do Then
If Cells(i, "F").Value = "" Then Rows(i).Delete
If Cells(i, "G").Value = "" Then Rows(i).Delete
If Cells(i, "H").Value = "" Then Rows(i).Delete
'-----------'
Next i
End Sub
Simplifiquei a estrutura da macro copiar e colar.
Os códigos copiam de uma planilha e cola em outra planilha na célula (A1)
você poderá nomear um range dinâmico para isso, cada vez que for inserido dados,
o range dinâmico expande com tamanho dos dados digitados.
Esse tipo de programação estarei explanando nos - Modulos Como Fazer - Saberexcel
'veja que uso o nome de código da folha de planilha(Saber1,Saber2), porque?,
'- Se o usuário mudar o nome da folha de planilha, não gera erro... certo?
Sub copiar_colar_teste()
Saber2.[A1:Q25].Copy Saber1.[A1]
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo,
praticando com os produtos didáticos SaberExcel
Baixe o exemplo de Planilha contendo as macros acima
vba linhas deleta criterio celulas em branco colunas (23.99 KB)
Comentários
Existe uma macro para deletar colunas baseado em critérios?
Se na linha 1, existir alguma célula com a string "deleta", excluir a coluna inteira
Seria isto, não estou encontrando exemplos.
Muito obrigado
ZUCOLLI
Veja bem, tem um exemplo de planilha no site com determinado código,
que localiza determinada palavra e a substitui, ora, se é capaz de substituir também é capaz de fazer muitas outras coisas, não é mesmo.
Baixe o exemplo de planilha e mude o seguinte código.
de:
Range("A" & i).Value = "Curso_VBA_Saberexcel"
Para:
Range("A" & i).Delete
Baixe o exemplo:
microsoftexcel.com.br/.../...
Fique com Deus. Expedito Marcondes.
Estou iniciando meus estudos no âmbito do VBA e no momento estou quebrando a cabeça para desenvolver uma macro.
Estou tentando desenvolver uma macro que elimine as linhas inteiras de um documento sob determinada condição.
Minha pretenção é eliminar linhas inteiras onde a coluna "K" tenha células em branco ou " Valor Linha". Tentei inúmeras vezes e não cheguei a um resultado correto. Poderias me dar uma luz?
Gostaria também de parabenizá-lo pelo site e perguntar sobre qual material devo adquirir para aprender a executar macros em VBA.
Obrigado.
Assine o RSS dos comentários