paulocezarpicos

Galera, tô a dias tentando agrupar uma barra de rolagem a um gráfico e não estou conseguindo. Agrupo conforme aprendi: vou em avançar, trazer para frente. Clico com o lado direito do mouse e escolho agrupar. Só que quando movimento a planilha a barra de rolagem descola do gráfico e é aquele aborrecimento. Se alguém poder me ajudar, ficaria grato Att.: Paulo Cézar

Ok OreiaG. Mesmo assim lhe agradeço por tentar me ajudar Pronto. Seguindo sua orientação, desisti do código Worksheet_Calculate e a planilha funcionou normalmente. Muito obrigado pelo seu tempo, pela disposição em me ajudar e até a próxima Pronto. Seguindo sua orientação, desisti do código Worksheet_Calculate e a planilha funcionou normalmente. Muito obrigado pelo seu tempo, pela disposição em me ajudar e até a próxima

Bom dia OreiaG. kkkkkkk tá difícil né?? Baixei a planilha que você me enviou e veja o acontece: Com essa linha desativada: Plan17.Protect "0" '$$$$$$$$$$$$$$$$$$$$$$$ DESATIVEI ESTA LINHA Quando digito na planilha ela desabilita a proteção. Quando preencho o FORM alimentando as colunas Z e AB dá erro nesta linha: Acumulado(, 3).Value = Format(TXTdata.Value, "mm/dd/yyyy") ' $$$$$$$$$$$$ ACRESCENTEI "Format" Confio em você....fico no aguardo

Pois deu problema agora. Se retiro a linha de proteção do código Worksheet_Calculate, dá o erro que lhe mostrei no Post #12. Se uso a linha de proteção no código Worksheet_Calculate dá erro, conforme mostrei no Post #6. Mas não dá erro com você. Então não sei mais o que fazer. Vamos deixar pra lá. Não vamos ficar aqui trocando mensagens e você perdendo tempo, né mesmo??

OreiaG. Esse erro sempre aparece quando tiro a proteção do código Worksheet_Calculate. E quando uso a proteção aparece aquele erro no código BTNOK_Click. Se não está aparecendo nenhum erro na sua planilha então mande ela pra mim, só assim não vou usar mais o seu tempo. Concorda??

Amigo OreiaG. Retirei a proteção do código Worksheet_Calculate da planilha Geral e apareceu outro erro citado anexo Obs.: Desculpe lhe decepcionar, mas não sou tão entendido como você

Desculpa OreiaG, pensei que só salvando sem macro dava certo. Pois vou compacta-la e te mandar. A senha é "0" LEITURA2.rar

Boa noite OreiaG. Esse código foi o primeiro que usei e deu erro. Vou enviar a planilha pra ver se você me ajuda. Obs.: Planilha em anexo LEITURA senha.xlsx

Boa noite OreiaG. Quando executo a macro aparece essa caixa de diálogo (acima) e dá esse erro abaixo:

Boa noite OreiaG. Foi por causa desse erro que procurei outras alternativas. Acho que não desprotege. Quando preencho o formulario para preenchimento da planilha aparece uma caixa de diálogo para informar a senha, veja a figura abaixo:

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