Ir ao conteúdo
  • Cadastre-se

João Paulo Lucas

Membro Pleno
  • Posts

    40
  • Cadastrado em

  • Última visita

Reputação

3
  1. Boa tarde Tenho a seguinte situação: Consigo gerar o PDF, no entanto não consigo alojá-lo no diretorio pretendido Anexo Código Desde já Obrigado Sub CRIARPDF683() ' Run ("mostrarfrente") Run ("mostrarverso") MsgBox "Se possui, uma Impressora com capacidade de Imprimir Frente/Verso, depois de criado o PDF, Execute simplesmente a ordem de Impressão." & Chr(13) & "Por outro lado, Imprima a 1ª Folha, retire e vire a mesma, e continue a Impressão." Dim filepdf, rData, rNome, ePath, plan2, filename As String Dim Senha As String Senha = InputBox("Deseja Continuar ? Digite (s) para efetivar, outro carater quaisquer para desistir") L = Worksheets("diaskm").Range("s2") If Senha = L Then If Application.Version < "12.0" Then MsgBox " Não é possivel salvar no Formato PDF para essa versão do Office" Exit Sub End If ' Call COPIARDADOSINTERIORVERSO With ActiveSheet ' rData = .Range("k2") ' rData = Format(rData, "dd-mm-yyyy") rNome = .Range("x3") ePath = .Range("x2") plan1 = "frente" 'Nome da planilha plan2 = "verso" 'Nome da Planilha filename = Trim("Relatório KM " & " " & rNome & ".Pdf") Sheets(Array(plan1, plan2)).Select ' filename = Trim("Relatório KM " & " " & rNome & ".Pdf") filepdf = ePath & Trim("\" & filename) Application.DisplayAlerts = False ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:= _ ePath, Quality:=xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas:=False, _ OpenAfterPublish:=True End With Run ("esconderfrente") Run ("esconderverso") Sheets("diaskm").Select Range("a1").Select Else Exit Sub End If End Sub
  2. Obrigado Tenho um outro problema. Como executar uma macro, a partir de uma das opções de uma lista suspensa ? Obrigado
  3. Boa tarde Mediante um procv identtifico o conteudo na planilha1 de uma celula que este em outra planilha. Como substituir o conteudo da celula da outra planilha
  4. Boa Noite Procuro ajuda para o seguinte: - Numa coluna está inscrito os nomes de várias pessoas. Procuro uma forma de substituir, somente parte do nome, mantendo o resto nome já existente. Ex. Maria dos Santos Valerio Na minha coluna, tenho várias Marias, porém pretendo substituir, as 'Marias que eu quiser por 'Ana', mantendo o resto do nome Em vba Obrigado
  5. Boa tarde Incluo aqui o código que o Sr. Basole colocou. A minha questão é a seguinte: - Como marcar a linha toda a amarelo, depois da localização ser feita. Neste caso, marca somente a(s) célula(s) encontradas Muito Obrigado Dim y As Integer, rSearch As Range, RangeFim As Range LblOcorrencias.Caption = Empty n = 0 Set rSearch = PROFISSIONAIS.Range("c12", Range("c1000").End(xlUp)) y = rSearch.Rows.Count Set RangeFim = Range("c" & y) LocalizarString = Me.TextBox1.Value If LocalizarString <> "" Then With rSearch Set rng = .Find(LocalizarString, after:=RangeFim, SearchOrder:=xlByRows) If Not rng Is Nothing Then .Interior.ColorIndex = xlNone rng.Interior.ColorIndex = 6 Localizar = LocalizarString PrimeiraCelula = rng.Address VaiEndereco = rng.Address n = 1 Else MsgBox "Item Não Existe ", vbInformation End If End With End If Set rng = Nothing End Sub
  6. Boa tarde Basole como é que você, escreveu o botão Ativar ? Obrigado
  7. Bom dia Macro que execute o seguinte: Se uma dada célula, fôr menor que 0, o PDF não é gerado Obrigado
  8. Boa tarde Gostaria de criar uma macro que verificasse o seguinte: Se uma determinada célula fôr menor que 0, o que sgnifica que não foi preenchida, então o PDF não é gerado. Se fôr maior que 0, então sim Obrigado
  9. Bom dia Tenho o seguinte código, que funciona Private Sub WorkBook_Open() Dim Fechar As Date Fechar = Now + TimeValue("00:30:00") Application.OnTime Fechar, "sair" End Sub Como poderei, colocar uma mensagem, no momento em que a aplicação entra no ar, informando que encerra após 30 minutos? Obrigado
  10. Boa tarde Através de uma planilha, por exemplo planilhaA, tenho uma hiperligação para outro livro, por exemplo inventario. Pretendo a partir desse momento, executar macro pertencente a inventario Obrigado
  11. Boa tarde Como sair do livro excel, de forma automática, após um determinado tempo Obrigado
  12. Muito Obrigado De todo o modo a opção Boletim 0, não funciona, é devolvido sempre caminho errado
  13. @DiF Boa tarde A partir do código que enviei não sei como colocar os links a funcionar Obrigado

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