AJUDA PARA VISUALIZAR DADOS

RAQKG 15/07/2014 12:20:07
#439550

GENTE, TENHO OUTRO PROBLEMA NO PROGRAMA QUE NAO SEI RESOLVER!

vamos la... os nomes em vermelho da imagem, sao os nomes das combobox
preciso que, ao selecionar a combobox [Ô]ITEM_KITTUB[Ô] ela preencha os dados no restante das celulas (elas estao na planilha excel, nao ha nada vazio)
para isto fiz a rotina

Private Sub ITEM_KITTUB_Change()
Sheets([Ô]KITTUB[Ô]).Activate
Range([Ô]A2[Ô]).Select

Do While ActiveCell <> [Ô][Ô]
If ActiveCell.Value = ITEM_KITTUB.Text Then
ITEM_KITTUB.AddItem ActiveCell
CX_COD_KITTUB.Text = ActiveCell.Offset(0, 1).Value
TIP_TUB.Text = ActiveCell.Offset(0, 2).Value
PRECOTOT_TUB.Text = ActiveCell.Offset(0, 3).Value
TIP_COND.Text = ActiveCell.Offset(0, 4).Value
TIP_FIA1.Text = ActiveCell.Offset(0, 10).Value
TIP_FIA2.Text = ActiveCell.Offset(0, 16).Value
TIP_FIA3.Text = ActiveCell.Offset(0, 22).Value
TIP_AD.Text = ActiveCell.Offset(0, 28).Value
TIP_FER1.Text = ActiveCell.Offset(0, 34).Value
TIP_FER2.Text = ActiveCell.Offset(0, 40).Value
TIP_MOTUBKIT.Text = ActiveCell.Offset(0, 46).Value

End If
ActiveCell.Offset(1, 0).Activate
Loop
End Sub


POREM SO MOSTRA O 1 ITEM!! O RESTANTE FICA VAZIO, COMO MOSTRA NA IMAGEM
imagino que o erro se deve a restricao do cadastro, pois para cada combobox de baixo ja tem outra rotina pois os dados sao buscados em outras planilhas

Private Sub TIP_COND_Change()

Sheets([Ô]BASE TUB[Ô]).Activate
Range([Ô]A2[Ô]).Select

Do While ActiveCell <> [Ô][Ô]
If ActiveCell.Value = TIP_COND.Text Then
TIP_COND.AddItem ActiveCell
COD_TUBCOND.Text = ActiveCell.Offset(0, 1).Value
PRECO_TUBCOD.Text = ActiveCell.Offset(0, 4).Value


IMAGEND_COND.Text = ActiveCell.Offset(0, 5).Value
IMAGEM_COND.Picture = LoadPicture(IMAGEND_COND)
PictureSizeMode = fmPictureSizeModeClip
End If

ActiveCell.Offset(1, 0).Activate

Loop

End Sub

COMO FACO PARA QUE ESTAS COMBOBOX RECEBAM O VALOR NA TABELA [Ô]KITTUB[Ô] SE O ITEM_KITTUB EXISTIR NELA E SE NAO EXISTIR, PERMANECA BUSCANDO REFERENCIA EM OUTRA TABELA???????????????????????