Visual Basic - dudas userformas

Life is soft - evento anual de software empresarial
   
Vista:

dudas userformas

Publicado por Nacho (1 intervención) el 03/09/2007 19:08:47
Hola buenas, la verdad es que tengo varias dudas para un trabajo que estoy haciendo

1-Tengo un Combobox con varios textos, queria pulsar un botonclick y que segun el texto que he escogido en el Combobox se me puesieran un par de valores determinados en las casillas de la hoja excel, sin embargo no se como poner el bloque if y los else if

Private Sub CommandButton1_Click()

If ComboBox1.Value = "Trasona/Aboño" Then
Range("N14").Select: ActiveCell.FormulaR1C1 = 14
ElseIf ComboBox1.Value = " Aboño/Trasona" Then
Range("N14").Select: ActiveCell.FormulaR1C1 = 0
ElseIf ComboBox1.Value = " Trasona/Fact. Gijón por Veriña" Then
Range("N14").Select: ActiveCell.FormulaR1C1 = 12
End If

Esto es lo que pongo pero no me funciona

2- Tengo lo siguiente
Private Sub ComboBox1_Change()
ComboBox1.List = Array("1", "2", "3", "4", "5", "10", "15", "20", "25", "30")

Private Sub CommandButton3_Click()
Range("N12").Select
ActiveCell.FormulaR1C1 = ComboBox1
Unload Me
End Sub

Al meter el valor a excel me aparece el triangulin en el lado derecho superior de la casilla, poniendome error y diciendo que si quiero pasarlo a valor numerico, como hacer que el valor sea numerico dirctamente evitando el triangulo

3-QUiero llamar al valor que hay en una celda para meterlo en una formula, como puede hacerse esto

Private Sub CommandButton1_Click()
If ListBox1.Value = "D" Then
Range("G34").Select
ActiveCell.FormulaR1C1 = 292950 / Range("N12").Value
End If

¿como meter la division entre el valor que hay en la celda N12?


4- Como ejecutar una formula de un modulo al pulsar commandclick?

Gracias por vuestra atención y molestias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder