Dante Amor

Asumiendo que tus datos empiezan en la celda A2 La salida quedará en la celda B2 y hacia abajo. En tu ejemplo, después de los ":" hay un espacio, por eso en la macro puse "+ 2", pero si no hay un espacio, entonces cambia a "+ 1" Sub Extrae_Dato() Dim...

Puede explicar qué tienes y qué quieres de resultado. Nota: Una cosa que debes tener en cuenta cuando haces una pregunta en un foro ... las personas a las que solicitas ayuda no saben nada acerca de tus datos, nada sobre cómo están en el libro de...

Puedes poner aquí todo tu código. En cuál línea del código tienes el problema. También escribe aquí cuál es el valor inicial en la propiedad RowSource del listbox

1. Los libros están todos es una carpeta que se llama Parte Diario ¿Cuál es el nombre completo de la ruta y carpeta? 2. La hoja que deseo consolidar de cada libro contiene las siglas "PD" y puede tener filas y columnas ocultas que NO DESEO...

Sustituye tu código del formulario frm_inicio por lo siguiente: Private Sub cmb_siguiente_Click() Dim f As Range ' With Hoja2 .Range("K2").Value = .Range("K2").Value + 1 lb_numpre.Caption = .Range("J" & .Range("K2").Value + 2).Value...

En mi hoja 1 tengo un numero 1232 Asumiendo que se llama "Hoja1", que los números están en la columna A y empiezan en la celda A2. Y en la hoja 2 el mismo numero Y también asumiendo que se llama "Hoja2" y que los números están en la columna A. Prueba...

¿Puedes hacer el listbox más ancho?

Asumiendo que tus datos empiezan en la celda A2 Prueba la siguiente macro: Sub EmpresaMes() 'Por Dante Amor Dim dic As Object Dim c As Range Dim a As String, cad As String Set dic = CreateObject("Scripting.Dictionary") For Each c In Range("A2",...

Puedes explicarlo con imágenes. Si es necesario puedes subir varias imágenes

El detalle con la función Hallar, es que si no encuentra el dato, regresa Error. Entonces la fórmula podría ser así: =SI.ERROR(SI(HALLAR("VENEZOLANA";B2);"MIGRANTE"); SI.ERROR(SI(HALLAR("NUKAK";B2);"NUKAK");...