Isaac Reyes

H0la: Si utilizamos el grabador de macros, al aplicar el filtro obtenemos algo como esto ActiveSheet.Range("$A:$B").AutoFilter Field:=1, Criteria1:="=41907", _ Operator:=xlAnd Ahora, si estamos en la hoja1, el criterio por el que quiero filtrar...

H0la Carlos: Te felicito por intentar resolver el asunto por tus medios. En vista que el grabador de macros no es lo más óptimo, te sugiero la siguiente macro para tu caso Sub copiar() 'Por GP' 'Copiar datos' Range("D8:D100").Value =...

H0la Diego: A ver si esto te es útil. Sub llenar() 'Por GP' Dim lngFilaIni As Long, lngFilaFin As Long Dim lngColIni As Long, lngColFin As Long Dim i As Long, j As Long, k As Long, l As Long lngFilaIni = 2 lngFilaFin = 28 lngColIni = 4 lngColFin = 24...

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

Qué bueno que lo hayas solucionado. 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...