Edson Luiz Branco

Supondo que sua tabelinha esteja no intervalo A1:B4 com a primeira linha sendo o cabeçalho, a fórmula seguinte retorna a soma dos ganhos líquidos: =SOMARPRODUTO(B2:B4*(1-A2:A4))

Faça um teste: clique em qualquer um dos campos em que aparece o valor corretamente antes de imprimir e tecle F9 para atualizar aquele valor. Se no lugar do valor aparecer códigos de campo (ex. <<bairro1>>) é sinal de que os valores que aparecem são os que estão congelados desde a última atualização. Seu documento provavelmente não está mais vinculado corretamente à fonte de dados, ou a fonte (planilha no caso) não está disponível ou está fechada, precisando refazer essa conexão.

Bem vindo, @janweb10 Veja se é isso: Sub PegaCaption() Dim htmlBtn As OLEObject For Each htmlBtn In Worksheets("Exemplo").OLEObjects htmlBtn.TopLeftCell.Offset(0, 4).Value = htmlBtn.Object.Caption Next htmlBtn End Sub

Bom dia @Hannaa Faça um teste: No seu Windows Explorer, ative a opção de exibir arquivos ocultos e de sistema. Quando não houver ninguém usando o arquivo, verifique na pasta da rede onde está esse arquivo se não existe algum arquivo oculto temporário, geralmente começando com ~$. Encontrando algum, delete-o.

Talvez se você editasse essa sua macro de inclusão para, ao invés de usar copiar/colar, trabalhar com os objetos ranges internamente... geralmente fica até mais rápido e eficiente. De qualquer forma, o ideal seria analisar seu arquivo pra propor uma solução mais assertiva. Para essa finalidade existe o método PasteSpecial com o argumento xlPasteValues. Outra alternativa seria monitorar a alteração em seu range destino, remover todas as FC's indesejadas que foram recém coladas e restaurar a FC padrão do intervalo.

você quer bloquear a cópia de (origem) um intervalo específico ou a colagem para (destino) um intervalo específico? O primeiro é bem mais complicado. Se for o segundo, ou seja se for só pra evitar que as células destino fiquem sujas com formatação condicional indesejável, você poderia testar o seguinte no módulo de eventos da planilha, supondo que você queira evitar sujar o intervalo, digamos, A1:B3: Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Selection, [A1:B3]) Is Nothing Then Application.CutCopyMode = False End If End Sub

Primeiramente, bem vinda ao fórum, @Julia88! Teríamos que analisar seu arquivo pra verificar o que pode estar ocorrendo... Não tem jeito, eles vão ter que dar a autorização consentindo a abertura do arquivo, mas não é a toda hora. Para um mesmo arquivo, apenas a primeira execução. Ou orientá-los a configurar como "Habilitar todas as macros", logicamente antes advertindo-os de possíveis riscos de segurança. Você pode orientá-los também a marcar uma pasta qualquer no PC deles como sendo uma Pasta Confiável: Arquivo > Opções > Central de Confiabilidade > Locais Confiáveis > Adicionar novo Local. Só como .xlsx não é possível se existirem macros. Só .xlsm ou .xlsb (Binário) ou reverter para versões antigas .xls. Essa última talvez eles consigam abrir sem aviso...

Bom dia, @Bruno Thomas Tente converter o arquivo com o "Salvar Como..." escolhendo o tipo "Pasta de Trabalho Binária do Excel (*.xlsb)". Se der certo de não aparecer mais erro, reverta o processo depois salvando como originalmente no formato .xlsx

Bom dia, @Alessandro Rodrigo Rodel O Microsoft Word acima da versão 2013 já consegue nativamente fazer importação de pdf com bons resultados, então sugiro usá-lo em seu projeto. Embora não seja só um tipo específico de informação que você quer extrair e nem só de um tipo específico de pdf, supondo que todos os pdf's previamente selecionados estejam numa mesma pasta (digamos C:\ParaExtração\), a sequência a ser seguida pelo código VBA seria praticamente a mesma em cada situação e seria mais ou menos essa: Abrir o primeiro arquivo pdf da pasta C:\ParaExtração\ Colocar o conteúdo do pdf (exceto cabeçalhos e rodapés) numa variável String "Sanitizar" essa String pra facilitar a procura pelo match do padrão (remover espaços e tabulações em início de parágrafo ou antes do fim, substituir espaços múltiplos por simples, etc) Procurar pelo início e pelo fim do padrão*: Opção 1: capturar entre o início e fim do padrão somente o texto encontrado (mais fácil) Opção 2: copiar a informação entre início e fim do padrão como está apresentado (com formatações, moldura de tabela, etc.) Inserir ou colar o texto encontrado no destino final, numa célula de tabela do Word ou do Excel, por exemplo (note que, como você já está com o registro em memória, este seria o ponto ideal para separar também outros campos, como número do processo, data, sentença, etc.) Fazer loop até encontrar todas as ocorrências Fechar o arquivo Abrir o próximo arquivo da pasta C:\ParaExtração\, inserir ou colar as informações extraídas na próxima célula do destino Repetir até finalizar os arquivos da pasta. Para seu tipo de extração, não vejo melhor alternativa senão a de usar Expressões Regulares (Regex) através da biblioteca VBScript.RegExp através do VBA. Por exemplo, para o último pdf anexado, uma ER (pattern) razoável que retornaria todas as 7 ocorrências do primeiro caso poderia ser: SECRETARIA ?DE ?ESTADO ?DA ?FAZENDA[\s]*AUDITORIA ?TRIBUTÁRIA[\s]+CONSULTA Nº:[\s\S]+?((Chefe da Auditoria Tributária)|(Verificador: ([\dA-Z]{4}\.?){4})) Para o segundo caso a seguinte ER: ^CONTRIBUINTE:[\s\S]+?JULGADOR:.*$ retornaria cada uma das 118 ocorrências. _______________________________________________________ *Um detalhe importante quanto ao fim do padrão: É fundamental identificar onde termina cada registro para que nenhum fique de fora e/ou para que não ultrapasse vazando para o próximo registro ou para texto estéril. Note que em sua observação "...ou até nova chamada para outra consulta "SECRETARIA..." e também em "Se encontrar a palavra "CONTRIBUINTE:" me copiar até a outra palavra "CONTRIBUINTE" isso seria válido somente até o penúltimo registro, o que deixaria o último sem ser processado por não ter nada mais depois dele. Por exemplo, em seu pdf, à primeira vista cada grupo no primeiro caso se encerra ou com o texto "Chefe da Auditoria Tributária" ou com "Verificador:" seguido de 4 grupos de 4 letras ou algarismos separados por pontos. No segundo caso, começa com CONTRIBUINTE: e termina com JULGADOR: seguido de uma cadeia de caracteres até o final da linha. Mesmo tendo todo o cuidado, algumas surpresas podem ocorrer. Por exemplo, abra seu pdf na página 17, e observe a coluna da direita, no alto. Se você procurar como início do padrão o texto: SECRETARIA DE ESTADO DA FAZENDA e em seguida AUDITORIA TRIBUTÁRIA, sua busca vai falhar pois quem redigiu o texto não usou espaço em branco nem em ESTADODAFAZENDA nem em AUDITORIATRIBUTÁRIA. Portanto, sugiro pelo menos escolher uma amostragem mesmo que aleatória entre seus arquivos pra conferir manualmente se está sendo extraído tudo que deveria.

Se não puder anexar aqui no fórum por motivos de confidencialidade, mande por Mensagem Privada: à esquerda, abaixo de cada avatar de minhas mensagens aparece um símbolo de envelope. Envie por ali.

subtraia 1 de col(1:11) =menor(se(cont.se($d2;col(1:11) -1 )=0;col(1:11) -1;"");col(a1))

Possível geralmente é, @Alessandro Rodrigo Rodel. Alguns fatores podem vir a facilitar ou a dificultar a extração das informações, tais como: se existe um padrão que possa ser identificado, se o conteúdo possui texto ou se é só um texto digitalizado na forma de imagem, se é texto, mas passou por OCR, se tem muitas imagens e quadros aleatórios, se o mapa de caracteres foi incorporado no pdf, se o fluxo sofreu otimização ou não, enfim. Resta então saber se é viável, ou seja, se o volume de material a ser extraído compensaria o tempo aplicado para elaborar alguma solução automatizada. Para casos mais simples é relativamente fácil extrair o que se deseja, às vezes até sem programação. Então. Vai depender de como é o conteúdo e fluxo desses pdf's, às vezes um simples Texto-para-coluna do Excel já resolve, outras a conversão direta para docx ou txt ou xlsx com algum tratamento posterior, outras a aplicação de Expressões Regulares, extração de tabelas com ferramentas específicas... Penso que só analisando o arquivo pra ser mais específico em qual método de ataque utilizar. Se possível, anexe-o para vermos a estrutura.

Boa tarde, @Rafael nunes da silva Se você definir a propriedade Application.Interactive como False ao carregar seu Userform ou exibir a InputBox, o Excel bloqueará quaisquer entradas provenientes do usuário, tanto via teclado como mouse, e acredito que também via leitor de barcode (não tenho um pra testar aqui). Por outro lado, essa propriedade permite inserção de dados somente via código ou nos controles exibidos pelo VBA. Se você seguir a recomendação acima e der certo, o bloqueio que você já fez quando disse: passaria a ser redundante e poderia até ser eliminado. Mas atenção: não esqueça de reverter a propriedade para True após o término de seu procedimento pois senão você não conseguirá interagir com seu Workbook (o Excel não redefine a propriedade para True automaticamente ao finalizar como faz com outras propriedades como ScreenUpdating, por exemplo). Faça um teste...

P: R:

Bem vindo, @rodrigo martins silva Sem ter o documento pra melhor análise fica mais difícil. Tente então começando pelas seguintes configurações em seu Word: Arquivo > Opções > Exibir > Seção "Opções de Impressão": "Atualizar campos antes de imprimir" Se a fonte de dados for vinculada e não tiver sido aberta antes, verifique também a opção logo abaixo "Atualizar dados vinculados antes de imprimir". Avançado > Seção "Mostrar o conteúdo do documento": "Mostrar códigos de campos em vez de seus valores" Seção "Imprimir": "Imprimir códigos de campo, em vez de seus valores" Seção "Imprimir": "Permitir a atualização dos campos com alterações controladas antes de imprimir"

Infelizmente não dá, @LucasExcel. O Excel não permite criar "regiões" que não sejam afetadas pela ocultação de Linhas/Colunas e a sugestão do @RaphiaelGamer com certeza seria a melhor alternativa nesse caso. Mas se sua intenção for a de que a tabela dinâmica fique sempre sendo apresentada ao lado dos intervalos que terão linhas ocultas, você pode usar o recurso "Câmera" que literalmente tira uma foto de seu intervalo e o bom é que é dinâmico também, ou seja, se o intervalo sofrer atualização, atualiza também. Selecione o intervalo de sua TD, clique no botão Câmera e clique no local onde vai inserir a "foto". Obs.: o botão Câmera não vem disponível nos menus, na Faixa de Opções nem na Barra de Ferramentas de Acesso Rápido por padrão. Para adicioná-lo, clique com o direito na Ribbon ou nas f. de acesso rápido > personalizar e em "Escolher comandos em:" selecione "Comandos Fora da Faixa de Opções" e role até encontrar "Câmera".

Vocês estão certos, amigos @osvaldomp e @Patropi, me precipitei na hipótese de ser problema de caixa alta. De fato, peguei novamente o arquivo com erro postado pelo @Bikke e atualizando a fórmula com F2 e Enter o erro não acontece mais. Parece ser um bug de atualização relativo à função MAIÚSCULA mesmo pois estando a fórmula ainda com erro, o retorno de ActiveCell.Formula não traduz essa função, só as outras. Após F2 Enter, ocorre a tradução. Com erro: ="ESCALA DE SERVIÇO DO PESSOAL REFERENTE AO MÊS DE "&MAIÚSCULA(TEXT(A3,"MMMM"))&" DE "&TEXT(A3,"AAAA") Sem erro: ="ESCALA DE SERVIÇO DO PESSOAL REFERENTE AO MÊS DE "&UPPER(TEXT(A3,"MMMM"))&" DE "&TEXT(A3,"AAAA")

boa noite, @bikke Obs. aos moderadores/administradores do Clube do Hardware: Tive que inserir a mensagem principal aqui como imagem porque. o site está convertendo tudo que é escrito em maiúscula para minúscula automaticamente! E o que é pior, inclusive o que foi inserido como código! Não faz nenhum sentido, pois para resolver o problema específico que o usuário @Bikke apresentou, faz-se essencial poder usar sequências de letras em maiúsculas (fica claro no contexto essa necessidade). Considero essa nova proibição de inserir texto em maiúscula e substituição automática de palavras uma limitação desnecessária, uma invasão à livre expressão e uma prática um tanto quanto abusiva.

Só uma observação em relação à fórmula do amigo @osvaldomp no que diz respeito aos ordinais em inglês: os ordinais de 21, 22, 23 e 31 seguem a sequência equivalente à de 1, 2 e 3, ou seja, 21st, 22nd, 23rd e 31st e não o th. Já os ordinais 11, 12 e 13 são exceção e não seguem essa regra. Como sugestão: =IF(I11<0,"target "&DAY(TODAY())&CHOOSE(SUMPRODUCT((DAY(TODAY())={1;21;31})*1+(DAY(TODAY())={2;22;0})*2+(DAY(TODAY())={3;23;0})*3)+1,"th ","st ","nd ","rd ")&PROPER(TEXT(TODAY(),"mmm"))&" 12am","")

Bem vindo, @LucasTeixeiraNT Tem que alterar nas 3 fórmulas nomeadas também: ChartPeriods, ChartValues e GoalValues, onde aparece "Weekly" entre aspas. Para abrir o Gerenciador de Nomes, digite CTRL + F3.

Olá, @Darlison O Cabeçalho fica normal na impressão, ele só fica esmaecido enquanto você tá editando o corpo principal do texto para não perder o foco desse último (não ficar muito cansativo em documentos longos, p. ex.).

Olá, @Jimmy 2 Isso ocorre provavelmente devido à forma com que o Excel (e a maioria dos programas) armazena e calcula números de ponto flutuante (veja em Aritmética de ponto flutuante pode fornecer resultados imprecisos no Excel). E isso piora quando você trabalha com números extremamente grandes ou pequenos. Por paradoxal que pareça, arredondar o número (por exemplo, para 16 casas) pode ajudar a diminui a imprecisão. Alternativamente, existem alguns suplementos de terceiros que prometem resultados ultraprecisos, como o xlPrecision (http://precisioncalc.com/xlprecision.html)

Boa noite, @Ken8 e demais colegas Algumas perguntas: Os pares de coordenadas são valores numéricos ou resultado de fórmulas? Considerei numéricos. Começam em AC95 e vão até onde? Supus que fossem até a última linha com dados da coluna AD. No meu entendimento, cada bloco (área) de células não-vazias contém sempre um número par de linhas e a cada duas linhas, a primeira é a coordenada do ponto inicial e a segunda a do ponto final da entidade (Line), correto? Se não for isso, anexe o arquivo Excel para facilitar o entendimento, ok? Teste o seguinte código: Sub DrawLines() Dim rgXY As Range, A As Range, i As Long, Inicio(0 To 3) As Double, Fim(0 To 2) As Double With Worksheets("Detalhamento") Set rgXY = .Range("AC95", .Cells(Rows.Count, "AD").End(xlUp)).SpecialCells(xlCellTypeConstants, xlNumbers) End With For Each A In rgXY.Areas For i = 1 To A.Rows.Count / 2 Inicio(0) = A.Cells(2 * i - 1, 1): Inicio(1) = A.Cells(2 * i - 1, 2): Inicio(2) = 0 Fim(0) = A.Cells(2 * i, 1): Fim(1) = A.Cells(2 * i, 2): Fim(2) = 0 Set Arm_Long1 = AutoCAD.Application.ActiveDocument.ModelSpace.AddLine(Inicio, Fim) Arm_Long1.Layer = "Arm_Longitudinal" Arm_Long1.Update AutoCAD.Application.Update Next i Next A End Sub