-
Posts
40 -
Cadastrado em
-
Última visita
Reputação
3-
Visual Basic excel criar pdf e alojar em diretorio
João Paulo Lucas postou um tópico em Programação - outros
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 -
Excel excel limitar preenchimento de campo numerico, a 9 digitos
João Paulo Lucas respondeu ao tópico de João Paulo Lucas em Microsoft Office e similares
Obrigado Tenho um outro problema. Como executar uma macro, a partir de uma das opções de uma lista suspensa ? Obrigado -
Visual Basic substituiçao de conteudos em planilhas
João Paulo Lucas postou um tópico em Programação - outros
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 -
Visual Basic excel substituir parte do nome, numa coluna
João Paulo Lucas postou um tópico em Programação - outros
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 -
Visual Basic Excel - Localizar celula e pintar a amarelo
João Paulo Lucas postou um tópico em Programação - outros
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 -
pesquisar com next em uma lista vba excel 2007
João Paulo Lucas respondeu ao tópico de Tiago Araújo em Microsoft Office e similares
Muito Obrigado -
pesquisar com next em uma lista vba excel 2007
João Paulo Lucas respondeu ao tópico de Tiago Araújo em Microsoft Office e similares
Boa tarde Basole como é que você, escreveu o botão Ativar ? Obrigado -
Bom dia Macro que execute o seguinte: Se uma dada célula, fôr menor que 0, o PDF não é gerado Obrigado
-
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
-
Excel excel função fechar aplicação
João Paulo Lucas postou um tópico em Microsoft Office e similares
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 -
Visual Basic excel a partir de um livro, chamar macro pertencente a outro livro
João Paulo Lucas postou um tópico em Programação - outros
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 -
HTML lista pendente em html
João Paulo Lucas respondeu ao tópico de João Paulo Lucas em Web e banco de dados
Boa tarde Resolvido Muito Obrigado -
Visual Basic excel sair do livro. após um tempo
João Paulo Lucas postou um tópico em Programação - outros
Boa tarde Como sair do livro excel, de forma automática, após um determinado tempo Obrigado -
HTML lista pendente em html
João Paulo Lucas respondeu ao tópico de João Paulo Lucas em Web e banco de dados
Muito Obrigado De todo o modo a opção Boletim 0, não funciona, é devolvido sempre caminho errado -
HTML lista pendente em html
João Paulo Lucas respondeu ao tópico de João Paulo Lucas em Web e banco de dados
@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