Boa noite gurus!
Então tenho uma situação que é a seguinte:
Faço uma checagem de lançamentos no sistema, e tenho que selecionar um código, o qual denominamos de grade (cmbxGrade). Ao seleciona-lo o sistema deverá trazer a primeira e a segunda ocorrencia lado a lado preenchendo os textbox.
Inicialmente pensei que se desse continuidade ao código o sistema entenderia que queria o próximo item abaixo daquele que foi encontrado, no entanto ele traz o mesmo resultado em ambos os lados.
Pergunta: Como é que faço para que o sistema carregue o lado esquerdo do resultado com o 1º item encontrado e o lado diteiro com o 2º item encontrado, em apenas 1 clique?
Private Sub cmbxGrade_Change()
Sheets("Contas_Pagar").Activate
Dim i, j, UltimaLinha As Integer
UltimaLinha = Sheets("Contas_Pagar").Cells(Cells.Rows.Count, 1).End(xlUp).Row
If UltimaLinha < 3 Then UltimaLinha = 3
With Worksheets("Contas_Pagar").Range("L:L")
Set c = .Find(cmbxGrade.Value, LookIn:=xlValues, LookAt:=xlPart)
If Not c Is Nothing Then
c.Activate
empresapapel.Value = c.Offset(0, -10).Value
vencimentopapel.Value = c.Offset(0, -3).Value
valorpapel.Value = c.Offset(0, -5).Value
situacaopapel.Value = c.Offset(0, -1).Value
gradepapel.Value = c.Offset(0, 0).Value
emissaopapel.Value = c.Offset(0, -9).Value
Set d = .Find(cmbxGrade.Value, LookIn:=xlValues, LookAt:=xlPart)
If Not d Is Nothing Then
d.Activate
empresaimpresso.Value = c.Offset(0, -10).Value
vencimentoimpresso.Value = c.Offset(0, -3).Value
valorimpresso.Value = c.Offset(0, -5).Value
situacaoimpresso.Value = c.Offset(0, -1).Value
gradeimpresso.Value = c.Offset(0, 0).Value
emissaoimpresso.Value = c.Offset(0, -9).Value
End If
End If
End With
End Sub
Forte abraço a todos!
Postado : 22/05/2012 3:49 pm