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

Preencher automaticamente linha

 
2024 - VBA & Macros
Post Recente por Osvaldomp 7 anos atrás
4 Posts
3 Usuários
0 Reactions
1,102 Visualizações
RSS
 trollv
(@trollv)
Posts: 6
Active Member
Topic starter
 

Boa noite, gostaria de saber como faço pra preencher automaticamente uma linha com uma fórmula quando adiciono mais uma informação na coluna do lado direito por exemplo tenho uma linha com os numeros de 0 a 10 e uma linha embaixo multiplicando esses numeros por 2, gostaria de uma macro que retornasse o valor da multiplicação automaticamente quando eu colocar o numero 11 e assim por diante. A principio pensei em fazer dessa forma, mas não sei como prosseguir nessa parte que ta entre parenteses:

Sub Macro1()

    Range("A1").Select
    Selection.End(xlToRight).Select
    coluna = ActiveCell.Column
    preencher = "c1:coluna1" //(NÃO É ESSE O JEITO CERTO, GOSTARIA DE SABER SE EXISTE ALGUMA FORMA DE FAZER ISSO)
    Range("B1").Select             Aqui o B1 já estaria com a formula colocada
    Selection.AutoFill Destination:=Range(preencher), Type:=xlFillDefault

End Sub
 
Postado : 31/05/2017 6:34 pm
leandroxtr
 leandroxtr
(@leandroxtr)
Posts: 447
Reputable Member
 

acho que não entendemos o que você deseja, amigo! rs

Se te ajudou, não se esqueça de dar um like na resposta e marcar o tópico como finalizado.

Abraços!
Leandro Cordeiro

 
Postado : 01/06/2017 5:25 am
 trollv
(@trollv)
Posts: 6
Active Member
Topic starter
 

A ideia é fazer igual nesse vídeo aqui
https://www.youtube.com/watch?v=0vh9pbqaugg

Só que trocando linhas por colunas

 
Postado : 01/06/2017 6:22 pm
 Osvaldomp
(@osvaldomp)
Posts: 857
Prominent Member
 

Coloque os números na linha 1, começando por 'A1'. O código irá colocar as fórmulas na linha 2, a partir de 'A2'. 

Sub Macro1()
 Dim coluna As Long, preencher As String
  Range("A1").Select
  Selection.End(xlToRight).Select
  coluna = ActiveCell.Column
  preencher = "A2:" & Cells(2, coluna).Address
  Range("A2").Select '   A2 ---> = A1*2
  Selection.AutoFill Destination:=Range(preencher), Type:=xlFillDefault
End Sub

ou

Sub PreencheComFórmulasV1()
 Dim coluna As Long
  coluna = Cells(1, Columns.Count).End(xlToLeft).Column
  Range("A2", Cells(2, coluna)) = "=A1*2"
End Sub

ou

Sub PreencheComFórmulasV2()
 Range("A2", Cells(2, Cells(1, Columns.Count).End(xlToLeft).Column)) = "=A1*2"
End Sub

Osvaldo

 
Postado : 01/06/2017 7:10 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico