Edson Luiz Branco

Bom dia conterrâneos @G7 log e @Eder Neumann
 
O arquivo não está corrompido.
 
Se você analisar a estrutura XML do arquivo, verificará que na verdade ele não está em nenhum dos formatos do Excel, mas sim que é um Open Document Format for Office Application (ODF, do consórcio OASIS).
 
Para SpreedSheets, a extensão correta é ODS.
 
Então é só alterar a extensão manualmente, no Windows Explorer para .ods e o arquivo abrirá normalmente no Excel. Depois salve como um dos formatos Excel tradicionais se desejar.

bem vindo ao Clube do Hardware, @vander2032
 
sugestão:
 
=LIN(INDIRETO(SUBSTITUIR(FÓRMULATEXTO(A1);"=";"")))

Acredito que seja o mesmo problema de seu outro tópico, correto? Veja a resposta em 
 

Dá pra fazer manualmente em 5 passos:
Selecione o intervalo B4:B30 Tecle F5 > botão Especial ...(Ir Para Especial) ou vá na guia Página Inicial > grupo  Edição, clique no botão Localizar e Selecionar e escolha Ir Para Especial... > e escolha a opção "Em branco" Na célula que ficou ativa (B5), digite a fórmula = B4 (que é a célula acima) Não finalize com ENTER, mas com CTRL ENTER e está feito. Para eliminar as fórmulas que agora não serão mais necessárias, copie todo o intervalo e cole em cima dele mesmo com a opção Colar Valores  
Opcionalmente, se quiser por fórmula, insira em E4:
 
=SE(B4="";B3;B4)  

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"

Embora redundante, outra forma de mostrar o criador do arquivo (creator), o último usuário que o modificou (lastModifiedBy) o número de revisões (revision) e datas correspondentes de criação/modificação (created/modified) é exibindo as CoreProperties analisando o arquivo core.xml. Para isso, mantenha seu original intacto e trabalhe com uma cópia de seu documento:
Renomeie o arquivo alterando a extensão de .docx para .zip Unzipe o arquivo e abra num navegador qualquer ou no bloco de notas o arquivo core.xml que está na subpasta docProps Procure nas tags citadas acima seu nome de usuário.  
Outras evidências que poderiam ajudar numa auditoria dizem respeito a usuários que personalizam o ambiente do aplicativo com objetos cujos nomes possam sugerir a autoria, por exemplo aqueles que criam estilos personalizados, entradas de auto-texto, Normal.dot com nome diferente de "Normal.dot", variáveis de documento (DocVariable), metapropriedades estendidas/marcas inteligentes, campos, indicadores nomeados, enfim. Geralmente tais informações acabam por fazer parte da estrutura do documento. Infelizmente raramente mudamos os nomes padrão que vão surgindo ao usar algum recurso, então isso tudo pode não servir a seu propósito.
 
Quanto ao número de revisões, dependendo se seu PC está configurado para gerar Histórico de Arquivos/Pontos de Restauração, você poderia mostrar uma versão mais antiga de seu arquivo. No Windows Explorer, botão direito sobre o arquivo, Propriedades, verifique na guia "Versões Anteriores" se há alguma disponível (lembre-se de trabalhar com um backup de seu arquivo).
 
Mais raramente, outra informação que pode eventualmente ser útil é a presença de dados de Stream (ADS - Alternate Data Stream), normalmente presentes quando o arquivo é enviado pela internet o que poderia eventualmente conter informações não da autoria do documento, mas da origem do envio.
 
 

@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"";"
 
 

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

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, @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").

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.

Bom dia, @Rafael nunes da silva
 
Qual é o critério? 3 caracteres, 1 ponto, 3 caracteres, 1 ponto, 2 caracteres... Seria isso?
Se sim, supondo que você queira monitorar as entradas dos códigos de 8 caracteres de qualquer célula da coluna A de uma determinada planilha, clique com o botão direito na "orelha" da planilha e escolha "Exibir Código".
Cole o seguinte código:
Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Range If Not Intersect(Target, Me.Columns(1)) Is Nothing Then Application.EnableEvents = False For Each c In Target.Columns(1).Cells If Len(c.Value) = 8 Then c.Value = Left(c.Value, 3) & "." & Mid(c.Value, 4, 3) & "." & Right(c.Value, 2) End If Next c Application.EnableEvents = True End If End Sub  

If Not (LCase(Linhas(i)) Like "*errclear*" Or LCase(Linhas(i)) Like "*monit*") And _

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))  

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

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.).

Boa noite, @Ken8
 
Se entendi direito...
 
Vigas KENNEDY (certo).xlsx

Bom dia, @Francislei Oliveira
 
Insira a imagem como uma marca d'água. Para que ela se repita nas demais páginas e não se mova junto com o texto, ela deve ser inserida no Cabeçalho, não no corpo do texto e também ser mandada para trás do texto.
Como em seu arquivo docx anexado já existe a imagem, siga os passos:
Recorte-a imagem (CTRL X); Guia Inserir > grupo Cabeçalho e Rodapé > Cabeçalho > Editar Cabeçalho; Cole a imagem ali (CTRL V); Botão direito na imagem > Tamanho e Posição > guia Disposição do Texto > Atrás do Texto; Novamente botão direito na imagem > Tamanho e Posição > guia Posição: Seção Horizontal > Posição Absoluta: 0     à direita de: Página; Seção Vertical > Posição Absoluta: 0                  abaixo: Página; Desmarque Mover objeto com texto, se estiver marcada; Marque Fixar âncora. ESC duas vezes ou duplo clique no corpo do documento para sair da edição do cabeçalho; Salve o arquivo, de preferência como um modelo (dotx) ao invés de documento (docx). Assim você poderá criar novos documentos baseados nesse modelo. De qualquer forma, segue anexo o arquivo pronto (salvo como modelo e como documento).
 
apz papel timbrado.zip

Não seria apenas o caso de trocar
Filename:= "C:\Users\Paloma\Desktop\imagensnf\x.jpg"
por 
Filename:= loadimg
 
?

Olá, @Camila Haubert
 
Cross-post já respondido na Comunidade do Hardware no tópico homônimo. (colunas em posições diferentes).

Olá, @Camila Haubert
 
Sub FormataNúms() Dim rg As Range, cél As Range With Worksheets("Planilha1").Range("A1").CurrentRegion Set rg = Union(.Columns("S"), .Columns("V:W")) End With rg.NumberFormat = "@" For Each cél In rg If IsNumeric(cél.Value) Then cél.Value = Replace(Format(cél.Value, "0000000000000.00"), ",", "") End If Next cél End Sub  

Se você não vai usar o arquivo que enviei e sim começar do zero na pasta de sua empresa, acompanhe a imagem anexa e faça o seguinte:
No VBE, copie o código que está na classe EstaPastaDeTrabalho (item 1 da figura), para a equivalente da de sua empresa. Ali tem o código para esconder o botão Voltar durante a impressão. Copie também o código que está na classe da planilha FormulárioImpressãoOS para a equivalente de seu modelo que abrigará o formulário Word com a O.S. (item 2 da figura). Ali está o código para o botão Voltar. Para não correr o risco de que caso a planilha com a O.S. fosse renomeada lá no Excel, dentro do código usei o CodeName (item 2b da figura) ao invés do Name (destacado logo abaixo da 2b) onde se referia a essa planilha. Portanto você deverá renomear na janela Propriedades (F4) o CodeName para wsWordForm. No Word, crie seu formulário de O.S. com os bookmarks já definidos, copie e cole no Excel conforme descrito no tópico #11. Anote em separado o nome que você deu a esses indicadores. Na planilha, crie o botão Voltar (tipo ActiveX) e renomeie ele para btnVoltar. Crie um módulo convencional e nele cole o código do módulo mdOSExcelToWord (item 3 da figura). dentro desse módulo, nas linhas semelhantes a:
AtualizaIndicadores "bkmLoc", rg.Cells(11).Value
altere cada nome do bookmark que está entre aspas (bkmLoc, por exemplo, foi usado no campo Localização) para o nome que você anotou no passo 2 acima. Altere também o índice da coluna que contém o valor correspondente (no caso acima, a 11ª coluna era a coluna "Localização" = coluna K). Crie, numa só das abas dos dias, digamos a planilha "1", o botão "GERAR O.S. DA LINHA SELECIONADA" e posicione-o como desejado. Aqui você deve usar ao invés de botões ActiveX, botões tipo "Controles de Formulários". Renomeie-o para btnGerarOS Clique com o botão direito sobre ele e escolha Atribuir Macro... Note que a macro btnGerarOS_Clique não aparece como disponível para escolha, então você terá que digitar na caixa esse nome. Isso ocorre porque a macro foi definida como Private, não Public. Copie o botão para a Área de Transferência Selecione a próxima planilha, digamos "2" e sem clicar em nenhuma célula dê CTRL+V pra colar na mesma posição relativa à planilha anterior. A vantagem de se usar botões legados (de Formulário) aqui é que não é necessário escrever no evento Click de cada um em cada módulo de planilha pra direcionar pra o procedimento único btnGerarOS_Clique. Inclusive ao copiar o botão o nome também ficou o mesmo e a macro atribuída a eles também. você também pode criar uma planilha modelo completa já com o botão e replicar a planilha, se elas ainda não existirem. _____________________________________
Obs:
a macro leva em consideração a coluna F (OS/FMP) para definir qual a última linha que contém dados válidos para geração do formulário de OS. pode ser mais fácil dispensar os procedimentos do item 2 e ao invés disso copiar a planilha FormulárioImpressãoOS do arquivo que fizemos aqui para o seu Workbook da empresa. Para isso, mantenha os 2 arquivos abertos e nesse que fizemos clique com o botão direito sobre a "orelha" da planilha, selecione "Mover ou Copiar...", em "Para pasta:" clique na seta e escolha seu Workbook da empresa e por fim marque a caixa "Criar uma cópia".  

Bem vindo ao fórum do Clube do Hardware, @minidonutgigante!
 
 
Que eu saiba isso não é possível, infelizmente.
Mas se a quantidade de planilhas estiver muito grande e você quer navegar entre elas com mais facilidade, clique com o botão direito entre as setas logo à esquerda do nome da primeira aba, como na imagem anexa.
Se dessa maneira você ainda não ficar satisfeito, outra forma, mais complexa, seria através de programação (VBA) gerando um formulário que você poderia acessar através de algum atalho de teclado ou de um botão personalizado inserido na faixa de opções, por exemplo.
 

Bom dia colegas!
O tópico já foi marcado como resolvido então vão desculpando o atraso e a intromissão ...
O AutoFilter até tem algumas facilidades pra filtrar por datas, como por exemplo pegar só os dos meses de fevereiro:
ActiveSheet.AutoFilter.Range.AutoFilter 2,xlFilterAllDatesInPeriodFebruray,xlfilterDynamic Ou usar xlFilterValues passando uma matriz de pares de valores direto pro  Criteria2 como Array(núm, "data", núm, "data",...) onde núm vai de 0 a 5 (0 pra ano, 1 pra mês, ... 5 pra segundos) só que "data" tem que representar o final do período desejado (como o amigo @OswaldoMP  usou no combobox3 acima), o que daria mais trabalho ainda se fosse fazer para todos os campos.
 
Mas ainda assim daria pra fazer por AutoFilter passando uma matriz com os valores pré-filtrados como argumento para o Criteria1, por exemplo, como no código abaixo, tomando como base seu UserForm.
Obs.: tomei a liberdade de renomear seus ComboBox de 1, 2 e 3 para cboDia, cboMês e cboAno...
Option Explicit Dim rgDatas As Range Private Sub UserForm_Initialize() ActiveSheet.AutoFilter.ShowAllData Set rgDatas = ActiveSheet.AutoFilter.Range.Columns(2) End Sub Private Sub cboDia_Change() FiltrarValores End Sub Private Sub cboMês_Change() FiltrarValores End Sub Private Sub cboAno_Change() FiltrarValores End Sub Sub FiltrarValores() Dim diaOK As Boolean, mêsOK As Boolean, anoOK As Boolean, valoresOK() As String Dim i As Long, k As Long With rgDatas For i = 2 To .Cells.Count If cboDia = "" Then diaOK = True Else diaOK = (Day(.Cells(i)) = 1 * cboDia) If cboMês = "" Then mêsOK = True Else mêsOK = (Month(.Cells(i)) = 1 * cboMês) If cboAno = "" Then anoOK = True Else anoOK = (Year(.Cells(i)) = 1 * cboAno) If diaOK And mêsOK And anoOK Then ReDim Preserve valoresOK(k) valoresOK(k) = .Cells(i).Text k = k + 1 End If Next i Select Case k Case 0: .Parent.AutoFilter.Range.AutoFilter 2, "=", xlAnd, "<>" Case .Cells.Count - 1: .Parent.AutoFilter.ShowAllData Case Else: .Parent.AutoFilter.Range.AutoFilter 2, valoresOK, xlFilterValues End Select End With End Sub  
AutoFilterPartículasDeDatas.zip