Extraer rangos y buscar nombre en otra hoja y pegar

[xavban]

Hola a tod@s.

Estoy muy perdido en esto y necesitaría que me ayudaseis en este problemón para mí.

Necesito copiar de una hoja un nombre de un alumno y sus calificaciones 9 columnas m'as...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Gerson Pineda]

Hola

Si fuese uno asi como hacker tipo anonymous jeje entrara a tu PC y te robaría el archivo para ver como esta la estructura de tu libro y luego adivinar o imaginar que es lo que...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[xavban]

Mil perdones ya que soy muy nuevo en esto, pero lo que veo que en esta comunidad sois tan buenos que pensaba que podrías ........ jajajajaja¡¡¡¡.

Grácias de corazón por querer ayudarme y aquí te...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[xavban]

Mil perdones ya que soy muy nuevo en esto, pero lo que veo que en esta comunidad sois tan buenos que pensaba que podrías ........ jajajajaja¡¡¡¡.

Grácias de corazón por querer...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[xavban]

Mil perdones ya que soy muy nuevo en esto, pero lo que veo que en esta comunidad sois tan buenos que pensaba que podrías ........ jajajajaja¡¡¡¡.

Grácias de...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[doeyatocel]

Perdón por no harlo subido antes....

 

[Gerson Pineda]

Hola

Prueba con esta macro

Sub CopiarPegar()

With Sheets("lista de notas")

    Set va = .Columns("A").Find(What:=Range("W38"), _
    LookIn:=xlValues)
    
    If va Is Nothing Then Exit...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí