UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1RESUELTO Macro Sumar Restar el 18/01/14, 10:35 am

Invitado


Invitado
Buenos días desde Málaga, España.

No creo que se pueda, pero pregunto, ¿ Es posible asignar una macro a una celda ?
La celda en si, acumula una cantidad de diferentes celdas y para evitar poner mas botones.
Muchas gracias de antemano.

2RESUELTO Re: Macro Sumar Restar el 18/01/14, 10:58 am

tyno


Hola Luis.
Si es lo que pienso, lo que estas preguntando se puede hacer, es decir hacer que una macro se ejecute cuando se realice alguna accion (enter/tabular/select) sobre una determinada celda o rango de celdas, esto se logra mediante el evento Worksheet_SelectionChange o Worksheet_Change. 

Lo que no entiendo es eso de  una celda que acumula en si una cantidad de diferentes celdas. Saludos

3RESUELTO Re: Macro Sumar Restar el 18/01/14, 11:14 am

Invitado


Invitado
Gracias por contestar lo primero.
No entiendo del todo lo que me dices pero voy a intentarlo.
Quise decir, que la celda en si, tiene una suma de celdas de otra hoja, y quiero la macro para pasarla a final de mes a otra celda pero sin suma y fija, la solución que estoy haciendo es:
Que por medio de "=" la traslado a otra celda y a final de mes, a esa celda le quito la formula "=" por medio de una macro.
También he pensado, pero no se hacerlo, a cada celda del mes asignarle una formula por mes, pero tampoco se hacerlo.
Gracias por contestar tan rapido

4RESUELTO Re: Macro Sumar Restar el 18/01/14, 11:37 am

tyno


Y bueno, para esto deberias subir un archivo de ejemplo que sea mas o menos acorde al que estarías utilizando en realidad. 
Por lo que entiendo estas convirtiendo resultados de formulas a valores, en una fecha determinada (fin de mes). Si este proceso quisieras hacerlo de forma automática entonces creo que habría que establecer un codigo en ThisWorkBooK, en el evento Open:

Private Sub Workbook_Open()

End Sub

Con esto cuando se abre el archivo en cuestión se ejecuta la macro que establezcamos dentro de  Workbook_Open. 
En este caso se me ocurre establecer que al ser la fecha igual al día de fin de mes se conviertan en valores o texto los datos de las formulas.

Un ejemplo simple sería, suponiendo que tenemos una formula en A1 en la Hoja 1 y la pasamos a valor en A1 de la Hoja2 cuando se abre el libro en la fecha de hoy (o la de fin de mes)

Private Sub Workbook_Open()
If Date = CDate("18/01/14") Then
Sheets("Hoja2").Range("a1") = Sheets("Hoja1").Range("a1").Text
End If
End Sub

5RESUELTO Re: Macro Sumar Restar el 18/01/14, 11:50 am

Invitado


Invitado
Te mando un archivo
Archivos
Ejemplo.xls
(14 KB)

6RESUELTO Re: Macro Sumar Restar el 18/01/14, 01:18 pm

tyno


Paso el archivo con una macro en ThisWorkBoock, que se ejecutará cuando se abre el archivo.
La idea, como lo había comentado es que al cumplirse fin de mes el resultado de la celda I3 de Hoja1 (donde esta la formula) se copie en su respectiva celda como valor en la Hoja2. Claro está que no se si el archivo justo se va a abrir  en la fecha de fin de mes.
Para probar que funciona provisoriamente habría que cambiar la referencia en el codigo, ahora se encuentra de esta manera:

Private Sub Workbook_Open()
On Error Resume Next
f = Month(Date)
Select Case f
Case 1: dia = "31": rmes = "ENERO" '<<<<<<<<<<Aquí en lugar de "31" habría que poner "18" (hoy sábado)
Case 2: dia = "28": rmes = "FEBRERO"
Case 3: dia = "31": rmes = "MARZO"
Case 4: dia = "30": rmes = "ABRIL"
Case 5: dia = "31": rmes = "MAYO"
....

Cambiar por la fecha actual, o sea 18 al día de este mensaje, guardar, cerrar el archivo y volver a abrirlo, luego hay que fijarse en Hoja2 si se inserto el resultado como valor, y si todo funciona luego volver a poner "31" en el lugar que corresponda. Saludos
Archivos
Ejemplo.zip
No tienes los permisos para descargar los archivos.
(10 KB)

7RESUELTO Re: Macro Sumar Restar el 19/01/14, 02:14 am

Invitado


Invitado
No me hace nada cuando cambio la fecha

8RESUELTO Re: Macro Sumar Restar el 19/01/14, 03:05 am

tyno


Yo he probado el archivo y si funciona ¿que fecha estas ingresando? a este momento debería ser 19/01/14, o sea, para  probar hay que ingresar en la linea de ENERO el valor "19", guardar, cerrar y volver a abrir el archivo.Saludos

9RESUELTO Re: Macro Sumar Restar el 19/01/14, 03:12 am

Invitado


Invitado
te subo el archivo
Archivos
Ejemplo.xls
(37 KB)

10RESUELTO Re: Macro Sumar Restar el 19/01/14, 03:32 am

tyno


Bueno, sucede algo que no se de que se trata, efectivamente en el ultimo archivo que me has pasado la macro al principio no funciona, pero he descargado el archivo que subi, lo guarde en el escritorio, le cambie la fecha, guarde, cerré y volvi a abrir y todo funciona.
Pero has lo siguiente, primero que nada el archivo guárdalo en tu PC (quizás ya lo hiciste)
En ThisWorkBook seleccionar la linea On Error Resume Next y convertirla a texto momentáneamente: '''On Error Resume Next. Guardar, cerrar archivo y volver a abrir archivo, ahí deberían aparecer los resultados. Si todo salio OK volver a ThisWorkbook y dejar la linea On Error Resume Next como instrucción, es decir quitar los apostrofes, y volver a probar como antes si todo funciona-(guardar,cerrar,abrir). De persistir deberías bajar el archivo que te he pasado en principio y ver si vuelve a dar error. Saludos

11RESUELTO Re: Macro Sumar Restar el 19/01/14, 04:15 am

Invitado


Invitado
Me has dado una idea de como hacerlo, te mando el nuevo ejemplo
Un saludo
Archivos
factura.xls
(22 KB)

12RESUELTO Re: Macro Sumar Restar el 19/01/14, 11:45 am

tyno


Hola luis.
Te consulto porque no entiendo bien esta variante del archivo.
Tomemos el caso del codigo "A ABRIGOS" en donde en la celda de Venta Anual hay registrado un valor de 44. ¿cual sería la idea?
1)Si en el mes de enero yo ingreso por ejemplo una venta de 10 ¿esto tendría que sumarse al valor de la venta anual de 44, o sea 44 + 10=54; y asi con cada registro que se haga para cada mes?
2)Luego en el mismo mes de enero surge otra venta de 5 entonces supongo que en el mes de enero tiene que quedar 15, o sea 10+5 ¿esto lo harías manualmente, es decir si hay registrado 10 en la celda de enero y luego vas a agregar 5 más entonces sobre escribirías la celda con 15? o ¿que es lo que te gustaría que se hiciera?¿una macro donde ingreses los valores y estos se sumen a la celda correspondiente dependiendo del código y mes?
3)Ahora pasamos a febrero y hay una venta 10 ¿en febrero nos tiene dar los 10 de su propia venta mas los 15 que nos quedaron en enero, o sea 15+10=25?¿es así la idea de acumular que mencionas en el archivo?

13RESUELTO Re: Macro Sumar Restar el 19/01/14, 04:09 pm

Invitado


Invitado
Gracias por contestar.
En la celda en rojo, D7, se acumula la venta de todo un año.
Y lo que necesitaria, es que en la celda E7, se acumele la venta segun la venta del mes de ENERO, En febrero, tendria que ir saliendo la venta dia tras dia restando la venta de ENERO, y asi sucesivamente.
Un Saludo

14RESUELTO Re: Macro Sumar Restar el 19/01/14, 09:02 pm

tyno


Hola Luis.
Te paso el archivo, no termine de entender lo que necesitabas ya que no has explicado los puntos que te mencione en el comentario anterior, pero te explico lo que yo hice, en definitiva lo que se hace es que al ingresar un valor en un  mes de un articulo este va acumulando en la columna de venta anual, esto se hace por medio de una macro que se ejecuta con el evento Worksheet_Change, o sea que al ingresar un valor al dar tabular o enter se ejecuta la macro realizando la suma y prescindiendo de formulas. Si esto  no es lo que estabas buscando entonces explica un poco mas el proceso por no entiendo por ejemplo como eso de que las ventas de febrero se descontarían a las de enero. Saludos
Archivos
factura.zip
No tienes los permisos para descargar los archivos.
(8 KB)

15RESUELTO Re: Macro Sumar Restar el 19/01/14, 11:34 pm

Invitado


Invitado
Muchas gracias, por todo el interés que me esta demostrando, voy a explicarte lo mejor que puedo lo que necesito:
Tengo la formula en la factura que me acumula toda la venta por artículos en la casilla D7, en esta son los abrigos. Como estamos en el mes de Enero se van acumulando toda la facturación de abrigos en la E7, esto hace que la cantidad al final de mes las casillas sean la misma cantidad.
Pasamos al mes de Febrero, según voy facturando todas las ventas se van ingresando en la D7 y el resultado seria D7-E7=F7 y sabría toda la venta del mes de febrero segun se va aumentando la D7.
Pasamos al mes de Marzo, segun voy facturando todas las ventas se van ingresando en la D7, el resultado seria D7-E7-F7=G7. Quedaria:
D7 = 66   ' Total abrigos vendidos.
E7 = 33   '  Total abrigos vendidos ENERO.
F7 = 33   '  Total abrigos vendidos FEBERO.
G7 =  0   '  Total abrigos vendidos el dia 1 de MARZO, segun aumente la CELDA D7 EN EL MES DE MARZO, ESE AUMENTO SE VA AGREGANDO A LA CELDA G7.
El resultado seria:
D7 venta total = la suma de todas las CELDAS "=SUMA(E7:P7)".
Un saludo.

16RESUELTO Re: Macro Sumar Restar el 20/01/14, 01:13 am

tyno


Veamos si entendí.
Para empezar en la celda R1 he establecido la fecha actual con la función =HOY(), dado que estamos en Enero, al momento de este mensaje la fecha es 20/01/2014, por lo tanto si en alguna celda de la columna D (que sería el total general del año) en un articulo  ingresamos un valor , por ejemplo 50, entonces en la respectiva fila de la columna E (que corresponde a Enero) se replica este valor 50, ahora si llegamos a Febrero y tenemos una venta de 10, esto hace que en la celda de la columna D el valor sea de 60, en Enero los 50 que teníamos y en Febrero los 10 y así dependiendo del mes en curso.
Ahora, atención con esto:  para probar esto que hice vas a tener que en primer lugar ingresar un valor en cualquier celda de la columna D y ver que dicho valor se replica en al columna de Enero, luego vas a tener que pisar la función =HOY() en R1 e ingresar una fecha cualquiera de febrero, por ejemplo 01/02/2014, esto hará que la macro tome el mes en curso como Febrero, y luego incrementar la cantidad en la celda de la columna D, por lo que en la columna de Febrero tendría que verse la diferencia entre la celda de la columna D menos la celda de la columna E, luego en R1 cambiar a  una fecha de Marzo, por ejemplo 01/03/2014 y nuevamente incrementa el valor de la celda de la columna D, por lo que tendría que darse la diferencia entre la celda de la columna D menos la columna E menos la columna F y así podrías seguir con los meses que quieras.
Una vez que termines de hacer esta prueba que te he mencionado recuerda de insertar la función =HOY() en R1, así se toma la fecha del mes en curso.
Lo que creo que mencionaste que tienes una formula en la factura que acumula los valores en la columna D (D7, ejemplo), sucede que una formula al cambiar su resultado no activa ninguna macro, por este motivo no se como te arreglarías para ingresar los valores en la columna D y que se ejecute la macro, es decir se puede hacer que la macro que hice se ejecute manualmente con un botón por ejemplo o bien cuando se selecciona esta Hoja, que contiene el detalle de ventas, se ejecute la macro, esto tendrías que especificarme como te resultaría  más practico. Saludos
Archivos
factura.zip
No tienes los permisos para descargar los archivos.
(11 KB)

17RESUELTO Re: Macro Sumar Restar el 20/01/14, 03:03 am

Invitado


Invitado
Fabuloso mejor imposible, como te lo agradezco.
En cuanto a la formula que tengo es:
=SUMAR.SI(Listado!C11:C5011;"A";Listado!M11:M5010)
Que me va sumando la cantidad según hago la Factura
Un saludo

18RESUELTO Re: Macro Sumar Restar el 20/01/14, 03:20 am

Invitado


Invitado
Cuando hago la Factura me cambia las casillas correspondientes a la venta total "D".
Pero al no estar abierta la "Hoja1" no me graba la cantidad vendida, que en MI LIBRO DE FACTURACION LA HOJA1, LA LLAMO "ControlArticulos".
Pero si cambio la cantidad manualmente perfecto.
Sera cosa de ir cambiandolo manualmente.
Gracias

19RESUELTO Re: Macro Sumar Restar el 20/01/14, 08:51 am

tyno


Bueno, esto era lo que mencione al final de mi comentario anterior, una macro no se ejecuta por fórmula, en este caso la macro se ejecuta cuando ingresas datos manualmente en las celdas de la columna D y luego tabules o des enter. 

Por esto te consulto,¿como te parece mejor que se active la macro que saca los cálculos?

1 Quieres que al seleccionar la Hoja 1 se ejecute la macro y saque los cálculos, o si esto lo tienes en un libro distinto al de la factura puede ser cuando abras o actives el libro.

2 Quieres que cree un medio para ejecutar la macro, por ejemplo un botón o asignar unas teclas de atajo, por ejemplo teclas Ctrl + r y así se hagan los cálculos.

Saludos

20RESUELTO Re: Macro Sumar Restar el 20/01/14, 02:10 pm

Invitado


Invitado
Gracias de antemano por tu amabilidad.
Esta en el mismo libro y la hoja se llama "ControlArticulos", creo mas práctico, que se ejecute al abrir la hoja,
Un saludo muy fuerte

21RESUELTO Re: Macro Sumar Restar el 20/01/14, 03:05 pm

tyno


Ahora modifique la macro para que de los resultados cuando se seleccione la Hoja1.
En el archivo inserte una Hoja llamada ControlArticulos solo de prueba y en las celdas de la columna D de la Hoja1 inserte una simple formula de referencia a las celdas de la Hoja ControlArticulos. 
Entonces para probar tendrías que ingresar algunos valores en las celdas verdes de la Hoja ControlArticulos y luego cuando selecciones la Hoja1 se ejecuta la macro para los resultados. Luego tendrías que empezar a hacer cambios en la fecha de R1 (Hoja1) e incrementar los valores, tal como lo explique en mi comentario anterior para verificar los resultados cuando cambie el mes. Por ultimo volver a insertar la función =HOY() en R1 (Hoja1)

Creo que mas allá de que la Hoja ControlArticulos que yo hice no sea similar a la que tienes realmente, no vas a tener complicaciones en adaptar tu formula que estas utilizando.
Por cierto a la Hoja1 se le puede cambiar el nombre.

Saludos
Archivos
factura.zip
No tienes los permisos para descargar los archivos.
(11 KB)

22RESUELTO Re: Macro Sumar Restar el 20/01/14, 03:22 pm

Invitado


Invitado
Fabuloso, Fabuloso, Fabuloso, Fabuloso, Fabuloso, Fabuloso, Fabuloso, Fabuloso, Fabuloso, Fabuloso, Fabuloso, Fabuloso, Fabuloso, Fabuloso, Fabuloso, Fabuloso, Fabuloso, Fabuloso, Fabuloso, Fabuloso, Fabuloso, Fabuloso, Fabuloso.
Mejor imposible, que Dios te bendiga y tu casa.
No se como darte las gracias.

23RESUELTO Re: Macro Sumar Restar el 20/01/14, 03:41 pm

tyno


Que bueno que te sirviera el archivo. Gracias por tus bendiciones y tu agradecimiento eso es mas que suficiente. Saludos

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.