João Paulo Lucas

Ok patropi Muito Obrigado Segue uma folha, de exemplo. Na folha 2, ao introduzir um Nº mecanográfico, caso exista na folha 1, puxa para a folha a 2, as respetivas descições Obrigado Livro1.xlsx

Boa tarde peço ajuda para o seguinte Tenho uma folha com muitos registos relativos a funcionários. Cada funcionário tem o seu respetivo nº Mecanográfico, e a sua respetiva identificação. Pretendo pesquisar pelo nº mecanográfico, e caso exista, o objetivo é copiar para outra planilha, o respetivo nº mecanográfico, nome e morada Obrigado desde já

refiro-me a programação Obrigado

Boa tarde Como fazer download de um ficheiro, numa página web, perguntando salvar como Muito Obrigado

Boa tarde Tenho uma pagina web, gostaria de criar um hperlink para aceder a uma folha excel, de forma direta. Sem aparecer a mensagem se quero salvar,ou abrir diretamente Obrigado

Bom dia Obrigado pela ajuda, mas peço o seguinte, como fazer isto mesmo mas com uma macro ? Obrigado

Boa noite Como substituir valores com base num criterio Por exemplo substituir o valor da célula A1 e A2, se a célula e1, for igual a "Sim" Obrigado

Obrigado pela sua ajuda Em anexo envio um exemplo. O que pretendo é que se for "Sim" deve verificar-se 2 situações: 1º Só será possível escrever a data de fim, se a outra célula estiver a sim 2º A data de fim tem de ser igual ou maior que a data de inicio Obrigado exemplo.xlsx

Boa tarde No excel pretendo o seguinte: Usando a validação de dados, como aplicar dois critérios, ou seja se numa dada célula, estiver a palavra "Sim", a data de fim não pode ser inferior a data de inicio. Desde já Muito Obrigado

Boa tarde Peço ajuda para o seguinte Como pesquisar valores inscritos em células, que por sua vez tem formulas, numa dada folha Obrigado

Boa tarde Peço ajuda para o seguinte Como pesquisar valores inscritos em células, que por sua vez tem formulas, numa dada folha Obrigado

Boa tarde Peço ajuda para o seguinte: - Como escrever invisível, num inputbox Segue o código Dim senha As String Sheets("main").Select senha = InputBox("Digite a Password, de Administração") If senha = "tiparque2018" Then MsgBox "Password correta... Bem vindo ao Menu de Administração" Run "mostrarfolhas" Sheets("menuadmin").Select Else Run "mensagemtempoencerrar" ThisWorkbook.Save Application.Quit End If ' End Sub que tenho Obrigado

5enna Muito Obrigado pela sua ajuda, está perfeito Abraço

Ola 5enna, mas como verifico isso ?

Boa tarde Sou novo por aqui, e tenho o seguinte problema. Tenho uma macro que funciona bem, na criação de PDF, no entanto quando o PDF é gerado, são criadas muitas folhas em branco, para além do pretendido. Peço ajuda Segue a o codigo Dim Filepdf, rData, rNome, ePath, Filename As String If Application.Version < "12.0" Then MsgBox " Não é possivel salvar no Formato PDF para essa versão do Office" Exit Sub End If With Worksheets("bancoti") rData = .Range("b4") ' na celula b4 insira uma data rData = Format(rData, "dd-mm-yyyy") ' altere a formatacao que desejar rNome = .Range("g3") ' na celula k3 inira um nome ou numero que deseja ePath = .Range("g2") ' Na "k2" diretorio que será salvo o PDF .PageSetup.Orientation = xlPortrait ' altere p/ xllandscape(orient. Paisagem) Filename = Trim(rData & "_Guia Nº " & rNome & ".Pdf") Filepdf = ePath & Trim("\" & Filename) Application.DisplayAlerts = False ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Filepdf, _ Quality:=xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas:=False, _ OpenAfterPublish:=True End With end sub Obrigado