Bikke

Boa noite @Kevin Ewerson Assim vai ficar difícil. Adiciona uma planilha aqui com o que pretendes que seja feito. Porque sem a planilha, ( com dados ficticios, claro ), nunca mais chegamos a bom Porto. Vendo a planilha fica mais fácil te ajudar. Cumprimentos

Boa noite @Kevin Ewerson Para que isso não aconteça, não podes selecionar a opção: Inserir linhas ( conforme imagem em baixo ) Como podes ver, com essa opção desactivada, não é possivel inserir linhas, ( conforme mostra a imagem em baixo ) Espero que te tenha sido útil. Cumprimentos

Boa noite @Kevin Ewerson Vê se isto te ajuda. - 1º Clicas em Proteger Folha - 2º Vais dar um click logo na primeira opção que diz: Seleccionar células protegidas - 3º Colocas a senha que pretendes - 4º Clicas em Ok Já podes fazer Ctrl+L ou na barra Base, clicas depois nos binóculos e clicas em Localizar Conforme está imagem Escreves o que pretendes localizar e pronto. Espero que te tenha ajudado Cumprimentos

Boa noite @osvaldomp Ahhhh, agora sim, funciona maravilhosamente. Os meus eternos agradecimentos pela tua e sempre excelente ajuda. Obrigado Bom fim de semana Cumprimentos

Boa noite @Patropi Fiz isso que disseste, e a mim não faz absolutamente nada. Clico, clico, clico no Botão e nada. Não sei o que está errado comigo então...

Boa noite osvaldo Obrigado pela tua ajuda. Fiz como disseste, coloquei o primeiro código VBA em um Módulo Comum Coloquei o segundo Código VBA no Módulo da Planilha ESCALA Agora como faço para rodar o primeiro Código?? Coloquei um Botão e Atribui a Macro InsereComboBox, cliquei e não acontece nada. O que está errado aqui?? A ComboBox não aparece. Podes me explicar o que fiz de errado ou que falta fazer?? Obrigado Segue a planilha anexada ao post Cumprimentos Março de 2020 - Cópia.xls

Cinco estrelas osvaldo As sete de uma só vez já está. Agora imagina que eu dentro das 7, queira Gravar em PDF uma só. Hoje pode ser a da Aba Ajuda, mas amanhã quero gravar uma outra. É possivel fazeres um código VBA para que eu escolha qual a Aba eu quero gravar em PDF ?? Obrigado mais uma vez pela tua excelente ajuda Cumprimentos

Bem, após pesquisar na net e de ir testando os códigos VBA que encontrava, encontrei um que faz o que pretendo ( excepto no nome, pois grava sempre com o mesmo nome ), mas tive que colocar um botão em cada uma das folhas que pretendo Gravar em PDF. Eu gostaria que assim que clicasse no botão gravasse em PDF, as folhas das Abas de uma só vez; - Dia - Ajuda - Tarde - Noite - Dist - Dil - FolhaH e gravasse com os respectivos nomes das Abas, ou então, assim que clicasse no botão que ficaria na Aba Escala, Gravar em PDF, ele perguntasse qual a Aba que eu gostaria de Gravar em PDF e após eu escrever o Nome ou escolher a Aba numa Lista, fosse gravado em PDF com o nome dessa Aba. Até lá, tenho o seguinte código VBA que partilho com o Forum... Sub Converter_em_PDF() Dim PdfCaminho As String Dim PdfNome As String PdfCaminho = VBA.Environ("USERPROFILE") & "\Desktop\" PdfNome = "Escala de Março.pdf" ThisWorkbook.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ PdfCaminho & PdfNome, Quality:= _ xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _ OpenAfterPublish:=False End Sub Fico a aguardar que alguém me possa ajudar nesse sentido Obrigado Cumprimentos

Boa noite Poderá dar mais trabalho sendo as 7 Folhas de uma só vez, sendo assim, preciso só de um código para Gravar em PDF uma folha de cada vez. isto é, e se for possivel, ao clicar no botão da Folha Escala, pede-me para eu escrever o nome da Folha ( Aba ) que eu pretendo gravar em PDF..... ou Em cada folha que eu pretendo gravar em PDF, levará um botão que eu ao clicar gravará essa mesma folha em PDF com o seguinte destino: "C:\Users\Bikke\Desktop\Março 2020\" Espero que assim eu consiga a ajuda que necessito. Obrigado Cumprimentos

Ups Foi corrigida essa tua observação, e sim, já funciona direitinho. Peço desculpa por este meu erro na interpretação dos módulos comuns. Já está tudo a funcionar como eu pretendia. Os meus eternos agradecimentos. Cumprimentos

Boa noite Venho solicitar ajuda no seguinte. Tenho uma planilha com 8 Abas - Escala - Dia - Ajuda - Tarde - Noite - Dist - Dil - FolhaH Pretendo que, ao se clicar no Botão Gravar Folhas que se encontra na Aba Escala, sejam gravadas em PDF dentro da Pasta Março 2020 que se encontra no Ambiente de Trabalho, as seguintes Abas, Dia, Ajuda, Tarde, Noite, Dist, Dil e FolhaH com os mesmos nomes das suas Abas. Obrigado Cumprimentos Março 2020.rar

Boa noite @osvaldomp Obrigado desde já pela tua ajuda. Testei o código VBA para colocar no módulo da planilha Entradas E funciona muito bem. Coloquei o código VBA no módulo de EstaPasta_de_trabalho E apaguei uma data na coluna G, exemplo célula G16, e fechei o excel, ele pede-me para gravar e fecha o Excel sem se preencher a célula G16 e não devia de acontecer. Junto em anexo a planilha já com os dois códigos VBA's colocados. Podes ver isso, sff?? Obrigado Cumprimentos CampoObrigatorio.SE_V1.xls

Boa noite osvaldo Coloquei outra Aba que faltava, que é Aba Menu. Coloquei outra planilha com os Campos que devem estar preenchidos caso as células anteriores estejam vazias. ( assim irão entender melhor ) Quando digo não sai da planilha, quero dizer que não sai da Aba Entradas para qualquer outra célula ou Aba, enquanto não for preenchida a célula Data Saída. Segue em anexo outra planilha. CampoObrigatorio.SE.xls

Boa noite Venho solicitar ajuda no seguinte: Tenho campos que devem ser preenchidos, serão da célula C7 até F211. Assim que os dados forem apagados, da célula C7 até à célula F211, as células imediatamente a seguir à direita, deverá ser preenchida ( G7 até G211 ) Exemplo: Se nas células C7, D7, E7 e F7 estiverem vazias, então é Obrigatório preencher a célula G7, e enquanto a mesma não for preenchida não sai da planilha. E assim sucessivamente até G211. Isto é, C8, D8, E8 e F8 estiverem vazias, então é Obrigatório preencher a célula G8, e enquanto a mesma não for preenchida não sai da planilha. Isto é, C9, D9, E9 e F9 estiverem vazias, então é Obrigatório preencher a célula G9, e enquanto a mesma não for preenchida não sai da planilha. Isto é, C10, D10, E10 e F10 estiverem vazias, então é Obrigatório preencher a célula G10, e enquanto a mesma não for preenchida não sai da planilha. Isto é, C11, D11, E11 e F11 estiverem vazias, então é Obrigatório preencher a célula G11, e enquanto a mesma não for preenchida não sai da planilha. Isto é, C12, D12, E12 e F12 estiverem vazias, então é Obrigatório preencher a célula G12, e enquanto a mesma não for preenchida não sai da planilha. E por aí abaixo, da célula C211 até F211. Espero que me tenha expressado bem e que me tenha feito entender. Se houver alguma dúvida, favor de perguntar. Obrigado Boa noite Cumprimentos CampoObrigatorio.SE.xls

@Vics Boa noite Agora sim, agora já funciona direitinho. O meu obrigado pela atenção e explicação. Uma boa noite Cumprimentos

@Vics Boa noite Estou usando o excel 2007. E continua a não dar nada

Olha eu já fiz isso tudo e não dá. Desisto Vai para o lixo Obrigado por tudo. Cumprimentos

Não dá na mesma Dá erro Alguma coisa está a falhar aqui Eu quero que as gravações vão para o Ambiente de trabalho para a Pasta Gravações PDF

Sim Vai anexado TESTE_PDF-1 - Vics.rar

Fiz isso que disseste, dá o mesmo erro. Sub SalvarPDF() ' ' SalvarPDF Macro ' Lembrando que mesmo que execute a macro várias vezes, um arquivo subscreve o outro. Dim user Dim localPasta As String Dim cliente As String user = Environ("Bikke") 'buscar nome de usuário do computador. localPasta = "C:\Users\Bikke\Desktop\" ChDir "C:\Users\Bikke\Desktop" Sheets("modelos").Select Range("A1").Select Selection.End(xlToRight).Select Selection.End(xlDown).Select While ActiveCell <> "" cliente = ActiveCell.Offset(-1, -6).Range("A1").Value Range(Selection, Selection.End(xlUp)).Select Range(Selection, Selection.End(xlToLeft)).Select Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=localPasta + cliente, Quality:= _ xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _ OpenAfterPublish:=False Selection.End(xlToRight).Select Selection.End(xlDown).Select ActiveCell.Offset(2, 0).Select Selection.End(xlDown).Select Wend Range("A1").Select Sheets("Planilha1").Select MsgBox "PDFs na area de trabalho", vbOKOnly, "Sucesso" End Sub

@djacy.neto Assim, não saimos daqui. É mais fácil dizeres como fazer, com exemplos. Porque dessa forma não vou entender nem saber como o fazer. Cumprimentos

@djacy.neto Boa tarde Sim, copiei e colei o código. Fiz alterações mas não dá nada. Em chDir: coloquei utilizadores, mas é igual, não dá na mesma.

@Vics O erro é este....

@janiosba Faz uma cópia da planilha e coloca dados ficticios. Não precisa de ser a planilha completa, mas sim um bocadinho para que te possam ajudar. Elimina os dados que não possam ser vistos, e coloca dados inventados. Se não, fica difícil.

Boa noite A mim deu um erro