Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Selecionar a Ultima...
 
Notifications
Clear all

Selecionar a Ultima Célula Vazia da Coluna A

 
2024 - VBA & Macros
Post Recente por Miguel 70 9 anos atrás
5 Posts
3 Usuários
0 Reactions
910 Visualizações
RSS
 Miguel 70
(@miguel-70)
Posts: 207
Estimable Member
Topic starter
 

Ola boa tarde,
Alguém pode me ajudar com este código?

Private Sub ListBox1_Click()
Dim LinhaAtual As Long
LinhaAtual = ActiveCell.Row

ActiveCell = ListBox1

If Columns("M:M").Activate = True Then' aqui precisa implementar para reconhecer a coluna M
Range("A" & ActiveSheet.Rows.Count).End(xlUp).Offset(1).Select
End
End If
End
End Sub
Private Sub UserForm_Initialize()
Me.ListBox1.List = Application.WorksheetFunction.Transpose(Plan1.Range("a1:a400"))
End Sub

Quero que quando inserir na ultima coluna M usando o userform, então seleciona a primeira célula vazia da coluna A.
Obrigado!

Planilhando.rar
 
Postado : 30/10/2015 12:23 pm
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Miguel 70,

Boa Tarde!

Altere para esse código:

Private Sub ListBox1_Click()
    Dim LinhaAtual As Long
    Dim UltimaLinha As Long
    
    UltimaLinha = Sheets("Plan2").Cells(Cells.Rows.Count, 1).End(xlUp).Row + 1
    
    LinhaAtual = ActiveCell.Row
    
    ActiveCell = ListBox1
   
    If Columns("M:M").Activate = True Then
        Range("A" & UltimaLinha).Select
    End
    End If
    End
End Sub

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 30/10/2015 1:01 pm
 Miguel 70
(@miguel-70)
Posts: 207
Estimable Member
Topic starter
 

Não deu certo.
Somente quando inserir na coluna M:M então seleciona a ultima linha vazia da coluna A

 
Postado : 30/10/2015 1:10 pm
 EDIVAN
(@edivan)
Posts: 119
Estimable Member
 

Cara não sei se é isso que você precisa mais o que eu consegui captar foi isso....

Se tiver uma hora de folga aí entre e meu blog:

programacaopassoapasso.wordpress.com

 
Postado : 04/11/2015 7:47 am
 Miguel 70
(@miguel-70)
Posts: 207
Estimable Member
Topic starter
 

Ótimo isso mesmo que queria, obrigado EDIVAN.

 
Postado : 04/11/2015 9:25 am
Forum Jump:
  Tópico Anterior
Próximo Tópico