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

olá @osvaldomp, desculpe a demora. Fiz o que pediu: "Antes de instalar o código copie a coluna 'E' a partir de 'E6' e até a última linha com fórmula e em seguida cole Especial / Valores em 'AA6'." A macro funcionou, porém quando qualquer valor da coluna " E" é alterado via a soma da formula ele preenche as colunas G, H, I de uma ao mesmo tempo com o ultimo valor e não apenas a coluna G depois da primeira alteração, depois a H na segunda alteração e depois a I na terceira alteração. Pode consertar isso? Acredito que a formula não seja o fator crucial certo? a formula que estou usando para trazer os dados para coluna "E" e que copiei na coluna AA é: =SOMARPRODUTO(('[New PAC CBV - SET_15.xlsb]Sales Forecast 12Oz'!$I$11:$I$300=C6)*('[New PAC CBV - SET_15.xlsb]Sales Forecast 12Oz'!$L$11:$L$300=$C$2)*'[New PAC CBV - SET_15.xlsb]Sales Forecast 12Oz'!$K$11:$K$300)/1000 obrigado,

Olá @osvaldomp Os dados nas células da coluna "E" retornarão sempre número no formato positivo com separador de milhares sem virgula exemplo: "40.650" "35.345" A formula que irá trazer é: =SOMASE('[New PAC CBV - SET_15.xlsb]Sales Forecast 12Oz'!$I$11:$K$240;C6;'[New PAC CBV - SET_15.xlsb]Sales Forecast 12Oz'!$K$11:$K$69) Será sempre um somase que vai buscar os dados no "newpac" com base no Part Number presente na minha planilha , new pac é nome da planilha que irá buscar as informações.

olá @osvaldomp De fato a macro funcionou, peço desculpas se desperdicei o tempo de alguém não foi minha intenção. esse macro será utilizada em uma coluna onde as informações serão espelhos de outra planilha ou seja terá um =cél da planilha "X" em cada célula da coluna onde os dados irão nascer. Notei que como não expliquei direito essa macro que você postou não deixa fazer isso (puxar valor através de formula), então como ficaria a macro numa situação dessa? os dados nascendo de outra planilha respondendo sua pergunta sim, a planilha já está na estrutura definitiva. obrigado,

veja por favor se conseguiu abrir e fazer download @osvaldomp

Segue link da planilha com comentarios https://drive.google.com/file/d/0B9XmGbvP31Njemc3ajQ3VV9HcVE/view?usp=sharing Segue link da planilha com comentarios https://drive.google.com/file/d/0B9XmGbvP31Njemc3ajQ3VV9HcVE/view?usp=sharing

@osvaldomp Oi Osvaldo obrigado pela ajuda estou precisando mesmo dessa função para fazer umas analises urgentes. não consegui aplicar então estou te mandando o arquivo anexo com os comentários acredito que esta bem explicado. Isso irá me ajudar muuuuito mesmo. aguardo. Qualquer duvida só me acionar .

Olá Wendell, Não sei se fui claro com minha necessidade, mas se precisar de mais informação por favor me fale pois isso vai me ajudar muito. Se não conseguir desenvolver a parte de proteger não tem problema seria ideal mas não é essencial obrigado,

Oi, wendelll Muito obrigado pela sua disponibilidade, o Código funcionou sim colei ele dentro do VBA na aba "Plan1" Agora veja por favor no anexo que quero usar o código para os Dados inseridos da coluna "E" "Volume de malha" e começar a clonar a partir da coluna "G" até a coluna "I" de previsões. Porém o codigo esta fazendo clonar os dados a partir da coluna "S" Será que é por que é a primeira sem nenhum preenchimento? como ficaria o código da forma que lhe falei acima? Para travar a edição das coluna "G" até a "I" apos feita as clonagens , teria que por senha? pode dividir o código com e sem essa opção de travar? Isso seria muito importante para evitar de alguém mascarar os dados. Obrigado

Olá Tenho uma planilha onde gostaria que sempre que alterasse qualquer dado em qualquer célula da coluna "A" a célula lateral na coluna "B" clonasse o que estava escrito antes da alteração. e se eu alterasse a coluna "A" de novo a celula paralela na coluna "C " copiasse os novo dado e assim sucesivamente preenchendo sempre a linha da celula que esta sendo mudada na coluna "A" Exemplo na célula A1 esta o valor de 39, dai eu mudei para 45, nesse momento a Celula B1 fixara o valor 39 e a A1 fica com 45, caso eu mude de novo a A1 para 20 a celula C1 fica com 45 e a A1 com 20. Como se fosse um espelho. Se possivel tambem que esses valores depois de clonados não pudessem ser alterados, ou bloqueado. Somente a coluna "A" poderia ser editada Agradeceria muito