Edson Luiz Branco

Bom dia, colegas "Este arquivo veio de outro computador, e pode ser bloqueado para ajudar a proteger este computador" Preciso desbloquear centenas de arquivos de Notas Fiscais que já estão baixados (Downloads) sem ter que clicar com o botão direito no Windows Explorer e ir de um em um e clicar em Propriedades, Desbloquear, Ok. Já tentei: Selecionar mais de um: ao fazer o procedimento acima, não aparece a opção Desbloquear para o conjunto selecionado; Tornar meu user como proprietário da pasta/subpastas; Comando Attrib do DOS (cmd) parece não ter um atributo para isso. Alguma dica?

Bem vindo ao fórum, @Eduardo Neblina Para a formatação tipo moeda no Word, tente usar: \# "R$#.##0,00" Agora, quanto à formatação da porcentagem, você terá que trazer o número do Excel para o Word já multiplicado por 100, pois 1,87% numericamente é, na verdade, 0,0187 por isso o Word mostrou como 0,02 (lembre-se que o Word é essencialmente um processador de texto). Após a multiplicação por 100, tente formatar no Word como: \# "0,00%"

Muito bom, @Basole!

x = 100 With ActiveSheet.Range("C5") .Formula = .Formula & "+" & x End With

Bastante atenção quando você usa Loops para que a condição que o encerra seja satisfeita pelo menos uma vez, senão ocorre Loop infinito que é o que está acontecendo em seu código: Do Until Found If Ambiente = Sheets(1).Cells(Plin, 1).Value Then Found = True ... O problema é que há alguns "Ambientes" na planilha "Parte2" que não têm seu correspondente na planilha "Parte1". É o caso, por exemplo, do Ambiente "Sala" da Parte2. Na Parte1 só tem "Sala Estar" e "Sala Jantar", mas não "Sala". Os valores têm que ser exatamente iguais, inclusive quanto à Maiúsculas/Minúsculas (a menos que você use Option Compare Text na área de declarações no início do código). Outro caso é "Banheiro". Na Parte1 só tem "Wc". Outro ponto que merece ser verificado é: Do Until IsEmpty(Cells(Lin, Col + Count).Value) ==> Isso implica que pelo menos um dos Ambientes tenha que estar em branco o que deu certo até agora, mas se os 4 tiverem preenchidos dará problema.

O erro já é em outro lugar agora. Melhor seria você anexar seu modelo aqui para analisarmos. Descaracterize informações confidenciais se houver, zipe e anexe seu arquivo aqui.

Bem vindo, @cleuderjr Tente substituir o tipo de variável para As Long ao invés de As Integer.

Já tentou copiar a ISO para um pendrive e então usar esse pendrive no seu notebook e montar o volume?

Boa noite colegas A título informativo, se seu Excel for do novo Office 365 já existem duas funções prontas para classificar dados de forma simples e direta: função CLASSIFICAR e função CLASSIFICARPOR.

Boa tarde, @Shester Cunha Aparentemente você em algum momento substituiu "L5" por "F8" por algum motivo e sem querer isso afetou a referência das fórmulas que estão no intervalo L51 a L60. Tente fazer o inverso nesse intervalo.

Bom dia, @André Rache Não estou seguro que no recurso de Mala Direta o Word tenha essa funcionalidade disponível. De qualquer forma, segue uma solução via macro. Mescle os registros todos num Documento só (guia Correspondências > grupo Concluir > botão Concluir e Mesclar > Editar Documentos Individuais... > opção mesclar Todos os registros) Abra o editor do VBA nesse documento (Alt F11) e num novo módulo Standard cole o seguinte código e adapte apontando a constante Caminho para uma pasta onde você quer salvar os arquivos individuais e execute o código. Sub SalvaPDFsIndividuais() Const Caminho = "C:\Users\SeuNomeUsuário\Desktop\PDFs\" Dim i As Long For i = 1 To ThisDocument.Range.Information(wdNumberOfPagesInDocument) ThisDocument.ExportAsFixedFormat OutputFileName:=Caminho & "Arquivo " & i, _ ExportFormat:=wdExportFormatPDF, _ Range:=wdExportFromTo, From:=i, To:=i Next i End Sub Obs.: estou supondo que você tenha o Office 2016 ou superior.

Baixe o arquivo BibWord-master.zip do seguinte link: GitHub O estilo que você. precisa está no arquivo styles\ABNT_Author.XSL. Feche o Word e copie-o para a pasta: C:\Users\SeuNomeDeUsuário\AppData\Roaming\Microsoft\Bibliography\Style (ou pressione a tecla WIN, R e entre com %appdata%\Microsoft\Bibliography\Style ENTER).

Ok, Sandra, entendi. Mas infelizmente não é possível mudar individualmente a cor de caracteres quando oriundos de resultado de alguma fórmula naquela célula: ou muda tudo ou nada. A boa notícia é que há várias formas de conseguir o mesmo resultado via VBA. Um deles seria você fazer a concatenação não via fórmula mas direto no código. A outra, mais imediata, é destruir a fórmula de concatenação ficando só com o valor dela na célula, aí seria só inserir uma instrução no código que te passei acima (ou também poderia ser com Copiar/Colar Valores) : Sub PintarTexto() Dim cél As Range, m As Object With CreateObject("VBScript.RegExp") .Pattern = "((Tubo|Caixa|Pacote)\s*\d+)": .IgnoreCase = True: .Global = True: .MultiLine = True For Each cél In [A1:A40].Cells cél.Value = cél.Value '<====Insira essa instrução For Each m In .Execute(cél.Value) cél.Characters(m.FirstIndex + 1, m.Length).Font.Color = Switch(m.SubMatches(1) = "Tubo", vbGreen, _ m.SubMatches(1) = "Caixa", vbYellow, _ m.SubMatches(1) = "Pacote", vbBlue) Next m Next cél End With End Sub De qualquer maneira, você só obterá o efeito desejado quando não houver fórmula na célula.

Sandra, anexe aqui um arquivo com alguns exemplos disso, pois fica mais fácil trabalhar direto em cima de seu modelo. Obs.: se for .xlsm tem que zipar pra poder anexar aqui no fórum.

Boa tarde, @Deividson Por favor, anexe seu modelo (descaracterize informações confidenciais, se necessário), pelo menos com uma generosa quantidade de registros, pois fica bem mais complicado fazer testes como esse de performance sem uma base de dados de apoio.

Bem vinda ao fórum, @Sandra Vasquez Aqui vai mais uma: Option Compare Text Sub PintarTexto() Dim cél As Range, m As Object With CreateObject("VBScript.RegExp") .Pattern = "((Tubo|Caixa|Pacote)\s*\d+)": .IgnoreCase = True: .Global = True: .MultiLine = True For Each cél In [A1:A40].Cells For Each m In .Execute(cél.Value) cél.Characters(m.FirstIndex + 1, m.Length).Font.Color = Switch(m.SubMatches(1) = "Tubo", vbGreen, _ m.SubMatches(1) = "Caixa", vbYellow, _ m.SubMatches(1) = "Pacote", vbBlue) Next m Next cél End With End Sub Obs.: O código intercepta a ocorrência de algum dos textos-chave (Tubo/Caixa/Pacote) seguidos ou não de espaço(s) em branco e seguidos de pelo menos um algarismo. Se o padrão for outro, nos avise, ok?

Talvez sem querer você tenha arrastado ele para outra pasta (já fiz isso diversas vezes). Abra seu Windows Explorer e se posicione na pasta raiz do seu HD (C:\). No canto superior direito tem uma caixinha de "Localizar" com uma lupa. Clique nela e digite e aguarde (demora mesmo): nome:"Relatório Design Digital.docx" Faça isso também na raiz de seu PenDrive (ou de outros que estavam espetados em sua máquina naquela hora). Se não achar, talvez tenha ido para alguma pasta oculta. Reexiba as pastas ocultas e de sistema e tente novamente. Se ele tiver sido realmente deletado, teria que usar algum aplicativo de recuperação de arquivos deletados, mas isso tem que ser feito logo, pois senão novos arquivos, inclusive temporários, acabam ocupando aqueles clusters de seu HD em que estava seu documento.

Que bom que deu tudo certo, @Nicelio Como foi solucionado, marque então o tópico como Resolvido na resposta do amigo @osvaldomp. Isso facilita outros integrantes quando buscam por soluções que deram certo em problemas semelhantes.

Bom dia, @bela1000 Como o motor do banco de dados está sempre evoluindo, já em 2007 o DAO foi suplantado pelo ACE, o qual ainda mantém compatibilidade e roda códigos que usavam DAO. Então tente marcar a referência à biblioteca Microsoft Office xx.x Access Database Engine Object Library ao invés da Microsoft DAO 3.6 Object Library e teste novamente. De qualquer maneira, você ainda poderia baixar os mecanismos de banco de dados mais antigos (ou mesmo os mais novos que dão compatibilidade) da própria Microsoft: Office 2010: Microsoft Access Database Engine 2010 Redistributable Office 2016: Microsoft Access Database Engine 2016 Redistributable O 2007 foi descontinuado totalmente e já saiu da área de Downloads da Microsoft, ainda tenho ele aqui mas não sei se seria permitido disponibilizar para você, mas acho que não será necessário. Outros não verifiquei.

Por isso é importante sempre disponibilizar uma amostra de tudo aquilo que você está pretendendo, pois agora você inseriu elemento novo que não estava em sua demanda inicial. No código que passei anteriormente, usei a propriedade .Formula, que funciona muito bem no caso de uma operação matemática simples como adição/subtração de células, etc. Como agora você estará usando função SE(, teria que ou entrar com ela traduzida para inglês ou mudar a propriedade para .FormulaLocal. [A3].FormulaLocal = [A2].Value Mas o ideal mesmo seria você anexar um arquivo e explicar exatamente o que está precisando fazer, pois esse processo todo que você está fazendo de concatenar pedaços de fórmulas espalhadas em diversas células para depois transformar isso em resultado é algo bastante incomum e talvez possa ser realizado de forma mais rápida e menos trabalhosa.

Bem vindo ao fórum, @Nicelio Não entendi muito bem sua necessidade, talvez se você anexasse aqui um arquivo ilustrando seu problema e a forma que gostaria que ficasse facilitaria quem fosse ajudar. Mas façamos uma tentativa: Uma maneira de você pegar uma fórmula que está na forma de texto numa célula, digamos A2 ("= A1+B1" ) e colocá-la como uma fórmula operante numa outra célula, digamos A3 através do VBA poderia ser: Sub TextoParaFórmula() [A3].Formula = [A2].Value End Sub Se você quer substituir o sinal de adição por outro operador, poderia ser, por exemplo: Sub TextoParaFórmula() [A3].Formula = Replace([A2].Value, "+", "-") End Sub

Boa tarde, @lauvirjr "<" & TEXTO(HOJE()-1;"AAAA-MM-DD hh:mm:ss") & ".0000" Esteja prevenido que sua fórmula traz como resultado os itens que atendem ao critério de comparação ( < ) entre texto-e-texto e não entre data-e-data, pois os dados da coluna D não são números seriais de Data/Hora e sim textos (o separador decimal dos segundos é um ponto e não uma vírgula).

Bom dia, @Wagner Wilian Guarato Sem conhecer seu projeto fica difícil prognosticar se ocorrerá alguma interferência ou não, mas há muitos recursos no Excel para se conseguir o que você deseja evitando ou mesmo corrigindo eventuais sobreposições. Penso que se você fizer um bom Planejamento de como serão lançados seus dados não haverá de dar problemas. Um exemplo disso seria manter os Dados puros num tabelão com mínima formatação numa planilha só para lançamentos de dados enquanto fórmulas, filtros e recursos estéticos de formatação para apresentação estariam sendo aplicados em outra, baseada na primeira (procure evitar ao máximo recursos como mesclar células na tabela principal). você pode ainda manter colunas ocultas, células bloqueadas, fórmulas ocultas, etc. enquanto não conclui sua versão final.

Colegas, boa tarde Existem muitas formas de se extrair informações de arquivos, mas a principal dificuldade quando se trata de documentos não-Office é que precisamos saber como eles estão estruturados, ou seja, não há uma "receita de bolo" genérica para todos os casos. Então, sem anexar um arquivo-modelo que seja uma amostra representativa dos arquivos a extrair informações fica quase impossível ajudar. Então, anexe um ou mais arquivos, eliminando ou distorcendo informações confidenciais, mas mantendo a estrutura do(s) arquivo(s).

@janiosba bom dia. Nunca vi esse problema. Anexe seu arquivo, caso não seja confidencial.