Notifications
Clear all

Lista com ComboBox

9 Posts
2 Usuários
0 Reactions
829 Visualizações
(@raqkg)
Posts: 6
Active Member
Topic starter
 

por favor!!
preciso muito de ajuda!!!
tenho 2 combobox
a combobox1 lista da plan1 os itens cadastrados.
preciso que a combobox2 faca o seguinte:
se o item da combobox1 já foi cadastrado, mostre os dados da Plan1
se não foi cadastrado ainda, mostrar dados da Plan2
ajuda!!! por favor..to em panico ja!

RAQ

 
Postado : 16/07/2014 10:55 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Ao menos poste seu arquivo modelo!!

leia também:
http://www.google.com.br/cse?cx=partner ... gsc.page=1

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 16/07/2014 11:26 am
(@raqkg)
Posts: 6
Active Member
Topic starter
 

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
(@raqkg)
Posts: 6
Active Member
Topic starter
 

nao consigo enviar o excel..diz q eh mto grde

 
Postado : 16/07/2014 12:28 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Raqkg,

Como sua planilha é grande, poste-a usando esse link:

https://www.sendspace.com

Att,

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 16/07/2014 12:39 pm
(@raqkg)
Posts: 6
Active Member
Topic starter
 

https://www.dropbox.com/s/mtf0t5ipcfdfe ... MBOBOX.rar

a useform que preciso de ajuda é a cadastro_kittub

 
Postado : 16/07/2014 1:08 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Não entendi o desejado?
Combobox Item_KitTub é carregado na inicialização com a "lista" cadastrada na planilha "KITTUB"; ao selecionar um item (no momento só há um) executa a rotina
Private Sub ITEM_KITTUB_Change() e carrega os dados dos demais objetos do formulário.
Então mostrar o que quando???

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 17/07/2014 9:07 am
(@raqkg)
Posts: 6
Active Member
Topic starter
 

Sim, deveria mostrar todos os itens da userform, porém a combobox tip-cond. puxa dados da planilha "base tub" para alguma alteração, quando os 2 comandos estão em uso, o código da item-kittub não está mostrando os dados após o tip-cond.. Não sei o q fazer! Preciso q puxe tudo para poder alterar

 
Postado : 17/07/2014 10:53 am
(@raqkg)
Posts: 6
Active Member
Topic starter
 

Gente, refiz para ficar um modelo bem simples, é em vba excel
O que é o programa:
tenho 2 produtos cadastrados em planilhas diferentes (plan1 e Plan2)
preciso junta-los em uma 3 tabela (plan3)
até ai,ok, as combobox tip_prod1 e tip_prod2 fazem a funcao de puxar os dados necessarios
o problema esta quando preciso alterar um kit já cadastrado!
quando a combobox item_kit vai puxar os dados da plan3, eles não aparecem depois da combobox tip_prod1
acredito que é porque os dados estão vinculados a Plan1 e Plan2 e não são variaveis..
alguem sabe resolver esse problema?
obrigado

 
Postado : 17/07/2014 4:44 pm