João Paulo Lucas

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

Obrigado Tenho um outro problema. Como executar uma macro, a partir de uma das opções de uma lista suspensa ? Obrigado

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

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

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

Muito Obrigado

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

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

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

Boa tarde Resolvido Muito Obrigado

Boa tarde Como sair do livro excel, de forma automática, após um determinado tempo Obrigado

Muito Obrigado De todo o modo a opção Boletim 0, não funciona, é devolvido sempre caminho errado

@DiF Boa tarde A partir do código que enviei não sei como colocar os links a funcionar Obrigado

Boa tarde Tenho uma lista pendente, em HTML. No entanto não consigo executar nada. Podem ajudar-me Segue o código <form name="dropdown"> <label>Boletins</label> <select name="list" accesskey="E"> <option selected="">Sselecione o Boletim <option value="href=../../observatorio/ano201920/Boletim1.pdf" <option value="http://www.google.pt">Boletim2 <option value="http://www.search.com/">Boletim3 <option value="http://www.dogpile.com/">boletim4 <select> <input type="button" value="Go" onclick="goToNewPage(document.dropdown.list)"></select></select></form> Obrigado

Boa tarde Tenho uma planilha que se chama "2019", pretendo que quando se inicia um novo ano, se passe a chamar 2020 Obrigado

Boa tarde. Como limitar o preenchimento de um campo numérico a 9 dígitos? Exemplo: O campo Nº de Contribuinte, tem necessariamente 9 números. Pergunto como fazer esta validação. Obrigado.

Boa tarde Antes de mais, peço desculpa por estar só agora estar a responder. Em anexo, envio ficheiro, com 3 listas, que pretendo que sejam pendentes. O pretendido é que quando, por exemplo eu escolher PC, e depois a marca, automaticamente, só irá aparecer os modelos disponíveis, para aquele PC daquela Marca. Obrigado teste.xlsx

Bom dia Tenho o seguinte problema: Tenho uma lista pendente, já criada e a funcionar. Na planilha, pretendo por exemplo, o seguinte: - Se na célula b2, estiver escrito "PC", pretendo ir buscar a lista pendente, dos "PC'S", por outro lado se estiver escrito "IMP", pretendo ir buscar a lista pendente dos "IMP" Obrigado

Boa tarde Numa planilha, tenho varias ocorrências de valores para o mesmo Nº de utente, como posso somá-los O que pretendo é que, a função encontre, todas as ocorrências, para o mesmo Nº de utente, e some os respetivos somatórios parciais (coluna Somatório parcial, da planilha Pagamentos) Envio folha em anexo, na circunstância, o meu problema é na planilha 'pagamentos' Desde já Obrigado REEMBOLSOS.xlsx

Boa tarde E como +e que se isso se faz navegante na rede ? Obrigado

Boa tarde Tenho o seguinte problema, em excel: - Preciso de verificar ao mesmo tempo, se a célula a1 estiver vazia, e o que for escrito na célula a2 for verdadeiro, então é invalido. Por outro lado, se a célula a1 estiver vazia, e o que for escrito na célula a2 for verdadeiro, então é verdadeiro. Na célula a2, são escritos, dois códigos diferentes. Ou seja, um deles combinado, com a célula vazia, em a1, é verdadeiro. Por outro lado, o outro código, combinado com a célula vazia é falso Obrigado

Quero dizer A partir de uma pagina web. ter acesso a uma folha excel, sem aparecer a mensagem se quero salvar,ou abrir diretamente Obrigado Boa tarde Pretendo o seguinte: - ao abrir um documento através do href, pretendo que o utilizador seja obrigado a 'salvar como'. O objetivo é que o utilizador, não consiga editar o ficheiro original Obrigado

Muito Obrigado Patropi