paulocezarpicos

Basole, Sei que tô abusando, mas num sei quando terei essa oportunidade de novo. Queria que essa macro que tratamos aqui atuasse somente na aba "Geral" (tá atrapalhando nas outras). Obs.: Mande só as alterações que eu faço aqui. De já meus agradecimentos

Pois é..... Com o outro código estava tudo perfeito, só que quando eu usava uma macro de limpar campos, quando o cursor parava na primeira célula num ficava branca, ficava da cor do resto da planilha e eu quero que fique na cor branca, pois o cursor para nessa célula (B7:G7)

Basole, Essas células que estão em branco. B7:G7 - B9:D9 - F9:G9 - B11:C11 - E11:F11 - G11 - A14:D14 - E14:G14. Todas as celulas da planilha está acontecendo do jeito que eu quero, menos esses os campos acima. Os campos que vou inserir os dados.

Meu amigo Basole a quanto tempo!!!! Seus códigos como sempre num nível tão alto que eu como iniciante não entendo nada. A macro está rodando exatamente como eu queria, isto é, quando recebe o foco a célula fica branca e quando sai o foco a célula volta a cor anterior. Só que isto está acontecendo em qualquer parte da planilha, menos nos campos onde vou inserir as informações. Em anexo a planilha Orçamento Kit Solar.zip

Basole, Obrigado por me responder. Eu quero que quando o foco chegar na célula (não ao clicar), ela fique branca e quando o foco sair da célula ela volte a cor anterior, pode ser???

Leandro Lamin, Provavelmente você não fez do jeito que eu disse. Clique com o lado direito do mouse na celula, depois vá em formatar célula, mude a categoria para geral, depois clique na barra de formula e dê um enter. Não tem como não dá certo. Tente de novo

Leandro Lamin, A célula está como texto, mude pra geral, clique dentro da barra de formulas e depois dê um enter, pronto é pra dá tudo certo kkkkk

Boa noite galera, Tô aqui me batendo com uma formula. Estou usando esse código abaixo pra que mude a cor da célula ao receber o foco, mas ele só altera ao ser clicado. Gostaria que alguém me ajude com um código que altere a cor da célula ao receber o foco e não ao ser clicado. Código que estou usando: Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range) Sheets("Geral").Unprotect "0" 'Update 20140923 Static xLastRng As Range On Error Resume Next On Error Resume Next Target.Interior.ColorIndex = 2 xLastRng.Interior.ColorIndex = 36 Set xLastRng = Target Sheets("Geral").Protect "0" End Sub De já meus agradecimentos a quem me ajudar Paulo Cezar

Boa noite RafaVillani e a todos. Depois de muito queimar pestana consegui. Mesmo assim muito obrigado a RafaVillani e a esse grupo que já me ajudou tanto. Um abraço, Paulo Cezar

RafaVillani, boa noite. Rafa você teve tanto trabalho e paciência nessa planilha que tô com maior medo de danificar o código que você fez pra mim. É o seguinte, tive a ideia de distribuir essa planilha entre meus clientes e resolvi acrescentar minha logo na planilha de impressão. Fiz isso e apareceu um erro, aí achei melhor pedir sua ajuda, ao invés de insistir e correr o risco de danificar seu código. Queria que ao invés de imprimir a aba maio2021 imprimisse a aba impressao, pode ser??? De já meus agradecimentos. Obs.: Planilha em anexo LEITURA - teste.zip

Perdão

Valeu RafaVillani, você é um expert no VBA. Muito obrigado.

Ok, em anexo Pre-Projeto.zip

Muca Costa, Perfeita, era o que eu estava desejando mesmo. Só que surgiu um probleminha aqui. Tenho 16 planilhas que aparece como plan1 e quatro que aparece como Planilha1 e estas ultimas o seu código não inclui. O que faço??

RafaVillani, Não sei se tem alguma coisa errada ou fiz alguma coisa errada, mas na sua formula depois do end if, tudo que uso não funciona, no exemplo aqui é o "CALL IMPRIMIR e UNLOAD ME". Já fiz de tudo e as funções não funcionam. O userform1 após dá ok não fecha, como também a macro "imprimir" não executa. Veja pra mim, por favor. If QtdLinhaFiltro > 31 Then MsgBox "Intervalo entre datas muito grande, selecione outro intervalo!", vbInformation, "FILTRO" Else: Plan16.Range("A7:K" & QtdLinhaFiltro + 6) = MatrizFiltro Exit Sub End If 'Call imprimir 'Unload UserForm1 Unload Me End Sub OBS.: Planilha em anexo LEITURA6.zip

Muca Costa, Agradecido pela atenção e pela ajuda. Mas se você salvasse num só arquivo e direcionasse esse arquivo PDF pra ser salvo nesse caminho: E:\PC SOLAR\Processos\PRÉ-PROJETOS\" & [E64] & ".pdf, eu ficaria grato

Eder Neumann, Agradecido pela atenção. Mas dessa forma não me serve. Prefiro pelo VBA. Vou aguardar alguém me ajudar

Galera, Tô precisando de um empurrãozinho. Peguei um código da net que gera todo um arquivo em PDF, mas queria que gerasse a partir da terceira aba e não estou sabendo adaptar (código abaixo): Sub SalvaArquivoExcelEmPDF() ThisWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "E:\PC SOLAR\Processos\PRÉ-PROJETOS\" & [E64] & ".pdf" End Sub Ficaria grato se alguém me ajudasse.

Tem razão Patropi. Fiquei indignado, não pelo puxão de orelha, mas porque sou muito cuidadoso em curtir e agradecer. Minhas desculpas RafaVillani e muito obrigado pela ajuda

RafaVillani, Deu a mensagem de que a planilha está protegida. Seria pedir demais, se você usasse a postagem #7?? É que essa planilha está totalmente terminada, só faltando proteger a aba"Geral" e acultar a aba "Dados".

RafaVillani, Mil desculpas, eu que não fui bem claro. A planilha que deve ficar oculta é a maio/2021 e não a geral.

RafaVillani, Muito agradecido pela atenção e pelo trabalho que você fez. Ficou beleza, do jeito que eu desejava que ficasse. Pra ficar 11 só precisa você fazer uma coisa que aparentemente (sempre fiz nas minhas planilhas) é muito simples, só que eu não consegui. Fazer rodar os códigos fontes com as planilhas protegidas e também ocultar a planilha "Dados", que é a de impressão. Obs.: Planilha em anexo LEITURA4.zip

Ok RafaVillani, agradecido pela atenção

RafaVillani, Aqui num rodou não. Não dá pra ser as datas no userform já criado não??