Planilha Excel VBA Relatorio verifica criterio extrai dados

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

Planilha Excel VBA Relatorio verifica criterio extrai dados

Microsoft Excel VBA(Visual Basic Application), Prezados e Queridos Amigos,
Fiz esse exemplo para amigo o Ayrton, que também estuda Excel VBA, pedi autorização para publicá-la , e Gentilmente aprovou. Obrigado ao Amigo Ayrton. Deus te ilumine, te abençoe e te Guarde.
Um bom exemplo de Macros para treinamento com VBA (Extração de Relatório).
‘//===============’

Veja bem, Esse exemplo de planilha usando a Instrução For …Next, e Propriedade Resize(lin,Col) busca pelos valores CFOP na coluna(“k”), quando encontrar o valor “1101” copia para “Planilha_CFOP_1101”, e também usando a Instrução ELSEIF na condição IF, busca pelo valor ‘2101’, também na Coluna(“k”), quando encontrar o critério procurado, copiará o Intervalo de células da coluna(A:K), para a “Planilha CFOP 2101”, acumulando os valores em uma variável e descarregando na Celula “k1”) total da soma dos dados extraidos para as folhas de planilhas específica.
‘//===============’
Resumindo: procurar o valor por critério, copia os dados intervalos de céluas usando o Propriedade Resize(Linha, Coluna) copiando para as planilhas especificas acumulando os valores em uma variavel e descarregando o valor em uma célula especifica. (k1)
‘//=============’

Sub sbx_extrair_dados_CFOP()
Dim vLin, vLin1101, vLin2101 As Integer ‘poderia se ‘Long’ se fosse mais de milhoes linhas (Estudos das variáveis – vamos ver em breve)
vLin1101 = 4 ‘linha 4 da Planilha 1101 ‘indicar o inicio da linha para extração de dados
vLin2101 = 7 ‘linha 7 da Planilha 2101 ‘indicar o inicio da linha para extração de dados
‘observe que uso o nome da folha de código da folha de planilha e não “Folha da Aba de planilha”
For vLin = 2 To Plan1.Cells(Rows.Count, “a”).End(xlUp).Row ‘ localizando a ultima linha na Planilha1
‘comparando os itens da coluna K a cada interação do Loop nas linhas.
If Plan1.Cells(vLin, “K”).Value = “1101” Then ‘se o conteudo da linha da vez for igual a 1101 então
Plan1.Cells(vLin, “a”).Resize(, 11).Copy Plan2.Cells(vLin1101, “b”)
tSoma = tSoma + Plan1.Cells(vLin, “j”)
vLin1101 = vLin1101 + 1 ‘incrementando a variavel para localização da inserção da linha Plan3
ElseIf Plan1.Cells(vLin, “K”).Value = “2101” Then ‘se o conteudo da linha da vez for igual a 2101 então
Plan1.Cells(vLin, “a”).Resize(, 11).Copy Plan3.Cells(vLin2101, “b”) ‘ copia o intervalo da linha
zSoma = zSoma + Plan1.Cells(vLin, “j”) ‘soma os valores correspondentes em uma variavel zSoma
vLin2101 = vLin2101 + 1 ‘incrementando a variavel para localização da inserção da linha Plan3
End If
Next vLin
Plan2.[k1].Value = Format(tSoma, “R$ ###,##0.00”)
Plan3.[k1].Value = Format(zSoma, “R$ ###,##0.00”)
‘somente a informação que foi extraidos os dados para as folhas de planilhas.
MsgBox “Dados Extraidos com sucesso! para as planilhas ” & vbCrLf & _
“- Planilha_CFOP_1101 ” & ” – Total….” & Format(tSoma, “R$ ###,##0.00”) & vbCrLf & _
“- Planilha_CFOP_2101 ” & ” – Total….” & Format(zSoma, “R$ ###,##0.00”), vbInformation, “Escola Saberexcel VBA Estudos®”
End Sub

‘//===========‘limpando as planilhas para realização do teste.

Sub sbx_limpar_teste()
‘//===========‘limpando a Planilha Plan2.
x = Plan2.Cells(Rows.Count, “b”).End(xlUp).Row + 1 ‘ mais 1 para não apagar o cabeçalho caso execute duas vezes
Plan2.Range(Plan2.Cells(4, “b”), Plan2.Cells(x, “L”)).ClearContents
Plan2.Cells(1, “k”).ClearContents
‘//===========’limpando a Planilha Plan2.
y = Plan3.Cells(Rows.Count, “b”).End(xlUp).Row + 1
Plan3.Range(Plan3.Cells(7, “b”), Plan3.Cells(y, “L”)).ClearContents
Plan3.Cells(1, “k”).ClearContents
MsgBox “Dados das Planilhas [Planilha CFOP_1101,Planilha CFOP_2101]” & vbCrLf & _
“Foram deletados com sucesso para realização do seu teste!”, vbInformation, “Escola Saberexcel”
End Sub