Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Borrar todo el codigo de un modulo

21/03/2005 - 10:21 por Fabian | Informe spam
Ayuda Hacer una pregunta
Hola a todos!
Este codigo lo saque de esta pagina http://www.cpearson.com/excel/vbe.htm
Tilde la referencia "Microsoft Visual Basic For Applications Extensibility
5.3", pero no logro que funcione.
El error es 1004, Error en el metodo VBProyect del bojeto Workbook en la
linea 10
Gracias.
Sub DeleteAllCodeInModule()
Dim VBCodeMod As CodeModule
Dim StartLine As Long
Dim HowManyLines As Long
10 Set VBCodeMod = ThisWorkbook.VBProject.VBComponents("Módulo1").CodeModule
20 With VBCodeMod
30 StartLine = 1
40 HowManyLines = .CountOfLines
50 .DeleteLines StartLine, HowManyLines
60 End With
End Sub
email Siga el debateRespuesta 5 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 KL
21/03/2005 - 10:45 | Informe spam
Hola Fabian,

A mi me funciona de maravilla y no consigo reconstruir tu problema. ?Podrias
dar mas detalle o enviarme el fichero?

Saludos,
KL

"Fabian" wrote in message
news:
Hola a todos!
Este codigo lo saque de esta pagina http://www.cpearson.com/excel/vbe.htm
Tilde la referencia "Microsoft Visual Basic For Applications
Extensibility
5.3", pero no logro que funcione.
El error es 1004, Error en el metodo VBProyect del bojeto Workbook en la
linea 10
Gracias.
Sub DeleteAllCodeInModule()
Dim VBCodeMod As CodeModule
Dim StartLine As Long
Dim HowManyLines As Long
10 Set VBCodeMod =
ThisWorkbook.VBProject.VBComponents("Módulo1").CodeModule
20 With VBCodeMod
30 StartLine = 1
40 HowManyLines = .CountOfLines
50 .DeleteLines StartLine, HowManyLines
60 End With
End Sub


Preguntas similares

 

Busqueda sugerida :