Forums

Estimados,  Les vengo con una nueva consulta. Seguramente sea sencillo para alguno de ustedes: Tengo una tabla como la del siguiente ejemplo Para cada columna (animal), quiero calcular el tiempo (como resta de fechas) que le lleva a cada animal  pasar del estado inicial (primer valor distinto de cero) al estado final (ultimo valor distinto de cero): Ejemplo animal 41689: pasar del estado inicial (3, el 1/1/2018) al estado final (6, el 1/9/2018): 243 días Ejemplo animal 41995: pasar del estado inicial (3.5, el 1/2/2018) al estado final (4.5 el 1/7/2018): 150 días Agradezco mucho su ayuda con esto!   41689 41995 1/1/2018 3 0 1/2/2018 0 3,5 1/3/2018 0 0 1/4/2018 3 4 1/6/2018 0 0 1/7/2018 0 4,5 1/9/2018 6 0 1/10/2018 0 0       Resta de fechas 243 150  

Perfecto Gracias. Salud2...

joe muchas gracias   me obsesioné poniendo .Range  en vez de coma, y también con el rango de la celda   Muchas gracias

Prueba así: Code128 20, 20, 20, 1.1, ThisWorkbook.ActiveSheet, Range("A1")  

Prueba esto Sub ActualizaExistencias() Dim c As Range, Registros As Object Dim celda Set c = Hoja1.Range("D3:F" & Hoja1.Range("c" & Rows.Count).End(xlUp).Row) c.ClearContents On Error Resume Next Set Registros = CreateObject("Scripting.Dictionary") Set c = Hoja3.Range("B3:B" & Hoja1.Range("B" & Rows.Count).End(xlUp).Row) For Each celda In c With celda If CInt(.Offset(, 6)) > 0 Then Registros.Add .Text & .Offset(, 1).Text & "@" & _ .Offset(, 2).Text & "@" & .Offset(, 3).Text, .Offset(, 6).Text End If End With Next Set c = Hoja1.Range("B3:B" & Hoja1.Range("B" & Rows.Count).End(xlUp).Row) For Each celda In c With celda For Each key In Registros.Keys Dim mArray mArray = Split(key, "@") If mArray(0) = .Text & .Offset(, 1).Text Then .Offset(, 2).Value = mArray(1) .Offset(, 3).Value = mArray(2) .Offset(, 4).Value = Registros(key) Registros.Remove (key) Exit For End If Next key End With Next Set Registros = Nothing MsgBox "Existencias actualizadas" End Sub