Este fórum está sendo desativado

[juauvitor]

Opa, certo galera???

Observem este código para mim:

Código: Selecionar todos

Sub Selecionar()
'
' Selecionar Macro
'

'
    Range("G2").Select
    Selection.End(xlDown).Select
    SendKeys "{Right}" 'antes era Range("H4309").select
    ActiveCell.FormulaR1C1 = "."
    Range("H4310").Select
    Selection.End(xlUp).Select
    Selection.End(xlUp).Select
    Range("H2").Select
End Sub

Pois então, eu quero que após chegar na ultima célula preenchida da coluna G ele selecione a do lado direito, no caso, mesma linha só que na coluna H. Deixe um ponto e suba até o topo da coluna H. Mas o sendkeys está executando por último na macro. não no lugar certo em que está.
Isso parece ser simples, mas quando eu gravo a macro ele fica com a linha selecionada, quero que independente da linha que for a última, ele execute o comando na última.


P.S.: eu queria mesmo era dar um autofill em H que funcionasse até completar a mesma linha que termina G. Mas não faço idéia de como fazer isso, então, parti pra gambiarra.

Conto com a ajuda vocês, Valeeeu!

[juauvitor]

Conseguiiiiii Galera, Ficou muito boa a gambiarra haha!

Segue:

Código: Selecionar todos

 Range("G2").Select
    Selection.End(xlDown).Select
    Selection.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = "."
    Selection.End(xlUp).Select
    Range("H2").Select

Fez exatamente o que eu precisava, agora só continuar na batalha. Obrigado a quem tentou.

Mas e Agora? como eu faço para preencher todas as células da coluna H até o ponto (incluindo ele)? Help eu ai pessoal.

[juauvitor]

Caraca, consegui de novo, haha,

Alguns vão chamar de gambiarra, mas como eu parendo VBA auto de data eu to me achando o Einstein. Segue com ficou o código por completo:

Código: Selecionar todos

Range("G2").Select
    Selection.End(xlDown).Select
    Selection.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = "."
    Selection.End(xlUp).Select
    Range("H2").Select
    
    
    ' Itens_Ativos Macro
    Range("H2").Select
    ActiveCell.FormulaR1C1 = "1"
    Range("H2").Select
    SendKeys "+^{Down}"
    Range(Selection, Selection.End(xlDown)).Select
    Selection.FillDown
    Range("H3").Select

Mais uma vez obrigado a quem tentou"!!!!