Como hacer que se ejecute una macro bajo la condición del valor de una Celda
Buenos días, tengo varias macros (25) las cuales se ejecutan dependiendo del valor de valor que tenga la celda A1..... A25, por ejemplo:
si el valor de A1=1 que ejecute la macro call Registro 1
si el valor de A2=1 que ejecute la macro call Registro 2
si el valor de A3=1 que ejecute la macro call Registro 3... Asi hasta la 25, esa condición debería detener el llamado de macros cuando consiga que en la celda A =0, por ejemplo:
si el valor de A1=1 que ejecute la macro call Registro 1
si el valor de A2=1 que ejecute la macro call Registro 2
si el valor de A3=0 que deje de buscar las siguientes A4 A5 (ya que el 0 indicaría que es la ultima macro que se va a ejecutar ese dia.
Gracias AW
1 Respuesta
La siguiente podría ser una opción.
Sub registro()
'Ejecuta macros
For i = 1 To 25
If Cells(i, 1) = 1 Then
Select Case i
Case 1
Call registro1
Case 2
Call registro2
Case 3
Call registro3
Case 4
Call registro4
'poner las llamadas a las macros restantes
End Select
Else
If Cells(i, 1) = 0 Then
Exit For
End If
End If
Next
End SubSaludos.dam
Si es lo que necesitas.
