Ir ao conteúdo
  • Cadastre-se

Iurigdn

Membro Pleno
  • Posts

    26
  • Cadastrado em

  • Última visita

  1. 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
  2. a versão é 2007. Na pasta C:\Users\***\AppData\Roaming\Microsoft\Word\ não tem nada.
  3. 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
  4. Meu caro, Quais seriam os outros usuários? Está em anexo uma lista, qual devo marcar? Doc1.docx
  5. 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)
  6. 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,
  7. 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
  8. 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
  9. Osvaldo, Obrigado mais uma vez! Apenas coloquei para diminuir o estoque quando clica em inserir e funcionou do jeito que precisava.
  10. Exatamente. Segue em anexo. controle-ent-sai-cxepstv7.rar
  11. 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
  12. 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

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...