Código de Visual Basic para Aplicaciones - Macro para sumar solo cierto items en un inventario

Imágen de perfil
Val: 21
Ha aumentado su posición en 29 puestos en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Macro para sumar solo cierto items en un inventariográfica de visualizaciones


Visual Basic para Aplicaciones

Publicado el 4 de Julio del 2019 por Ana Zelideth
711 visualizaciones desde el 4 de Julio del 2019
En esta macro tenemos una tabla con 7 columnas que tiene tiene los títulos

La macro recorre la tabla y suma el valor de inventario del proveedor Kato, se puede ajustar para que busque el nombre de otro proveedor

Item QTY inventory Type Supplier Qty min Qty Max UnitPrice
Libro1 345 VN A 97 247 245
Libro2 475 VN B 764 914 296
Libro3 780 VN A 798 948 247
Libro4 945 VN B 500 650 55
Libro5 717 VN A 782 932 37
Libro6 183 VN B 174 324 282
Libro7 754 VN A 434 584 203
Libro8 916 VN B 782 932 244
Libro9 967 VN A 153 303 199
Libro10 498 VN B 79 229 151
Libro11 448 VN A 496 646 180
Libro12 493 VN B 575 725 152
Libro13 138 VN A 624 774 192
Libro14 718 VN B 505 655 46
Hojas carta 24 MA A 553 703 38
Hojas oficio 576 MA KATO 864 1014 28
Papel Cascaron 963 MA A 365 515 1
folders 514 MA KATO 698 848 22
grapas 155 MA A 637 787 29
pegamento 409 MA B 984 1134 10

macro

Requerimientos

Excel y Tabla con datos

1.0

Publicado el 4 de Julio del 2019gráfica de visualizaciones de la versión: 1.0
712 visualizaciones desde el 4 de Julio del 2019
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton1_Click()
Dim Fila, Fila2, cont As Integer
Fila = 2
cont = 0
Do While Cells(Fila, "A") <> ""
  If Cells(Fila, "c") = "MA" And Cells(Fila, "D") = "KATO" _
  Then cont = cont + (Cells(Fila, "b") * Cells(Fila, "g"))
  Fila = Fila + 1
Loop
 
MsgBox "Total " & cont
End Sub



Comentarios sobre la versión: 1.0 (0)


No hay comentarios
 

Comentar la versión: 1.0

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s5399