Macro no se ejecuta en cambio de celda en una columna
publicado
[solucionado]Macro no se ejecuta en cambio de celda en una columna
Buena tarde;
Nuevamente me tomo el atrevimiento de pedir su ayuda ya que estoy atorado y no puedo dar con una solución, mi problema es el siguiente,:
Tengo 8 modulos con 2 rutinas Sub cada uno y quiero que cada una de ellas se ejecute cuando se hagan cambios en las celdas de 8 diferentes columnas, para hacer esto, he puesto este código en la hoja en la que quiero que se ejecute
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Target.Worksheet.Range("L:L")) Is Nothing Then
Call Val_Fecha_3_meses_C1
Call Evitaescritura_3_meses_C1
ElseIf Not Intersect(Target, Target.Worksheet.Range("N:N")) Is Nothing Then
Call Val_Fecha_6_meses_C1
Call Evitaescritura_6_meses_C1
ElseIf Not Intersect(Target, Target.Worksheet.Range("P:P")) Is Nothing Then
Call Val_Fecha_9_meses_C1
Call Evitaescritura_9_meses_C1
ElseIf Not Intersect(Target, Target.Worksheet.Range("R:R")) Is Nothing Then
Call Val_Fecha_12_meses_C1
Call Evitaescritura_12_meses_C1
ElseIf Not Intersect(Target, Target.Worksheet.Range("T:T")) Is Nothing Then
Call Val_Fecha_18_meses_C1
Call Evitaescritura_18_meses_C1
ElseIf Not Intersect(Target, Target.Worksheet.Range("V:V")) Is Nothing Then
Call Val_Fecha_24_meses_C1
Call Evitaescritura_24_meses_C1
ElseIf Not Intersect(Target, Target.Worksheet.Range("X:X")) Is Nothing Then
Call Val_Fecha_30_meses_C1
Call Evitaescritura_30_meses_C1
ElseIf Not Intersect(Target, Target.Worksheet.Range("Z:Z")) Is Nothing Then
Call Val_Fecha_36_meses_C1
Call Evitaescritura_36_meses_C1
End If
End Sub[/CODE]
mi problema es que esta sección no se ejecuta completa
[CODE]ElseIf Not Intersect(Target, Target.Worksheet.Range("X:X")) Is Nothing Then
Call Val_Fecha_30_meses_C1
Call Evitaescritura_30_meses_C1
ElseIf Not Intersect(Target, Target.Worksheet.Range("Z:Z")) Is Nothing Then
Call Val_Fecha_36_meses_C1
Call Evitaescritura_36_meses_C1[/CODE]
Haga lo que haga en las columnas X y Z, no me arroja mensajes, no borra el contenido cuando debe hacerlo, debo resaltar que en todas las demás columnas todo funciona perfectamente, no sé si haya un límite en cuanto a la función Not intersect o si la estoy empleando mal, ya que he probado el código de los dos módulos correspondientes solos en un libro nuevo y funcionan sin problema.
Anexo el archivo para una mejor referencia
De antemano agradeceré cualquier idea o ayuda que puedan brindarme.
[solucionado]Macro no se ejecuta en cambio de celda en una columna
Buena tarde;
Nuevamente me tomo el atrevimiento de pedir su ayuda ya que estoy atorado y no puedo dar con una solución, mi problema es el siguiente,:
Tengo 8 modulos con 2 rutinas Sub cada uno y quiero que cada una de ellas se ejecute cuando se hagan cambios en las celdas de 8 diferentes columnas, para hacer esto, he puesto este código en la hoja en la que quiero que se ejecute
mi problema es que esta sección no se ejecuta completa
Call Val_Fecha_30_meses_C1
Call Evitaescritura_30_meses_C1
ElseIf Not Intersect(Target, Target.Worksheet.Range("Z:Z")) Is Nothing Then
Call Val_Fecha_36_meses_C1
Call Evitaescritura_36_meses_C1[/CODE]
Haga lo que haga en las columnas X y Z, no me arroja mensajes, no borra el contenido cuando debe hacerlo, debo resaltar que en todas las demás columnas todo funciona perfectamente, no sé si haya un límite en cuanto a la función Not intersect o si la estoy empleando mal, ya que he probado el código de los dos módulos correspondientes solos en un libro nuevo y funcionan sin problema.
Anexo el archivo para una mejor referencia
De antemano agradeceré cualquier idea o ayuda que puedan brindarme.
Saludos
Calendario Proyecto 1.zip