Gean Hubert
-
Total de itens
1 -
Registro em
-
Última visita
Sobre Gean Hubert
Gean Hubert's Achievements
0
Reputação
-
Gean Hubert se registrou na comunidade
-
Planilha1.Activate Planilha1.Select Planilha1.Range("D1048576").End(xlUp).Select Do If ActiveCell.Value <> CBS_produto.Text Then ActiveCell.Offset(-1, 0).Select End If If ActiveCell.Value = CBS_produto.Text Then ActiveCell.Offset(0, 4).Select VU = ActiveCell.Select Cvalor_unitário = VU End If If ActiveCell.Value = "" Then Exit Sub End If Loop Na linha sublinhada, eu gostaria de fazer o código ir pesquisando de baixo para cima, mas sempre me retorna um erro de execução 1004. Alguém sabe como resolver?