Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Inquietud sobre Formularios

28/04/2005 - 17:53 por nanchoguti | Informe spam
Ayuda Hacer una pregunta
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
email Siga el debateRespuesta 2 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

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--

Preguntas similares

 

Busqueda sugerida :