Glauco Melo

olá @osvaldomp Funcionou perfeitamente! Parabéns me ajudou muito

Olá @osvaldomp Colei a macro no modulo porém ela apresenta o seguinte um erro do windows e da uma mensagem com janela do windows como se não fosse possível executar a macro por que o arquivo não estivesse mais no local da rede. O curioso é que quando inutilizo a linha do código: ' Application.OnTime altern, "AlternaPlans" A macro roda certinho mas só de maneira manual quando clico no botão que atribui a ela, alternando e fazendo o loop então entre as células 20 e 40 e 1,certinho Quando ativo a linha da macro de novo da pau novamente O que pode ser?

Olá bom dia alguém consegue me ajudar? Agradecido @osvaldomp se puder me ajudar....=)

ok, @osvaldomp Criei o tópico abaixo Como fazer uma Macro do Excel para ficar mudando áreas de visualização dentro da mesma aba com um timer

Olá, bom dia Tenho uma planilha onde gostaria de dar flashes em áreas da planilha,a cada 10 segundos. Dentro da mesma aba, ou seja, o cursor ficar descendo para a célula do topo daquele intervalo ( Cada intervalo desses possui um gráfico) por exemplo: Inicia a rotina com cursor em cima da Célula A1, 10 segundos depois cursor em cima da Célula A20, 10 segundos depois cursor em cima da Célula A40. Depois faz um looping e continua tudo de novo a partir da célula A1, sem ter que rodar modulo de novo. Necessitaria Para essa apresentação criaria apenas de dois botões uma para iniciar a rotina e outro para parar a rotina vi que o @osvaldomp postou algo parecido no tópico abaixo : [Resolvido] Como fazer uma Macro do Excel para ficar mudando de Plan a cada 01 minuto Public altern As Date, i As LongSub AlternaPlans()If i = 0 Theni = 1End Ifaltern = Now + TimeValue("00:00:05")Application.OnTime altern, "AlternaPlans"Sheets(i).ActivateIf i < Sheets.Count Theni = i + 1Else: i = 1End IfEnd SubSub DeslAlterna()On Error Resume NextApplication.OnTime earliesttime:=altern, procedure:="AlternaPlans", schedule:=FalseMsgBox "desligado", vbInformation, "Status"End Sub Porém foi para mudanças de Abas, se em ultimo caso não for possível dentro de uma mesma aba, poderia ser com a solução do Osvaldo, mas selecionando as abas que quero que mudem? O ideal era que fosse na mesma aba, por áreas por que criei uma especie de Dashboard e cairia como uma luva se não teria que criar diversas abas. O nome da Aba da minha planilha que gostaria de utilizar é 'Dashboard' #code Grato,

Olá @osvaldomp Tudo funcionou perfeitamente, você é um excelente orientador! até breve Oi @osvalmp , bom dia você respondeu ao tópico [Resolvido] Como fazer uma Macro do Excel para ficar mudando de Plan a cada 01 minuto e me interessa bastante porém está fechado para comentários , com eu poderia fazer para reabri-lo, a solução que está la presente me atende quase na sua totalidade só falta um detalhe e sei que não podemos ficar falando de outros assuntos aqui nesse post. Agradeço e aguardo

Oi @osvaldomp você conseguiu abrir o link? Não sei se fui claro o bastante para que você entenda? mas o conceito é esse mesmo somente fazer o que você já havia feito antes de conseguir clonar os dados porém em mais colunas. Agradeço a atenção

Ola @osvaldomp https://drive.google.com/file/d/0B9XmGbvP31NjU1lHNDI4TDRnNlU/view?usp=sharing Segue link.As colunas em amarelo foram as que foram acrescentadas o principio continua o mesmo que é o conceito de clonar os dados nas colunas de H até N a partir dos dados coletados via formula na coluna F ( antes esses dados nasciam na coluna E). Em sequencia ou seja a cada mudança na coluna F os clones vão sendo criados uma mudança por vez. E a coluna F continua com o valor atual . A formulas estão na linha 6 Muito obrigado!

ola @osvaldomp Sei que já deve estar de saco cheio das minhas solicitações de ajuda. Mas por favor me ajuda só mais nessa!o arquivo continua o mesmo do link abaixo eu só acrescentaria depois da coluna "I" mais três colunas para Ficar 6 colunas de previsão clonando os valores. da coluna "E" seguindo a mesma sequencia. https://drive.google.com/file/d/0B9XmGbvP31NjdURNbllJc2JCbDQ/view?usp=sharing Me ajuda nessa ai por favor.

Olá @osvaldomp Na verdade ainda não, mas pode ser que daqui um tempo precise apenas acrescentar colunas, como ficaria a macro se eu acrescentasse colunas para continuar clonando os dados de "E" depois da "I" ou seja a planilha ficaria clonando em G,H,I, J, L e M. e todo o resto da planilha continuaria existindo. Outra pergunta, quando coloco a linha para proteger as colunas que me passou ActiveSheet.Protect "SuaSenhaAqui", UserInterFaceOnly:=True Ela também trava outras planilhas que estejam abertas, tem como ser diferente? e travar apenas a planilha que a macro se encontra Obrigado

olá @osvaldomp tudo bem? é Possível?

olá @osvaldomp Bom dia, Será que abaixo de cada linha do código você poderia colocar a explicação do código? para se caso no futuro por exemplo que incluir colunas eu entenda onde devo aumentar ou diminuir. Private Sub Worksheet_Calculate() Dim c As Range, LR As Long, k As Long LR = Cells(Rows.Count, 5).End(xlUp).Row ActiveSheet.Protect "SuaSenhaAqui", UserInterFaceOnly:=True On Error GoTo gout Application.EnableEvents = False For Each c In Range("E6:E" & LR) If c.Value > 0 And c.Value <> c.Offset(, 22).Value Then k = Application.CountA(Range(Cells(c.Row, 7), Cells(c.Row, 9))) + 7 If k < 10 Then Cells(c.Row, k) = c.Offset(, 22).Value c.Offset(, 22).Value = c.Value End If Next c gout: Application.EnableEvents = True End Sub agradeço

olá @osvalmp Muito bom! funcionou perfeito, parabéns!!! pergunta que lhe faço, é possível depois do preenchimento dos clones em G, H e I, o valores ficarem bloqueados não permitindo alteração? Entendo que teria que colocar uma senha no intervalo, porém acho que se colocar uma senha o loop não consegue percorrer as células correto? por que estariam bloqueadas ficando travado o processo. é possível ? Se fosse possível seria perfeito, só eu como adm da planilha pudesse limpar os valores dessas colunas. Obrigado,

olá @osvaldomp Estou mandando o link do arquivo para ver que fiz da forma que me pediu, porém como não tem a planilha para puxar os dados da coluna E acredito que vá ficar com #REF, mas repito o que disse que precisaria é da macro que fez no post #46 porém sem clonar simultaneamente os dados de E para G, H e I, e sim a cada alteração em E fosse copiando nessas colunas G, H e I sucessivamente. Só assim consigo medir o delta de alteração nas colunas G, H e I veja por favor se consegue me ajudar, essa planilha vai me ajudar bastante com essa função. Já fiz o delta com formula mesmo Link https://drive.google.com/file/d/0B9XmGbvP31NjdURNbllJc2JCbDQ/view?usp=sharing Obrigado

@osvaldomp O último código funcionou perfeitamente como falei, você só teria como mudar ele pra ao invés dele fazer os lançamentos em 'G, H e I' respectivamente, fazer por etapas de mudança? ou seja sempre na primeira alteração de E primeiro valor pra G, segunda alteração em E valor pra H e terceira alteração em E valor pra I, assim como funcionou no post #36 da macro que fez abaixo? a função é exatamente o que preciso, porém não deixava por formula, essa sua ultima já deixa mas não deixa ser o clone uma coluna de cada vez. Private Sub Worksheet_Change(ByVal Target As Range) Dim oldV As Double, newV As Double, k As Long If Target.Count > 1 Then Exit Sub If Target.Column > 1 Or Target.Row < 6 Then Exit Sub If Target.Value <> "" Then On Error GoTo GOT Application.EnableEvents = False newV = Target.Value Application.Undo oldV = Target.Value If oldV = 0 Then Target.Value = newV: GoTo GOT If Cells(Target.Row, 7) = "" Then Cells(Target.Row, 7) = oldV ElseIf Cells(Target.Row, 8) = "" Then Cells(Target.Row, 8) = oldV ElseIf Cells(Target.Row, 9) = "" Then Cells(Target.Row, 9) = oldV Else: MsgBox "as Previsões estão preenchidas" End If Target.Value = newV End If GOT: Application.EnableEvents = True End Sub