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

FormulaLocal

 
2024 - VBA & Macros
Post Recente por cleiton jm 11 anos atrás
3 Posts
2 Usuários
0 Reactions
1,114 Visualizações
RSS
 cleiton jm
(@cleiton-jm)
Posts: 115
Estimable Member
Topic starter
 

Boa tarde galera do forum,

Preciso de uma força, já tentei adaptar essa formula várias vezes para VBA e nada, o conceito dela é o que está abaixo, só que não consegui fazer rodar, alguem poderia dar uma olhada. Não sei onde encaixar pra disparar a quantidade de formulas dentro da coluna.

Sub Rodar()

t = Cells(Rows.Count, "D").End(xlUp).Row + 1

For i = 1 To 5

RANGE("H" & t).FormulaLocal = "=SE(D2="";F2;DIATRABALHO(G2+L2-1;1;Feriados!$C$2:$C$1000))"

Next
End Sub

Obrigado!

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

Boa tarde!!

Tente assim.
Ao usar aspas dupla em uma rotina com formula use uma aspa dupla dentro da outra.

Range("H" & t).FormulaLocal = "=SE(D2="""";F2;DIATRABALHO(G2+L2-1;1;Feriados!$C$2:$C$1000))"

Att

 
Postado : 11/07/2013 11:29 am
 cleiton jm
(@cleiton-jm)
Posts: 115
Estimable Member
Topic starter
 

Agora to entendo srsrsr, eu fiz e deu certo agora alexandrevba, valeu pela dica o/, segue o código pra quem um dia precisar como exemplo..Abraços!!

Sub Achar()

 t = Cells(Rows.Count, "D").End(xlUp).Row
   
       For i = 2 To t

        RANGE("H" & i).FormulaLocal = "=SE(D" & i & " ="""";F" & i & ";DIATRABALHO(G" & i & "+L" & i & "-1;1;Feriados!$C$2:$C$1000))"

        Next
End Sub
 
Postado : 11/07/2013 12:06 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico