Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Especificação do Ra...
 
Notifications
Clear all

Especificação do Range

 
2024 - VBA & Macros
2 Posts
2 Usuários
0 Reactions
880 Visualizações
RSS
 Synth
(@synth)
Posts: 70
Trusted Member
Topic starter
 

Olá, pessoal.

Tenho uma dúvida. Quero executar um macro em que ele simplesmente tenha o mesmo efeito do clique no cantinho da célula para aplicar a fórmula para todos as células, porém, quando faço no macro, ele é limitado a algum tamanho. Gostaria de saber se existe alguma forma de fazer uma macro em que ele localize o tamanho sozinho, ou que eu não precise escrever um limite pras células. O código é este.

Range("G2:L2").Select
    Selection.AutoFill Destination:=Range("G2:L6167")
    Range("G2:L6167").Select

Solicito a ajuda dos confrades.

Att,

S.

 
Postado : 06/02/2018 7:55 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Estou supondo que estamos nos baseando na coluna "F" como referência para a contagem da quantidade de linhas, se não for ajuste a letra da coluna:

Sub AutoFill_Destination()
    
    'Captura a ultima celula preenchida em determinada Coluna
    'Aqui estou usando a Coluna "F" ajuste para a sua coluna de referencia
    lastrow = Cells(Cells.Rows.Count, "F").End(xlUp).Row
    Range("G2").AutoFill Destination:=Range("G2:G" & lastrow)
    
End Sub

[]s

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

 
Postado : 06/02/2018 8:36 am
Forum Jump:
  Tópico Anterior
Próximo Tópico