Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
FORMULA ANDAR UMA C...
 
Notifications
Clear all

FORMULA ANDAR UMA CASA VBA EXCEL

 
2024 - VBA & Macros
11 Posts
3 Usuários
0 Reactions
1,736 Visualizações
RSS
 rcaldeirao
(@rcaldeirao)
Posts: 9
Active Member
Topic starter
 

Estou em fazer a formula andar a cada clique no botão.

O VBA ele seleciona as células da SHEETS 3 e cola como valor na SHEET 4.
Quando eu clico no botão ele selecione e cola como valor na SHEET 4, porem gostaria que quando ele fizesse esse processo ele voltaria para SHEET 3 (como já esta fazendo), porem não consigo que a formula da célula P1 ande uma linha.
Isso é possível ?

Sub copiar()
'
' copiar Macro

Range("P9").Select
Selection.End(xlUp).Select
Range("P1:R1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy

Sheets("Plan4").Select
Range("a1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Plan3").Select

End Sub

 
Postado : 10/05/2013 6:27 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Veja se assim funciona...

Sub copiar()
'
' copiar Macro

Range("P9").Select
Selection.End(xlUp).Select
Range("P1:R1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy

Sheets("Plan4").Select
Range("a1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Plan3").Select
Selection.Offset(1).select




End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 10/05/2013 6:35 am
 rcaldeirao
(@rcaldeirao)
Posts: 9
Active Member
Topic starter
 

Bom dia! Fernando
Não deu certo, na verdade na célula P1 ele referencia outra célula, abaixo ex:
P1 = A3

meu objetivo é, quando clicar no botão da macro ele faz a copia de uma sheet para outra alterando somente a célula de referencia. ex :
P1 = A4

no proximo clique:
P1 = A5

 
Postado : 10/05/2013 6:45 am
 rcaldeirao
(@rcaldeirao)
Posts: 9
Active Member
Topic starter
 

Veja se assim funciona...

Sub copiar()
'
' copiar Macro

Range("P9").Select
Selection.End(xlUp).Select
Range("P1:R1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy

Sheets("Plan4").Select
Range("a1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Plan3").Select
Selection.Offset(1).select




End Sub

Bom dia! Fernando
Não deu certo, na verdade na célula P1 ele referencia outra célula, abaixo ex:
P1 = A3

meu objetivo é, quando clicar no botão da macro ele faz a copia de uma sheet para outra alterando somente a célula de referencia. ex :
P1 = A4

no proximo clique:
P1 = A5

 
Postado : 10/05/2013 6:55 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

rcaldeirao, eu ia comentar que só pela rotina que você postou achei um pouco confusa, então fiquei no aguardo de sua resposta a dica do Fernando, e pelo visto, o ideal seria você anexar um modelo para facilitar a compreensão e anaise.

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 10/05/2013 6:56 am
 rcaldeirao
(@rcaldeirao)
Posts: 9
Active Member
Topic starter
 

ok segue o anexo

ORC_FORMAT.xlsm
 
Postado : 10/05/2013 7:01 am
 rcaldeirao
(@rcaldeirao)
Posts: 9
Active Member
Topic starter
 

rcaldeirao, eu ia comentar que só pela rotina que você postou achei um pouco confusa, então fiquei no aguardo de sua resposta a dica do Fernando, e pelo visto, o ideal seria você anexar um modelo para facilitar a compreensão e anaise.

[]s

segue o anexo

ORC_FORMAT.xlsm
 
Postado : 10/05/2013 7:35 am
Basole
 Basole
(@basole)
Posts: 487
Reputable Member
 

Acho que vi este topico em outro forum:

http://info.abril.com.br/forum/viewtopic.php?f=101&t=21662&sid=8181b08d665f6dff0aaa7c70818dbd47

Click em se a resposta foi util!

 
Postado : 10/05/2013 11:15 am
 rcaldeirao
(@rcaldeirao)
Posts: 9
Active Member
Topic starter
 

Acho que vi este topico em outro forum:

http://info.abril.com.br/forum/viewtopic.php?f=101&t=21662&sid=8181b08d665f6dff0aaa7c70818dbd47

Sim esta não pode ?

 
Postado : 10/05/2013 11:22 am
Basole
 Basole
(@basole)
Posts: 487
Reputable Member
 

rcaldeirao, isto é postagem cruzada, e pela regra do forum tem que indicar os locais(links) de postagem.

Click em se a resposta foi util!

 
Postado : 10/05/2013 11:26 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Ainda não entendi a necessidade?
Voce deseja copiar a celula P1 da planilha 3 para a celula A1 da planilha 4 como valor; depois copiar a celula P2 para A2 e assim??
ou deseja que P1 na planilha 3 =A3 depois P2 =A4 ... sempre na planilha3??

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 10/05/2013 11:33 am
Forum Jump:
  Tópico Anterior
Próximo Tópico