Este codigo es muy útil, gracias por compartir. Una pregunta, es posible utilizar este codigo si el dato a poner en negrita está en una hoja diferente del mismo libro?

Excelente gracias

Excelente ayuda, muchas gracias

Excelente, Mil gracias, bendiciones

Logré ejecutar pantalla completa. Cerré el Excel y cuando vuelva abrir se había reiniciado a su estado origina, pense que se había guardado permanente. Qué se debe hacer para que se guarde permanente el archivo excel con macro asignado para no tener que hacer los pasos que nos muestra cada veslz que habra el archivo.

Excelente... Creo que sería maravilloso que como en la línea de comandos existiera head y Tail para quedarse con los primeros o últimos. Serie más limpio y directo

Saludos, me pueden ayudar en esta duda: ¿Por qué al hacer un Formulario y entre los Datos a Guardar hay Fecha de Ingreso y resulta que en el Formulario se ingresa la Fecha 02/11/2020 y en la Hoja de Excel se registra con Formato mm/dd/yyyy es decir 11/02/2020, lo que ocasiona un problema para Buscar por fecha?

Es un Geniooooo!!!

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, ) Is Nothing Then Dim o As Range, R As Range, B As Range, C As Range Dim celdaActiva As Range Set o = Range("") Set R = Range("") Set B = Range("") Set celdaActiva = ActiveCell Application.EnableEvents = False R.Value = o.Value For Each C In R C.Font.Bold = False For Each bCell In B If InStr(1, C.Text, bCell.Value) > 0 Then posInicial = InStr(1, C.Text, bCell.Value) longitud = Len(bCell.Value) C.Characters(posInicial, longitud).Font.Bold = True End If Next bCell Next C Application.EnableEvents = True If Not celdaActiva Is Nothing Then celdaActiva.Select End If End Sub

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("E3:E5")) Is Nothing Then Dim o As Range, R As Range, B As Range, C As Range Dim palabra As Variant Dim celdaActiva As Range Set o = Range("E18:E22") ' Rango con los datos concatenados Set R = Range("A18:A22") ' Rango resultado Set B = Range("E2:E5") ' Rango con las palabras que se pondrán en negrita Set celdaActiva = ActiveCell Application.EnableEvents = False R.Value = o.Value For Each C In R C.Font.Bold = False For Each palabra In Split(C.Text) ' Separar la concatenación en palabras For Each bCell In B If palabra = bCell.Value Then posInicial = 1 Do While posInicial > 0 ' Continuar buscando la palabra en la celda posInicial = InStr(posInicial, C.Text, palabra) If posInicial > 0 Then longitud = Len(palabra) C.Characters(posInicial, longitud).Font.Bold = True posInicial = posInicial + longitud ' Mover la posición de inicio después de la última ocurrencia End If Loop End If Next bCell Next palabra Next C Application.EnableEvents = True If Not celdaActiva Is Nothing Then celdaActiva.Select End If End Sub

Muchas gracias ! Fácil y bien explicado

=O(FILA()=CELDA("FILA");COLUMNA()=CELDA("COLUMNA")) =CELDA("DIRECCION")=DIRECCION(FILA();COLUMNA()) =FILA()=CELDA("FILA") =COLUMNA()=CELDA("COLUMNA")

Como puedo añadir lo mismo a diferentes tablas de la misma hoja? Muchas gracias

Excelente, funciona, gracias por compartir¡¡¡¡

Me funciona solo hasta determinadas columnas, creo que si son demasiadas ya no las oculta

Hola, ¿cómo hacer para que solo resalte las celdas con valores mayores que cero? Gracias.

Hola no me aparece Alfanumerico

Muchas gracias ❤❤

Que bien, estaba buscando este código, me funcionó bien, pero me genera un error cuando la celda tiene formato de fecha, es decir cuando el valor buscado es una fecha, hay alguna forma de corregir esto?

Hola, disculpa, cómo puedo poner el código si lo quiero usar dos veces en la misma hoja? Intenté copiar y pegar en el mismo módulo cambiando los rangos pero investigando me di cuenta que no se puede usar "Private Sub Worksheet_Change (ByVal Target As Range)" dos veces en el mismo código, qué procede? Espero su respuesta, de antemano gracias

Hola, gracias por el video me ayudo mucho para un trabajo. Tengo una duda, para en el caso de una permutación con valores que no sean números, se puede? De nuevo gracias, espero que pueda ver mi comentario. Saludos!

Sería posible hacer esto mismo en una funcion?

BUENAZO😀

MUY BUEN VIDEO ME VA A SERVIR MUCHO PARA LA ENTRADA Y SALIDA DEL PERSONAL

se puede tambien hacer el mismo procedimiento pero para diferentes hojas de un libro?

alguien sabe como poner negrita a una sola palabra, en una celda que contenga varias palabras en Excel para móviles?

Muchas gracias, muy útil!

Hola genial consulta? Como pones el botón arriba en tus iconos de tus herramientas para ver todoa los comentarios de una vez porfavor

Muchas gracias excelente, tengo una duda si coloco varias observaciones al mismo tiempo me da un error hay posibilidad que si colocas varias observaciones por ejemplo 3 me indique la hora y no sea uno por uno

hola saludos muy buen video, tengo una pregunta ¿si tengo varios campos de "OBSERVACIÒN" como haría para que en ese campos también me tome la fecha y hora cuando coloque un dato?