Suma de datos según rango
Publicado por VICTOR (1 intervención) el 28/02/2018 04:07:25
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
If ComboBox1 = "" And ComboBox7 = "" Then
MsgBox "Selecciona una fecha o un nombre"Exit Sub
End If
If ComboBox2 = "" Then ComboBox2 = ComboBox1
Set h1 = Sheets("Hoja2")
h1.AutoFilterMode = False
h1.Range("$A$1:$L$19").AutoFilter Field:=2, _
Criteria1:=">=" & Format(ComboBox1, "mm/dd/yyyy"), Operator:=xlAnd, _
Criteria2:="<=" & Format(ComboBox2, "mm/dd/yyyy")
h1.PrintOut Copies:=1, Collate:=True
h1.AutoFilterMode = False
End Sub
El la Columna 1 están los códigos, en la columna 2 el nombre de los productos, y en la columna 3 el valor de cada producto, lo que necesito es que al seleccionar el producto me sume el total del valor de los productos únicamente seleccionados
Gracias Amigos
Valora esta pregunta
0