Alexandreudi

Ricardo boa noite!

 

Consegui criar uma macro com as regras necessárias e funcionou perfeitamente, muito obrigado pela sua atenção e empenho para criar este comando.

 

Deus te abençoe.

Mais neste primeiro caso do vídeo como eu consigo enviar um anexo para cada pessoa, pois não posso enviar os holerites para que todos vejam, tem que ser um holerite para cada um com seu respectivo nome, acho que por este não dá para configurar desta forma né.

 

Quanto a estas opções script em batch ou powershell você pode me orientar se é possível executar desta forma, onde eu envie o anexo específico para cada pessoa.

Tenho a relação com os nomes completos e e-mail de cada um, e os pdf's com os holerites foram renomeados com os nomes de cada funcionário.

Os holerites ficam salvos em um driver na rede da empresa.

Boa tarde!

 

Preciso criar uma mala direta ou outra forma onde eu consiga disparar vários e-mails com anexo diferentes, por exemplo, preciso enviar 150 e-mails com 150 anexos diferentes, neste caso são holerites, então preciso enviar o holerite da Anna para a Anna, o do João para o João, porém perco muito tempo enviando um a um, assim gostaria de otimizar meu tempo criando alguma forma e envio mais dinâmica.

 

Hoje utilizo o Outlook 2013 para enviar os e-mails.

 

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?

 

 

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

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

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

@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".

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