Esqueci de mencionar onde está ocorrendo o erro: Private Sub txtProdutoS_Change() Planilha9.Activate Planilha9.Select Worksheets("Produtos").Select With Worksheets("Produtos").Range("D2:D")
Verifique a linha a seguir With Worksheets("Produtos").Range("D2:D"), não pode ser com está, altere para With Worksheets("Produtos").Range("D:D") e verifique o nome da txtproduto se está correto.
Ola boa tarde !Antes de mas nada gostaria de agradecer suas aulas são muito boas.Agora a minha duvida e que mudei o nome da planilha p.produtos para preco porem ao executar a macro aparece a mensagem erro em tempo de execução não foi possível definir a propriedade rowsouce. Membro não encontrado.Revisei os códigos mais não consegui visualizar o erro.Deste já agradeço.
Marcondes Rodrigues da silva 1 segundo atrás CANAL SGP, O PONTO PODE SER USADO O'QUE NAO PODE SER USADO PARA NOMEAR A PLANILHA É O "ESPAÇO" NO CASO VOCE NOMEOU COMO "P. PRODUTOS" CASO TIVESSE NOMEADO "P.PRODUTOS" IRIA FUNCIONAR NORMALMENTE. ABRAÇOS, E MUITO OBRIGADO PELOS VÍDEOS, SÃO EXCELENTES.
Meu código está igual ao seu, com exceção colunas e nomenclaturas, mesmo assim, ao executar ele não puxa o V. UNID. automático e tbm não da erro de código. Se tratando da aula 10. Como devo proceder, para dar andamento no QTD E TOTAL DA VENDA? Private Sub COPRODUTO_Change() On Error GoTo ERRO Planilha4.Activate Planilha4.Select With Worksheets("P. PRODUTOS").Range("A:A") Set C = .Find(COPRODUTO.Value, LookIn:=xlValues, LOOKAT:=xlWhole) If Not C Is Nothing Then C.Activate ActiveCell.Offset(0, 1).Select TUVENDA = ActiveCell.Value End If End With
Olá, precisa descobrir em qual função está o erro, por exmplo, pode utilizar uma msgbox para verificar se a função TSALDO está correta. Após a função coloque Msgbox "" & TSALDO para ver qual valor está retornando. E assim com todas as funções do evento, para ver qual está errada.
@@CanalSGP ELE NÃO ESTÁ ATIVANDO A CELULA (0,1). On Error GoTo ERRO Planilha4.Activate Planilha4.Select With Worksheets("P. PRODUTOS").Range("A:A") Set C = .Find(COPRODUTO.Value, LookIn:=xlValues, LOOKAT:=xlWhole) If Not C Is Nothing Then C.Activate ActiveCell.Offset(0, 1).Select TUVENDA = ActiveCell.Value End If End With
Boa noite! Sou iniciante no VBA e estou tentando criar uma planilha de controle visitante ( Entrada e saída). Consegui fazer a parte de entrada porem a saída não deu certo. Poderia por favor desenvolver um código que faça a saída de acordo com a identificação de entrada? Muito obrigado, Deus o abençoe grandemente.
Bom dia, a identificação da entrada se refere ao lote, ou seja, com base no lote é que efetuamos a saída de produtos. No seu caso também vai precisar de um identificador único para o item que deseja efetuar a saída, para poder controlar quanto entrou e saiu do estoque.
Boa tarde, eu mantive o primeiro código para a ComBox CSCliente, pois eu não dei espaço para nomear, ficou com o ponto(.) porém tudo junto e não deu erro não "P.Produtos!"
Luan, boa tarde. Não consegui concluir a aula 09, deixei registrado minhas dúvidas nele os motivos. Agora neste vídeo aula 10, fiz todos os procedimento, mas quando vou testar, inicio pela linha, mas ao invés do sistema buscar os produtos de "P.produtos - plan4" ele está buscando em "produtos - plan3" Eu iniciei igual ao video, iniciando com: Plan4.Activate Plan4.Select With Worksheets("P. PRODUTOS").Range("B:B") , eu até exclui o plan3 anterior, mas mesmo assim o sistema não faz a busca na plan4. Onde será que eu estou errando? Estava tão motivado por ter concluído as aulas de entrada, mas as aulas de saída estou tendo muitas dificuldades. Eu não sei se iniciei errado desde a aula 8, mas pelo que acompanhei, consegui fazer todos os procedimento. Só que estas duas aulas (09 e 10) está sendo muito difícil para eu ter êxito nos lançamentos dos códigos. Você pode me ajudar? Aguardo retorno. Um abraço.
@@CanalSGP Boa noite Luan. Neste caso, não há mensagem de erro. O que acontece é que quando faço a busca dos produtos, ao invés de buscar no plan4, está indo para o plan3. Enquanto eu aguardava, eu fui analisando os códigos e percebi que na sub linha de saída, criada no video aula 8, havia apenas a ativação da plan3. Por isso que na busca ele não direcionava para a plan4. O que me intriga é que em nenhum momento vc chamou a plan4 nesta sub linha. O seu ficou correto, já o meu deu esse problema. Eu já deixei registrado meu e-mail. Obrigado, um abraço!
Olá, estou com um problema para retornar o valor de venda, verificando a execução do código, quando ele chega na verificação "If not c is nothing then" ele não executa ele pula esse bloco de código, o que devo fazer ?
BOA TARDE PROFESSOR " FIZ UM FORMULÁRIO USERFORM, O QUAL EXECUTA ALGUNS CÁLCULOS ENTRE AS TEXTBOX, GOSTARIA DE SABER SE E POSSÍVEL COLOCAR A FORMULA 'SE' EX: SE( TEXBOX1 >0;(TEXBOX1 X TEXTBOX2))X(1) O SR TEM ALGUM VIDEO NESSE SENTIDO DA FORMULA MAIOR QUE:
Na aula 10, quando vai automatizar o campo TsVendas, quando executo e seleciono o produto, retorna o erro em tempo de execução 1004: Erro de definição de aplicativo ou definição de objeto, eu uso a planilha "Produto" tanto para saída será que algo a ver com esse erro? Desde já agradeço a atenção!
Olá bom dia amigo esta funcionando duto perfeito mas depois que renomeei a planilha para preco eu fiz tudo certo mais agora apareceu um erro que não estou conseguindo resolver esta difícil Mensagem de erro é erro de tempo de execução 6 : Estouro .
Bom dia, precisa retirar os carácter especial do valor moeda, veja a vídeo aula a seguir, tem exemplo de como retirar: th-cam.com/video/IuGEFIZ5WJ0/w-d-xo.html
@@CanalSGP Bom dia. posso lhe enviar a minha planilha? o meu problema é complexo. tenho uma txt que é para colocar o valor por convidado, onde tenho outra txt com o nº convidados adultos que pagam por inteiro os lugares, outra txt com nº de crianças que só pagam metade dos lugares, outra txt com nº de bebes que não pagam os lugares, outra txt com nº de staff que pagam metade dos lugares. Tenho uma txt que soma os lugares dos convidados e outra que soma os valores adultos, metade das crianças e staff. tenho outra txt que multiplica o valor por lugar pelos valores pagantes e não consigo formatar para moeda os campos respectivos. me ajuda por amor a deus.
Boa tarde professor, até a aula 9 estava tudo correto mas nessa aula fiz exatamente como você fez mas na venda unidade não chama o valor da planilha preço, não da erro nos códigos, como resolver esse problema ? Planilha 7.ACTIVATE PLANILHA 7.SELECT WITH WORKSHEETS ("PRECO").RANGE("A:A") SET C = .FIND(CPRODUTO.VALUE,LOOKIN:=XLVALUES,LOOKAT:=XLWHOLE) IF NOT C IS NOTHING THEN C.ACTIVATE ACTIVATE.OFFSET(0,1).SELECT TSvenda= ACTIVATECELL.VALUE END IF END WITH OBS QUANDO DEPURO PERCEBI QUE NÃO ESTÁ PASSANDO PELA CONDIÇÃO IF . DESDE AGRADEÇO PELA AJUDA
Ficou Excelente a lógica de estoque da planilha. O meu problema é que estou fazendo um estoque para lanches. Ou seja, quando vender um produto ele vai precisar baixar vários outros produtos do estoque. Exemplo: um cheeseburger vai precisar baixar um pão de hamburger, duas fatias de queijo (50 gramas), um hamburguer e maionese 20gramas. Pode me ajudar? Eu tenho uma aba na planilha com a composição desses lanches. Desde já agradeço. meu e-mail eliasolliveira@live.com
Boa tarde, obrigado, infelizmente vai precisar dar baixa considerando estoque de matéria prima, no meu ver seria muito complicado misturar matéria prima e produto acabado no mesmo controle. Planilha enviada.
Meu amigo, bom dia! Até aqui nessa aula deu tudo certo, porém ao selecionar o produto, o preco de venda não aparece, sendo que no formulário de saída está TSVenda e não ativa a célula. Vou por o código aqui: Plan4.Activate Plan4.Select With Worksheets("PRECO").Range("B:B") Set C = .Find(CSProduto.Value, LookIn:=xlValues, Lookat:=xlWhole) If Not C Is Nothing Then C.Activate ActiveCell.Offset(0, 1).Select TSVenda = ActiveCell.Value //o problema é aqui End If End With Pode me ajudar nessa? Quem se sentir a vontade pode também colaborar! []'s
Meu amigo, bom dia! Até aqui nessa aula deu tudo certo, mas ja estou na aula 14 e nao aparece o v,unid ao selecionar o produto, o V. UNID não aparece e mesmo assim, ao executar ele não puxa o V. UNID. poderia me ajuda com esse problema email..tekomg@bol.com.br desde já agradeço. Private Sub CSProduto_Change() If LPesquisando = "P" Then Exit Sub End If Planilha4.Activate Planilha4.Select With Worksheets("PRECO").Range("B:B")""" (acredito que o problema seja aqui,pq trocamos o p.produto para preco,e talvez em algum luga esteja com p.produto) Set C = .Find(CSProduto.Value, LookIn:=xlValues, lookat:=xlWhole) If Not C Is Nothing Then C.Activate ActiveCell.Offset(0, 1).Select TSVenda = ActiveCell.Value End If End With Planilha1.Activate Planilha1.Select Planilha1.Range("I5").Select Do If ActiveCell.Value CSProduto.Text Then ActiveCell.Offset(1, 0).Select End If If ActiveCell.Value = CSProduto.Text Then ActiveCell.Offset(0, -7).Select lote = ActiveCell.Value TSLote = lote TSSaldo = WorksheetFunction.SumIfs(Planilha1.Range("K5:K100000"), Planilha1.Range("B5:B100000"), lote) - WorksheetFunction.SumIfs(Planilha2.Range("J5:J100000"), Planilha2.Range("I5:I100000"), lote) If TSSaldo.Value < 1 Then ActiveCell.Offset(0, 7).Select ActiveCell.Offset(1, 0).Select End If If TSSaldo.Value > 1 Then TSCompra = ActiveCell.Value Exit Sub End If End If If ActiveCell.Value = "" Then MsgBox "Não tem mais em estoque!", vbInformation, "ESTOQUE" Exit Sub End If Loop End Sub
Parabéns
Bom dia, obrigado.
Bora começar a aprender com o expert em vba...
Sucesso em seus estudos.
Estou indo bem....aprendendo muito..
Sucesso em seus estudos.
Show de bola, obrigado.
muito boa explicação
Agradecemos.
Otimo
Agradecemos.
Esqueci de mencionar onde está ocorrendo o erro:
Private Sub txtProdutoS_Change()
Planilha9.Activate
Planilha9.Select
Worksheets("Produtos").Select
With Worksheets("Produtos").Range("D2:D")
Verifique a linha a seguir With Worksheets("Produtos").Range("D2:D"), não pode ser com está, altere para With Worksheets("Produtos").Range("D:D") e verifique o nome da txtproduto se está correto.
Ola boa tarde !Antes de mas nada gostaria de agradecer suas aulas são muito boas.Agora a minha duvida e que mudei o nome da planilha p.produtos para preco porem ao executar a macro aparece a mensagem erro em tempo de execução não foi possível definir a propriedade rowsouce. Membro não encontrado.Revisei os códigos mais não consegui visualizar o erro.Deste já agradeço.
Boa noite, deixe seu e-mail que envio a planilha para que possa comparar.
Marcondes Rodrigues da silva
1 segundo atrás
CANAL SGP, O PONTO PODE SER USADO O'QUE NAO PODE SER USADO PARA NOMEAR A PLANILHA É O "ESPAÇO" NO CASO VOCE NOMEOU COMO "P. PRODUTOS" CASO TIVESSE NOMEADO "P.PRODUTOS" IRIA FUNCIONAR NORMALMENTE. ABRAÇOS, E MUITO OBRIGADO PELOS VÍDEOS, SÃO EXCELENTES.
Olá, muito bem, agradecemos sua colaboração.
o meu resultado de v1 * v2 está dando 0,00 no total de venda (qtd * vlr unit). o que pode ser feito? eu uso a option explicit no codigo.
Boa tarde, talvez o nome dos campos não esteja correto, deixe seu e-mail que envio a planilha da aula.
A Caixa texto do V.Unidade não está funcionando automatico, caixa fica vazia. já revisei varias vexes os códigos. grato
Boa noite, deixe seu e-mail que envio a planilha da aula.
Meu código está igual ao seu, com exceção colunas e nomenclaturas, mesmo assim, ao executar ele não puxa o V. UNID. automático e tbm não da erro de código. Se tratando da aula 10. Como devo proceder, para dar andamento no QTD E TOTAL DA VENDA?
Private Sub COPRODUTO_Change()
On Error GoTo ERRO
Planilha4.Activate
Planilha4.Select
With Worksheets("P. PRODUTOS").Range("A:A")
Set C = .Find(COPRODUTO.Value, LookIn:=xlValues, LOOKAT:=xlWhole)
If Not C Is Nothing Then
C.Activate
ActiveCell.Offset(0, 1).Select
TUVENDA = ActiveCell.Value
End If
End With
Olá, precisa descobrir em qual função está o erro, por exmplo, pode utilizar uma msgbox para verificar se a função TSALDO está correta. Após a função coloque Msgbox "" & TSALDO para ver qual valor está retornando. E assim com todas as funções do evento, para ver qual está errada.
@@CanalSGP ELE NÃO ESTÁ ATIVANDO A CELULA (0,1).
On Error GoTo ERRO
Planilha4.Activate
Planilha4.Select
With Worksheets("P. PRODUTOS").Range("A:A")
Set C = .Find(COPRODUTO.Value, LookIn:=xlValues, LOOKAT:=xlWhole)
If Not C Is Nothing Then
C.Activate
ActiveCell.Offset(0, 1).Select
TUVENDA = ActiveCell.Value
End If
End With
Boa noite! Sou iniciante no VBA e estou tentando criar uma planilha de controle visitante ( Entrada e saída). Consegui fazer a parte de entrada porem a saída não deu certo. Poderia por favor desenvolver um código que faça a saída de acordo com a identificação de entrada? Muito obrigado, Deus o abençoe grandemente.
Bom dia, a identificação da entrada se refere ao lote, ou seja, com base no lote é que efetuamos a saída de produtos. No seu caso também vai precisar de um identificador único para o item que deseja efetuar a saída, para poder controlar quanto entrou e saiu do estoque.
Boa tarde, eu mantive o primeiro código para a ComBox CSCliente, pois eu não dei espaço para nomear, ficou com o ponto(.) porém tudo junto e não deu erro não "P.Produtos!"
Boa tarde, exato. não pode ter espaço no nome dos objetos.
Luan, boa tarde. Não consegui concluir a aula 09, deixei registrado minhas dúvidas nele os motivos. Agora neste vídeo aula 10, fiz todos os procedimento, mas quando vou testar, inicio pela linha, mas ao invés do sistema buscar os produtos de "P.produtos - plan4" ele está buscando em "produtos - plan3" Eu iniciei igual ao video, iniciando com:
Plan4.Activate
Plan4.Select
With Worksheets("P. PRODUTOS").Range("B:B") ,
eu até exclui o plan3 anterior, mas mesmo assim o sistema não faz a busca na plan4. Onde será que eu estou errando? Estava tão motivado por ter concluído as aulas de entrada, mas as aulas de saída estou tendo muitas dificuldades. Eu não sei se iniciei errado desde a aula 8, mas pelo que acompanhei, consegui fazer todos os procedimento. Só que estas duas aulas (09 e 10) está sendo muito difícil para eu ter êxito nos lançamentos dos códigos. Você pode me ajudar? Aguardo retorno. Um abraço.
Boa noite, qual a mensagem de erro que está sendo exibida?
@@CanalSGP Boa noite Luan. Neste caso, não há mensagem de erro. O que acontece é que quando faço a busca dos produtos, ao invés de buscar no plan4, está indo para o plan3. Enquanto eu aguardava, eu fui analisando os códigos e percebi que na sub linha de saída, criada no video aula 8, havia apenas a ativação da plan3. Por isso que na busca ele não direcionava para a plan4. O que me intriga é que em nenhum momento vc chamou a plan4 nesta sub linha. O seu ficou correto, já o meu deu esse problema. Eu já deixei registrado meu e-mail. Obrigado, um abraço!
Bom dia, erro deve estar nas referências as colunas e as planilhas.
Olá, estou com um problema para retornar o valor de venda, verificando a execução do código, quando ele chega na verificação "If not c is nothing then" ele não executa ele pula esse bloco de código, o que devo fazer ?
Boa tarde, vai pular este if se não encontrar o produto, talvez o erro seja na referência a coluna ou ao critério.
@@CanalSGP Descobri, obrigado!
Que bom que conseguiu.
BOA TARDE PROFESSOR
" FIZ UM FORMULÁRIO USERFORM, O QUAL EXECUTA ALGUNS CÁLCULOS ENTRE AS TEXTBOX, GOSTARIA DE SABER SE E POSSÍVEL COLOCAR A FORMULA 'SE'
EX: SE( TEXBOX1 >0;(TEXBOX1 X TEXTBOX2))X(1)
O SR TEM ALGUM VIDEO NESSE SENTIDO DA FORMULA MAIOR QUE:
Boa tarde, pesquisa pela condição if, acredito que com as condições if pode atender sua necessidade.
@@CanalSGP muito obrigado Deus o abençoe
Na aula 10, quando vai automatizar o campo TsVendas, quando executo e seleciono o produto, retorna o erro em tempo de execução 1004: Erro de definição de aplicativo ou definição de objeto, eu uso a planilha "Produto" tanto para saída será que algo a ver com esse erro? Desde já agradeço a atenção!
Olá, algum nome de objeto está errado.
Olá bom dia amigo esta funcionando duto perfeito mas depois que renomeei a planilha para preco eu fiz tudo certo mais agora apareceu um erro que não estou conseguindo resolver esta difícil Mensagem de erro é erro de tempo de execução 6 : Estouro .
Olá amigo encontrei um vídeo seu explicando sobre este erro e graças a esse vídeo consegui resolver o erro , e vamos em frente com p projeto obrigado.
Boa tarde, que bom que encontrou o erro.
A Minha Encontrou Normal com ( P.PRODUTOS )
Que bom.
Boa tarde. Gostava de puder multiplicar o numero (qtd) pelo valor(moeda). me ajudas?
Bom dia, precisa retirar os carácter especial do valor moeda, veja a vídeo aula a seguir, tem exemplo de como retirar:
th-cam.com/video/IuGEFIZ5WJ0/w-d-xo.html
@@CanalSGP Bom dia. posso lhe enviar a minha planilha?
o meu problema é complexo. tenho uma txt que é para colocar o valor por convidado, onde tenho outra txt com o nº convidados adultos que pagam por inteiro os lugares, outra txt com nº de crianças que só pagam metade dos lugares, outra txt com nº de bebes que não pagam os lugares, outra txt com nº de staff que pagam metade dos lugares. Tenho uma txt que soma os lugares dos convidados e outra que soma os valores adultos, metade das crianças e staff. tenho outra txt que multiplica o valor por lugar pelos valores pagantes e não consigo formatar para moeda os campos respectivos. me ajuda por amor a deus.
Erro ao buscar lote com saldo como resolver
Olá, retire o sistema de tratamento de erro e veja em qual linha de código está o problema.
Boa tarde professor, até a aula 9 estava tudo correto mas nessa aula fiz exatamente como você fez mas na venda unidade não chama o valor da planilha preço, não da erro nos códigos, como resolver esse problema ?
Planilha 7.ACTIVATE
PLANILHA 7.SELECT
WITH WORKSHEETS ("PRECO").RANGE("A:A")
SET C = .FIND(CPRODUTO.VALUE,LOOKIN:=XLVALUES,LOOKAT:=XLWHOLE)
IF NOT C IS NOTHING THEN
C.ACTIVATE
ACTIVATE.OFFSET(0,1).SELECT
TSvenda= ACTIVATECELL.VALUE
END IF
END WITH
OBS QUANDO DEPURO PERCEBI QUE NÃO ESTÁ PASSANDO PELA CONDIÇÃO IF .
DESDE AGRADEÇO PELA AJUDA
Boa tarde, qual a mensagem de erro que aparece? Deixe seu e-mail que envio a planilha para que possa comparar.
@@CanalSGP já consegui resolver, obrigado professor
Ficou Excelente a lógica de estoque da planilha. O meu problema é que estou fazendo um estoque para lanches. Ou seja, quando vender um produto ele vai precisar baixar vários outros produtos do estoque. Exemplo: um cheeseburger vai precisar baixar um pão de hamburger, duas fatias de queijo (50 gramas), um hamburguer e maionese 20gramas. Pode me ajudar? Eu tenho uma aba na planilha com a composição desses lanches. Desde já agradeço. meu e-mail eliasolliveira@live.com
Boa tarde, obrigado, infelizmente vai precisar dar baixa considerando estoque de matéria prima, no meu ver seria muito complicado misturar matéria prima e produto acabado no mesmo controle. Planilha enviada.
Meu amigo, bom dia!
Até aqui nessa aula deu tudo certo, porém ao selecionar o produto, o preco de venda não aparece, sendo que no formulário de saída está TSVenda e não ativa a célula. Vou por o código aqui:
Plan4.Activate
Plan4.Select
With Worksheets("PRECO").Range("B:B")
Set C = .Find(CSProduto.Value, LookIn:=xlValues, Lookat:=xlWhole)
If Not C Is Nothing Then
C.Activate
ActiveCell.Offset(0, 1).Select
TSVenda = ActiveCell.Value //o problema é aqui
End If
End With
Pode me ajudar nessa? Quem se sentir a vontade pode também colaborar!
[]'s
Amigo, te mandei um email. Dá uma olhada lá!
Olá, respondido. Erro não está nos códigos.
Bom dia!! Estou exatamente com o mesmo problema e não consigo o resolver, como voce conseguiu soluciona-lo?
@@veraluciacastro6463 vc conseguiu resolver, pois estou exatamente com o mesmo problema
@@ManuRSouza infelizmente não "/
Meu amigo, bom dia!
Até aqui nessa aula deu tudo certo, mas ja estou na aula 14 e nao aparece o v,unid ao selecionar o produto, o V. UNID não aparece e mesmo assim, ao executar ele não puxa o V. UNID. poderia me ajuda com esse problema
email..tekomg@bol.com.br desde já agradeço.
Private Sub CSProduto_Change()
If LPesquisando = "P" Then
Exit Sub
End If
Planilha4.Activate
Planilha4.Select
With Worksheets("PRECO").Range("B:B")"""
(acredito que o problema seja aqui,pq trocamos o p.produto para preco,e talvez em algum luga esteja com p.produto)
Set C = .Find(CSProduto.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not C Is Nothing Then
C.Activate
ActiveCell.Offset(0, 1).Select
TSVenda = ActiveCell.Value
End If
End With
Planilha1.Activate
Planilha1.Select
Planilha1.Range("I5").Select
Do
If ActiveCell.Value CSProduto.Text Then
ActiveCell.Offset(1, 0).Select
End If
If ActiveCell.Value = CSProduto.Text Then
ActiveCell.Offset(0, -7).Select
lote = ActiveCell.Value
TSLote = lote
TSSaldo = WorksheetFunction.SumIfs(Planilha1.Range("K5:K100000"), Planilha1.Range("B5:B100000"), lote) - WorksheetFunction.SumIfs(Planilha2.Range("J5:J100000"), Planilha2.Range("I5:I100000"), lote)
If TSSaldo.Value < 1 Then
ActiveCell.Offset(0, 7).Select
ActiveCell.Offset(1, 0).Select
End If
If TSSaldo.Value > 1 Then
TSCompra = ActiveCell.Value
Exit Sub
End If
End If
If ActiveCell.Value = "" Then
MsgBox "Não tem mais em estoque!", vbInformation, "ESTOQUE"
Exit Sub
End If
Loop
End Sub
Boa tarde, deixe seu e-mail que envio a planilha para que possa comparar.
@@CanalSGP meu email é tekomg@bol.com.br
Planilha enviada.