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
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Mostrar informações mesmo com linhas em branco [RESOLVIDO]
-
- Colaborador
- Mensagens: 33
- Registrado em: Sáb Jan 14, 2017 3:35 pm
Mostrar informações mesmo com linhas em branco [RESOLVIDO]
- Anexos
-
- modelo.zip
- (27.15 KiB) Baixado 213 vezes
Editado pela última vez por sossego385011 em Qua Mai 03, 2017 10:32 pm, em um total de 1 vez.
- Lúcio Mauro da Silva
- Manda bem
- Mensagens: 134
- Registrado em: Sex Set 06, 2013 2:15 pm
Re: Mostrar informações mesmo com linhas em branco
Boa noite Sossego,
Fiz uma alteração no arquivo conform necessidade, veja se é isso que precisa.
Abç.
Fiz uma alteração no arquivo conform necessidade, veja se é isso que precisa.
Abç.
- Anexos
-
- modelo V1_ carregar linha em branco.rar
- Modelo V1
- (21.93 KiB) Baixado 225 vezes
-
- Colaborador
- Mensagens: 33
- Registrado em: Sáb Jan 14, 2017 3:35 pm