Inquietud sobre Formularios

28/04/2005 - 17:53 por nanchoguti | Informe spam

Buenos días.
Cómo puedo hacer lo siguiente. para incluirlo dentro de un formulario
Tengo un ComboBox con los nombres de los productos que comercializo,
necesito que al seleccionar el nombre de un producto específico, me traiga
el valor unitario del mismo, y asi poder elaborar una cotización.

cmbPdto.Clear
cmbPdto.AddItem " "
cmbPdto.AddItem "Alimentador de pasta"
cmbPdto.AddItem "Alimentador molino carbón"
cmbPdto.AddItem "Enfriador"
etc, son aproximadamente 80 productos.

Dónde almaceno el valor del producto, y como lo traigo al formulario y
hago operaciones aritméticas con el.
Valores de los Productos :
Alimentador de Pasta $ 4,250,130
Alimentador Molino de Carbon $ 1,800,000
Enfriador $ 3,500,000

Muchas gracias por su atención.

Saludos,

Nancho

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

Leer las respuestas

#1 KL

30/04/2005 - 03:56 | Informe spam

Hola Nancho,

Prueba lo que te pongo a continuacion.

Saludos,
KL

1) Si quieres asignar los valores desde el codigo podrias hacer algo como
esto:

'-Modulo del UserForm--
Private Sub cmbPdto_Change()
ActiveSheet.Cells(1, "F") = cmbPdto.Value
End Sub

Private Sub UserForm_Initialize()
Dim Filas(2, 1)
Filas(0, 0) = "Alimentador de Pasta"
Filas(1, 0) = "Alimentador Molino de Carbon"
Filas(2, 0) = "Enfriador"
Filas(0, 1) = 4250130
Filas(1, 1) = 1800000
Filas(2, 1) = 35000
With cmbPdto
.List() = Filas
.BoundColumn = 2
End With
End Sub

'-Modulo del UserForm--

2) Tambien podrias poner la matriz en una hoja de calculo y entonces el
codigo podria ser algo como esto:

'-Modulo del UserForm--
Private Sub cmbPdto_Change()
ActiveSheet.Cells(1, "F") = cmbPdto.Value
End Sub

Private Sub UserForm_Initialize()
Dim Rng As Range
Dim Filas As Variant
Set Rng = Sheets(1).Range("A1:B3")
Filas = Rng
With cmbPdto
.List() = Filas
.BoundColumn = 2
End With
End Sub

'-Modulo del UserForm--

Responder a este mensaje

#2 KL

30/04/2005 - 11:25 | Informe spam

Hola de nuevo,

En el segundo codigo (que usa un rango de la hoja) sobran dos lineas - mas
abajo la version depurada.

Saludos,
KL

'-Modulo del UserForm--
Private Sub cmbPdto_Change()
ActiveSheet.Cells(1, "F") = cmbPdto.Value
End Sub

Private Sub UserForm_Initialize()
Dim Filas As Variant
Filas = Sheets(1).Range("A1:B3")
With cmbPdto
.List() = Filas
.BoundColumn = 2
End With
End Sub
'-Modulo del UserForm--

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida