Ayuda con la macro
Hola!
Tengo una pregunta, tengo una macro para llenar en una columna 10 fechas y en otra columna otras 10 fechas lo que quiero es que la macro me de la diferencia en días y me lo coloque en otra columna donde corresponde, sin embargo solo he logrado que me arroje los resultados en un cuadro de texto, pero yo los quiero en una columna...
Esto es lo llevo hasta ahorita, ¿qué tengo que modificar?:
Sub Auto_open()
Range("H5:H15").Select
actual = ActiveCell.Value
Range("F5:F15").Select
While ActiveCell.Value <> ""
distancia = ActiveCell.Value
registro = ActiveCell.Value
distancia = registro - actual
registro = distancia
MsgBox ("Quedan " & distancia & " días por transcurrir")
ActiveSheet.Range("J5:J6").Value = (registro)
ActiveCell.Offset(1, 0).Select
Wend
End Sub
Tengo una pregunta, tengo una macro para llenar en una columna 10 fechas y en otra columna otras 10 fechas lo que quiero es que la macro me de la diferencia en días y me lo coloque en otra columna donde corresponde, sin embargo solo he logrado que me arroje los resultados en un cuadro de texto, pero yo los quiero en una columna...
Esto es lo llevo hasta ahorita, ¿qué tengo que modificar?:
Sub Auto_open()
Range("H5:H15").Select
actual = ActiveCell.Value
Range("F5:F15").Select
While ActiveCell.Value <> ""
distancia = ActiveCell.Value
registro = ActiveCell.Value
distancia = registro - actual
registro = distancia
MsgBox ("Quedan " & distancia & " días por transcurrir")
ActiveSheet.Range("J5:J6").Value = (registro)
ActiveCell.Offset(1, 0).Select
Wend
End Sub
1 respuesta
Respuesta de kapapri
1
Sub Auto_open()
For c = 5 To 15
If Range("f" & c).Value - Range("h" & c).Value = 0 Then
Range("J" & c).Value = ""
Else
Range("J" & c).Value = Range("f" & c).Value - Range("h" & c).Value
End If
Next c
End Sub
el cuadro de dialogo te aparece por el comando msgbox.
For c = 5 To 15
If Range("f" & c).Value - Range("h" & c).Value = 0 Then
Range("J" & c).Value = ""
Else
Range("J" & c).Value = Range("f" & c).Value - Range("h" & c).Value
End If
Next c
End Sub
el cuadro de dialogo te aparece por el comando msgbox.
