Isaac Reyes

Esteban, intenta con esto. Sub subCosto() Dim lngC As Long, lngF As Long lngC = 1 'Inicializar columna del recorrido' lngF = Cells(1, lngC).CurrentRegion.Rows.Count + 1 'Obtener fila en que irán los resultados' 'Recorrer la fila 1 hasta encontrar una...

H0la Ignacio: Cuando borras el contenido del cuadro de texto el valor del ListIndex es -1 por lo tanto, si caes en este cas, estarías tratando de seleccionar la celda Cells(0,1), lo más probable es que eso sea el error. Revísalo y si no val por ahí,...

H0la Angie: La pregunta está confusa. ¿Tienes algún ejemplo? S@lu2

H0la Byron: ¿Qué harás en caso de que dos documentos tengan las misma iniciales? S@lu2

H0la Marisa, Me parece que con un SI tendría que salir. Por ejemplo, vamos ala fila 1 D1 = SI(B1=C1;A1;"") Lo que estamos diciendo es, si B1 es igual a C1, entonces en D1 agreque el valor de A1, de otra forma, deje la celda vacía. S@lu2

H0la Bernabe: Supongamos que el control se llama Image1, las fotos están alojadas en "C:\fotos\" y que el nombre de las fotos 1.jpg, 2.jpg, 3.jpg, etc. Siendo el número el id del trabajador, entonces podrías utilizar el siguiente código, asumiendo...

H0la Catherine: Supongamos que en la Hoja2 tienes esto Entonces, si quieres que los resultados aparezcan en la Hoja 3, dicha hoja debiera tener la siguiente estructura Dónde A1 contiene el nombre de la columna por la que vas a filtrar y A2 es el...

H0la Esteban: Supongamos lo siuiente En las columnas A a J tienes tu base de datos (encabezado A B C D E F G H I J).En el rango L1:O1 tienes las condiciones Tus resultados se arrojarán de L10 en adelante. Lo que debes hacer es en el rango L10:Q10...

H0la Fernando: No es complicado lo que pides, así que te voy a orientar un poco. Lo que debes hacer es un bucle que te lleve hasta el final de tu tabla, hay varias formas de hacerlo, pero te sugiero un "Do Until" que itere hasta que encuentre una...

H0la Yeison: Prueba con esto (Nombre_hoja es el nombre de la hoja en la que deseas eliminar filas vacías) Sub EliminarVacios() 'Por GP' i = 4 'Número de la fila en que comienza a buscar' fin = Sheets("Nombre_hoja").UsedRange.Rows.Count Do Until (i >...