Hace algunos días tuve un pequeño problema copie un texto de de Internet específicamente de Wikipedia a Excel de Microsoft y al momento que ya estaba pegado el texto en las celdas me di cuanta que la mayoría de las palabras tenían links. la verdad es que no me interesaban los link así que empece a borrarlos pero mi sorpresa es que nada mas se puede uno por uno no hay forma de quitar todos en un galón, pero buscando en las red busque encontré una pequeña solución para borrar todos los links. es la siguiente.
(Visual Basic Application).
Te incluiría el archivo con el código pero entiendo que no se ven adjuntos desde la interfaz web de estos grupos. Así que te lo explico:
1) ALT-F11 para abrir el editor de VBA
2) Del menú seleccionar Insertar > Módulo
3) En la ventana que aparece a la derecha tipear lo siguiente
======
Sub BorrarHipervinculos()
Dim myRange As Range
Dim myCell As Range
Dim myNumberFormat As String
Set myRange = Selection
For Each myCell In myRange.Cells
If myCell.Hyperlinks.Count > 0 Then
myNumberFormat = myCell.NumberFormat
myCell.Hyperlinks(1).Delete
myCell.NumberFormat = myNumberFormat
End If
Next myCell
End Sub
======
Ir al menú Archivo > Cerrar y Volver a MS Excel.
Para aplicarlo, pues debes primero seleccionar el rango de celdas en las que quieras borrar los hipervínculos, luego ir a ALT-F8 y ver que aparecere el nombre de "borrarhypervinculos". Ejecutar dicha macro y listo. Debes guardar el libro, para que esa macro se guarde con el libro.
Por supuesto, puedes configurar luego para que esa macro se ejecute con una combinación de teclas.
Te incluiría el archivo con el código pero entiendo que no se ven adjuntos desde la interfaz web de estos grupos. Así que te lo explico:
1) ALT-F11 para abrir el editor de VBA
2) Del menú seleccionar Insertar > Módulo
3) En la ventana que aparece a la derecha tipear lo siguiente
======
Sub BorrarHipervinculos()
Dim myRange As Range
Dim myCell As Range
Dim myNumberFormat As String
Set myRange = Selection
For Each myCell In myRange.Cells
If myCell.Hyperlinks.Count > 0 Then
myNumberFormat = myCell.NumberFormat
myCell.Hyperlinks(1).Delete
myCell.NumberFormat = myNumberFormat
End If
Next myCell
End Sub
======
Ir al menú Archivo > Cerrar y Volver a MS Excel.
Para aplicarlo, pues debes primero seleccionar el rango de celdas en las que quieras borrar los hipervínculos, luego ir a ALT-F8 y ver que aparecere el nombre de "borrarhypervinculos". Ejecutar dicha macro y listo. Debes guardar el libro, para que esa macro se guarde con el libro.
Por supuesto, puedes configurar luego para que esa macro se ejecute con una combinación de teclas.
Mil gracias!
ResponderEliminarGenial!! Gracias gracias!!
ResponderEliminarHey gracias!!! Me salvaste de quitarle a 553 celdas el hipervínculo uno por uno :)!
ResponderEliminar