Macro que cambie fuente de letra en fila

Quisiera saber si me podrían apoyar; tengo una macro:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 17 Then
On Error GoTo fin
Select Case Target.Value
Case "EN CLIENTE CARGANDO"
Range("A" & LTrim(Str(Target.Row)) & ":Q" & LTrim(Str(Target.Row))).Interior.ColorIndex = 41
Case "CARGADO EN RUTA A LA TERMINAL"
Range("A" & LTrim(Str(Target.Row)) & ":Q" & LTrim(Str(Target.Row))).Interior.ColorIndex = 3
Case "OK"
Range("A" & LTrim(Str(Target.Row)) & ":Q" & LTrim(Str(Target.Row))).Interior.ColorIndex = 0
Case "EN RUTA AL CLIENTE VACIO"
Range("A" & LTrim(Str(Target.Row)) & ":Q" & LTrim(Str(Target.Row))).Interior.ColorIndex = 44
Case "EN ESPERA DE HORARIO"
Range("A" & LTrim(Str(Target.Row)) & ":Q" & LTrim(Str(Target.Row))).Interior.ColorIndex = 50
End Select
End if
fin:
End Sub
La cual como se puede apreciar al escribir cierto texto cambia el color de la fila con el rango de celdas seleccionado; mi duda en si, es como podría modificar también:
1.- El tipo de letra (que en mi caso quisiera que fuera ARIAL)
2.- El tamaño de la letra
3.- Alinear en el medio de la celda en cada una de las mismas en el rango seleccionado
4.- Centrar
5.- Ajustar Texto
Ya lo intente con el Grabador de Macros, y la macro que se me graba hace lo que pido, pero no logro adaptarla a la Macro que ya tengo...

1 Respuesta

Respuesta
1
Cuando a un rango que ya tienes seleccionado necesitas cambiarle más de una propiedad tienes que hacerlo con With Selection y a continuación todos los cambios.
P.ej. para el primer case:
    Case "EN CLIENTE CARGANDO"
        Range("A" & LTrim(Str(Target.Row)) & ":Q" & LTrim(Str(Target.Row))).Select
        With Selection
            .Interior.ColorIndex = 41
            .Font.Name = Arial
            .Font.Size = 10
            .HorizontalAlignment = xlCenter
        End With
Disculpa...
Muchas gracias, es perfecto lo que quería, solo una pequeña duda, al ingresar el Texto que "dispara" la macro, y ya después de que realiza los cambios, se queda seleccionado el rango que se esta utilizando, ¿hay alguna forma para que esto no pase? Y al darle Enter se pase a la siguiente celda (¿de abajo) sin quedar nada más seleccionado?.
De antemano GRACIAS por tu tiempo.
Saludos!
Prueba a incluir la nueva parte en negrita:
 Case "EN CLIENTE CARGANDO"
     Range("A" & LTrim(Str(Target.Row)) & ":Q" & LTrim(Str(Target.Row))).Select
     With Selection
        .Interior.ColorIndex = 41
        .Font.Name = Arial
        .Font.Size = 10
        .HorizontalAlignment = xlCenter
     End With
    Range("Q" & LTrim(Str(Target.Row + 1)) & ":Q" & LTrim(Str(Target.Row + 1))).Select

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Sobre macros en Excel

Me encargaron en la escuela dos ejercicios para hacerlos en excel pero no tengo mucha experiencia haciendo macros,.. ¿Podrías ayudarme? Los ejercicios son los siguientes: ---------- Crea una macro llamada PonerTitulo que realice las siguientes...
1 respuesta

Dar formato a un hoja excel desde VB6

He insertado datos a una hoja excel y necesito darle forma, tengo un dato en dos celdas convinadas, y necesito centrarla horizontal y verticalemente, tengo escrito esto pero no me acepta With XlsLibro.Worksheets(1) .Range("D9:D10").Merge...
1 respuesta

Enviar el BackColor de un MSFlexGrid a Excel

Estoy trabajando en Visual 6.0, tengo un MsflexGrid el cual al darle click en cualquier Celda a alguno de los registros que tiene el Grid cambia de color, pero cuando envío esos datos a Excel, no me manda el color de la celda que había...
1 respuesta

Macros con formatos condicionales

El cual detallo a continuación. Tengo una base de datos de 1000 filas y 25 27 columnas. El punto es que he creado un formato condicional según el cual, si en la celda B8 aparece la letra "i" el rango C8:AA8 se colorea, lo cual se aplica a 2...
1 respuesta

Necesito macro para resaltar una fila

Resulta que tengo una hoja protegida y le he dado formato de fondo azul y letras blancas. La consulta es: ¿Cómo puedo hacer mediante una macro, para destacar la fila cada vez que esté activa una celda de esa fila y esta se destaque con un color...
1 respuesta

Pegado Especial

Tengo un archivo en el cual pego información atra vez de 1 macro y ademas de otras cositas, pero al pegar la información no respeta el formato del archivo y lo pega como lo copie de la otra hoja. Les anexo macro. Lo que deseo es que al ejecurar la...
1 respuesta

Auto ejecutar una macro

Quiero que se autoejecute una macro que tengo en un libro pero no se como ya que soy muy novato, el nombre de la macro es Private Sub Worksheet_Change(ByVal Target As Range).
1 respuesta

Ejecutar una macro al cambiar valor de una celda

Sucede que en una hoja de Excel 2007 tengo un grupo de celdas en donde he validado cada una para que me permita elegir valores de una lista, la idea es que cuando seleccione un item de la lista me escriba automáticamente a través de una macro en una...
1 respuesta

Código colorear rango de celdas

Tengo este código para colorear una fila de celdas al seleccionar cualquiera de ese rango. Mi problema es que al posicionarme en otra fila, la fila antes seleccionada me cambia el color a ninguno. Yo tengo en tres columnas con diferentes formatos (no...
1 respuesta