Copia de datos en otra hoja

Hace algunos días me ayudo a resolver un problema que tenia en copiar datos en otra hoja me ayudo Luis Mondelo a lo mejor es muy fácil resolver mi problema que se me presenta

C D E F G

5 Fecha Desde Hasta Total Hrs. Descripción de la Actividad

7 y en C7 empiezo a cargar los datos de cada una de estas columnas, y inserte un botón con etas instrucciones:

Sub EJEMPLO()

Sheets("hoja1").Select

If Range("C2") = "9APHF" Then ( el 9APHF es un nombre de hoja para almacenar los datos capturados)

Range("C7:G" & Range("C65000").End(xlUp).Row).Copy

Sheets("9APHF").Range("C65000").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues Application.CutCopyMode = False

End If

End Sub . Y en la hoja que se llama 9APHF tengo estos títulos para la base de datos

A B C D E

1 Fecha Desde Hasta Total Hrs. Descripción de la Actividad

el problema es que me copia a partir de C2 no entiendo disculpa mi ignorancia pero voy empezando con macros explicame Gracias o corrígeme para que empiece en A2 y asi sucesivamente hacia abajo.

1 respuesta

Respuesta
1

Tienes que cambiar en esta línea el C65000 por A65000:

Sheets("9APHF"). Range("C65000").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues

No olvides finalizar la consulta

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas