paulocezarpicos

Bom dia OreiaG. Pois é, quando executo a macro, desbloqueia no inicio mas não bloqueia no final. Usei Unprotect e Protect, mas a macro dá erro

Boa noite galera. Preciso da ajuda de vocês. Tenho uma planilha que é toda bloqueada, mas com 3 colunas desbloqueadas, só que tem dois grupos de células (de Z8:Z42) e (AB8:AB42) que eu queria que desbloqueasse no inicio da macro e bloqueasse no final da macro. Já tô há dias tentando de todo jeito e não consigo. Se alguém tiver disponibilidade pra me ajudar, ficaria grato. Código abaixo: Private Sub BTNOK_Click() 'PROTEGER PLANILHA Dim planilha As Worksheet Dim intervalo As Range Dim senha As String 'Defina a planilha e o intervalo de células que deseja desproteger Set planilha = ThisWorkbook.Worksheets("Geral") Set intervalo = planilha.Range("Z8:AB42") ' Substitua pelo intervalo desejado 'Set intervalo = planilha.Range("AB8:AB42") 'Desprotege o intervalo de células senha = "0" ' Substitua pela senha desejada ou deixe em branco se não houver senha planilha.Unprotect senha intervalo.Locked = False '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'MACRO Dim Acumulado As Range Dim Leitura As Range Set Acumulado = [Z8] If Acumulado.Value <> "" Then Set Acumulado = Acumulado(0).End(xlDown)(2) End If Acumulado.Value = TXTleitura.Value Acumulado(, 3).Value = TXTdata.Value Set Leitura = [I6] If Leitura.Value <> "" Then Set Leitura = Leitura(0).End(xlDown)(2) End If Leitura.Select Unload UserForm3 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'Worksheets("Geral").Range("Z8:Z42").Locked = True 'Worksheets("Geral").Range("AB8:AB42").Locked = True planilha.Protect senha 'intervalo.Locked = True End Sub Obs.: As linhas comentadas são minhas tentativas De já meus agradecimentos

Boa Tarde Midori. Desabilitei a macro e deu pra enviar (em anexo) Fico no aguardo LEITURA2.xlsx

Boa noite amigos do Clube do Hardware. Peço aos amigos ajuda para incrementar uma planilha que estou fazendo para meus clientes. Tenho na minha planilha uma tabela da coluna V a coluna AB. Tenho um Userform com a seguinte formação: Userform3; TXTleitura - Para inserir leitura; TXTdata - Para inserir a data da próxima leitura; BTNOK - Botão de OK; BTNcancelar - Botão de cancelar. A função do Userform acima citado: Quando executado preenchesse a primeira linha vazia da coluna Z e AB respectivamente e o cursor parasse na primeira linha vazia da coluna i De já agradeço a quem possa me ajudar Paulo Cézar

Boa noite Wendell Perfeito!!! Muito obrigado

Boa noite Wendell. Mistério..... Roda a sua planilha, mas a minha dá o mesmo erro(anexo). Não sei o que fazer. E é exatamente o que eu estava pensando que ficasse, mas infelizmente não está dando certo

Boa noite Wendell. Apareceu a msg "O ÍTEM EXPECIFICADO NÃO FOI ENCONTRADO". Deu alguma coisa errada.

Boa Tarde amigos. Tenho na minha residência uma geração de energia solar, e fiz para meu uso uma planilha de controle de geração e consumo de energia. Na minha planilha tem a aba "geral" onde insiro as leituras e tem outra aba (Dados) onde se encontram as células com as formulas e um gráfico (anexo). Na aba geral tem um gráfico vinculado com o gráfico existente na aba Dados. Até aí tudo bem. Só que eu gostaria que esse gráfico fosse baixando junto o cursor, isto é, a medida que eu fosse baixando o cursor, o gráfico fosse baixando também. Se alguém tiver disponibidade de tempo para me ajudar ficaria grato. Atenciosamente, Paulo Cézar Testando.xlsx

Boa noite Wendell. O visual Basic não abril nada. Não entendi

Boa noite Midori. Quando for inserido o valor na coluna "D"

Boa tarde galera, Quem puder me ajude aqui, por favor. Tenho uma planilha (anexo) de controle de geração e consumo de energia e gostaria que quando a geração (coluna D) fosse igual ao consumo (coluna K), abrisse uma caixa de dialogo (exemplo em anexo), e que essa caixa de dialogo fosse só para conhecimento do usuário. E fechasse ao clicar em ok. De já meus agradecimentos a quem possa me ajudar. Paulo Cézar Teste.xlsx

Valeu OreiaG. Muito obrigado pela ajuda, fique com DEUS

OreiaG, Não deu certo. Quando executo a macro ela está colando após a ultima colagem e eu queria que limpasse a coluna F a partir da linha três antes de colar os dados. Pode ser?? Fico no aguardo. Paulo Cezar

Boa tarde OreiaG. É isso mesmo que eu estava precisando. Pra terminar com a cereja no bolo só falta limpar a coluna F a partir da linha 3 até o final, antes da macro, aí fica beleza.

Boa noite galera boa. Um amigo me pediu pra fazer uma planilha pra ele e estou muito enrolado, preciso da ajuda de vocês. É o seguinte: Preciso de uma macro que copie da "coluna U", linha 2, da aba "Dados", a partir da letra C até antes da barra e cole na aba "Principal", na coluna F a partir da linha 3. Se alguém se disponibilizar a me ajudar de já meus agradecimentos. Obs.: Planilha em anexo. Paulo Cezar Testando Coordenadas.zip

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