Mostrar informações mesmo com linhas em branco [RESOLVIDO]

[sossego385011]

Boa tarde

uso este código para buscar as informações para um formulário, mas preciso que ele desconsidere as linhas em branco

Private Sub ListCodigo_Change()

Dim Lin As Integer
Lin = 4
Do Until Sheets("Produtos").Cells(Lin, 1).Value = Empty
If Sheets("Produtos").Cells(Lin, 1).Text = ListCodigo.Value Then
TxtDescrição.Value = Sheets("Produtos").Cells(Lin, 2).Value
TxtPreço.Value = Sheets("Produtos").Cells(Lin, 7).Value
TxtQntde.Value = Sheets("Produtos").Cells(Lin, 3).Value
TxtCodigo.Value = Sheets("Produtos").Cells(Lin, 1).Value

Exit Do

End If

Lin = Lin + 1

Loop

End Sub

[Lúcio Mauro da Silva]

Boa noite Sossego,

Fiz uma alteração no arquivo conform necessidade, veja se é isso que precisa.

Abç.

[sossego385011]

Obrigado pela ajuda