Copiar datos especificos de la hoja anterior cada semana

Solo consultas sobre macros y código VBA Excel.
Reglas del Foro
1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!
Responder
davidfiguera
Miembro Nuevo
Miembro Nuevo
Mensajes: 4
Registrado: 05 Ene 2019 14:30

Copiar datos especificos de la hoja anterior cada semana

Mensaje por davidfiguera » 05 Ene 2019 14:43

Buenas tardes amigos, hoy acudo a ustedes para que por favor me orienten en esta macro que realice: les explico de que se trata.

1- Tengo una lista de clientes semanales, hay semanas en que hay 100 como pueden haber semanas que pueden ser mas o menos.

2- al finalizar la semana hay una celda que muestra el saldo de la caja.

3- al iniciar la semana yo (manualmente) hago una copia de la hoja, luego limpio los datos de la hoja nueva excepto los nombres de los clientes, y copio el saldo con el cual el cliente cerro la semana anterior para que este sea el nuevo saldo con el que inicia la nueva semana y la celda que arroja el saldo de la caja lo copio en la hoja nueva.

Esta macro que yo mismo grabe me funciona bien en la primera, pero luego ya no me funciona porque los datos no son estáticos y siempre la hoja nueva se alimenta de la anterior.

Entonces que tengo q hacer:

1- que la macro copie los datos la hoja anterior.

2- en el caso que hallan 50, 76, 90, 100, 200 clientes me los copie a la hoja nueva con su respectivo saldo final en la columna que corresponda.

si alguien me ayudar se lo agradezco!

Sub Macro2()
'
' Macro2 Macro
'

'
Sheets("1").Select
ActiveWindow.SmallScroll Down:=-93
Rows("4:92").Select
Selection.Copy
Sheets("1 (2)").Select
Rows("4:4").Select
Selection.Insert Shift:=xlDown
Range("E4:Q96").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("E97").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-93]C:R[-1]C)"
Range("E97").Select
Selection.AutoFill Destination:=Range("E97:R97"), Type:=xlFillDefault
Range("E97:R97").Select
ActiveWindow.SmallScroll Down:=-6
Range("B101").Select
ActiveCell.FormulaR1C1 = "='1'!R[6]C"
Range("B102").Select
ActiveWindow.SmallScroll Down:=-105
Range("E4").Select
ActiveCell.FormulaR1C1 = "='1'!RC[13]"
Range("E4").Select
Selection.AutoFill Destination:=Range("E4:E92"), Type:=xlFillDefault
Range("E4:E92").Select
ActiveWindow.SmallScroll Down:=-99
Range("F4").Select
Sheets("1").Select
ActiveWindow.SmallScroll Down:=78
Sheets("1 (2)").Select
ActiveWindow.SmallScroll Down:=-6
Range("F4").Select
End Sub



Avatar de Usuario
Haplox
Miembro Frecuente
Miembro Frecuente
Mensajes: 345
Registrado: 01 Mar 2017 07:42
Ubicación: Getafe

Re: Copiar datos especificos de la hoja anterior cada semana

Mensaje por Haplox » 06 Ene 2019 07:39

Pues si subes tu archivo, explicando en él que tienes y que deseas, se te puede ayudar, porque con esa macro de la grabadora es imposible



davidfiguera
Miembro Nuevo
Miembro Nuevo
Mensajes: 4
Registrado: 05 Ene 2019 14:30

Re: Copiar datos especificos de la hoja anterior cada semana

Mensaje por davidfiguera » 07 Ene 2019 14:11

Haplox escribió:Pues si subes tu archivo, explicando en él que tienes y que deseas, se te puede ayudar, porque con esa macro de la grabadora es imposible

Listo amigo ojala pueda ayudarme
No tienes los permisos requeridos para ver los archivos adjuntos a este mensaje.



Avatar de Usuario
Haplox
Miembro Frecuente
Miembro Frecuente
Mensajes: 345
Registrado: 01 Mar 2017 07:42
Ubicación: Getafe

Re: Copiar datos especificos de la hoja anterior cada semana

Mensaje por Haplox » 09 Ene 2019 04:30

Te dejo una posible solucion. Revisala y mira si hay que borrar mas datos al copiar la hoja

Pulsa la flecha roja
No tienes los permisos requeridos para ver los archivos adjuntos a este mensaje.



davidfiguera
Miembro Nuevo
Miembro Nuevo
Mensajes: 4
Registrado: 05 Ene 2019 14:30

Re: Copiar datos especificos de la hoja anterior cada semana

Mensaje por davidfiguera » 11 Ene 2019 07:34

Ok hermano tan pronto lo revise le notifico de ante mano muchisimas gracias



davidfiguera
Miembro Nuevo
Miembro Nuevo
Mensajes: 4
Registrado: 05 Ene 2019 14:30

Re: Copiar datos especificos de la hoja anterior cada semana

Mensaje por davidfiguera » 12 Ene 2019 22:26

EXCELENTE hermano justo lo que estaba necesitando, de corazón muchas gracias



Responder