Visual Basic para Aplicaciones - ACTUALIZAR INVENTARIOS

Life is soft - evento anual de software empresarial
   
Vista:

ACTUALIZAR INVENTARIOS

Publicado por Patricio Romero (10 intervenciones) el 31/05/2009 06:11:45
Estimados

Ojala me pudieran ayudar con lo siguiente:

Tengo en la hoja5 un rango de celdas desde C18 hasta C32 con números que pertenecen a códigos de productos ingresados desde una factura, luego en desde la celda D18 a D32 sus respectivas cantidades.
Tengo en la hoja INVENTARIO en la columna “A” los códigos de todos los productos de bodega con su correspondiente categoría en la columna “B”, su descripción en la columna “C” y su cantidad actual en la columna “D”
Necesito ir buscando cada código que tengo en el rango de C18 a C32 de la hoja5 en la columna “A” de la hoja inventario.
Cuando encuentre el primero (C18) pare en esa fila, cuente hasta la columna “D” y actualice la cantidad.
Luego que busque el segundo (C19), cuando lo encuentre, se detenga es esa fila, cuente hasta la columna que tiene la cantidad y la actualice (siempre será suma, porque estoy ingresando productos)
Y así sucesivamente, hasta leer el ultimo código de artículos en C32.

Agradeciendo su atencion y ayuda.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Visual Basic para Aplicaciones
- Código fuente de Visual Basic para Aplicaciones
- Cursos de Visual Basic para Aplicaciones
- Temas de Visual Basic para Aplicaciones
información
Códigos de Visual Basic para Aplicaciones
- Cajero Automatico
- Buscador para Excel
- Juego del Ahorcado

RE:ACTUALIZAR INVENTARIOS

Publicado por Ing.Zeus Alberto Páez Rentería (26 intervenciones) el 05/06/2009 20:36:23
Espero te sirva presiona en tu hoja de excel abierta presiona ALT + F11 luego dale click derecho al explorador de proyectos y agrega un modulo
en el modulo le copias este codigo y luego cierras la ventana del Visual Basic Editor
Presionas Alt + F11 y corres ACTUALIZARINVENTARIO y LISTO.

Public Sub ACTUALIZARINVENTARIO()
Dim RowIni As Integer
Dim RowEnd As Integer
Dim j as Integer
RowIni = InputBox("Ingresa el renglon donde inicia en el ejemplo C18 renglon 18", "Inicia en el Renglon")
RowEnd = InputBox(" Ingresa el renglon donde termina la revision en tu ejemplo C32", "Renglon donde termina")
j = InputBox(" Ingresa el renglon donde empiezan los codigos del INVENTARIO de la colunma A", "Renglon de Inventario")
For i = RowIni To RowEnd
Do While Not IsEmpty(ThisWorkbook.Sheets("INVENTARIO").Cells(j, 4))
If ThisWorkbook.Sheets(5).Cells(i, 3) = ThisWorkbook.Sheets("INVENTARIO").Cells(j, 1) Then
ThisWorkbook.Sheets("INVENTARIO").Cells(j, 4) = ThisWorkbook.Sheets("INVENTARIO").Cells(j, 4) + ThisWorkbook.Sheets(5).Cells(i, 4)
Exit Do
End If
j = j + 1
Loop
Next i
End Sub

Eng. Zeus Alberto Paez Renteria
Project and Desing Engineer
Triumph Group
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar