Jump to content
Leopoldo Blancas

Eliminar Todos los Formularios.

Recommended Posts

Buenas tardas a Todos,

Necesito ayuda para poder eliminar todos los formularios que hay en mi proyecto de VBA, ya que  en las pruebas que hago, genero formularios y llegan a ser hasta 30 y los tengo que eliminar uno por uno, ya que no veo la forma de eliminarlos todos juntos. Ya vi en la WEB y no encuentro macro o procedimiento alguno. 

Alguna idea?

Gracias.

Share this post


Link to post
Share on other sites

Hola

Mira esto que está basado en una idea del gran "Chip" Pearson (qepd):

Sub BorarUserforms()

Dim VBComp As VBIDE.VBComponent
Dim VBProj As VBIDE.VBProject

Set VBProj = ActiveWorkbook.VBProject

For Each VBComp In VBProj.VBComponents
    If VBComp.Type = vbext_ct_MSForm Then
        VBProj.VBComponents.Remove VBComp
    End If
Next VBComp

End Sub

Saludos

Abraham Valencia

PD: Activar la referencia a "Microsoft Visual Basic For Applications Extensibility 5.3"

Edited by avalencia

Share this post


Link to post
Share on other sites

OK,   Si me sirve... con un For, pero como saber el número de Formularios???

Saludos.

Hace 4 minutos , avalencia dijo:

Hola

Mira esto que está basado en una idea del gran "Chip" Pearson (qepd):

Sub BorarUserforms()

Dim VBComp As VBIDE.VBComponent
Dim VBProj As VBIDE.VBProject

Set VBProj = ActiveWorkbook.VBProject

For Each VBComp In VBProj.VBComponents
    If VBComp.Type = vbext_ct_MSForm Then
        VBProj.VBComponents.Remove VBComp
    End If
Next VBComp

End Sub

Saludos

Abraham Valencia

Excelente... ya me ahorre un FOR...

Gracias.

Share this post


Link to post
Share on other sites
Hace 25 minutos , Gerson Pineda dijo:

Te adjunto un ejemplo

 

Saludos 

Eliminar formularios o modulos_GP.xlsm

Gracias @Gerson Pineda, pero lo que ahorita necesito es borrar todos los formularios, la solución que me dio avalencia esta perfecta, claro que la de Antoni y la tuya es buena cuando queremos borrar ciertos Formularios o Módulos.

Gracias.

TEMA SOLUCIONADO.

Share this post


Link to post
Share on other sites
Hace 13 horas, Leopoldo Blancas dijo:

Gracias @Gerson Pineda, pero lo que ahorita necesito es borrar todos los formularios, la solución que me dio avalencia esta perfecta, claro que la de Antoni y la tuya es buena cuando queremos borrar ciertos Formularios o Módulos.

Gracias.

TEMA SOLUCIONADO.

Yo había dado por supuesto que tu nivel llegaba para completar el resto, pero parece que no. :P

Share this post


Link to post
Share on other sites
Hace 8 horas, Antoni dijo:

Yo había dado por supuesto que tu nivel llegaba para completar el resto, pero parece que no. :P

Lo que se me ocurrió hacer con tu aportación es hacer un FOR con los nombres de los formularios y también los Elimina, ya que si pongo "Formularios" me da ERROR y no lo elimina. Por eso dije:

 

Hace 21 horas, Leopoldo Blancas dijo:

Excelente... ya me ahorre un FOR...

Y no me imagino otra solución con tu aportación.

Y TE RECUERDO QUE MI NIVEL ES DE APRENDIZ, MEDIA CUCHARA, MEDIO TECLADO, MOUSE CON UN SOLO BOTON,........ Y QUE AQUÍ LE HAGO AL LOCO...PARA NO ABURRIRME!!! B)

:P

Share this post


Link to post
Share on other sites
Hace 1 hora, Leopoldo Blancas dijo:

Lo que se me ocurrió hacer con tu aportación es hacer un FOR con los nombres de los formularios y también los Elimina, ya que si pongo "Formularios" me da ERROR y no lo elimina. Por eso dije:

 

Y no me imagino otra solución con tu aportación.

Y TE RECUERDO QUE MI NIVEL ES DE APRENDIZ, MEDIA CUCHARA, MEDIO TECLADO, MOUSE CON UN SOLO BOTON,........ Y QUE AQUÍ LE HAGO AL LOCO...PARA NO ABURRIRME!!! B)

:P

¡Ale! Para que no te aburras:

Modificando VBA Project

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png