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