Jump to content

Color celda y texto antes de escribir


Recommended Posts

Buenos dias,

Necesito ayuda para ver y aprender como modifico algunos detalles sobre la siguiente macro.

Me explico.

He encontrado esta macro por internet y quiero que las celdas tengan un color antes de introducir los datos, para que despues de introducir los datos el formato de las celdas sobre el color de fondo y la fuente quede igual como en toda la plantilla.

Adjunto el documento, para que se haga una idea de lo que pretendo.

Gracias.

Saludos,

COLOR CELDAS.xlsm

Link to post
Share on other sites

Buenos días Alexander,

Muchas gracias por tu aporte.

Hasta tu respuesta yo iba totalmente muy equivovado y con resultados parciales, despues de buscar por internet. Se ve que por no conocer lor terminos es dificil de encontrar respuestas o soluciones.

Antes de dar por solucionado el tema te pediria que eches un vistazo a 2 intrucciones que no veo como colocarlos para que me funciones:

Se trata en cuanto escribo el texto quiero se quede en minusculas o tipo en PROPER.

Case "$D$5": Target = LCase(Target) y

Case "$D$4": Target = Evaluate("=PROPER(D4)")

He intentado colocarlos pero no me va.

Otrav vez muchisimas gracias por tu ayuda.

Adjunto el documento.

Saludos,

COLOR CELDAS (1) Ucase o Lcase.xlsm

Link to post
Share on other sites

Hola Alexander,

He encontrado una solución que creo que me va.

¿Seras tan amable de revisar y decirme si esta correcto lo que he aplicado?

Tambien quiero que me digas si voy de buen camino y si puedo utilizar la misma función para otras celdas - Range("D5").Offset(, 0).Value = LCase(Target)

Saludos,

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now


  • Posts

    • Hola a todos. Estoy buscando la forma de pegar varias gráficas que están en varias pestañas de un excel en unos apartados de word, manteniendo la vinculación de datos de las gráficas con vba. Os mando un ejemplo por si me pudierais ayudar. Gracias!BuscarV (1).xlsx
    • Hola, Con esta formulación funciona siempre y cuando estén siempre todos los datos, como puedes ver si falla alguno de ellos se produce un error. prueba (1).xlsx
    • Hola! Podría valerme esta solución. Muchas gracias!!!
    • DiegoPC saludos y millones de gracias por tu valiosa ayuda amigo.
    • Hola a tod@s Nuevamente solicitando su tiempo para resolver un nuevo caso. Según el archivo "prueba" la celda A2 contiene la siguiente información: Vehículo 2018 BMW X4 2.0 XDrive20I A M Sport Precio $28.000.000 CLP Kilómetros 36.000 km Color blanco bach Body 5 doors 5 seat SUV Litros (motor) 2.0 Cilindros 4 Combustible Bencina Lo particular de esta información de la celda A2 es que está con "Ajuste de texto" o carácter (010) y por cada título o cabecera debajo de esta está la descripción. Por ejemplo: Vehículo es a 2018 BMW X4 2.0 XDrive20I A M Sport Precio es a $28.000.000 CLP Kilómetros es a 36.000 km ... Mencionado lo anterior se necesita extraer la descripción de "Vehículo" en la celda B2 que en este caso es "2018 BMW X4 2.0 XDrive20I A M Sport". En la celda C2 la descripción del "Precio" y así sucesivamente. Saludos   prueba.xlsx
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy