Ejecutar macro automáticamente
Buenas, tengo esta macro que se ejecuta automáticamente al meter los datos gracias a usted.
Private Sub Worksheet_Change(ByVal Target As Range)
' Quitar_hipervinculos Macro
'
'
While ActiveCell.Value <> ""
Selection.Hyperlinks.Delete
ActiveCell.Offset(1, 0).Range("A1").Select
Wend
End Sub
Los datos están en el siguiente formato:
2009-02-08 21:53:38: 80.3.251.39 Pepe [?]
2009-02-06 21:54:30: 120.165.89.50 Aster [?]
Me interesaría conseguir que de todo el listado que tengo, me ponga en la celda de al lado cuando el intervalo de horas es menor a 2 minutos.
Y que si se diera el siguiente caso también me lo colocara en la celda de al lado todos los datos:
2009-02-08 02:39:35: 90.6.39.37 Antonio [?]
2009-02-08 21:53:38: 90.6.39.37 Pepe [?]
Estuve probando con la función buscar y las demás que están relacionadas pero no fui capaz de llegar a nada, supongo que habrá que hacerlo con macros y estoy nulo al 100%, busque por la red pero no encontré nada que se le pareciera.
Muchas Gracias anticipadas.
Private Sub Worksheet_Change(ByVal Target As Range)
' Quitar_hipervinculos Macro
'
'
While ActiveCell.Value <> ""
Selection.Hyperlinks.Delete
ActiveCell.Offset(1, 0).Range("A1").Select
Wend
End Sub
Los datos están en el siguiente formato:
2009-02-08 21:53:38: 80.3.251.39 Pepe [?]
2009-02-06 21:54:30: 120.165.89.50 Aster [?]
Me interesaría conseguir que de todo el listado que tengo, me ponga en la celda de al lado cuando el intervalo de horas es menor a 2 minutos.
Y que si se diera el siguiente caso también me lo colocara en la celda de al lado todos los datos:
2009-02-08 02:39:35: 90.6.39.37 Antonio [?]
2009-02-08 21:53:38: 90.6.39.37 Pepe [?]
Estuve probando con la función buscar y las demás que están relacionadas pero no fui capaz de llegar a nada, supongo que habrá que hacerlo con macros y estoy nulo al 100%, busque por la red pero no encontré nada que se le pareciera.
Muchas Gracias anticipadas.
1 respuesta
Respuesta de nandoaule
1