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?
Pergunta
Gean Hubert
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?
Editado por Gean Hubertpalavra errada
Link para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.