Eliminar Módulos vacíos

1) Si tienes XL2002 o 2003, con tu libro abierto, ve al menu 'Herramientas>Macro>Seguridad...', pestana 'Editores de confianza' y
marca la opcion 'Confiar en el acceso a los proyectos de Visual Basic'

2) Ve al Editor VBA (Alt+F11), menu 'Herramientas>Referencias...', busca y marca la libreria 'Microsoft Visual Basic for
Applications Extensibility X.X' (donde X.X es el numero de la version) o lo mismo en castellano.

3) ejecuta el siguiente codigo (lo he adaptado a tu tarea):

Sub DeleteAllEmptyStandardVBAModules()
Dim VBComp As VBIDE.VBComponent
Dim VBComps As VBIDE.VBComponents
Set VBComps = ActiveWorkbook.VBProject.VBComponents
For Each VBComp In VBComps
If VBComp.Type = vbext_ct_StdModule And _
VBComp.CodeModule.CountOfLines = 0 Then VBComps.Remove VBComp
Next VBComp
End Sub

Saludos,
KL


"Maty" wrote in message news:
> Gracias Kl por el enlace, sin embargo y apelando a tu experiencia, cual de
> esos macros resuelve mi problema de eliminar sólo los módulos vacíos?
> Gracias por tu atención a mi consulta.
> Maty
>
> "KL" escribió:
>
>> Revisa el siguiente enlace (ya que te gustan tanto los macros :-))
>>
>> http://www.cpearson.com/excel/vbe.htm
>>
>> Saludos,
>> KL
>>
>>
>> "Maty" wrote in message news:
>> > Gracias por tu recomendacion, y claro que he borrado módulos con el botón
>> > derecho del mouse. Pero cuando tienes mas de 200 módulos vacios una piensa
>> > que posiblemente hay una forma mas eficiente de eliminar todos aquellos que
>> > no tienen contenido. Gracias nuevamente
>> > Maty
>> >
>> > "Francisco Parrilla" escribió:
>> >
>> >> Deberia tener la buena costumbre de que si eliminas el codigo de un modulo y
>> >> no piensas agregar mas codigo o en su caso utilizarlo de cualquier en
>> >> cualquier otro tipo de situaciones tratar de eliminarlo.
>> >>
>> >> Ya intentaste eliminar ese modulo desde el editor del VBA con el boton
>> >> derecho del mouse ?
>> >>
>> >> Atte.
>> >> ?T Francisco T?
>> >> http://groups.msn.com/ExcelVbaMacrosOffice
>> >>
>> >> El verdadero buscador crece y aprende, y descubre que siempre es el
>> >> principal responsable de lo que sucede.
>> >> Jorge Bucay
>> >>
>> >> La oscuridad nos envuelve a todos, pero mientras el sabio tropieza en alguna
>> >> pared, el ignorante permanece tranquilo en el centro de la estancia.
>> >> Anatole France
>> >>
>> >>
>> >>
>>
>>

Gracias KL, funcionó a la perfección.
Maty

"KL" escribió:

> 1) Si tienes XL2002 o 2003, con tu libro abierto, ve al menu 'Herramientas>Macro>Seguridad...', pestana 'Editores de confianza' y
> marca la opcion 'Confiar en el acceso a los proyectos de Visual Basic'
>
> 2) Ve al Editor VBA (Alt+F11), menu 'Herramientas>Referencias...', busca y marca la libreria 'Microsoft Visual Basic for
> Applications Extensibility X.X' (donde X.X es el numero de la version) o lo mismo en castellano.
>
> 3) ejecuta el siguiente codigo (lo he adaptado a tu tarea):
>
> Sub DeleteAllEmptyStandardVBAModules()
> Dim VBComp As VBIDE.VBComponent
> Dim VBComps As VBIDE.VBComponents
> Set VBComps = ActiveWorkbook.VBProject.VBComponents
> For Each VBComp In VBComps
> If VBComp.Type = vbext_ct_StdModule And _
> VBComp.CodeModule.CountOfLines = 0 Then VBComps.Remove VBComp
> Next VBComp
> End Sub
>
> Saludos,
> KL
>
>
> "Maty" wrote in message news:
> > Gracias Kl por el enlace, sin embargo y apelando a tu experiencia, cual de
> > esos macros resuelve mi problema de eliminar sólo los módulos vacíos?
> > Gracias por tu atención a mi consulta.
> > Maty
> >
> > "KL" escribió:
> >
> >> Revisa el siguiente enlace (ya que te gustan tanto los macros :-))
> >>
> >> http://www.cpearson.com/excel/vbe.htm
> >>
> >> Saludos,
> >> KL
> >>
> >>
> >> "Maty" wrote in message news:
> >> > Gracias por tu recomendacion, y claro que he borrado módulos con el botón
> >> > derecho del mouse. Pero cuando tienes mas de 200 módulos vacios una piensa
> >> > que posiblemente hay una forma mas eficiente de eliminar todos aquellos que
> >> > no tienen contenido. Gracias nuevamente
> >> > Maty
> >> >
> >> > "Francisco Parrilla" escribió:
> >> >
> >> >> Deberia tener la buena costumbre de que si eliminas el codigo de un modulo y
> >> >> no piensas agregar mas codigo o en su caso utilizarlo de cualquier en
> >> >> cualquier otro tipo de situaciones tratar de eliminarlo.
> >> >>
> >> >> Ya intentaste eliminar ese modulo desde el editor del VBA con el boton
> >> >> derecho del mouse ?
> >> >>
> >> >> Atte.
> >> >> ?T Francisco T?
> >> >> http://groups.msn.com/ExcelVbaMacrosOffice
> >> >>
> >> >> El verdadero buscador crece y aprende, y descubre que siempre es el
> >> >> principal responsable de lo que sucede.
> >> >> Jorge Bucay
> >> >>
> >> >> La oscuridad nos envuelve a todos, pero mientras el sabio tropieza en alguna
> >> >> pared, el ignorante permanece tranquilo en el centro de la estancia.
> >> >> Anatole France
> >> >>
> >> >>
> >> >>
> >>
> >>
>
>