.
Bien, adentrándonos en el tema, el ejemplo lo que hace es determinar en primer lugar todo el rango usado, una vez que se seleccionó, se procede a recorrer todas las celdas del rango marcado, coloreando la celda con rojo en caso que la misma contenga una fórmula, a su vez se van contando las celdas con fórmula, usando la variable al final para informar la cantidad de celdas con fórmula que existen en el rango usado, por último sale un msgbox que informa la cantidad de celdas con fórmula encontradas
Para probar el ejemplo basta con presionar el botón que está en la hoja, si quieres probar otras celdas escribe las fórmulas donde quieras y presiona el botón, solo de determina el rango de datos y las celdas donde buscar si tienen fórmulas en su interior; el código lo encontrarás más abajo y al final el link para descargar el ejemplo si lo requieres..
if (payload.eventType == ‘subscribe’) {
// Add code to handle subscribe event.
} else if (payload.eventType == ‘unsubscribe’) {
// Add code to handle unsubscribe event.
}
if (window.console) { // for debugging only
window.console.log(‘YT event: ‘, payload);
}
}
Código que se inserta en un módulo
Sub HayForm()
ActiveSheet.UsedRange.Select
Selection.Interior.Color = xlNone
For Each cell In Selection
If cell.HasFormula Then
cell.Interior.Color = 255
conta = conta + 1
End If
Next cell
MsgBox («Existen » & conta & » formulas en todo el rango usado»), vbInformation, «AVISO»
End Sub
.
If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.
Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends