Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Formula VBA
 
Notifications
Clear all

Formula VBA

 
2024 - VBA & Macros
Post Recente por fazerbem 8 anos atrás
3 Posts
1 Usuários
0 Reactions
690 Visualizações
RSS
 fazerbem
(@fazerbem)
Posts: 697
Honorable Member
Topic starter
 

Ola, venho pedir mais esta orientacao

Apenas acrescentar nesta linha para que ao criar a nova linha e jogar as restantes pra baixo, copie tb as formulas se houverem

Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Uso una formula na coluna Q

Grato

   Sheets("Pendente").Activate
   Range("N5:Q5").Select
   Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
   Sheets(Nome).Activate
   Sheets("Pendente").Range("N5").Value = Range("L2").Value
   Sheets("Pendente").Range("O5").Value = Range("AH3").Value
 
Postado : 10/11/2016 12:19 pm
 fazerbem
(@fazerbem)
Posts: 697
Honorable Member
Topic starter
 

A formula esta na Coluna Q em Q4 e todas em Q5 pra baixo usam a mesma formula trocado-se apenas a refencia

=SE(N4="";"";SE(P4="Pago";"";O4))
=SE(N5="";"";SE(P5="Pago";"";O5))

 
Postado : 10/11/2016 1:04 pm
 fazerbem
(@fazerbem)
Posts: 697
Honorable Member
Topic starter
 

Fiz assim mas se tivesse como por a formula em Q5 ao ser criado a nova linha seria melhor , ai ficava tudo no mesmo comando, insere a linha joga rstante pra baixo e mantem a formula de Q5

Range("N5:Q5").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("Q4").Copy
Range("Q5").Select
Range("Q5").PasteSpecial

 
Postado : 10/11/2016 1:09 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico