Luis Mondelo

Utiliza esta sentencia para abrir un browse y poder elegir donde está tu archivo Application. GetOpenFilename No olvides finalizar la consulta

Copiamos tal cual el rango A1:¿J42 de la hoja1 en las otras hojas pero en qué rango de destino?

En el siguiente enlace te mando tu archivo con mi solución propuesta http://share.cx.com/cbmfhk No olvides finalizar la consulta

Mándame el archivo con el ejemplo de los datos y un caso práctico para poder ayudarte mejor [email protected]

Según está esa macro es correcta: Pondrá la fecha en la columna F si en la columna H hay datos. ¿Dónde está el problema?

Te paso mi solución con esta macro: Sub ordena_hojas() 'por luismondelo On Error Resume Next For Each hoja In ActiveWorkbook.Sheets For x = 1 To Sheets.Count If Sheets(x).Name <> "menu" Then If Sheets(x).Name > Sheets(x + 1).Name Then Sheets(x +...

Necesito un poco de aclaración: -Si nos vamos al último registro y bajamos una celda más estaremos en una celda en blanco y por consiguiente sería una nueva ¿Me puedes explicar un poco mejor la estructura de esa columna? ¿Cómo acaba?

Necesito saber en que columna va la fórmula.

Quizás te funcione mejor así: '... '....................... micelda = Sheets("formulario").Range("o7").Value curso = Range("L2").Value Sheets(curso).Select Range("A1").Select Selection.AutoFilter ActiveSheet.Range("$A$1:$AU$36").AutoFilter Field:=4,...

Tengo tu problema resuelto mediante macros. Dime si estás de acuerdo para mandártelo.