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