Iurigdn

Ninguém?!

Boa tarde, Gostaria da ajuda de vocês para resolver a questão abaixo: A planilha em anexo gera um recibo e grava os dados na aba "dados". Está com o seguinte problema: Ao clicar em "Imprimir e Gravar" o número do recibo impresso fica sempre um a mais do que o salvo na planilha "dados". Outra coisa, gostaria que ao clicar em "Imprimir e Gravar" me dar a opção para escolher a impressora ao invés de imprimir na padrão. E também salvar automaticamente a planilha, para não correr o risco do usuário esquecer de salvar e perder o registro do último recibo feito. Obrigado! Planilha de Recibos v01.zip

Consegui recuperar. Obrigado!

a versão é 2007. Na pasta C:\Users\***\AppData\Roaming\Microsoft\Word\ não tem nada.

Boa noite, Meu pai fez alguma coisa com um documento do word que corrompeu o arquivo, criou um documento no c: com o nome Documento recuperado.txt. Este arquivo só tem interrogações. Vou colocar aqui o arquivo, se alguém souber o que fazer ou puder tentar recuperar eu agradeço. Documento recuperado.txt

Meu caro, Quais seriam os outros usuários? Está em anexo uma lista, qual devo marcar? Doc1.docx

Basicamente sim, como no exemplo que dei apenas dentro das últimas pastas poderão ser criados arquivos e pastas. Só não sei o que seriam as pastas filho, são todas subpastas que estão depois da pasta principal? Segue em anexo um exemplo de como teria que ser. NomeDaEmpresa_0999(aqui não pode gravar) \Contabil(aqui não pode gravar) \2015(aqui não pode gravar) \Balanco_Balancete (aqui pode gravar) \Comprovante_Rendimento (aqui pode gravar)

Não. Na verdade os clientes não tem acesso à estas pastas. São apenas para arquivamento de documentos. Acontece que todos os funcionários aqui do escritório tem acesso (e devem ter mesmo). Porém, alguns com menos conhecimento, ou por engano, acabam "bagunçando" estas pastas, por exemplo: Mudam os nomes das pastas sem querer, salvam coisas em lugares errados, criam pastas desnecessárias. O que eu quero é o seguinte: Eu consigo entrar, por exemplo, na pasta: NomeDaEmpresa_0999\Contabil\2015\Balanco_Balancete e salvar um arquivo ou criar uma pasta aqui. Porém não conseguir salvar nada nas pastas anteriores (Contabil, 2015 ...). Estou pesquisando o comando icacls.exe, que atribui estas permissões através do prompt, só não sei quais atributos tenho que colocar para ficar do jeito que preciso. Obrigado,

Ninguém saberia responder?

Boa tarde, Utilizamos na empresa uma estrutura de pastas dividida por nome dos clientes. Cada cliente tem uma pasta com seu nome, seguido do ano, setor e tipo de documento. O que eu preciso é o seguinte: Não permitir que ninguém salve nenhum arquivo fora desta estrutura, apenas dentro das pastas já criadas. O problema de colocar as permissões manualmente é que são mais de 300 empresas. Existe alguma forma mais simples para se fazer isso? Exemplo: NomeDaEmpresa_0999 \Contabil \2015 \Balanco_Balancete \Comprovante_Rendimento \Darf \Livro_Caixa \Nao_Identificados \Planilha \Fiscal \2015 \Guia\01_Jan,02_Fev... \Inventario \Nao_Identificados \NFe_XML\01_Jan,02_Fev... \NFSe_PDF\01_Jan,02_Fev... \NFSe_XML\01_Jan,02_Fev... \Sintegra \Sped_Fiscal\01_Jan,02_Fev... \Pessoal \2015 \Admissao \Acordos_hora_extra \Contrato_experiencia \Contrib_Sind_Diversas \DARF \Docs_Folha_Mensal \Férias \FGTS \GPS \Processos \Atas \Cartorio \Certidoes \Certificado_Digital \Contratos \CRM

Fiz exatamente como você falou e não deu certo. Os arquivos vão para a impressora em ordem aleatória. No primeiro teste que fiz a primeira e a última foram certas, o resto foi aleatório. Tirei um print para você ver prints.docx

Osvaldo, Obrigado mais uma vez! Apenas coloquei para diminuir o estoque quando clica em inserir e funcionou do jeito que precisava.

Exatamente. Segue em anexo. controle-ent-sai-cxepstv7.rar

Osvaldo, agora sim deu certo! Mas a outra não acontece nada, clico no botão Inserir Dados e não vai nenhuma informação nem apresenta erro. Sub InserirDados() Dim LR As Long If Application.CountA(Range("H4:K4")) < 3 Or _ Application.CountA(Range("I4:J4")) = 2 Then Exit Sub With Sheets("Dados") LR = .Cells(Rows.Count, 2).End(xlUp).Row .Cells(LR + 1, 2).Resize(, 5).Value = Range("H4:L4").Value End With Range("H4:K4") = "" End Sub

Neste código da erro onde está em vermelho. Se eu substituir B11 por B12 não dá erro, mas não apaga a o valor da célula. Fiz teste em outro computador também e o erro é o mesmo: Erro em tempo de execução '-2147417848 (80010108)': O método '_Default' do objeto 'Range' falhou Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$11" Then [b4] = [b4] + [b11]: [b11] = "" ElseIf Target.Address = "$E$11" Then [E4] = [E4] + [E11]: [E11] = "" End If End Sub

Eu estou precisando tanto que postei lá, ninguém respondeu, ai perguntei aqui. Você testou na que eu te mandei mesmo?

Osvaldo, deu certo, mas precisava fazer isso com a E11 p/ E4 também. Achei que fosse conseguir, mas não deu certo Estou quebrando a cabeça já a um tempão e não consigo sair do lugar. Será que se eu anexar aqui a planilha você pode me ajudar a fazer o que eu preciso? São coisas simples, mas eu sou muito leigo. Coloquei o comando abaixo em uma planilha que fiz do zero e está dando erro. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$11" Then [b4] = [b4] + [b11]: [b11] = "" ElseIf Target.Address = "$E$11" Then [E4] = [E4] + [E11]: [E11] = "" End If End Sub Erro em tempo de execução '-2147417848 (80010108)': O método '_Default' do objeto 'Range' falhou Osvaldo, Fiz duas planilhas de teste para tentar fazer isso e nenhuma das duas está dando certo. O que será que estou fazendo de errado? Vou anexar a planilha correta também para você entender melhor o que eu preciso testes.rar

Podem me ajudar com algo bem simples, mas que não estou conseguindo de jeito nenhum. Preciso que ao inserir um valor na célula B11 seja somado com a célula B4 e apagado o valor da B11. Obrigado

Muito obrigado!

Josevan, obrigado, Mas nenhum dos dois seria viável para mim. Gravar os comandos com o mouse recorder vai dificultar, porque os arquivos as vezes estão em pastas diferentes e é uma quantidade muito grande. mesclar num só arquivo vai demorar muito e vou ter um trabalho maior. queria uma programa onde eu jogasse todos os arquivos, ele organizava em ordem alfabética e imprimia um por um. É algo bem simples né, o próprio Windows devia ter esta função, em vez de imprimir tudo em ordem aleatória.

Bom dia, Meus conhecimentos em VBA são muito limitados. Não entendi este código. Tentei jogar no excel, mas não deu em nada. Não entendi também o que seria este MKDir. Tentei aprender com este fonte que você citou, mas fiquei mais confuso ainda porque está em Access.

Prezados, Todo mês preciso imprimir em média umas 400 notas fiscais, que estão em PDF. Existe alguma forma, ou algum programa para imprimir na ordem alfabética? Se selecionar todas os arquivos e imprimir sai tudo aleatório. O que tenho feito é clicar em uma por uma e imprimir, mas gostaria de automatizar este processo. Alguém tem alguma sugestão? Obrigado, Print: http://snag.gy/oZoDF.jpg

Bom dia, Gostaria de saber se alguém sabe uma forma de criar pastas com o excel. Criei um script para criar pastas automaticamente, mas gostaria que qualquer usuário, mesmo sem muito conhecimento conseguisse criar estas pastas. Então pensei em criar um formulário no excel, onde a pessoa irá preencher o nome da empresa e o número e ao clicar em inserir o script vai criar a pasta. O script é: (reduzi para não ficar muito grande, mas tem muitas outras pastas) Cole no bloco de notas e salve como .bat e faça um teste de como fica. md EmpresaTeste_0999 cd EmpresaTeste_0999 md Contabil\2014 Contabil\2014\Arquivos Contabil\2014\Livro_Caixa Contabil\2014\Nao_Identificados Contabil\2014\PerdComp Contabil\2014\Sped_Contabil Contabil\2014\Sped_Contribuicoes Contabil\2014\Sped_FCont Fiscal\2014 Fiscal\2014\Guias No caso, teria que fazer alguma forma para no script buscar os dados do formulário, algo do tipo: md <busca_dados_campo_empresa>_<busca_dados_campo_numero> cd <busca_dados_campo_empresa>_<busca_dados_campo_numero> md Contabil\2014 Contabil\2014\Arquivos Contabil\2014\Livro_Caixa Contabil\2014\Nao_Identificados Contabil\2014\PerdComp Contabil\2014\Sped_Contabil Contabil\2014\Sped_Contribuicoes Contabil\2014\Sped_FCont Fiscal\2014 Fiscal\2014\Guias Não sei nem se teria como fazer isso e nem por onde começar. Agradeço qualquer informação. Se precisar esclarecer alguma dúvida é só perguntar.

Correto, com isso surgiu mais um problema, e este acho que não vai ter solução. Precisava que os usuário pudessem usar o filtro. Quando eu seleciono Proteger Planilha, ele não permite filtrar, mesmo marcando todas as opções em "Permitir que os usuários dessa planilha possam" As três primeiras colunas terão que ficar bloqueadas para inserir os dados apenas com o formulário, mas as demais ficarão livres para alteração.

Era exatamente isso que precisava, posso aproveitar e tirar mais uma dúvida? Eu consigo bloquear a planilha não permitindo os usuários a inserir linha ou coluna nem alterar as trës primeiras colunas? De modo que a única forma para inserir uma nova empresa seja através do formulário. Muitíssimo obrigado, desde já;