Ir ao conteúdo
  • Cadastre-se

Ileusis Luna

Membros Plenos
  • Total de itens

    23
  • Registro em

  • Última visita

  • Qualificações

    N/D
  1. Ahh desculpe, deu super certo!!! Muitissimo obrigada!!!!
  2. Na verdade, parece que estou perto de acertar, só que ao invés de criar um codigo novo, o arquivo pega o mesmo anterior. POde me apontar onde estou errando? Sub Cartanumerada() On Error GoTo Erro Documents.Add Template:="Nota_debito_center" DocDir$ = "Z:\Logística\NOTA DEBITO" ArqIni$ = "Z:\Logística\NOTA DEBITO" AnoAtual$ = Year(Now()) If ArquivoExiste(ArqIni$) <> -1 Then Call ZeraContagem(AnoAtual$, ArqIni$) Else AnoIni$ = System.PrivateProfileString$(ArqIni$, "Contador", "Ano") DIf = Val(AnoAtual$) - Val(AnoIni$) If DIf > 0 Then Call ZeraContagem(AnoAtual$, ArqIni$) ElseIf DIf < 0 Then MsgBox "Erro no relógio do micro ou arquivo INI adulterado." GoTo Fim End If End If nuMicrosoft = System.PrivateProfileString$(ArqIni$, "Contador", "CartaNum") n = Val(nuMicrosoft) + 1 Valor$ = Right$("001" & n, 3) AnoAtual$ = Right$(AnoAtual$, 2) NovoTexto$ = Valor$ + "/" + AnoAtual$ Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "Autonumeração" .Replacement.Text = NovoTexto$ .Forward = True .Wrap = wdFindContinue End With Selection.Find.Execute Replace:=wdReplaceAll nomedoc$ = DocDir$ + Valor$ + "-" + AnoAtual$ + ".doc" If ArquivoExiste(nomedoc$) = -1 Then MsgBox "O arquivo " + nomedoc$ + " já existe. Operação cancelada." Else ActiveDocument.SaveAs FileName:=nomedoc$ System.PrivateProfileString(ArqIni$, "Contador", "CartaNum") = Valor$ End If GoTo Fim Erro: MsgBox "Não foi possível abrir o Arquivo." Fim: End Sub Function ArquivoExiste(Arq$) On Error GoTo ArqExiste_Err Open Arq$ For Input As #1 Close #1 ArquivoExiste = -1 GoTo FimArq ArqExiste_Err: ArquivoExiste = 0 FimArq: End Function Sub ZeraContagem(AnoNovo$, Ini$) System.PrivateProfileString(Ini$, "Contador", "Ano") = AnoNovo$ System.PrivateProfileString(Ini$, "Contador", "CartaNum") = "0" End Sub adicionado 3 minutos depois @Basole Opa! Muito obrigada! Acredito que vá me ajudar sim! Já salvei o arquivo na pasta, como faço para vincular o formulário ao arquivo? Grata
  3. Obrigada! Encontrei uma seqüência de aulas no youtube, vou assisti-las, mas para agora não vai dar. Vou manter o controle manual dos formulários, tem detalhes demais para aprender em 5 minutos. Até tentei dar continuidade no tutorial do link que coloquei acima, mas tem algo mais que não estou enxergando, o código não está funcionando. Do link que me passou, só ensina fazer o formulário básico, mas muito obrigada!
  4. Bom dia!!!! Estou criando um formulário no word e preciso que ele gere automaticamente uma numeração sequencial (pode começar do 001, por exemplo). Eu encontrei orientações de como fazer isso , mas não consegui executar e o tópico está fechado para comentários. Alguém poderia me socorrer, por favor? Segue em anexo os formulários OBS: se puderem me orientar com mais detalhes, eu travei quando ele fala "copiar o código abaixo em um módulo", não consegui identificar que modulo seria este. OBS:2 se não for pedir muito, é possível fazer com que o word copie no campo printado abaixo o valor total informado na coluna "R$ A Ser Reembolsado"? Desde já agradeço a atenção Nota_debito_avipet.docx Nota_debito_center.docx
  5. Boa tarde! Vamos supor que eu tenha um planilha contendo o funcionário por 12 meses. O dissídio acontece todo 30/09 de cada ano. Sendo assim, preciso de uma fómrula que entenda que, se a data base for menor do que 30/09 daquele ano, entao ele irá copiar o salario da tabela com salario bruto, se for igual ou maior, deverá trazer o salario ajustado conforme indice de dissidio. em sanexo o modelo. grata desde ja, modelo dissidio.xlsx
  6. usei a seguinte formula para resoolver a qeustoa do bonus anual>: =ANO(E5-D5)-1900. para o arredondamento, usei a seguinte formula =ARREDONDAR.PARA.CIMA(A9;-1)
  7. Boa tarde!!!!!!!!! Tenho a seguitne situação: A cada ano completo, os funcionarios ganham mensalmente 30,00 a mais no salario, ou seja, se o funcinoario tem 5,333 anos de empresa, então ele recebe 5*30 = 150,00 a mais mensalmente. quando ele completar 6 anos, receberá 180,00 mensais a mais, e assim sucessivamete. No entanto, isto vem acontecendo de 7 anos para cá (desde 2012), sendo assim, temos funcionarios com 13 anos de casa que ainda estão recebendo o septênio. Eu preciso encontrar uma fórmula que coloque para mim a quantidade de bonus anuais que estes funcionários terão. Além disto, quando o salário da pessoa der núemro quebrado, preciso que seja calculado o arredondamento, por exemplo: o salario ficou em 1096,90, então a fórmula irá arredondar para a próxima casa decimal: 1.100,00 o salario ficou em 1000,05 então a formula ira novamente arredonda para a próxima casa decimal: 1.010,00 e assim sucessivamente. em anexo a planilha que estou elaborando para provisionar os salarios mensais. grata desde já modelo para fopag.xlsx
  8. Desculpe, é que tem muita informaçaõ confidencial, mas voce me ajudou muito!!!! S2
  9. Não funcionou, deixe-me ver se entendi a fórmula; na primeira planilha, onde preciso copiar a chave de acesso da nota, vou colocar a fórmual na celula A3, sendo que: D:D = é da mesma planilha, que corresponde a série do documento fiscal (PS: na sao todos os lanaçmentos que tenho esta info) C3 = da mesma planilha - Razão social E3 da mesma planilha - Numero da nota Corresponder a p lanilha de entradas (fonte da informação) C:C - Razão social A:A - numero da nota adicionado 7 minutos depois Amado, deu certo, fiz um ajuste para puxar a D:D da planilha entradas. muito obrigada!!
  10. Ola, meus socorristas! Tudo bem? Gostaria de pedir ajuda para o duplo procv. Eu tenho uma planilha contendo: No entanto, eu posso ter nota fiscal numero 500 para fornecedor A e também para fornecedor B, sendo assim eu preciso colocar duas condições no procv. a fonte é mais ou menos assim: Estou tentando usar a seguinte formula: =PROCV(PROCV(C3;Entradas!C:D;2;0);Entradas!A:D;4;0) OU seja, eu preciso que na coluna A da planilha 2 seja o resultado da pesquisa da razão social e do número da nota, sendo o valor final a chave de acesso da nota. Mas não está funcionando. Já tentei terminar com Ctrl + enter, mas também não adiantou. OBS: desculpem,não posso liberar a planilha original por conter informações confidenciais. Grata desde já,
  11. @Patropi Muito obrigada!!! Você salvou meu fechamento!!!!!!
  12. Boa tarde! Na planilha 1 eu tenho 3.745 itens montados da seguinte forma: Na aba "bloco k 102019" eu tenho em uma única célula todas as informações de um produto. Por exemplo: são 10.093 registros. Estou procurando uma fórmula que consiga identificar que se o código do produto (em verde na primeira planilha) for igual ao código do produto da planilha 2 (no entanto sem dividir esta planilha), o sistema copiará a linha da planilha 2 para o campo "retorno da formula. OBS: na planilha 2 o código do produto está depois do registro 0200 ("|0200|") Então ficaria assim: Existe alguma fórmula que faça isso para mim? Grata desde já bloco k 102019.xlsx
  13. Prezados, boa tarde! Estou criando uma tabela onde preciso que após cada numero informação trazida pela formula, seja acrescentados dois zeros no final Por exemplo referencia cod estoque Descrição ab123 2123 abobrinha Entao, faço uma formula que me traz o seguinte: referencia ab123 codigo de estoque 212300 (ou seja, procv(ab123;tabela_de_produtos;2;0) acrescentando no final "00") como posso elaborar a fórmula? tentei incluir uma coluna com estes dois zeros e aplicar um duplo procv mas nao está funcionando. Grata desde já. teste.xlsx
  14. Ficou top! muito obrigada!!! adicionado 1 minuto depois Funcionou !!!! Muito obrigada!!!!
  15. Boa tarde! A empresa Y paga um bônus de R$ 30,00 mensais para cada ano inteiro que o funcionário completar. Ou seja: Ano 1: 30,00 Ano 2: 60,00 Ano 3: 90 (...) Ano 7: 210,00 E assim sucessivamente. Eu tenho a seguinte planilha: Coluna F com data de admissão Coluna G com data do cálculo do custo Coluna H com tempo na empresa ( usei a formula datadif, trazendo a quantidade em meses e multiplicando por 12, pois não encontrei outra fórmula que me trouxesse o resultado de anos e meses na mesma célula (ou seja, 1,3). O mais próximo que consegui foi isso) O que eu preciso é: Na coluna K (Bonus) se o funcionário tiver de 1 ano a 1 ano e 11 meses, R$ 30,00. Se tiver 2 anos até 2 anos e 11 meses, 60... e assim sucessivamente. Qual a melhor forma de trabalhar com isso e ocmo posso arrumar a coluna do tempo (H)? Grata desde ja. TESTE.xlsx

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

Aprenda_a_Ler_Resistores_e_Capacitores-capa-3d-newsletter.jpg

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!