Tenho um formulario que imprime um arquivo em PDF e quero enviar para uma cliente pelo o whatsap usando o vbae possivel ou tem uma outra maneira?

Pessoal preciso de uma ajuda se possivel.

Tenho a macro sub parte2 e preciso deixar o script abaixo que tem o valor 9 em que esse 9 atualize de acordo com a informação da coluna E  a partir da linha 3.

Cada linha que vai ser percorrida pode ser um numero diferente e gostaria de deixar essa informação automática

session.findById("wnd/usr/cntlC_CONTAINER/shellcont/shell/shellcont/shell/shellcont/shell/shellcont/shell").selectItem (" 9"), "&Hierarchy"
session.findById("wnd/usr/cntlC_CONTAINER/shellcont/shell/shellcont/shell/shellcont/shell/shellcont/shell").ensureVisibleHorizontalItem " 9", "&Hierarchy"
session.findById("wnd/usr/cntlC_CONTAINER/shellcont/shell/shellcont/shell/shellcont/shell/shellcont/shell").clickLink " 9", "&Hierarchy"

Sub Parte2()


If Not IsObject(Appl) Then
Set SapGuiAuto = GetObject("SAPGUI")
Set Appl = SapGuiAuto.GetScriptingEngine
End If
If Not IsObject(Connection) Then
Set Connection = Appl.Children(0)
End If
If Not IsObject(session) Then
Set session = Connection.Children(0)
End If
If IsObject(WScript) Then
WScript.ConnectObject session, "on"
WScript.ConnectObject Appl, "on"
End If




Windows("Consultar Status Nota Fiscal.xlsm").Activate
Sheets("Planilha3").Select




session.findById("wnd").maximize
session.findById("wnd/tbar/okcd").Text = "/NEDOC_COCKPIT "
session.findById("wnd").sendVKey 0




session.findById("wnd/usr/cntlC_CONTAINER/shellcont/shell/shellcont/shell/shellcont/shell/shellcont/shell").selectItem (" 9"), "&Hierarchy"
session.findById("wnd/usr/cntlC_CONTAINER/shellcont/shell/shellcont/shell/shellcont/shell/shellcont/shell").ensureVisibleHorizontalItem " 9", "&Hierarchy"
session.findById("wnd/usr/cntlC_CONTAINER/shellcont/shell/shellcont/shell/shellcont/shell/shellcont/shell").clickLink " 9", "&Hierarchy"



session.findById("wnd/usr/cntlC_CONTAINER/shellcont/shell/shellcont/shell/shellcont/shell/shellcont/shell").sapEvent "Frame0", "sapbu_cl= &sapse_cl= &sapin_cl=A1F1I1NAME:LAST_DAYSsapENTER&A1F1I1=120", "sapevent:A1F1"
session.findById("wnd/usr/btnBUTTON_1").press
session.findById("wnd/usr/cntlC_CONTAINER/shellcont/shell/shellcont/shell/shellcont/shell").setCurrentCell -1, "NFENUM"
session.findById("wnd/usr/cntlC_CONTAINER/shellcont/shell/shellcont/shell/shellcont/shell").selectColumn "NFENUM"
session.findById("wnd/usr/cntlC_CONTAINER/shellcont/shell/shellcont/shell/shellcont/shell").pressToolbarButton "&MB_FILTER"
session.findById("wnd/usr/ssub%_SUBSCREEN_FREESEL:SAPLSSEL:1105/ctxt%%DYN001-LOW").Text = "000031945"
session.findById("wnd/usr/ssub%_SUBSCREEN_FREESEL:SAPLSSEL:1105/ctxt%%DYN001-LOW").caretPosition = 9
session.findById("wnd").sendVKey 0
session.findById("wnd/usr/cntlC_CONTAINER/shellcont/shell/shellcont/shell/shellcont/shell").currentCellColumn = ""
session.findById("wnd/usr/cntlC_CONTAINER/shellcont/shell/shellcont/shell/shellcont/shell").selectedRows = "0"
session.findById("wnd/usr/cntlC_CONTAINER/shellcont/shell/shellcont/shell/shellcont/shell").pressContextButton "GOTO"
session.findById("wnd/usr/cntlC_CONTAINER/shellcont/shell/shellcont/shell/shellcont/shell").selectMenuItem "DISPLAY_SOURCE"

Ocorre que após finais de semanas e feriados, o dado fica em dia sem movimentação e preciso corrigir manualmente.

Gostaria de inserir na rotina uma busca, e selecionar a linha correta para colocar o dado do dia útil anterior ao(s) feriados.

Agradeço qualquer colaboração.

Print da tabela: onde "F" é Feriado, "S" é Sábado e "D" é domingo.

 Rotina que utilizo, mas sempre em "T" & ultimaLinha -1.Select, não são considerados feriados, sábados e domingos...

' Esta rotina seleciona e copia a célula (Q6-DI Acum) atualizada em "Evol_Dia"

       Sheets("Diário").Select

       Range("Q6").Select

       Selection.Copy

       Sheets("Evol_Dia").Select

       Sheets("Evol_Dia").Range("T" & ultimaLinha - 1).Select

       Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

           :=False, Transpose:=False

       Range("A1").Select

Windows, notebook, 64, office 365

Baixei uma planilha gratuita de cálculo e emissão de contracheques na internet. A planilha original funciona muito bem, mas precisei fazer algumas adequações para atender às necessidades diárias da minha empresa.

Criei uma versão chamada folha de pagamento_Deisiane, baseada na planilha original. Porém, após as edições, alguns botões deixaram de funcionar, como:

• Próximo / Anterior

• Cadastros

• Resetar

• Incluir

• Editar

• Seleção de ano e mês

O botão Calcular eu removi, pois não preciso dos cálculos automáticos. O que realmente preciso é que a planilha funcione de forma automatizada, puxando corretamente as informações (descrição e valores) lançadas para cada colaborador.

Estou compartilhando as duas planilhas (a original e a versão editada) para que possam entender o funcionamento dos botões e me ajudar a configurar a versão ajustada.

Infelizmente não tenho conhecimento em VBA/macros, então não consigo corrigir esses problemas. Preciso dessa adequação com urgência, pois amanhã já preciso lançar as informações da folha de pagamento para enviar à contabilidade.

Agradeço muito se alguém puder me ajudar!

     Tenho um formulário onde nele vou digitar na textbox um código de barras da CEF, já tenho o código só que ao digitar o código de barras dá como inválido. Já fiz testes com vários códigos de barras da CEF e sempre dá inválido, o que pode ser ?

Att,

Francisco

adqui umcodigo vba no chatgpt mas não entendi como inserir no excel... 

o código é esse:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim linha As Long

If Target.Column <> 7 Then Exit Sub 'Coluna de Observações
If LCase(Target.Value) <> "marca" Then Exit Sub

linha = Target.Row

If Cells(linha, 2).Value = "" Then
Cells(linha, 2).Value = Time 'Entrada
ElseIf Cells(linha, 3).Value = "" Then
Cells(linha, 3).Value = Time 'Saída Almoço
ElseIf Cells(linha, 4).Value = "" Then
Cells(linha, 4).Value = Time 'Retorno Almoço
ElseIf Cells(linha, 5).Value = "" Then
Cells(linha, 5).Value = Time 'Saída
Else
MsgBox "Todos os horários deste dia já foram marcados."
End If

Cells(linha, 2).NumberFormat = "hh:mm"
Cells(linha, 3).NumberFormat = "hh:mm"
Cells(linha, 4).NumberFormat = "hh:mm"
Cells(linha, 5).NumberFormat = "hh:mm"
End Sub

mas não estou sabendo inseri-lo na planilha...

alguem para explicar?

Possuo um projeto que busca fazer o desdobramenteo de um conjunto de dados numéricos (dezenas combinatórias da loteria lotofácil), e essa parte está tudo certo.A planilha faz o desdobramento corretamente das 25 dezenas em um rol de 17 para 15 o qual gera 136 combinações. 

Meu desejo atual é fazer que essa combinações ao ser geradas (136) sejam também confrontadas com o rol das 3.268.760 combinações possíveis, e retorne qual é o posicionamento delas no CSN (Número sequencial de combinação).

Segue o código já realizado no Gdrive devida a dimensão do mesmo.

https://drive.google.com/file/d/1L_tMAvlaMYuk9oNEw7eDr0MuQt0Bpxi6/view?usp=drive_link

Obrigado.

Esta linha de comando acima como faço para adaptar para o código abaixo

Ela vai retornar em uma coluna a data do 1º lançamento de cada produto e  em outra coluna a ultima data de lançamento de cada produto

Sub AtualizaDatas()
'' Atualiza Guia Movimento
' Gravado por Denilson Roberto de Souza

Dim w As Worksheet
Dim senha As String
Dim ulinha As Long
Dim UltimaLin As Long
senha = "acerf15"
'Captura a Ultima Linha na Coluna c
UltimaLin = ActiveSheet.Cells(Rows.Count, "a").End(xlUp).Row
Application.ScreenUpdating = False
Set w = Planilha5
w.Activate
If w.ProtectContents = True Then
w.Unprotect senha
End If



Range("i2").Select
ActiveCell.Formula = "=iferror(if(isna(MATCH(B;LCTO!A:A;0));"";MIN(SE((LCTO!A:A=B);LCTO!C:C)));"")"
Range("f2").Select
Selection.End(xlDown).Select
lin = ActiveCell.Row
rg = "i2:i" & lin
ActiveCell.Value = ActiveCell.Value
Range("i2").Select
Selection.AutoFill Destination:=Range(rg), Type:=xlFillDefault
Range("i2:i" & lin).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

cont = 2




cont = cont + 1
'Loop


'Apaga todas as Linhas em branco a partir de A2

w.Protect senha


End Sub