QUE PENA , MENSAJE DE 3 0 4 LINEAS

... funciona muy bien pero el problema es que copia solamente la celda R1 y las demas las deja intactas
lo que necesito es que copie todas las celdas que tienen valores difrentes de cero en la columna R sin contar R1
y despues de haber hecho el filtrado que las copie a partir de la primer celda visible de la columna E.

en lo que 'termino de masticar' el resto de tu mensaje [que no son tres o cuatro lineas]... :))
prueba con algo +/- como lo siguiente [aunque es 'practicamente' lo mismo que ya te habia sugerido]:...

OJO: si el rango sobre el que se hace el filtro avanzado... [A1:K508] es -tambien-... 'estimado' -?-
existe la posibilidad de que el 'conteo' de areas no resulte lo 'preciso' que se requiere por el procedimiento -?-

Sub Filtrado_1()
With Range("a1:k508")
.AdvancedFilter _
Action:=xlFilterInPlace, _
CriteriaRange:=Workbooks("colega.xls").Worksheets("registro").Range("q165:v166"), _
Unique:=True
With .SpecialCells(xlCellTypeVisible)
On Error GoTo Ninguno
IIf(.Areas(1).Rows.Count > 1, _
.Areas(1).Cells(2, 5), .Areas(2).Cells(1, 5)).Select
End With
End With
With Worksheets("nota")
.Range(.Range("r2"), .Range("r65536").End(xlUp)).Copy ActiveCell
End With
Exit Sub
Ninguno:
MsgBox "Criterios no cumplidos !!!"
End Sub

hola, Luis !

> ... funciona muy bien pero el problema es que copia solamente la celda

> lo que necesito es que copie todas las celdas que tienen valores

> y despues de haber hecho el filtrado que las copie a partir de la primer

hay 'algo' que no acabo de tener por claro...
1) la propuesta omite la celda 'R1' ya que solo considera copiar a partir

-> siempre y cuando el rango que se pasa para los autofiltros

-> revisa la observacion al respecto de la propuesta anterior ;)

2) con relacion a las 'celdas que tienen valore diferentes de cero'
lo que yo no puedo saber es que criterios estas usando en el rango que

comentas [si hubiera] algun detalle 'perdido en el tintero' ?
saludos,
hector.

__ la consulta/propuesta anterior __
> en lo que 'termino de masticar' el resto de tu mensaje [que no son tres

> prueba con algo +/- como lo siguiente [aunque es 'practicamente' lo

>
> OJO: si el rango sobre el que se hace el filtro avanzado... [A1:K508]

> existe la posibilidad de que el 'conteo' de areas no resulte lo

>
> Sub Filtrado_1()
> With Range("a1:k508")
> .AdvancedFilter _
> Action:=xlFilterInPlace, _
>

> Unique:=True
> With .SpecialCells(xlCellTypeVisible)
> On Error GoTo Ninguno
> IIf(.Areas(1).Rows.Count > 1, _
> .Areas(1).Cells(2, 5), .Areas(2).Cells(1, 5)).Select
> End With
> End With
> With Worksheets("nota")
> .Range(.Range("r2"), .Range("r65536").End(xlUp)).Copy ActiveCell
> End With
> Exit Sub
> Ninguno:
> MsgBox "Criterios no cumplidos !!!"
> End Sub

... lo unico que me hace falta es como indicarle en cual columna debe pegar las notas
dependiendo del valor de otra celda, es decir debo indicarle si la pegara
en la columna C (nota1), D (nota2) o E (nota3) dependiendo de si se trata del primer, segundo o tercer periodo
el cual estara indicado en la celda A1 de la hoja concentrado del libro colega...

> With .SpecialCells(xlCellTypeVisible)
> On Error GoTo Ninguno
> IIf(.Areas(1).Rows.Count > 1, _
> .Areas(1).Cells(2, 5), .Areas(2).Cells(1, 5)).Select
> End With

... lo tengo claro, pero lo que no quisiera es tener que modificar la macro cada vez que la celda A1 contenga 1, 2 o 3
... si no ella misma... determine cual es el valor en A1 y... pegue los valores en la columna C D o E. [...]

la parte del codigo que 'selecciona' la primer celda despues del filtrado es la seccion siguiente:

> > With .SpecialCells(xlCellTypeVisible)
> > On Error GoTo Ninguno
> > IIf(.Areas(1).Rows.Count > 1, _
> > .Areas(1).Cells(2, 5), .Areas(2).Cells(1, 5)).Select
> > End With

concretamente, la linea que hace el select es: -> .Areas(1).Cells(2, 5), .Areas(2).Cells(1, 5)).Select
donde el 5 [en el caso del ejemplo y consulta original] corresponde a la columna 5 [o sea la columna 'E']

dependiendo del 'valor' [texto o numero] que contenga la celda 'A1'...
podras hacer los ajustes necesarios a la columna correspondiente: 1=A, 2=B, 3=C, etc. etc. etc. ;)

hola, Luis !

> ... lo unico que me hace falta es como indicarle en cual columna debe

> dependiendo del valor de otra celda, es decir debo indicarle si la

> en la columna C (nota1), D (nota2) o E (nota3) dependiendo de si se

> el cual estara indicado en la celda A1 de la hoja concentrado del libro

la parte del codigo que 'selecciona' la primer celda despues del filtrado

> > With .SpecialCells(xlCellTypeVisible)
> > On Error GoTo Ninguno
> > IIf(.Areas(1).Rows.Count > 1, _
> > .Areas(1).Cells(2, 5), .Areas(2).Cells(1, 5)).Select
> > End With

concretamente, la linea que hace el select es: -> .Areas(1).Cells(2, 5),

donde el 5 [en el caso del ejemplo y consulta original] corresponde a la

dependiendo del 'valor' [texto o numero] que contenga la celda 'A1'...
podras hacer los ajustes necesarios a la columna correspondiente: 1=A,

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.