Notifications
Clear all

Dúvida com Loop!!!!

3 Posts
2 Usuários
0 Reactions
985 Visualizações
(@lopesmalk)
Posts: 2
New Member
Topic starter
 

Bom dia,

Sou um novato no fórum e encontrei muito material de qualidade para me auxiliar. E consegui desenvolver algumas coisas em Macro.

O problema é que esbarrei em um problema que não consigo resolver. A situação é a seguinte:

Preciso que a macro copie os dados da G157:G160 e cole com valores em B157:B160 (aqui tranquilo consegui resolver)

Problema:
Nas células G157:G160 os valores serão atualizados (com uma fórmula que inseri) na medida que B157:B160 forem atualizadas (com o cope e cola valores), gerando assim um loop.

Resultado:
A sequencia de "copie e cole com valores" tem que ocorrer até que as duas colunas estejam iguais.

Alguem sabe como resolver isso???

Muito Grato pela ajuda!!

 
Postado : 08/05/2012 6:44 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Não tenho certeza de ter entendido; pois me parece que criará um loop sem fim;
porem tente:
Em uma celula auxiliar (por exemplo C157) coloque a formula =SE(B157&B158&B159&B160=G157&G158&G159&G160;"Sim";"Não")

Em sua "macro" utilize
Do Until range("C157")="Sim"

Aqui sua rotina de cole paste

loop

 
Postado : 08/05/2012 7:09 am
(@lopesmalk)
Posts: 2
New Member
Topic starter
 

Funcionou D++ ficou ótimo...

Para quem quiser o Código ficou assim:

Sub ADUTORAS_PN1()

Do Until Range("G161") = "Sim"
Range("G157:G160").Select
Application.CutCopyMode = False
Selection.Copy
Range("B157").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Loop
End Sub

Abraços e mais uma vez obrigado

 
Postado : 08/05/2012 7:27 am