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)