Inicio > Microsoft Excel > 230283 > Aplicar una macro que tengo en una celda en otras.

Aplicar una macro que tengo en una celda en otras.

Experto:
Usuario: Anónimo Fecha: 07/11/2009
Valoración: (5,00 sobre 5) Categoría: Microsoft Excel
07/11/2009
Usuario
Hola, buenas, tengo una macro hecha que cuando ingreso un valor en una celda (N8), el formato de las celdas que estan al lado en la misma fila (H8:L8) se modifican dependiendo el valor que ingrese en la celda N8. Quisiera aplicar esta macro para el resto de la columna n es decir que funcione para la celda n9, n10, n11,n12, etc.
Si alguien pudiera ayudarme lo agradeceria.
Muchas gracias
07/11/2009
cv1982, experto respondiendo en Microsoft Excel
Experto
Hola cv1982
Dentro de breves momentos retorno con la respuesta a tu caso. Estoy en ello ahora. No te preocupes.
Christian
 
 
 
 
07/11/2009
cv1982, experto respondiendo en Microsoft Excel
Experto
Hola de nuevo!
Bueno, desconozco en donde esta alojado la macro, si esta en un modulo o en una hoja de calculo.
Hagamos un ejemplo para poder comprender como debera proceder para su caso real.
Abrimos un nuevo libro de Excel y pulsamos ALT+F11. En la parte izquierda esta la ventana "Proyecto". De esa ventana hacer doble click en "Hoja1 (Hoja1)". Es aqui donde alojare la macro. Saldra una ventana en blanco. En ella copia y pega el siguiente codigo VBA.
Private Sub Worksheet_Change(ByVal Target As Range)
Rng = Range("N8:N20")
If Intersect(Range("N8:N20"), Target) Is Nothing Then
Exit Sub
Else
Target.Offset(0, -1).Interior.ColorIndex = 6
End If
End Sub
****
Tu macro solo funciona en una celda. En este caso funcionara para el rango N8:N20. Si deseas prolongar mas el rango puedes hacerlo. La idea de este ejemplo es que al escribir algo en ese rango indicado la celda del lado izquierda de la misma fila se torneara un color amarillo. Si continuas con la otra celda, por decir N9, ocurrira lo mismo.
Espero haberte ayudado en tu caso.
No olvides de finalizar y puntuar la respuesta al final de esta pagina.
Saludos
Christian
 
 
07/11/2009
Usuario
Perfecto, agradezco lo rapido que contestaste. Muchas gracias
Enlaces patrocinados