Colocar seleção na primeira coluna da planilha

[Ingo M P Américo]

Olá gente boa!

 

Pergunta simples: como faço para colocar a seleção (aleatória) da célula na primeira coluna da linha onde ela está?

Tentei com

ActiveCell.Offset(0, -1).Select

mas isso só coloca a seleção atual 1 célula para a esquerda, mas como não sei exatamente onde o a seleção estará, não tenho como saber quantas células para a esquerda precisarei ir.

 

Ilustrando é o seguinte:

[Basole]

Referencie a coluna A juntamente com a linha selecionada ActiveCell.Row

Ex.: 

ActiveSheet.Range("A" & ActiveCell.row).Activate

ou 

ActiveSheet.Cells(ActiveCell.row, 1).Activate

 

[Ingo M P Américo]

@Basole Obrigado pela a ajuda, mas consegui fazer de uma forma mais simples:

 ActiveCell.End(xlToLeft).Select

 

[Basole]

No excel voce tem varios caminhos pra chegar o mesmo destino. 

Outra coisa, evite usar o select, pois dependendo do tamanho da sua macro pode deixa-la lenta. 

 

 

 

[Wendell Menezes]

22 horas atrás, Ingo M P Américo disse:

@Basole Obrigado pela a ajuda, mas consegui fazer de uma forma mais simples:

 ActiveCell.End(xlToLeft).Select

 

 

Olá Ingo,

 

O único problema deste método é que se tiver alguma célula preenchida entre a coluna selecionada e a coluna "A" o seu código não vai funcionar corretamente, enquando com as 2 opções apresentadas pelo Basole esse risco seria mitigado.

[Ingo M P Américo]

@Wendell Menezes Testei da forma que você falou e funcionou.

Sub inserirCompleto()
    Sheets("inserir").Activate
    Range("H12").Activate
    Range("A1:P7").Activate
    Selection.Copy
    Sheets("DO").Activate
    ActiveCell.End(xlToLeft).Activate
    ActiveSheet.Paste
End Sub

 

[Wendell Menezes]

Veja nesse exemplo o que eu quis dizer.

 

 

Pasta1.zip

[Ingo M P Américo]

@Wendell Menezes Realmente deu problema. Usei a solução do @Basole e resolveu. 

Obrigado aos dois!