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.]

ulukai2


Amigos e buscado en el foro y no consigo una solución para esto, debe ser que es algo realmente sencillo y me estoy enredando.

Adjunto un Archivo de Ejemplo.


En la Columna B,D,F,H..... (estan verde), tengo un acumulado de material

En la Columna C,E,G,I.......(Estan en Naranja), Tengo lo que se va consumiendo en esa semana, la cual voy llenando todas los dias o ultimo dia de la semana, segun me convenga.

Necesito una macro que haga una suma del valor correspondiente a la Columna B (Acumulado) con el Valor que en este caso corresponde al de la Columna C (lo que voy llenando) y ese resultado se Actualice en el valor acumulado (Columna B) y coloque un cero en el valor de la Columna C, para asi volver actualizar a la semana siguiente nuevos valores.

eso debe aplicar para todas las parejas de item de (color verde con Naranja)

Pd. me refiero a los colores para tener una mejor visualizacion del ejemplo , los colores no significa nada
Pd2. tambien debo recalcar que los item de materiales se van añadiendo nuevos materiales cada semana, por eso la macro debe ampliar su rango

Agradecido , por la ayuda o la sugerencia de como se puede hacer esto.
Archivos
Ejemplo.xlsx
No tienes los permisos para descargar los archivos.
(73 KB)

jhon1904

avatar
Hola ulakai2

me gustaría colaborarle  con lo que necesitas pero no te he podido comprender muy claramente la necesidad, espero puedes ser un poco mas explicito.

saludos


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

SAKKAR

avatar
Estimado, espero te encuentres bien.

Te dejo publicada la solución a tu problema. La misma está resuelta para el PRIMER y SEGUNDO par de columnas... el resto, debes completarlo vos, repitiendo la lógica que aparece en el código. Esto es MUY IMPORTANTE, ya que es la única forma que entenderás que es lo que hice y podrás ALUCINARTE con aprender VBA...  y aparte porque no voy a hacer yo todo el trabajo  Shocked

OBVIO que hay un loop mucho más compacto y funcional, pero este, aunque largo, te enseñará la forma.

Si te ha servido, por favor CIERRA EL HILO!!

te adjunto archivo FUNCIONAL y tambien dejo pegado aqui el código

Private Sub CmdAccion1_Click()

'INICIA SIEMPRE EN CELDA B7
Sheets("MATERIALES").Range("B7").Select

'INICIALIZA VARIABLES
NUEVO1 = 0
NUEVO2 = 0

'ESTE CICLO HACE QUE AUNQUE LAS FILAS VARIEN EN MAS O MENOS,
'MIENTRAS TENGA DATO LA COLUMNA A SIGUE CALCULANDO
While ActiveCell.Offset(0, -1).Value <> ""

'PRIMER PAR DE COLUMNAS
    NUEVO1 = ActiveCell.Value + ActiveCell.Offset(0, 1).Value
    ActiveCell.Value = NUEVO1
    ActiveCell.Offset(0, 1).Value = 0

'SEGUNDO PAR DE COLUMNAS
    NUEVO2 = ActiveCell.Offset(0, 2).Value + ActiveCell.Offset(0, 3).Value
    ActiveCell.Offset(0, 2).Value = NUEVO2
    ActiveCell.Offset(0, 3).Value = 0
    
'BAJA UNA FILA DEL LISTADO
    ActiveCell.Offset(1, 0).Select
Wend

End Sub
Archivos
EjemploResuelto.xlsm
No tienes los permisos para descargar los archivos.
(85 KB)

Igtelo

avatar
Resuelto y se cierra por abandono.

Ignacio Téllez

Contenido patrocinado


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.