Crear un Checkbox en una Macro

29/09/2006 - 22:27 por Lucy | Informe spam
Hola, tengo un problema al querer que me muestre un checkbox por medio
de una macro, no sé si no lo estoy definiendo bien o que es lo q me
falta, me podrían ayudar por favor??? mi código es el siguiente:

Public Sub Menu()
With Assistant.NewBalloon
.Heading = "Tablas de Parametros"
.Text = "Selecciona las txt a crear"
For i = 1 To 3
.CheckBoxes(i).Text = "Tabla " & i
Next
.Button = msoButtonSetOkCancel
.Mode = msoModeModeless
.Show
If .CheckBoxes(1).Checked Then
MsgBox "Se crea tbl1 "
CreaTBL
End If
If .CheckBoxes(2).Checked Then
MsgBox "Se crea tbl2"
CreaTBL
End If
If .CheckBoxes(3).Checked Then
MsgBox "Se crea tbl3"
CreaTBL
End If
End With

muchas gracias,
saludos

Preguntas similare

Leer las respuestas

#1 moon
29/09/2006 - 23:49 | Informe spam
"Lucy" schreef in bericht
news:
Hola, tengo un problema al querer que me muestre un checkbox por medio
de una macro, no sé si no lo estoy definiendo bien o que es lo q me
falta, me podrían ayudar por favor??? mi código es el siguiente:

Public Sub Menu()
With Assistant.NewBalloon
.Heading = "Tablas de Parametros"
.Text = "Selecciona las txt a crear"
For i = 1 To 3
.CheckBoxes(i).Text = "Tabla " & i
Next
.Button = msoButtonSetOkCancel
.Mode = msoModeModeless
.Show
If .CheckBoxes(1).Checked Then
MsgBox "Se crea tbl1 "
CreaTBL
End If
If .CheckBoxes(2).Checked Then
MsgBox "Se crea tbl2"
CreaTBL
End If
If .CheckBoxes(3).Checked Then
MsgBox "Se crea tbl3"
CreaTBL
End If
End With

muchas gracias,
saludos



Public Sub Menu()
Dim myBalloon As Balloon
Dim i, x As Integer
Dim y As Object
Set myBalloon = Assistant.NewBalloon
With myBalloon
.Heading = "Regional Sales Data"
.Text = "Select your region"
.Button = msoButtonSetOkCancel
For i = 1 To 3
.CheckBoxes(i).Text = "Tabla " & i
Next
x = .Show
i = 0
Select Case x
Case -1 'Ok
For Each y In .CheckBoxes
i = i + 1
If y.Checked Then
Select Case i
Case 1
MsgBox "Se crea tbl1"
CreaTBL 1
Case 2
MsgBox "Se crea tbl2"
CreaTBL 2
Case 3
MsgBox "Se crea tbl3"
CreaTBL 3
End Select
End If
Next
Case -2 'Cancel.
MsgBox "You clicked Cancel."
End Select
End With
Set y = Nothing
Set myBalloon = Nothing
End Sub


Private Sub CreaTBL(iTabla As Integer)
MsgBox iTabla
End Sub
Respuesta Responder a este mensaje
#2 Gabriel Raigosa
30/09/2006 - 18:12 | Informe spam
Carpeta
Descripción
Dirección

1
** Microsoft Excel *
http://esnips.com/web/GabrielRaigosa

2
Archivos para usar en clase
http://esnips.com/web/RaigosaClase

3
Fechas y Horas
http://esnips.com/web/RaigosaFechasHoras

4
Formato y Formato Condicional
http://esnips.com/web/RaigosaFormatos

5
Foro Excel
http://esnips.com/web/ForoExcel

6
Funciones de Busqueda
http://esnips.com/web/RaigosaBusqueda

7
Funciones de Texto
http://esnips.com/web/RaigosaTexto

8
Funciones Financieras
http://esnips.com/web/RaigosaFinancieras

9
Funciones Logicas
http://esnips.com/web/RaigosaLogicas

10
Graficos con Excel
http://esnips.com/web/RaigosaGraficos

11
Grupo (Sabados)
Privado

12
Grupo (Viernes)
Privado

13
Grupo Excel Septiembre
Privado

14
Juegos con Excel
http://esnips.com/web/RaigosaJuegosExcel

15
Macros con Excel
http://esnips.com/web/Macros-con-Excel

16
Manuales Excel
http://esnips.com/web/RaigosaManuales

17
Paginas WEB
http://esnips.com/web/RaigosaPaginasExcel

18
Practicas - XLS
http://esnips.com/web/RaigosaPracticasXLS

19
Tablas Dinámicas
http://esnips.com/web/RaigosaTablasDinamicas

20
TEST
http://esnips.com/web/GabrielRaigosa-test

21
Validación
http://esnips.com/web/RaigosaValidacion

22
Varios
http://esnips.com/web/RaigosaVarios

23
VBA - Visual Basic para Aplicaciones
http://esnips.com/web/RaigosaVBA


Gabriel Raigosa
http://esnips.com/web/Raigosa
http://esnips.com/web/ForoExcel
"Lucy" escribió en el mensaje
news:
Hola, tengo un problema al querer que me muestre un checkbox por medio
de una macro, no sé si no lo estoy definiendo bien o que es lo q me
falta, me podrían ayudar por favor??? mi código es el siguiente:

Public Sub Menu()
With Assistant.NewBalloon
.Heading = "Tablas de Parametros"
.Text = "Selecciona las txt a crear"
For i = 1 To 3
.CheckBoxes(i).Text = "Tabla " & i
Next
.Button = msoButtonSetOkCancel
.Mode = msoModeModeless
.Show
If .CheckBoxes(1).Checked Then
MsgBox "Se crea tbl1 "
CreaTBL
End If
If .CheckBoxes(2).Checked Then
MsgBox "Se crea tbl2"
CreaTBL
End If
If .CheckBoxes(3).Checked Then
MsgBox "Se crea tbl3"
CreaTBL
End If
End With

muchas gracias,
saludos
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida