Ejecutar dependiendo valor Combobox

[yordin]

tengo en un form de visual 6.0  un combobox el cual tiene 4 items (planilla1, planilla2 planilla3 y planilla4) tengo un botón en el cual quiero agregar que al darle click al buton en el cual quiero que ejecute un código dependiendo de la planilla seleccionada en el bombo ejemplo di es la planilla 1 ejecute el código plani1, planilla dos y ejecute plani2 y así sucesivamente.

[Haplox]

Hace 40 minutos , yordin dijo:

tengo un botón en el cual quiero agregar que al darle click al buton en el cual quiero que ejecute un código dependiendo de la planilla seleccionada en el bombo

Ni siquiera te haría falta el botón, el ejmplo para uno de ellos
 

Private Sub ComboBox1_Change()

If ComboBox1="Planilla1" Then
	Call macro1
End if

 

[yordin]

Hace 24 minutos , Haplox dijo:

Ni siquiera te haría falta el botón, el ejmplo para uno de ellos
 

Private Sub ComboBox1_Change()

If ComboBox1="Planilla1" Then
	Call macro1
End if

 

el detalle es que el combo esta mostrando los datos dependiendo los parámetros enviados desde las opciones del programa, si desde el programa se le solicita planillas muestre planillas, si es estados mostrara estados y así, cuando son estados no genera código al seleccionarlos sino opción a filtro en un grid, y cuando son planillas quería desde el botón imprimir según plantilla seleccionada en el combo.

[Haplox]

Hace 2 minutos , yordin dijo:

y cuando son planillas quería desde el botón imprimir según plantilla seleccionada en el combo.

¿Pero eso lo ejecutas desde una macro (el elegir la plantilla)? Pues entonces ese código iría en el botón:

Private Sub OptionButton1_Click()

If ComboBox1="Planilla1" Then
	Call macro1
End if

[yordin]

Hace 29 minutos , Haplox dijo:

¿Pero eso lo ejecutas desde una macro (el elegir la plantilla)? Pues entonces ese código iría en el botón:

Private Sub OptionButton1_Click()

If ComboBox1="Planilla1" Then
	Call macro1
End if

 

seria algo asi:

 

 

 

Private Sub cmdExportar_Click()

 
If cmbPlantilla = "Constancia de Trabajo" Then
    Call ExportarConstancia
    
    If cmbPlantilla = "Medicinas / Estudios" Then
    Call ExportarPlantillaMedicinas
    
    If cmbPlantilla = "Correo Egreso" Then
    Call ExportarPlantillaCorreo
    
    If cmbPlantilla = "Anticipo de Prestaciones" Then
    Call ExportarPlantillaAnticipos
    
    If cmbPlantilla = "Evaluacion Medica" Then
    Call ExportarPlantillaEvaMedica
    
     If cmbPlantilla = "Reporte 14-52" Then
    Call ExportarPlantilla1452
    
    If cmbPlantilla = "Reporte 14-100" Then
    Call ExportarPlantilla14100
 
 

End Sub

[Haplox]

Hace 13 horas, yordin dijo:

seria algo asi: 

¿preguntas o afirmas? Si seria asi si te he entendido bien

[yordin]

El detalle estaba en que el visual hacia interferencia las minusculas y mayusculas en los datos del código

quedo así:

Private Sub cmdExportar_Click()
If lblCriterio.Caption = "" Then
MsgBox "Debe seleccionar un registro para exportar"
Exit Sub
End If
If Me.cmbPlantilla.Text = "" Then
MsgBox "Debe seleccionar un Documento para exportar"
Exit Sub
End If
If UCase(Me.cmbPlantilla.Text) = UCase("Constancia de Trabajo") Then
Call exportarconstancia
ElseIf UCase(Me.cmbPlantilla.Text) = UCase("Medicinas / Estudios") Then
Call exportarplantillamedicinas
ElseIf UCase(Me.cmbPlantilla.Text) = UCase("Correo Egreso") Then
Call exportarplantillacorreo
ElseIf UCase(Me.cmbPlantilla.Text) = UCase("Anticipo de Prestaciones") Then
Call exportarplantillaanticipos
ElseIf UCase(Me.cmbPlantilla.Text) = UCase("Evaluacion Medica") Then
Call exportarplantillaevamedica
ElseIf UCase(Me.cmbPlantilla.Text) = UCase("Reporte 14-52") Then
Call exportarplantilla1452
ElseIf UCase(Me.cmbPlantilla.Text) = UCase("Reporte 14-100") Then
Call exportarplantilla14100
End If
iniciagrid
End Sub