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

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--
Respuesta 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--
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida