Programar un combox

hola

tengo un formulario con un combobox me despliega una lista de cinco palabras, muzquiz, barroteran, palau, sabinas y pueblo, al seleccionar palau quiero que se insertarse en la celda a5 y al seleccionar muzquiz se inserte en la cel a6 y asi sucesivamente como puedo logar esto.

te agradezco la ayuda que me puedas brindar

1 Respuesta

Respuesta
1

He asumido que quieres que tu listado en el combobox sea dinámico y puedas cambiar tanto los nombres de la lista, como la celda donde se copiara cada caso he inclusive la posibilidad que incluyas mas de 5 datos.

Yo he considerado una hoja (llamada BD) donde estarán los datos que queremos cargar en el combobox en la columna A y la celda donde se copiara en la Columna B, puedes incluir los datos que quieras.

Luego estoy considerando que al ejecutar el seleccionar en el combobox, se copiara automáticamente el dato en la celda configurada.

Crea un formulario ("UserFform1"), y colócale un combobox ("ComboBox1"). No les he cambiado de nombre.

Luego le das doble click al formulario y pegar el código descrito a continuación.

Le he agregado algunas instrucciones adicionales para que no haga pestañeo con las pantallas y otras,

Private Sub ComboBox1_Change()
Application.ScreenUpdating = False
Sheets("DESTINO").Select
Range(ComboBox1.List(ComboBox1.ListIndex, 1)).Select
ActiveCell = ComboBox1.List(ComboBox1.ListIndex)
Application.ScreenUpdating = True
End Sub
Private Sub UserForm_Initialize()
Application.ScreenUpdating = False 'Desactivar la actualización en pantalla
ComboBox1.ColumnCount = 2 'Asignamos al combo de 2 columnas
Sheets("BD").Select
Range("A2").Select 'Seleccionar la primara celda donde se iniciará la verificación
Do While Not IsEmpty(ActiveCell)
'Mientras la celda Activa no sea una celda en blanco
'Pregunto si el contenido de la celda Activa no esta contenido en la variable datos1
If (InStr(datos1, ActiveCell) = 0) Then 'Si no esta contenido, lo agrego a la variable datos1 con una ","
datos1 = datos1 & "," & ActiveCell
datos2 = datos2 & "," & ActiveCell(1, 2)
End If
ActiveCell.Offset(1, 0).Select 'Paso a la siguiente celda (la fila siguiente)
Loop
datos1 = VBA.Right(datos1, VBA.Len(datos1) - 1) 'Le quitamos la primera "," (coma)
dato_individual1 = Split(datos1, ",") 'Le asignamos como datos separados
datos2 = VBA.Right(datos2, VBA.Len(datos2) - 1) 'Le quitamos la primera "," (coma)
dato_individual2 = Split(datos2, ",") 'Le asignamos como datos separados
For i = 0 To UBound(dato_individual1)
ComboBox1.AddItem
ComboBox1.List(i, 0) = dato_individual1(i) 'Cargamos el COMBOBOX
ComboBox1.List(i, 1) = dato_individual2(i)
Next
ComboBox1.ColumnWidths = "100pt;1pt" 'Vamos a ocultar la segunda columna, dándole un ancho muy pequeño
Application.ScreenUpdating = True 'Activar la actualización en pantalla
End Sub

Espero que con esto te baste. Cualquier cosa me cuentas

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Llamar con un combobox datos de la cell B y en un textbox arrojar el código que esta en la cell a

Ya tengo los tres combobox funcionando, el ultimo combobox como por ejemplo selecciona un material y ese material le coloque un código como por ejemplo tabla 1" tiene el código TE-001. En el caso de la selección de algún material con el combobox de...
1 respuesta

Combobox sin repetir dato y con celdas vacías

Espero logres ayudarme si te es posible con esta duda, veras tengo un userform con 2 combobox uno para mostrarme las hojas de calculo y otro para mostrarme lo valores de las celdas de la columna "B" a partir del B3 sin repetir los valores..: ....
1 respuesta

Tres ComboBox Dependientes

Mi inquietud es sobre lo siguiente deseo hacer un archivo en excel el cual contiene tres combobox dependientes, en el primero seleccionar el Estado, el segundo seleccionar las Ciudades del Estado seleccionado y en el tercer los barrios de la ciudad...
1 respuesta

Lista Combobox se duplica

Tengo en un formulario un combobox que se carga de un rango de lista cada que se active dicho formulario, además, la lista se puede ir ampliando accediendo a otro formulario desde el formulario principal, el problema es que al activarse nuevamente el...
1 respuesta

Como copiar rangos de filas y transponer con macro?

Soy un principiante en esto por favor su ayuda. Tengo una planilla con una serie de datos los cuales debo mover a otra hoja, el problema es que no me copia y transpone todos los datos y solo transpone la primera serie:
1 respuesta

Adicionar Datos a listbox de varias columnas

Y de antemano muchas gracia por el tiempo que dedican a mi pregunta. Mi problemas es el siguiente estoy trabajando con listbox para cargar datos de excel en vba y no soy programador. Mejor dicho si muy inquieto pero tengo este inconveniente. Me pasa...
1 respuesta

Necesito un código en visual basic 6.0 para copiar información de celdas en varios textbox

Tengo una macro que carga un formulario y cuando este se carga copia la información de varias celdas, organizadas horizontalmente, a varios controles (textbox y combobox). El código que tengo es ActiveCell.Offset(0, 1).Select txtfechalec = ActiveCell...
1 respuesta

Limpiar ComboBox con VBA

Tengo un proyecto en excel 2010 con algo de VBA donde en determinada hoja lleno celdas con datos simulando un formulario, un dato especifico de esa serie se debe seleccionar de un ComboBox, una vez llenas todas las celdas ejecuto una macro que copia...
1 respuesta

Llenar combobox con valores de una columna y el valor pegarlo en una celda de una hoja diferente.

Necesito de su siempre muy buena ayuda. Estoy haciendo un formulario en donde tengo un combobox el cual quiero que se llene con los valores de una columna de una hoja "Datos" y que el valor que yo escoja en el combobox sea pegado automáticamente en...
1 respuesta

Bloquear la escritura en un combobox

Tengo una ventana de diálogo en la que tengo un combobox del que se despliega una lista de 4 valores que le he introducido. Funciona bien, pero además de elegir entre las 4 entradas que le he puesto, te deja escribir. Quiero bloquear esta opción....
1 respuesta