Hola expertos. Esta macro. Private Sub cmbInsertar_Click() 'Obligar a llenar las cajas del 6 al 9 Dim vcs, vtx, i, LastRow Private Sub cmbInsertar_Click() 'Obligar a llenar las cajas del 6 al 9 Dim vcs, vtx, i, LastRow 'xxxxxxxxxxxxxxxxxxxxxxxxxxxx vcs = Array("TextBox6", "Textbox7", "Textbox8", "Textbox9") vtx = Array("CANTIDAD", "# DE PRODUCTO", "DESCRIPCION DEL PRODUCTO", "# DE PAGINA") For i = LBound(vcs) To UBound(vcs) If Me.Controls(vcs(i)) = Empty Then MsgBox "DEBES INTRODUCIR: " & vtx(i), vbExclamation, "LLENAR LISTA" Exit Sub End If Next 'xxxxxxxxxxxxxxxxxxxxxxxxx 'Inserta datos en la hoja Range("C8").Value = TextBox1.Value Range("E8").Value = TextBox2.Value Range("D9").Value = TextBox3.Value Range("G9").Value = TextBox4.Value Range("K9").Value = TextBox5.Value Range("D49").Value = TextBox10.Value Range("I8").Value = TextBox11.Value ' LastRow = Range("b" & Rows.Count).End(xlUp).Row Range("B" & LastRow + 1).Value = TextBox6.Value Range("C" & LastRow + 1).Value = TextBox7.Value Range("D" & LastRow + 1).Value = TextBox8.Value Range("J" & LastRow + 1).Value = TextBox9.Value Range("K" & LastRow + 1).Value = TextBox12.Value ' TextBox1 = "": TextBox2 = "": TextBox3 = "": TextBox4 = "": TextBox5 = "": _ TextBox6 = "": TextBox7 = "": TextBox8 = "": TextBox9 = "": TextBox10 = "": TextBox11 = "" TextBox6.SetFocus End Sub La parte que esta entre X quiero meterla via CALL o otro metodo en event de un CheckBox, ESTE: [code]Private Sub CheckBox1_Click() Dim i, tbs If CheckBox1 = True Then frmLista.Height = 280 ' frmLista.StartUpPosition = 1 For i = 6 To 9 Controls("TextBox" & i).Enabled = False Controls("TextBox" & i) = "" Next Else frmLista.Height = 100 'frmLista.Top = 220 For i = 6 To 9 Controls("TextBox" & i).Enabled = True Next tbs = Array(1, 2, 3, 4, 5, 10) For i = LBound(tbs) To UBound(tbs) Controls("TextBox" & tbs(i)) = "" Next End If End Sub Para que si marco (True) en checkBox, esa parte de la macro se desactive, si esta DESmarcado (False) Active la parte esa, para que funcione o no con el buton Private Sub cmbInsertar_Click() tal como hasta ahora. Ya intente con varias opciones pero no me sale que funcione. Creando en un Módulo solo esa parte y llamandola con un Call pero, si llama pero, la macro del buton ¿para que no llame (desactivarla)?. He intentado pero con un o mas metodos tipo indio, (como se dice acá, que me perdonen los Indios a los cuales respecto como seres humanos que son) . Podia alguien decirme o mostrarme como hacer? Adjunto libro

Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis Ingresar

JavaScript está desactivado. Para una mejor experiencia, por favor active JavaScript en su navegador antes de continuar.

Neutralisar/Activar parte de macro

Autor del tema JoaoM
Fecha de inicio 1 Nov 2015

JoaoM

Member

1 Nov 2015

Hola expertos. Esta macro.

Código:

Private Sub cmbInsertar_Click()
'Obligar a llenar las cajas del 6 al 9
    Dim vcs, vtx, i, LastRow

[code]Private Sub cmbInsertar_Click()
'Obligar a llenar las...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

Iniciar sesión o registrarme para responder aquí.

Temas similares

Resuelto

Cómo activar la función UNDO desde una macro

Respuestas: 4

28 Feb 2026

Yosue0056

Resuelto

código vba para activar y desactivar la celda de enfoque

Respuestas: 5

18 Mar 2025

juan tr

Pregunta

Activar hoja oculta desde macros

Respuestas: 4

23 Mar 2025

Baladrón

Pregunta

Código para activar NumLetras sin necesidad de complemento

Respuestas: 8

4 Feb 2025

Dipa

Pregunta

Activar datos Excel a Word sin que pida autorización

Respuestas: 2

20 Nov 2024

steixidor

Pregunta

Macro para activar filtro en todas las hojas y para quitarlo

Respuestas: 16

11 Nov 2024

dcbsant

Pregunta

Se pueden activar Macros de un complemento de Excel o solo funciona con UDFs?

Respuestas: 2

24 Oct 2024

Abraham.Valencia

Pregunta

Activar Checkbox segun valor celda

Respuestas: 3

15 Ago 2024

Macro Antonio

Pregunta

ayuda en activar Las macros

Respuestas: 1

3 Jul 2024

JasallBcn

Pregunta

Desactivar msg box

Respuestas: 2

13 Feb 2024

mvzrurp

Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Correo electrónico Enlace

Bienvenido a nuestro foro Excel 👋

Tenemos 135.000 usuarios registrados,
y 240.000 preguntas y respuestas Excel.

Primero 👉 regístrate gratis aquí 👈
para ver contenidos y descargas
sin restricciones!

Este sitio usa cookies para ayudar a personalizar el contenido, adaptar su experiencia y mantenerlo conectado si se registra.
Al continuar usando este sitio, usted está consintiendo nuestro uso de cookies.

Aceptar Saber más…

Volver

Arriba