Necesito hacer una macro que me permita sumar horas
Necesito hacer una macro que busque la primera entrada a la bitácora que tengo, y sume el tiempo que estuvo con un cliente, si hay más entradas de ese mismo cliente también las sume.
Es decir
Existen 5 renglones en la base de datos, y quiero sumar esos registros, pero pueden ser 5 0 6 o 7 o hata 10 registros del mismo cliente. Y quiero sumar ese tiempo. Y si más adelante se encuentra ese mismo cliente, sume de la misma forma y lo agregue a la sumatoria anterior.
No se si me expliqué
1 Respuesta
Respuesta de Dante Amor
1
lo mandé por mail GRACIAS!
H o l a:
Te anexo la macro
Sub SumarHoras()
'Por.Dante Amor
Set h1 = Sheets("datos")
Set h2 = Sheets("bitacora")
Set h3 = Sheets("filtro")
'
u = h2.Range("I" & Rows.Count).End(xlUp).Row
If u < 6 Then u = 6
h2.Range("I6:O" & u).ClearContents
h3.Columns("C:Z").ClearContents
ruta = h2.[B6]
una = True
u = h1.Range("C" & Rows.Count).End(xlUp).Row
h1.Range("C3:U" & u).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=h3.Range("A1:A2"), CopyToRange:=h3.Range("C3"), Unique:=False
'
ant = h3.[K4]
If ant = "" Then
MsgBox "No hay registros"
Exit Sub
End If
'
j = 6
h2.Cells(j, "I") = h3.[K4]
h2.Cells(j, "J") = h3.[F4]
For i = 4 To h3.Range("C" & Rows.Count).End(xlUp).Row + 1
If ant <> h3.Cells(i, "K") Then
h2.Cells(j, "K") = h3.Cells(i - 1, "F")
h2.Cells(j, "L") = h2.Cells(j, "K") - h2.Cells(j, "J")
j = j + 1
h2.Cells(j, "I") = h3.Cells(i, "K")
h2.Cells(j, "J") = h3.Cells(i, "F")
End If
ant = h3.Cells(i, "K")
Next
'
n = 0
wtot = 0
For i = 6 To h2.Range("I" & Rows.Count).End(xlUp).Row
Set b = h2.Columns("N").Find(h2.Cells(i, "I"), lookat:=xlWhole)
If Not b Is Nothing Then
h2.Cells(b.Row, "O") = h2.Cells(b.Row, "O") + h2.Cells(i, "L")
Else
u = h2.Range("N" & Rows.Count).End(xlUp).Row + 1
h2.Cells(u, "N") = h2.Cells(i, "I")
h2.Cells(u, "O") = h2.Cells(i, "L")
n = n + 1
End If
wtot = wtot + h2.Cells(i, "L")
Next
h2.[C6] = n
h2.[F6] = wtot
MsgBox "fin"
End Sub
