Notifications
Clear all

Pular 8 em 8 linhas automaticamente

4 Posts
3 Usuários
0 Reactions
1,129 Visualizações
(@felipesalomao)
Posts: 103
Estimable Member
Topic starter
 

Estou fazendo uma planilha que precisa puxar dados de outra aba, até ai tudo certo.. O problema é que uso essa formula por exemplo: =MULT(Projeções!C4;Projeções!C5;0,045)
Dessa forma consigo multiplicar a quantidade vendida pelo preço de venda x 4,5% de taxa do cartão de crédito. Porém quando quero saber do mês seguinte, teria que ter: =MULT(Projeções!C12;Projeções!C13;0,045), no proximo mês: =MULT(Projeções!C20;Projeções!C21;0,045) e assim por diante.. Ou seja minha série pula de 8 em 8 linhas e não de 1 em 1, como fazer isso automaticamente, sem precisar editar cada mês ? Se conseguisse arrastar para fazer isso já seria suficiente.. Obrigado

 
Postado : 02/12/2014 7:43 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite,

Veja se este código te ajuda:

Sub Pular8()
    Dim i As Integer
    
    For i = 0 To 11
        Cells(i + 1, 1).FormulaLocal = "=MULT(Projeções!C" & 4 + i * 8 & ";Projeções!C" & 5 + i * 8 & ";0,045)"
    Next
End Sub

Abraço

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

 
Postado : 02/12/2014 8:26 pm
(@gtsalikis)
Posts: 2373
Noble Member
 

Considerando que a primeira fórmula esteja na linha 4, use assim:

=MULT(DESLOC(Projeções!$C$4;(LINS($4:4)-1)8;0);DESLOC(Projeções!$C$5;(LINS($4:4)-1)8;0);0,045)

Abs

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

 
Postado : 02/12/2014 8:52 pm
(@felipesalomao)
Posts: 103
Estimable Member
Topic starter
 

Funcionou Perfeitamente GTSALIKIS.. Muito Obrigado !

 
Postado : 03/12/2014 12:18 am