Este fórum está sendo desativado

[anacletotranstusa]

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!

[osvaldomp]

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

[alexandrevba]

Boa tarde!!

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

Att

[anacletotranstusa]

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