Guru do Excel e Power BI

Enviado: **03 Mar 2017 às 15:35**

Olá Pessoa,

No modelo anexo seria um relatório gerado e exportado do sistema para o Excel, preciso criar uma base de dados que me possibilite uma analise melhor dos dados. Então preciso criar uma macro que elimine as linhas e colunas em branco e transfere as informações para a aba Base_Dados.
Abraço!
Fico no aguardo!

Enviado: **03 Mar 2017 às 17:43**

Experimente:

Código: Selecionar todos

Sub DeletaLinhasColunasVazias()
 Dim LR As Long,  r As Long
  Application.ScreenUpdating = False
   LR = Cells(Rows.Count, 1).End(3).Row
    For r = LR To 2 Step -1
     If Cells(r, 1) = "" Then Rows(r).Delete
    Next r
    Columns("F:G").Delete
    Range("A1:S" & Cells(Rows.Count, 1).End(3).Row).Cut Sheets("Base_DAdos").Cells(Rows.Count, 1).End(3)(2)
  Application.CutCopyMode = False
  Application.ScreenUpdating = True
End Sub

Enviado: **03 Mar 2017 às 17:44**

Boa tarde!!

Não estou com tempo agora, mas há como melhorar

Att

Enviado: **03 Mar 2017 às 18:21**

Olá,
Já me ajudou com seu exemplo! Agradeço atenção de todos!

Guru do Excel e Power BI

Eliminar Linhas e Colunas em branco tranferir para outra Aba

Eliminar Linhas e Colunas em branco tranferir para outra Aba

Re: Eliminar Linhas e Colunas em branco tranferir para outra

Re: Eliminar Linhas e Colunas em branco tranferir para outra

Eliminar Linhas e Colunas em branco tranferir para outra Aba