Notifications
Clear all

Código depurando

4 Posts
2 Usuários
0 Reactions
1,030 Visualizações
(@paulo_001)
Posts: 149
Estimable Member
Topic starter
 

Olá, não tenho muito conhecimento em VBA, mas estava escrevendo um código para o preenchimento de uma list, no entanto ele depura uma linha onde declaro uma variável. Segue o código:

Sub Preencher_listbox()

Dim lastline As Long

Dim linha As Integer

lastline = Plan3.Range("A500").End(x1Up).Row

For linha = 2 To lastline

form_1.ListBox1.AddItem Plan3.Range("A" & linha)
form_1.ListBox1.List(form_1.ListBox1.ListCount - 1, 1) = Plan3.Range("B" & linha)

Next





End Sub

Ele depura Justamente nessa linha " lastline = Plan3.Range("A500").End(x1Up).Row "
Alguém saberia o que estou fazendo de errado?

Abraço

 
Postado : 08/10/2014 11:10 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Troque x1Up por xlUp

você usou o número um (1) e era pra usar a letra ele (L)

End(xlUp)

 
Postado : 08/10/2014 11:19 am
(@paulo_001)
Posts: 149
Estimable Member
Topic starter
 

Muito obrigado Fernado, agora rodou certinho.
Acho que todos esses anos jogando Super Mario resulta nisso.

Obrigado

 
Postado : 08/10/2014 12:35 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

kkkkk 1Up uma vida!! boa !!!

blz! q bom q deu certo...

FF

 
Postado : 08/10/2014 5:13 pm