Este fórum está sendo desativado

=SE(MÊS(A1)<7;"1º sem";"2º sem")

Olá, @Jeczei. Para acessar a Área de Trabalho do Windows manualmente não é necessário fechar o Excel, basta apertar juntas as teclas Windows+d (a tecla Windows é a que tem o logo do Windows). Para acessar a Área de Trabalho via VBA experimente acrescentar ao seu código o comando abaixo que encontrei...

Use ARREDONDAR.PARA.CIMA() no lugar de ARRED()

1. o código que você postou Salva e Fecha o arquivo ativo, e o arquivo ativo pode ou não ser o arquivo que contém a macro que está sendo executada, então se você quiser garantir que o arquivo a ser fechado é o arquivo que contém a macro, independente se ele é ou não o arquivo ativo, substitua as dua...

Sempre ao fechar a planilha, todas as demais que foram abertas anteriormente, ou após, também estão sendo fechadas em bloco, juntas. Os arquivos não estão sendo fechados e sim ocultados por este comando ~~~> Application.Visible = False Basta excluí-lo. Ainda, este outro comando não me parece algo c...

Para não sobrescrever o registro, no código Sub Workbook_BeforeClose, substitua conforme abaixo. no lugar destas linhas ' ' Encontrar a última linha preenchida na coluna D ' lastRow = ws.Cells(ws.Rows.Count, "D").End(xlUp).Row ' ' Se a última linha for menor que 2, definir a linha 2 como a...

=SOMA(DESLOC(G3;;CORRESP(DATAM(B3;1);G2:X2;0)-1;;12))

Salve, Jorge.

A função SOMARPRODUTO() é poderosa e, neste caso, os argumentos no formato de matriz tornam a fórmula compacta.

Abraço.

Olá @LARYSSABECKER.

Experimente as fórmulas abaixo.

fórmula colocada na planilha Geral ---> =SOMARPRODUTO((ESQUERDA(N2:N337;1)+0={1\2\3})*(X2:X337))

ou se a fórmula dor colocada em outra planilha ---> =SOMARPRODUTO((ESQUERDA(Geral!N2:N337;1)+0={1\2\3})*(Geral!X2:X337))

Basicamente, preciso selecionar todo o campo até a última célula, tanto para baixo, quanto para a esquerda. ... porém preciso que ele pegue até a última linha da direita (até a coluna P) No primeiro post você comentou que quer selecionar para baixo e para a esquerda, no segundo você disse que quer ...

Tentei ver a sua planilha via satélite para entender a seleção desejada, mas ... não consegui. Então seguem abaixo dois palpites. _______________________________________________________________________________________________ 'seleciona todo o intervalo, a célula ativa ficará no canto superior direi...

Experimente:

ActiveWorkbook.Close SaveChanges:=True


Sugestão:
Application.ScreenUpdating=False 'acrescente esta linha ao seu código
Sheets("Diretorios").Select

A:\DIRETORIOS_COMPARTILHADOS\RELATORIO_GERENCIAL\";C3;"\Reuniões\N5\Atendimento\Aderência_de_Escala_";$F$1;".xlsx Se esse aí acima é o conteúdo de D3, então o código que passei deveria funcionar, mas você deve manter o que passei, sem alterações, como você fez. Este é o que passe...

Experimente:

=TEXTO([@Data];"mmm")

Outra solução: coloque esta fórmula =[@Data]*1 e formate a coluna para Personalizado | mmm

Se a célula D3 que contém o caminho do arquivo estiver na planilha ativa, experimente o comando abaixo.

Workbooks.Open [D3]

Seguem 3 opções que retornam resultados iguais. _____________________________________________________________________________________________________ Sub ConCatEval() 'insere direto os resultados na coluna A via Evaluate, mas em seguida é preciso formatar as datas Dim r As Range Application.ScreenUp...

Olá, @PedroBB. A velocidade de processamento das coleções como Array, Collection e Dictionary, será bem maior se as operações forem executadas na própria coleção ou entre duas ou mais coleções, pois nesses casos o processo é todo efetuado na memória da máquina, que é rápida, e não existe interação c...

É desnecessário trabalhar com dois códigos. Private Sub CommandButton1_Click() Dim LR As Long LR = Cells(Rows.Count, 27).End(3).Row: [A:C] = "" Range("AC1:AC" & LR).Copy [A1] Range("AB1:AB" & LR).Copy [B1] If [AH1] = 1 Then Range("AE1:AE" & LR).Cop...

Yes, Sir. Here you go. Instale uma cópia do código abaixo no módulo da planilha de interesse. Private Sub Worksheet_Activate() If Not [A1].ListObject Is Nothing Then Exit Sub ActiveSheet.ListObjects.Add(xlSrcRange, Range(Range("A1").CurrentRegion.Address), , xlYes).Name = "Tabela1&quo...

Não seria viável converter o intervalo em Tabela Excel?

selecione qualquer célula no intervalo de interesse | Menu Inserir | Tabela