Macro en excel para seleccionar el siguiente dato de una lista desplegable

Necesito el cdigo de visual basic, para programar una macro en excel, en donde al momento de ejecutarse seleccione el siguiente dato de la lista desplegable

1 Respuesta

Respuesta
3

La lista desplegable tiene sus datos en algún rango de celdas. Entonces lo que haría la macro es seleccionar dato por dato de ese rango de celdas y ponerlo en la celda que tiene la validación de datos.

Ejemplo, en la siguiente imagen, la celda B4 contiene una lista desplegable, los datos están en el rango E2 a E9

Esta es la macro para leer el rango E2 a E9 y poner cada dato en la celda B4

Sub Nombres()
'Por.Dante Amor
    For Each dato In Sheets("Hoja1").Range("E2:E9")
        Sheets("Hoja1").[B4] = dato.Value
    Next
End Sub

Tienes que cambiar en la macro, los nombre de "Hoja1" por el nombre de tus hojas, B4 por la celda que contiene la lista desplegable y "E2:E9" por el rango donde tienes tus datos.

Saludos. Dante Amor

Si es lo que necesitas.

GRACIAS. 

La macro corre pero va pasando todos los datos del primero hasta el final.... necesito que pase de uno en uno cada vez que se ejecute la macro hay alguna posibilidad ???

Nuevamente gracias. cordial saludo

Me puedes dar todos los datos:

1. ¿Hay datos duplicados en tu lista?

2. ¿En qué celda está tu lista desplegable?

3. ¿En qué hoja está tu lista desplegable?

4. ¿En cuál hoja tienes tu rango de datos?

5. ¿En cuál rango está tu rango de datos?

gracias ..

1. No, no hay ningún dato duplicado.

2. La lista desplegable se encuentra en C6 de la hoja llamada boletin6

3. La hoja de la lista desplegable se llama boletin6

4. La hoja que tiene el rango de datos se llama códigos

5. El rango de los datos es c3:c145 de la hoja códigos

Te regreso la macro actualizada

Sub SiguienteDato()
'Por.Dante Amor
    Set h1 = Sheets("boletin6")
    Set h2 = Sheets("codigos")
    If h1.[C6] <> "" Then
        u = h2.Range("C" & Rows.Count).End(xlUp).Row
        Set b = h2.Range("C3:C" & u).Find(h1.[C6], lookat:=xlWhole)
        If Not b Is Nothing Then h1.[C6] = b.Offset(1, 0)
    End If
End Sub

Saludos.Dante Amor

Recuerda valorar la respuesta.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Macro para copiar datos de una hoja a una tabla con fecha especifica

Necesito una macro que copie los datos de una hoja (Dato 1 y Dato 2) con una fecha determinada y ubicarlo en la tabla de la otra hoja de manera lineal Primero debe de buscar la fecha en la tabla y luego recién proceder a copiar. En caso tenga ya data...
1 respuesta

Macro para filtrar datos de una hoja a otra ya sea por folio de ingreso o por una palabra?

Que tal buen día quisiera que me puedan ayudar con una macro. Que se pueda filtrar y visualizar datos al escribir en una celda el folio o el numero de compra, que vaya a buscar en otra hoja del mismo libro que se tendrá una base de datos y me...
1 respuesta

Crear hojas nuevas con nombres específicos según contenido de celdas

Tengo la necesidad mediante una macro se copie una hoja del libro del Excel con todo su contenido y formatos (Hoja2) y se ubique al final del libro. Además que esta hoja nueva se nombre con el contenido de una determinada celda (Hoja1. E3). Además la...
1 respuesta

Excel - Copiar Ciertos Datos de una Excel a Otra Excel

Quiero copiar ciertos datos de una excel a otra excel al pulsar el boton. Necesito que cuando estoy sobre una celda del libro origen, y pulso el botón, coja ciertas celdas relativas a la que me encuentro y las copie en otra hoja excel que tengo en...
1 respuesta

Macro para cambiar de valor de una lista desplegable

Tengo una lista desplegable con unos productos, al seleccionar cada uno los valores de una hoja cambian y al correr una macro ya existente se guarde la hoja del producto en una carpeta.. Quisiera saber como hacer un código para que los valores de la...
1 respuesta

Código que busque un dato y si lo incuentra me selección una celda especifica

El día de hoy necesito de su colaboración para encontrar el código para que me busque un dato de una celda especifica en otro hoja y me seleccione otra celda de la misma fila de donde se encontró el dato. Ejemplo: A1 celda donde esta el dato a buscar...
1 respuesta

Excel macro para buscar y extraer múltiples calores

Necesitaría ayuda para crear una hoja de consulta para un inventario. El problema que me surge es que los códigos se repiten y necesito que se muestren todos los resultados. Hoja de inventario De esta hoja debería extraer los datos de los encabezados...
1 respuesta

Consolidar fecha y totales en la misma posicion

Necesito una macro para consolidar fecha y totales en la misma posicion O sea que quede asi Muchas graciasssss
1 respuesta

Macro para filtrar datos de una Hoja a otra

Tengo aquí una macro que aporto un usuario en donde se puede filtrar datos de una hoja a otra y colocar los resultados en esta ultima. Ahora bien mi problema esta en que esta macro filtra todas las filas hacia el costado y yo necesito que solo filtre...
2 respuestas

Copia de una multi-selección de celdas a otra hoja

Como puedo copiar un rango de celdas (concretamente las celdas F4, G14, B18:H46, de la hoja seleccionada y copiar esta selección a otra hoja llamada "PRINCIPAL" en esas mismas celdas.
1 respuesta