Lista desplegable con VBA

[angiepagu]

Cree un formulario con VBA y tengo una lista desplegable que tiene numeros del 1 al 31 y quiero que cuando de clic en el 1 este se ubiqe en la celda G3, cuando de clic en el 8 se ubique en la N3 y asi.

Ayuda please!

[Triby]

En el formulario haz doble click en la lista desplegable y te creará la función donde agregas el código para seleccionar la celda; ejemplo:

Código vb:

Private Sub Combobox1_Change()
    ' Primero verificas que se haya seleccionado un valor
    If Combobox1.ListIndex = -1
        MsgBox "Selecciona un valor"
    Else
         ' La columna G es la #7, por lo que hay que agregar 6 para ubicar donde corresponde:
         ActiveSheet.Cells(3, Combobox1.Value + 6).Select
         ' Si necesitas ocultar el formulario:
         Unload Me
    End If
End Sub