H o l a:
La macro actualizada:
Private Sub CheckBox1_Click()
'Por Dante amor http://www.todoexpertos.com/preguntas/6gjby9n8rtox64wr/centrar-formulario-excel-en-pantalla
Dim i
If CheckBox1 Then
' ComboBox1.Name = "comboBox2"
frmLista.Height = 220 '202
frmLista.StartUpPosition = 2 'CENTRAR EL FORMULARIO
frmLista.Show
For i = 1 To 5
Controls("TextBox" & i).Visible = False
Controls("Label" & i).Visible = False
cmbInsertar.Top = 187: cmbCerrar.Top = 185: CheckBox1.Top = 185 ': ComboBox1.Top = 185
Next
For i = 6 To 11
Controls("TextBox" & i).Visible = True
Controls("TextBox" & i) = ""
Controls("Label" & i).Visible = True
Controls("Label" & i).Top = 6
Controls("TextBox" & i).Top = 18
TextBox12.Top = 85: Label12.Top = 73: Label13.Top = 73
TextBox12.Visible = True: Label12.Visible = True: Label13.Visible = True
Next
CheckBox1.Caption = "DESmarca para insertar productos"
'TextBox6.SetFocus
Else
frmLista.Height = 115
frmLista.StartUpPosition = 2
frmLista.Show
For i = 1 To 5
Controls("TextBox" & i).Visible = True
Controls("TextBox" & i) = ""
Controls("label" & i).Visible = True
cmbInsertar.Top = 82: cmbCerrar.Top = 82: CheckBox1.Top = 82 ': ComboBox1.Top = 82
TextBox1.SetFocus
Next
For i = 6 To 12
Controls("TextBox" & i).Visible = False
Controls("TextBox" & i) = ""
Controls("Label" & i).Visible = False
Label13.Visible = False
Next
CheckBox1.Caption = "Marca para insertar datos finales"
End If
End Sub
sal u dos