2024 - VBA & Macros - Planilhando :: O Maior portal de Excel do Brasil

Enviar arquivo PDF para o whatsap

gerald — Sat, 30 May 2026 02:33:24 +0000

Boa noite

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?

Deixar um determinado valor no script trazer uma informação de acordo com a informação que esta nas celulas de uma coluna

cmbruno — Sun, 24 May 2026 15:32:15 +0000

Bom dia,

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"

Buscar data útil anterior a feriados

Bautto — Tue, 14 Apr 2026 19:14:57 +0000

Na planilha (print abaixo), uso a rotina para colar dado de outra planilha, referente a data anterior.

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.

01/04/2026	U	0,0543
02/04/2026	U	0,1086
03/04/2026	F
04/04/2026	S
05/04/2026	D
06/04/2026	U	0,1629
07/04/2026	U	0,2172
08/04/2026	U	0,2716
09/04/2026	U	0,3260
10/04/2026	U	0,3805
11/04/2026	S
12/04/2026	D
13/04/2026	U
14/04/2026	U
15/04/2026	U
16/04/2026	U
17/04/2026	U
18/04/2026	S
19/04/2026	D
20/04/2026	U
21/04/2026	F
22/04/2026	U
23/04/2026	U
24/04/2026	U
25/04/2026	S
26/04/2026	D
27/04/2026	U
28/04/2026	U
29/04/2026	U

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

COMBOBOX PREENCHER

Romario Wllian Santos da Silva — Mon, 30 Mar 2026 01:41:57 +0000

Boa noite galera.
Alguem sabe como preencher o combobox com dos dados da Guia Master Coluna Q somente com os valores preenchidos?
Eu tentei usar o ListFillrange Q1:Q10, mas tem hora nao funciona, carrega somente a primeira linha.
outro ponto que fica varios campos vazio no combobox e fica feio.
tentei usar em formulas =DESLOC(MASTER!$Q$1;0;0;CONT.VALORES(MASTER!$Q:$Q)), mas nao funciona.
grato pela atencao.

Windows, notebook, 64, office 365

7-teste.xlsm

Power Query - Retornar 1 se encontrato Criterio

Romario Wllian Santos da Silva — Mon, 02 Feb 2026 03:17:39 +0000

Ola, pessoal tenho uma planilha que eu queria puxar onde estivesse a palavra "Nome" o valor abaixo em uma coluna personalizada usando o power query.
Resumindo a ideia, digamos que eu tenho 1000 nomes, quando eu filtrasse a coluna 2 para exibir somente 1, iria aparecer o nome de todos os funcionarios filtrados.

Exemplo:

Coluna 1 Coluna 2

Nome
Juliana 1

Windows 10, 64, Office 365, notebook

teste.xlsx

Ajuda para adequar planilha de holerites com VBA/macros

deisiavelino — Mon, 19 Jan 2026 18:44:34 +0000

Olá, pessoal!

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!

Folha-de-pagamento_Deisiane.xlsm

Mesclar Consultas e Seguir ordem crescente de datas

Romario Wllian Santos da Silva — Sun, 11 Jan 2026 20:52:02 +0000

Ola, galera alguem consegue me ajudar.
Eu to usando power query para mesclar duas consultar.
porem no final da etapa onde eu mesclo nome e datas de faltas, depois de expandir as datas ficam fora de sequencia... eu queria que seguisse... 1,2,3,4,5,6 (exemplo)
Se voce olhar antes de expandir as datas estao em sequencia. Acho que esqueci ou nao sei kkk de fazer alguma etapa.
Eu mandei todo meus arquivo, ai é so conectar a fonte pra carregar.
porque eu acho que so mandar a planilha da erro nao deve mostrar para voces se ta funcionando ou nao ne?

Consulta Presente e Consulta Falta

Windows 10, Notebool, 64, office 365

01.2026.rar

Proteger palnilha com slicer, deixando slicer funcional e impedindo remoção do slicer pelo menu de contexto

Juecel — Tue, 02 Dec 2025 23:34:13 +0000

Procuro uma solução para proteger uma planilha com um slicer associado a uma tabela simples de forma que o slicer funcione e sem que se possa remover o slicer através do menu de contexto.

Código de Barras CEF

fcarlosc — Tue, 18 Nov 2025 16:26:03 +0000

Boa tarde,

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

Planilha-Codigo-de-Barras-CEF.rar

como fazer

JOAOCOSTA — Tue, 18 Nov 2025 00:46:29 +0000

sou entusiasta em excel e estou montando uma planilha de ponto de funcionários

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?