Planilha Excel VBA extrair relatório base obra soma valores

Planilha Excel VBA cursor 21 insere bordas deslocando

Planilha Excel VBA extrair relatório base obra soma valores

Este Macro do Aplicativo Microsoft Excel VBA(Visual Basic Application) com auxilio do Evento WorksheetChange() da folha de planilha “Principal”, Instrução For Next e Condição IF(se), extrai um relatório com base nos critérios da coluna(B), extrai para outra folha de planilha e também usando as Variáveis vPagar, vPago, vJuros, descarregam os valores acumulados da extração para a planilha auxiliar (01 linha abaixo) após a extração do Relatório.
Espero que exemplo possa lhe útil. Bons Estudos. Obrigado, Fique com Deus,

‘HABILITE SEUS MACROS PRIMEIRAMENTE, se não nenhum macro e nenhum procedimento vai funcionar.

‘evento de planilha WorksheetChange(), está no modulo de edição da folha de planilha
‘na janela projeto clique em Plan1(Principal) para visualizar a folha de edição folha de planilha
‘Evento de planilha Worksheet_Change(), para chamar o macro ao alterar a célula (“E2”).

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range(“E2”)) Is Nothing Then
sbx_extrair_relatorios_somar
Plan3.Select
End If
End Sub

Sub sbx_extrair_relatorios_somar()
Dim i, wLin As Long
Dim pSoma, vPago, vJuros As Currency
wLin = 5
x = Plan3.Cells(Rows.Count, “b”).End(xlUp).Row + 1
Plan3.Range(Plan3.Cells(5, “b”), Plan3.Cells(x + 2, “j”)).ClearContents

For i = 5 To Plan1.Cells(Rows.Count, “b”).End(xlUp).Row
If Plan1.Cells(i, “b”) = Plan1.Cells(2, “e”) Then
Plan1.Cells(i, “b”).Resize(, 10).Copy Plan3.Cells(wLin, “b”)
pSoma = pSoma + Plan1.Cells(i, “e”).Value
vPago = vPago + Plan1.Cells(i, “i”).Value
vJuros = vJuros + Plan1.Cells(i, “j”).Value
wLin = wLin + 1
End If
Next i

Plan3.Cells(wLin + 1, “e”).Value = pSoma
Plan3.Cells(wLin + 1, “i”).Value = vPago
Plan3.Cells(wLin + 1, “j”).Value = vJuros
Plan3.Range(Plan3.Cells(wLin + 1, “e”), Plan3.Cells(wLin + 1, “j”)).Font.Size = 8
MsgBox (“Dados Extraidos Empresa: [ ” & Plan1.[e2].Value & ” ] foram extraidos com sucesso”), vbInformation, “Escola Saberexcel VBA Estudos®”
End Sub

‘//=======mostra macros no objeto wordpad ou no proprio VBA.
Sub sbx_visualizar_macro()
Dim resposta As String
resposta = MsgBox(“deseja visualizar(tela ou vbe)?” & vbCrLf & ” se SIM = Tela” & vbCrLf & ” se NAO = VBE”, vbYesNo, “Saberexcel – o site das macros”)
If resposta = 6 Then
ActiveSheet.Shapes.Range(Array(“saber1″)).Select
Selection.Verb Verb:=xlPrimary
Else
Application.Goto reference:=”sbx_extrair_relatorios_somar”
End If
End Sub