Excel VBA Planilha relatório extrair dados duas planilhas

PROMOÇÃO ESPECIAL – EXCEL VBA Adquirir o Material Didático Escola SaberExcel VBA Estudos

Excel VBA Planilha relatório extrair dados duas planilhas

RELATÓRIO – SABEREXCEL CONSOLIDAÇÃO DE PLANILHAS Relatório extraindo duas planilhas
//===============’
Este Macro do Aplicativo Microsoft Excel VBA(Visual Basic Application) Esse exemplo de planilha consolida (junta em uma) os dados de outras planilhas, isto é, faz uma extração de dados das duas planilhas pra a planilha (Relatório Consolidade) “Observem que para isso é necessário que encontre a ultima linha existentes na planilhas e também na planilha para onde vai ser copiados os dados: pratique bastante com esse código de localização da ultima linha: veja execute esse código para teste:

Sub ultima_linnha ()
x = Cells(Rows.Count,”a”).End(xlUp).Row
Msgbox x
‘retorna msg da ultima linha da planilha ativa
‘se acrescentar + 1 como fizemos abaixo, localiza a proxima em branco (importante também)
End Sub

//===============’
Sub copiar_dados_duas_planilhas()
x = Saber1.Cells(Rows.Count, “a”).End(xlUp).Row + 1
y = Saber3.Cells(Rows.Count, “a”).End(xlUp).Row + 1
Saber3.Range(Cells(2, “a”), Cells(Cells(Rows.Count, “a”).End(xlUp).Row + 1, “e”)).ClearContents
Saber1.Range(“A1” & “:” & “E” & x).Copy Saber3.Range(“A1”)
Saber2.Range(“A2” & “:E” & x).Copy Saber3.Cells(x, “a”).End(xlUp)
End Sub
//===============’
Sub sbx_limpar_teste()
Y = Saber3.Cells(Rows.Count, “a”).End(xlUp).Row + 1
Range(Cells(2, “a”), Cells(Y, “e”)).ClearContents
End Sub
Escola Saberexcel VBA Estudos