Planilhando :: O Maior portal de Excel do Brasil - Tópicos Recentes

exemplo

THIAGO TEMPONI — Sat, 13 Jun 2026 16:05:40 +0000

Não estou conseguindo abrir os posts exemplos como eu faço ?

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"

TABELA

MCSilveira — Thu, 21 May 2026 15:35:13 +0000

Alguém sabe uma forma de proteger uma coluna em uma tabela (formatar como tabela) sem utilização de VBA, de forma que o usuário não consiga alterar o seu conteúdo? Já tentei utilizar a questão de proteção, mas com a proteção não é possível criar uma nova linha da tabela.

Atualizar uma planilha com base em outra planilha de forma automatica

LuizSouza — Wed, 20 May 2026 18:55:05 +0000

Boa Tarde!
Preciso automatizar uma planilha "PLAN1" (formatada como tabela) que possui cabeçalhos fixos e os dados devem ser alocados verticalmente, buscando as informações de outra planilha "PLAN2" que possui várias abas, cada aba refere-se à um projeto diferente, com uma pequena tabela em cada aba que possui as mesmas colunas e as informações preenchidas. O esquema é que a PLAN1 busque na PLAN2 as informações e se preencha automaticamente, para que o PowerBI leia esta PLAN1 e se atualize.

Agrupar dados diferentes com base na color da célula

Guilherme22 — Sat, 25 Apr 2026 19:32:28 +0000

Eu preciso de uma maneira de agrupar as células (com seus dados) em colunas, de forma que elas permaneçam na mesma linha, mas mudem de coluna de acordo com suas cores. O arquivo em anexo deixa mais óbvio. Obrigado! EDIT: Não consigo anexar o arquivo, alguém da uma força aí por favor.

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

Procurar valor em coluna e linha e Retornar valor (nome)

surya2015 — Sun, 05 Apr 2026 21:25:30 +0000

Boa tarde
Sou "meio" leigo em excel
Queria saber se é possível obter o seguinte resultado:
Quando atribuo um dado em C18, na celula E19 aparece o elemento da Coluna D3:D15 correspondente.
Ex: se C18=31/03/2026 seria "Castela" se C18=30/03/2026 seria Azevedo.
Ex: Se fosse na celula E21 C18=31/03/2026 seria "João"

esc_aut.jpg

Erro Formula

Camilo Cunha — Thu, 02 Apr 2026 10:18:31 +0000

Bom dia.

Estou trabalhando em uma Formula e preciso encontrar o resultado de varias outras células, e não estou conseguindo, alguém poderia me ajudar?

=SOMASES('Empilhar 2025'!$H$2:$H$10000;
'Empilhar 2025'!$I$2:$I$10000;"D";
'Empilhar 2025'!$C$2:$C$10000;$K$2;
'Empilhar 2025'!$E$2:$E$10000;$P$2;
'Empilhar 2025'!$B$2:$B$10000;D$5;
'Empilhar 2025'!$G$2:$G$10000;""&SEERRO(PROCV("Limpeza01 - Produtos Lava-Jato";'Empilhar 2025'!$G$2:$H$10000;1;0);"")&"")

Essa fórmula esta correta e funcionando, acontece que eu preciso que ela me retorne automaticamente vários outros resultados nesse ultimo calculo ai;

Limpeza02 - Produtos Lava-Jato
Limpeza03 - Produtos Lava-Jato
Limpeza04 - Produtos Lava-Jato
Limpeza05 - Produtos Lava-Jato

Quando eu Selecionar o P2, e alterar de Limpeza01 para Limpeza04, a formula precisa encontrar todas as despesas de Produto de Lava-Jato automaticamente da Limpeza04