EJECTUTAR UNA MACRO SEGUN EL VALOR QUE LE DOY A UNA CELDA

Que tal...

revisa este codigo para ver si te funciona...

Agregalo al codigo de la HOJA donde lo utilizas


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim celda, rango As Range

Set rango = Range("N62:N65")
On Error Resume Next
For Each celda In rango
If celda.Value = "" Then Resume Next
If celda.Value = "C0" Then Call macro1
If celda.Value <> "" And celda.Value <> "C0" Then Call Macro2

Next
Range(Target).Select

End Sub



Saludos ...
Manny_90




"bart" wrote:

Hola a todos:
Alquien me puede ayudar.Me explico. Si a alguna de las celdas que van desde
N62 hasta N250, le doy un valor distinto a <>"C0" que se ejecute una macro,
y si le doy valor a = "C0" que se ejecute otra macro.

Saludos a todos

Gracias por todo Manny. Me equivoque en que el rango no era N62:N250, sino
K62:K250.Habia comentado que si el valor que le das a una col/fila que esta
entre k62:k250,es ="C0", llamase a una macro(le diremos macro1 a partir de
ahora)., ESta macro1 tiene que hacer lo siguiente: Desproteger la hoja en la
que estoy, y desde la columna en que estamos , que desactive el boton
bloqueada (Formato/proteger/bloqueada) desde la fila N a R. y posteriormente
que protega la hoja otra vez con la clave "110187".
El otro caso era si el valor entrado a la fila K fuese distinto de C0.
Tiene que llamar a la mAcro2 y tiene que hacer lo siguiente.Desproteger la
hoja en la que estoy y copiar las formulas que estan desde la col/fila N256 a
R256 a la fila en la cual estamos situados desde N A R. A continuacion que
proteja la hoja de nuevo.
SerIa interesante Manny que la macro que me has pasado ESuviese separadA de
las MACRO 1 Y 2, porque puedo aplicar estas macros para otras utilidades.
Gracias de antemano. Si tuvierias alguna duda mi e-mail es
Os agradecería , me pudieséis solucionar este
problema.

Saludos, Bart

"Manny_90" escribió:

Que tal...

revisa este codigo para ver si te funciona...

Agregalo al codigo de la HOJA donde lo utilizas


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim celda, rango As Range

Set rango = Range("N62:N65")
On Error Resume Next
For Each celda In rango
If celda.Value = "" Then Resume Next
If celda.Value = "C0" Then Call macro1
If celda.Value <> "" And celda.Value <> "C0" Then Call Macro2

Next
Range(Target).Select

End Sub



Saludos ...
Manny_90




"bart" wrote:

> Hola a todos:
> Alquien me puede ayudar.Me explico. Si a alguna de las celdas que van desde
> N62 hasta N250, le doy un valor distinto a <>"C0" que se ejecute una macro,
> y si le doy valor a = "C0" que se ejecute otra macro.
>
> Saludos a todos