Necesito adicionar a una macro un condicional para correrla

publicado el 24 de abril12 años

tengo unas macros creadas depende de la info que tengo corro una u otra.

pero quiero que si por error preciono la que no necesitaba, la macro no corra

gracias por la ayuda

Tavo09

publicado el 24 de abril12 años

Hola, tavo09. En realidad es un tanto sencillo lo que requieres. En el archivo .xlsm que se haya en el .zip adjunto tienes el código que describo en las líneas de abajo.

En primer lugar te diré que deseché las 3 autoformas que tienes en la hoja, porque por experiencia en este mismo foro, ya he visto que pueden presentarse problemas en algún aspecto de VBA cuando asocias una macro a una autoforma. Si deseas indagar sobre estos problemas puedes consultar mis comentarios en este post:

https://www.ayudaexcel.com/foro/macros-programacion-vba-10/problema-al-cerrar-libro-excel-macro-appcras-office12-crash-28767/

Vamos al grano.

En lugar de las 3 autoformas, he colocado 3 botones de comando (CommandButton). Este este es el código que debes agregarle al botón para la macro cuando código de compañía es 100, he empleado el evento CLIK del botón:

Private Sub CommandButton1_Click()

Dim strCodigoCompañia As String

strCodigoCompañia = Range("C2").Value

If strCodigoCompañia = "100" Then

' Escribe aquí el resto del código, tu código para resolver lo que necesitas (código de tu macro)

End If

End Sub

Todo este código puedes verlo en el Editor de Visual Basic de Excel, haciendo doble click en la hoja "DATA", al lado izquierdo en el explorador de proyectos.

De manera parecida, agrega un código similar a los eventos CLICK de los botones restantes. A continuación te muestro dicho código:

Private Sub CommandButton2_Click()

Dim strCodigoCompañia As String

strCodigoCompañia = Range("C2").Value

If strCodigoCompañia = "101" Then

' Escribe aquí el resto del código, tu código para resolver lo que necesitas (código de tu macro)

End If

End Sub

Private Sub CommandButton3_Click()

Dim strCodigoCompañia As String

strCodigoCompañia = Range("C2").Value

If strCodigoCompañia = "102" Then