Modificar la rutina de un buccle para incluir mas datos
Vengo practicando una macro con el uso de buccles. Lo que realiza la rutina es en el cuadro resumen me suma el total M3 por fecha. Es decir, me suma las fechas por día y las totaliza en el cuadro resumen. (Imagen 1) adjunto el código y la imagen.
Sub resumen_diario()
Application.ScreenUpdating = False
Dim fild As Integer
Dim esta As Byte
Dim i As Byte
fild = 2
Range("A2").Select
While ActiveCell.Value <> ""
esta = 0
For i = 3 To fild
If ActiveCell.Value = Cells(i, 4) Then
Cells(i, 5) = Cells(i, 5) + ActiveCell.Offset(0, 1)
esta = 1
Exit For
End If
Next i
If esta = 0 Then
fild = fild + 1
Cells(fild, 4) = ActiveCell
Cells(fild, 5) = ActiveCell.Offset(0, 1)
End If
ActiveCell.Offset(1, 0).Select
Wend
End Sub
Quisiera el apoyo en como podría modificar la rutina si quiero agregarle que sume unidades, según como muestro en la foto
A la espera de su apoyo.
Slds.
Juan Arenas.
1 Respuesta
Respuesta de Dante Amor
1
H o l a:
Te anexo la macro actualizada
Sub resumen_diario()
Application.ScreenUpdating = False
Dim fild As Integer
Dim esta As Byte
Dim i As Byte
fild = 2
Range("A2").Select
While ActiveCell.Value <> ""
esta = 0
For i = 3 To fild
If ActiveCell.Value = Cells(i, 5) Then
Cells(i, 6) = Cells(i, 6) + ActiveCell.Offset(0, 1)
Cells(i, 7) = Cells(i, 7) + ActiveCell.Offset(0, 2)
esta = 1
Exit For
End If
Next i
If esta = 0 Then
fild = fild + 1
Cells(fild, 5) = ActiveCell
Cells(fild, 6) = ActiveCell.Offset(0, 1)
Cells(fild, 7) = ActiveCell.Offset(0, 2)
End If
ActiveCell.Offset(1, 0).Select
Wend
End Sub‘
S a l u d o s . D a n t e A m o r. Recuerda valorar la respuesta. G r a c i a s
