QUANDO ESTA ASSIM, OK, APARECEM TODOS OS ITENS (ESTA É A COMBOBOX1
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.TXT = ActiveCell.Offset(0, 4).Value
COD_TUBCOND.Text = ActiveCell.Offset(0, 5).Value
PRECO_TUBCOD.Text = ActiveCell.Offset(0, 6).Value
QTD_TUBCOD.Text = ActiveCell.Offset(0, 7).Value
PTOT_TUBCOD.Text = ActiveCell.Offset(0, 8).Value
IMAGEND_COND.Text = ActiveCell.Offset(0, 9).Value
IMAGEM_COND.Picture = LoadPicture(IMAGEND_COND)
IMAGEM_COND.PictureSizeMode = fmPictureSizeModeZoom
End If
ActiveCell.Offset(1, 0).Activate
Loop
End Sub
QUANDO A COMBOBOX2 ESTA ASSIM, ELE PESQUISA OS DADOS ONDE QUERO
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
TIP_COND.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)
IMAGEM_COND.PictureSizeMode = fmPictureSizeModeZoom
End If
ActiveCell.Offset(1, 0).Activate
Loop
End Sub
QUANDO JUNTA AS 2 FORMULAS NA USEFORME, NÃO APARECE OS DADOS SELECIONADOS CA COMBOBOX1 E PRECISO QUE TENHA AS 2 FUNCOES, PARA PODER VISULIZAR E ALTERAR
Postado : 16/07/2014 11:49 am