Edson Luiz Branco

Não exatamente. O "00" é argumento da função TEXTO e só serve pra formatar a saída numérica sempre com 2 dígitos. A parte da fórmula que conta é: CONT.SE(Tabela1[NUMERO DO PROJETO];TEXTO(HOJE();"AAAA.MM.\*"))+1 Veja que o argumento Critério da CONT.SE usa um asterisco. Foi usado porque a CONT.SE assim como algumas outras funções do Excel admitem o uso de coringas. Então esse trecho da fórmula diz: "na coluna NUMERO DO PROJETO da Tabela1, conte quais valores começam com o dia de hoje formatado como "AAAA.MM." e terminem com qualquer coisa. Após contar, some 1. Então se a contagem der 0 (novo mês), somado com 1 dá o reinício. A barra invertida antes do asterisco é usada como um caractere de escape para o asterisco, pois é caractere especial. Basicamente as fórmulas minha e do Patropi são próximas. A diferença é no uso da coluna da tabela e o número de concatenações.

Feliz 2021, colegas e amigos! @Gusthavo Marini, grosso modo segui a mesma linha de raciocínio do amigo @Patropi, portanto não difere muito (o crédito da solução continua sendo dele). Apenas fiz uso de sintaxe estruturada de tabela na fórmula da M5 e no VBA, aproveitando o fato que sua base de dados está em uma Tabela (ListObject). Fórmula da M5 (Planilha1): =TEXTO(HOJE();"AAAA.MM.")& TEXTO(CONT.SE(Tabela1[NUMERO DO PROJETO];TEXTO(HOJE();"AAAA.MM.\*"))+1;"00") VBA: Sub CopiaSalva() With Worksheets("BaseDados").ListObjects("Tabela1").ListRows.Add(AlwaysInsert:=True) .Range.Cells(1).Value = Worksheets("Planilha1").[M5] .Range.Cells(2).Resize(, 9).Value = Application.Transpose(Worksheets("Planilha1").[C5:C13]) End With End Sub Sub Limpar() Range("C5:C10,C12:C13,H11").ClearContents End Sub

Bem vindo ao fórum do Clube do Hardware, Renato (@re_we_sa) ! Por gentileza, anexe seu modelo para facilitar o trabalho, ok?

Boa tarde, @Leonardo Rubik Junior Veja se dá pra aproveitar alguma coisa ainda das informações discutidas em: "Otimizar divisão de medidas com menor desperdício possível"

Bem vinda, @Luciana.soares =SE(E(G7<>"";G8<>"");DATADIF(G7;G8;"D");"")

O melhor que você tem a fazer é seguir o conselho do amigo @Patropi. Assim conseguimos enxergar o problema da sua perspectiva e não conjecturando sobre possibilidades...

@Kleber Bispo, na sua ConnectionString você usa o caminho e o nome do arquivo, sem extensão, como sendo o nome de uma pasta. Tente alterar de: cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source =" & Pasta & Arquivo & "\" & ";Extended Properties=""text;HDR=Yes;FMT=Delimited"";" Para: cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source =" & Pasta & ";Extended Properties=""text;HDR=Yes;FMT=Delimited"";"

Ao invés de = A1 - HOJE() veja se usando =MÁXIMO(A1;A3) - HOJE() já não resolve.

tentativa: = texto(q2;"mmmm") & texto( (mês(q2)-1)*500 + somarproduto(1*(mês($q$2:q2)=mês(q2)));" 0000")

No modelo que você anexou, você esqueceu de uma vírgula na linha do OnTime. Também pode ocorrer erro se você demorar em responder à alguma caixa de diálogo em espera, por exemplo a de salvar alterações, atualizar vínculos, etc, pois o delta T que você usa é muito pequeno. Para contornar esse problema, usei um tratamento de erro pra seguir a execução. Segue o arquivo anexado. Modelo Registro de contato(EdsonBR).7z

Aqui funcionou. Anexe o arquivo, por gentileza. Obs.: não dá pra rodar o código no modo de depuração, senão não roda mesmo.

Num módulo convencional: Public RelogioLigado As Boolean Sub Relogio() Static tempo As Date If RelogioLigado Then tempo = Now() + TimeValue("00:00:05") Range("s2") = Time Application.OnTime tempo, "Relogio", , RelogioLigado End Sub No do Workbook: Private Sub Workbook_Open() RelogioLigado = True Call Relogio End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) RelogioLigado = False Call Relogio End Sub

Pela imagem não dá pra analisar. Teria que ser a pasta de trabalho Excel mesmo.

A alça de redimensionamento ainda está aparecendo? Se não é porque* ela deixou de ser tabela e passou a ser intervalo. Anexe seu arquivo aqui pra podermos analisar. P.S.: ou ainda pode ser também porque. a planilha foi protegida.

@Lovski, sem querer você deve ter convertido a tabela em intervalo. Clique em qualquer célula que está na grade da tabela (por exemplo, na que tem a palavra "ITEM") e na guia Inserir > grupo Tabelas > clique no botão "Tabela". Ajuste o intervalo das células inicial e final se necessário e marque "Minha tabela tem cabeçalhos".

Estranho... A planilha/pasta de trabalho está protegida? Se abrir em outro PC acontece o mesmo? Arrastando a alça de preenchimento com o botão direito aparece alguma opção? Se você for pela guia Página Inicial > grupo Edição > botão Preencher também dá no mesmo? Procure anexar um arquivo aqui onde esse comportamento está ocorrendo pra tentarmos entender o que está ocorrendo...

Bom dia, @magnosalmeida Isso acontece quando você tenta arrastar partindo de uma célula (ou mais) que estejam num intervalo filtrado onde há linhas ocultas. Desabilite a filtragem exibindo todos os registros antes de usar o preenchimento relâmpago.

Você precisa qualificar o tipo de retorno de sua UDF como sendo do tipo do UDT criado: Function novoContato() As typContato

Para facilitar, anexe um modelo explicando como você quer que fiquem distribuídos os nomes na planilha. Obs.: se o arquivo contiver macros, zipe-o antes para que o mecanismo do fórum permita o envio.

Bem vindo ao fórum, @Ruy ML Batata Sub btnRodízioDados_Click() Dim x As Variant x = [A1:A5].Value [A1].Value = [A6].Value [A2:A6].Value = x End Sub

Bem vindo ao fórum, @HELIOS No VBA, ChDrive e ChDir só funcionam para path de redes que tenham o caminho mapeado, p. ex. Z:\Orçamentos\. Mas você pode usar o UNC completo no argumento FileName do método ExportAsFixedFormat. Ex.: ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:= "\\SERVIDOR\DOCUMENTOS\ORÇAMENTOS\" & "MeuOrçamento.pdf", _ Quality:= xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=False

Bom dia, @Cauê Amabile Paldini Tente o seguinte: Clique em seu gráfico e na Guia de Contexto Ferramentas de Gráfico que aparece clique na guia Formatar; À esquerda, no grupo "Seleção Atual", clique na seta e escolha "Eixo Vertical (Valor)"; No painel de tarefas que aparece à direita ("Formatar Eixo"), selecione o ícone mais à direita ("Opções de Eixo" ícone de 3 colunas); Expanda "Opções de Eixo"; Em primeiro lugar, para as linhas não ficarem tão espremidas acima das barras colunadas da série Valores, aumente o Limite Máximo que está em 160.000 para, digamos, 200.000; Em segundo lugar, desloque um pouco para cima a origem do gráfico de linhas, fazendo o mesmo procedimento acima, só que para o "EixoSecundário Vertical (Valor)". Para fazer isso, altere o Limite Mínimo para um valor negativo, digamos -150; Se necessário, ajuste manualmente também o Limite Máximo para um valor um pouco maior que o maior valor das quantidades, digamos, 250; Por último, se você quiser melhorar a posição dos rótulos da linha amarela, deixe-os logo abaixo do traçado da linha ("Série 'Qtd Novembro' Rótulos de Dados").

Da sua imagem: For Each cél in Worksheets("Sheets1")... Não existe nenhuma planilha com nome Sheets1 em seu arquivo, pelo que se depreende da imagem. Além disso, qual é a coluna do nome velho e qual a do nome novo? No código que te passei, no intervalo A3:A5 estavam os nomes velhos e na coluna imediatamente à direita (por isso o Offset é de 0 linhas e 1 coluna) estava o novo nome. É bem mais difícil obter auxílio quando o membro anexa só imagens ao invés de anexar a pasta de trabalho Excel.

Vou tentar resumir o que o código usado no VBA do colega @ppeterk faz: O Módulo1 pelo que me consta é uma adaptação de um antigo código publicado a primeira vez em 2009 por um usuário no fórum americano administrado pelo notável Excel MVP Bill Jelen ("Mr. Excel"), situado no link PDF to Excel data copy: Inicialmente você precisa ter o Adobe Acrobat Reader 32 bits instalado em sua máquina para funcionar; Na rotina *Start o código começa deixando o usuário escolher qual pdf será processado através da caixa de diálogo GetSaveAsFilename. Se me permite a sugestão, aqui o mais coerente seria talvez usar a análoga Application.GetOpenFileName já que não é um salvamento e sim abertura de arquivo (para isso é só eliminar o parâmetro InitialFileName). O nome do pdf escolhido é lançado numa variável; Na sequência o pdf é aberto no Acrobat Reader o qual é iniciado via Shell passando como parâmetro na linha de comando o nome do pdf que está na variável; Aguarda 4 segundos para executar a rotina FirstStep (tempo pra carregar o Reader e o pdf); A rotina FirstStep manda então um pressionamento de tecla CTRL + A na tela do Adobe (Selecionar Tudo) via SendKeys e em seguida um CTRL + C (copiar p/ Área de Transferência); Mais uma pausa de 4 seg para a SecondStep; A rotina SecondStep inicialmente deveria fechar o Reader com pressionamento de ALT + F + X entretanto, para o Reader em português, teria que ser substituído por CTRL + Q (SendKeys ("^q")); Ainda na mesma procedure o arquivo Excel é ativado, a planilha "PDF" é ativada, as células são previamente limpas e o conteúdo da clipboard é colado na célula A1 pelo envio do pressionamento CTRL + V; Finalmente ocorre o pressionamento da tecla NUMLOCK seguido de ALT + S que honestamente não sei qual finalidade. O Módulo2 não está sendo usado Resumindo, o código abre, seleciona, copia e cola o pdf da célula A1 em diante da planilha "PDF". Esse é o problema central. Não há um padrão rigoroso no modelo. Pelo menos não um que o @VargasExcel possa ele mesmo determinar. A vantagem do código que o @ppeterk disponibilizou é que todos os candidatos aparecem no conteúdo de texto puro colado nas células o que não está ocorrendo na conversão direta para o Word (apesar de o texto estar lá pois pode ser pesquisado). A desvantagem principal é que não é possível refluir o pdf conforme as posições originais dos boxes como estão sendo layoutados no original, sendo que partes de trechos que estão em blocos à direita acabam por se misturar ao texto à esquerda o que eventualmente pode tornar a extração não tão confiável. Além disso, cabeçalhos e rodapés que no Word ficam corretamente desmembrados do texto principal, também acabam por ficar diluídos no meio do conteúdo dos dados dos candidatos. Particularmente também não sou muito fã de trabalhar com programas externos através de pressionamentos de tecla na tela (via SendKeys). Mas fica sim como uma carta na manga. Se ficar inviável extrair como imaginado devido à complexidade, temos essa alternativa pra trabalhar, afinal não são muitos dados que você precisa extrair. Vamos seguindo trocando ideias, colegas.

Boa tarde, @ltoledo Selecione o intervalo todo A2:A29 Ir Para (F5) > Especial... > Selecionar: Em branco Na célula que ficou ativa (A3) digite a fórmula: = A2 Finalize com CTRL + ENTER Para eliminar as fórmulas que ficaram da operação acima, selecione novamente o intervalo inteiro A2:A29 e copie e cole só como valores (botão direito > colar especial > valores)