copiar datos de una hoja con macros

16/01/2013 - 17:07 por navef | Informe spam
Saludos, en mi trabajo todos los dias tengo que registrar informacion en variios archivos de excel. en uno de ellos la informacion va en dos hojas que genero a diario dentro del libro por decir mis hojas se llaman 20ene, 20ene grafica, 21ene, 21ene grafica, 22ene, 22ene grafica y asi. es decir yo tipeo los valores en una tabla en la hoja 20ene y luego algunas de las columnas de esa tabla (del 20ene) las copio a otra tabla en la hoja 20ene grafica y genero la grafica. ya se como seleccionar rangos con los macros pero lo que no logro hacer es q tome los datos de la pagina anterior a la que me encuentro. es decir si estoy en la hoja 20ene grafica que mi macros copie las columnas que yo le indico de la hoja anterior que sería 20ene y cuando este en la hoja 21ene grafica que seleccione las columnas que yo indico de la hoja 21ene.
hasta el momento lo unico que he logrado es que mi macros copie y pegue de la hoja 14ene a la hoja 14ene grafica pero cuando cuando quiero hacer lo mismo estando en la hoja 15ene grafica y presiono la combinación de teclas que elegi solamente repite el proceso que puse con las hojas 14ene y 14ene grafica.
Por cierto este macro lo hice con la opción grabar y no se si es factible borrar todos esas lineas que dicen ActiveWindow.SmallScroll


Sheets("14ene").Select
Range("C8").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlUp)).Select
Range("C8").Select
Range(Selection, Selection.End(xlDown)).Select
Range("C8:C55").Select
Selection.Copy
Sheets("14ene grafica").Select
Range("B4").Select
 

Leer las respuestas

#1 navef
17/01/2013 - 14:15 | Informe spam
navef escribió el 16/01/2013 17:07 :
Saludos, en mi trabajo todos los dias tengo que registrar informacion en
variios archivos de excel. en uno de ellos la informacion va en dos hojas que
genero a diario dentro del libro por decir mis hojas se llaman 20ene, 20ene
grafica, 21ene, 21ene grafica, 22ene, 22ene grafica y asi. es decir yo tipeo
los valores en una tabla en la hoja 20ene y luego algunas de las columnas de
esa tabla (del 20ene) las copio a otra tabla en la hoja 20ene grafica y genero
la grafica. ya se como seleccionar rangos con los macros pero lo que no logro
hacer es q tome los datos de la pagina anterior a la que me encuentro. es decir
si estoy en la hoja 20ene grafica que mi macros copie las columnas que yo le
indico de la hoja anterior que sería 20ene y cuando este en la hoja
21ene grafica que seleccione las columnas que yo indico de la hoja 21ene.
hasta el momento lo unico que he logrado es que mi macros copie y pegue de la
hoja 14ene a la hoja 14ene grafica pero cuando cuando quiero hacer lo mismo
estando en la hoja 15ene grafica y presiono la combinación de teclas que
elegi solamente repite el proceso que puse con las hojas 14ene y 14ene grafica.
Por cierto este macro lo hice con la opción grabar y no se si es
factible borrar todos esas lineas que dicen ActiveWindow.SmallScroll


Sheets("14ene").Select
Range("C8").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlUp)).Select
Range("C8").Select
Range(Selection, Selection.End(xlDown)).Select
Range("C8:C55").Select
Selection.Copy
Sheets("14ene grafica").Select
Range("B4").Select


Gracias ya lo resolvi aun no conosco muy bien los comandos despues de todo la unica programacion que he hecho ha sido java y html para alguna pagina web xD aki les va mi solucion
'
Sub Macro1()
Macro1 Macro
'On Error Resume Next
If ActiveSheet.Index = Worksheets.Count Then
ActiveSheet.Previous.Select
End If
Range("C8").Select
Range(Selection, Selection.End(xlDown)).Select
Range("C8:C55").Select
Selection.Copy
ActiveSheet.Next.Select
Range("b4").Select
ActiveSheet.Paste
End Sub

ahora el problema es q si por algun error estoy situado en cualquier otra hojas q no sea la ultima enpiezo a copiar en esa xD desde la anterior

Preguntas similares