Ir ao conteúdo
  • Cadastre-se

R0DR1G0_CWB

Membro Pleno
  • Posts

    121
  • Cadastrado em

  • Última visita

posts postados por R0DR1G0_CWB

  1. @Rangel Salomé

     

    Bom dia, considere esse código também... Assim como o que enviei anteriormente você terá que fazer suas adequações:

     

    Sub SalvarPDF()
    
    Dim Dir, Nome As String
    
    Dir = "CAMINHO DE DESTINO"
    NomePDF = "NOVO NOME"
    NomeExcel = "NOVO NOME"
     
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Dir + NomePDF, _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, OpenAfterPublish:=True
    
    ActiveWorkbook.SaveAs Filename:=NomeExcel
    
    ActiveWorkbook.Close
    End Sub
    
    

     

    A única diferença é que inclui uma linha para salvar em Excel também.

     

    • Curtir 1
  2. Bom dia,

     

    Teste esse código, acredito que irá te ajudar. Mas provavelmente você tenha que adaptar para alguma particularidade de sua necessidade.

    Sub SalvarPDF()
    
    Dim Dir, Nome As String
    
    Dir = "CAMINHO DE DESTINO"
    Nome = "NOVO NOME"
     
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Dir + Nome, _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, OpenAfterPublish:=True
    
    ActiveWorkbook.Close
    End Sub

     

  3. @Correr Obrigado pela dica, mas dessa forma não irá atender.

     

    Imagine a situação, adotando o FIN como exemplo.

     

    Dentro dessa pasta FINANCEIRO tenho n subpastas (CONTAS A PAGAR, RECEBER, OUVIDORIA, CONTRATOS, ETC), se for aplicar sua ideia teria que fazer um grupo para cada subpasta.

     

    Exemplo, quero que o fulano x acesse só Conta a Pagar e não as demais, e assim por diante, por isso, eu acredito que o mais viável seja uma aplicação para esse gerenciamento.

     

    Queria comprar algo pronto, mas estou vendo que terei que desenvolver 😕

  4. Boa tarde,

     

    Fiz uma busca na internet e infelizmente não entrei. Vocês conhecem algum software que faça as liberações de acessos a pastas?

     

    Na empresa que estou temos as áreas, FINANCEIRO, COMERCIAL, CONTABILIDADE e assim por diante. Cada área possui suas respectivas pastas na rede, o que espero dessa aplicação, é que um responsável de cada área gerencie as permissões de acesso.

     

    Conhecem algum programa que faça isso, sem depender do administrador da rede?

     

    Obrigado

     

     

  5. Pessoal, consegui resolver a base do improviso, mas quem tiver outra solução, por favor poste aqui.

     

            Test1 = Plan2.Range("A" & LINHA).Value
            Test2 = Plan2.Range("B" & LINHA).Value
            Test3 = Plan2.Range("C" & LINHA).Value
            Plan2.Range("D" & LINHA).Select
            ActiveCell.FormulaR1C1 = "=IFERROR(MODE(" & Test1 & "," & Test2 & "," & Test3 & "),""ERRO"")"

     

  6. Olá...

     

    Em 26/07/2018 às 10:09, Glouk disse:

    $sql = mysqli_query($conexao

    tem certeza que esse i está certo?

     

    Estou meio enferrujado no desenv.Web mas teste assim:

     

    <?php 
    $conexao = include 'menu/conexao.php'; 
    $nome = $_POST['name']; 
    $sobre = $_POST['sobre']; 
    $tel = $_POST['phone']; 
    $niver = $_POST['niver']; 
    $email = $_POST['email']; 
    $senha = $_POST['password']; 
    $genero = $_POST['gen']; 
    
    $Insertsql = "INSERT INTO registro(nome, sobrenome, telefone, nascimento, email, senha, genero) VALUES ('$nome', '$sobre', '$tel', '$niver', '$email', '$senha','$genero')";
    $sql = mysql_query($Insertsql, $conexao);  
    ?>

     

    • Curtir 1
  7. Olá, pior que pelos sintomas também acredito que seja a fonte...

     

    Mas ele reinicia certo? Se ele desliga completamente e você tem que religar eu diria que pode ser questão de super-aquecimento.

     

    14 minutos atrás, xTXx disse:

    existe alguma maneira de testar sem ter outra fonte

    Na verdade para ter a confirmação real somente substituindo os componentes mesmo.

     

    Tente ligar a fonte de algum amigo em seu PC, ou a sua fonte em outro PC.

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

Ebook grátis: Aprenda a ler resistores e capacitores!

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!