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 estás conectado. Conéctate o registrate

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

1RESUELTO Actualización de dato el 23/12/15, 02:57 pm

juseth


Buen día!

Tengo un pequeño detalle en un archivo que maneja entradas y salidas de material.

Al momento de ingresar una cantidad de entrada y posteriormente realizar alguna entrada extra..que ese valor ingresado se sume con el anterior.


Espero me allá explicado y me puedan apoyar.

Saludos.
Archivos
2PRUEBA.xlsm
No tienes los permisos para descargar los archivos.
(90 KB)

2RESUELTO Re: Actualización de dato el 23/12/15, 11:22 pm

jhon1904

avatar
hola juseth
utiliza el siguiente codigo, espero te sirva 

Código:
a = Application.WorksheetFunction.Match([e7], Hoja2.Range("B:B"), 0)
Hoja2.Range("d" & a) = Hoja2.Range("d" & a) + [E11]
Hoja1.Range("E7:e12") = ""

saludos,


_________________
Jhon Mayorquin
https://www.facebook.com/groups/1908894496046888/

3RESUELTO Re: Actualización de dato el 23/12/15, 11:30 pm

jhon1904

avatar
hola, 

que pena sale un error, con este ya no


Código:
Sub guardar(): On Error Resume Next

a = Application.WorksheetFunction.CountA(Hoja2.Range("B:B")) + 6

For i = 6 To a
    If Hoja2.Range("B" & i) Like Hoja1.Range("E7") Then
        Hoja2.Range("d" & i) = Hoja2.Range("d" & i) + [E11]
        Hoja1.Range("E7:e12") = ""
    End If
Next i

End Sub

saludos


_________________
Jhon Mayorquin
https://www.facebook.com/groups/1908894496046888/

4RESUELTO Re: Actualización de dato el 28/12/15, 03:39 pm

juseth


Gracias Jhon.

Una disculpa, estuve fuera y no pude revisar el foro..


Ya revise el codigo que me compartiste cordialmente, me temo decirte que no hace lo que deseo...


Ya que quiero que se sume la cantidad de la celda "existencias" y la "cantidad" y el resultado copiarlo a los registros de entrada.

Saludos.

5RESUELTO Re: Actualización de dato el 28/12/15, 04:26 pm

Igtelo

avatar
Hola Juseth / Jhon.

Juseth: Si te hace lo que quieres, sólo es cuestión de que lo adaptes a tus necesidades.

Ve el tutorial de como corre una macro y la hoja simultáneamente, estoy seguro que podrás complementar, sino te sale Jhon te lo ajusta.

Está fácil, tú puedes...

Saludos y felicidades
Ignacio Téllez

6RESUELTO Re: Actualización de dato el 29/12/15, 11:20 pm

Igtelo

avatar
Hola Juseth / Jhon.

Como veo que no se animan a terminar esto, aquí va para los botones de Entrada y Salida.

En módulo 2 están los códigos que te dio Jhon y también con Find.
Quité tu formato de color en ambas hojas, trata de evitar eso, "nunca" formatees toda una hoja sólo el rango que sea necesario, haces el archivo muy pesado, te consume mucha memoria, (es un mal hábito formatear de más, causa muchos problemas).

Saludos
Ignacio Téllez
Archivos
Juseth-Entradas y Salidas.zip
No tienes los permisos para descargar los archivos.
(123 KB)

7RESUELTO Re: Actualización de dato el 30/12/15, 09:16 pm

jhon1904

avatar
hola, nacho / juseth

excelente simplificación de códigos

saludos,


_________________
Jhon Mayorquin
https://www.facebook.com/groups/1908894496046888/

8RESUELTO Re: Actualización de dato el 02/01/16, 01:42 pm

Admin

avatar
Admin
Se da por resuelto y se cierra por abandono, norma 5.

Administración

http://www.universoexcelforo.com

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.