Ir ao conteúdo
  • Cadastre-se

Alexandreudi

Membros Juniores
  • Total de itens

    6
  • Registro em

  • Última visita

  • Qualificações

    N/D
  1. Boa tarde! Trabalho em uma empresa que oferece mão de obra temporária, ou seja, contratamos temporários para trabalhar em outras empresas, estava precisando fazer uma planilha onde ela me desse o cálculo da rescisão. Só temos os motivos pedido de demissão, término de contrato, dispensa sem justa causa. A única coisa que a planilha precisa calcular é o saldo de salário do mês da rescisão, o valor dos avos de férias, 1/3 sobre os avos de férias, 13° proporcional, médias sobre férias, médias sobre 13°. Precisa de uma coluna somente para informar as horas extras realizadas para médias, ou outros eventos. Alguém consegue me auxiliar?
  2. Boa tarde! Tenho uma planilha onde tem uma aba com o nome "Base" que contém cargos repetidos, porém com informações diferentes, o que eu queria fazer é: Na aba consulta criar uma lista suspensa(que não apareça os cargos repetidos) ao lado do campo CARGO, onde ao selecionarBase Temporários.xls um cargo ele me traga as informações de chapa, nome, cpf, tomador, admissão, etc de todos os funcionários relacionados ao cargo. Tentei de várias formas mais não consegui fazer com que apareça a listagem de todos os temporários que contem o mesmo cargo. Base Temporários.xls
  3. Segue o arquivo, como não estava funcionando eu retirei esta função, a única configuração que contém nele é a data automática e o preenchimento automático de campos que contem as mesmas informações. Daí eu precisava criar um numero de proposta tipo 01120220 - Número da proposta: 01 e data 120220, daí a configuração deve funcionar para que mude este número somente quando eu salvar o arquivo, porque se eu entrar e consultar e fechar ele vai mudar automaticamente e perder a sequencia que deveria seguir. Proposta.docx
  4. Existe a possibilidade de nesse arquivo constar o numero subsequente junto com a data que eu estiver fazendo a proposta, por exemplo 01290120, que seria 01 o número da proposta e 290120 a data da proposta sem o /. Outro ponto é que quando eu fecho o documento sem salvar ele automaticamente muda a sequencia, gostaria que ele só mudasse quando eu salvasse, pois se eu não salvar e depois abrir novamente ele está alterando a sequencia. Uma outra questão é que quando salvo este documento na rede, e outra pessoa abre na máquina dela, não está considerando a sequencia, aparece a mensagem "Não é possível executar código em modo de criação". 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
  5. @Basole Bom dia! Existe a possibilidade de nesse arquivo constar o numero subsequente junto com a data que eu estiver fazendo a proposta, por exemplo 01290120, que seria 01 o número da proposta e 290120 a data da proposta sem o /. Outro ponto é que quando eu fecho o documento sem salvar ele automaticamente muda a sequencia, gostaria que ele só mudasse quando eu salvasse, pois se eu não salvar e depois abrir novamente ele está alterando a sequencia. Uma outra questão é que quando salvo este documento na rede, e outra pessoa abre na máquina dela, não está considerando a sequencia, aparece a mensagem "Não é possível executar código em modo de criação".
  6. Bom dia! Preciso criar um arquivo em Word que ao abrir ele me dê um número de proposta sequencial automática, tipo 01280120 que seria 01 o número da proposta e 280120 a data da proposta, quando eu salvar este documento e abrir outro ele me dê a sequencia 02280120 considerando o próximo número de proposta e a data, estou montando a expressão abaixo, mais não consigo finalizar para que funcione da forma que descrevi acima, alguém pode me ajudar? Private Sub Document_Close() If ActiveDocument.Saved Then contador = 0 arquivo = "c:\contador.txt" If Dir(arquivo) <> vbNullString Then n = FreeFile() Open arquivo For Input As #n Input #n, contador Close #n End If contador = contador + 1 n = FreeFile() Open arquivo For Output As #n Print #n, contador Close #n End If End Sub Private Sub Document_New() arquivo = "c:\contador.txt" If Dir(arquivo) <> vbNullString Then n = FreeFile() Open arquivo For Input As #n Input #n, contador Close #n End If Selection.TypeText "Proposta:" & Date & "" End Sub

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

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!