Copie el siguiente código:
Private Sub ComboBox1_Click()
Dim myRange As Range
If Trim(TextBox1) = "" Or Trim(TextBox2) = "" Then
MsgBox "Debe escribir una celda", vbExclamation, "Error"
Exit Sub
End If
With Hoja1
Set myRange = .Range((TextBox1 + ":" + TextBox2))
Select Case ComboBox1.ListIndex
Case 0
TextBox3 = Application.WorksheetFunction.Sum(myRange)
.Cells(6, 2) = "Suma"
Case 1
TextBox3 = Application.WorksheetFunction.Min(myRange)
.Cells(6, 2) = "Minimo"
Case 2
TextBox3 = Application.WorksheetFunction.Max(myRange)
.Cells(6, 2) = "Maximo"
End Select
.Cells(6, 1) = Val(TextBox3)
End With
End Sub
Private Sub UserForm_Initialize()
ComboBox1.AddItem "Suma"
ComboBox1.AddItem "Minimo"
ComboBox1.AddItem "Maximo"
End Sub
Ejecute el programa, visualice los cambios en la hoja de calculo Hoja1 y en el formulario.
Tenga en cuenta:
La función TRIM, es propia de Visual Basic, lo que hace es eliminar los espacios a la izquierda y derecha de un texto, o de un cuadro de texto.
Esta instrucción:
Trim(TextBox1) = ""
Lo que hace es preguntar si el cuadro de texto está vacío.
Tenga en cuenta:
La función TRIM, es propia de Visual Basic, lo que hace es eliminar los espacios a la izquierda y derecha de un texto, o de un cuadro de texto.
Esta instrucción:
Trim(TextBox1) = ""
Lo que hace es preguntar si el cuadro de texto está vacío.

No hay comentarios:
Publicar un comentario