line of code

[lior03]

hello
is it possible to build a udf that will count how many line of code ther are in every module in a workbook?
maybe
[VBA] Function lineofcode(modulename)
On Error Resume Next
Dim i As Integer
Dim x As Object
Dim numcomponents As Integer
x = ActiveWorkbook.VBProject
Dim vbp
vbp = ActiveWorkbook.VBProject
numcomponents = vbp.vbcomponents.count
For i = 1 To numcomponents
lineofcode = vbp.vbcomponents(i).codemodule.countoflines
Next i
End Function
[/VBA] thanks
moshe

[mdmackillop]

Hi Moshe,
Try the following
Regards
MD

[VBA]
Function CodeLines()
Dim Tmp As Long
Dim VBCodeMod As CodeModule
Set VBCodeMod = ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
For i = 1 To ThisWorkbook.VBProject.VBComponents.Count
Set VBCodeMod = ThisWorkbook.VBProject.VBComponents(i).CodeModule
With VBCodeMod
Tmp = Tmp + .CountOfLines
End With
Next
CodeLines = Tmp
End Function
[/VBA]

[mvidas]

Hi Moshe,

There are a couple methods you could use. If you wanted to pass the workbook name to the function:[vba]Function LinesOfCode(ByVal WorkbookName As String) As Long
Dim vbc As Object, WB As Workbook
On Error Resume Next
Set WB = Workbooks(WorkbookName)
On Error GoTo 0
If WB Is Nothing Then Exit Function
For Each vbc In WB.VBProject.VBComponents
LinesOfCode = LinesOfCode + vbc.CodeModule.CountOfLines
Next
End Function[/vba]Or if you just wanted it for ThisWorkbook (or ActiveWorkbook), use:[vba]Function LinesOfCode() As Long
Dim vbc As Object
For Each vbc In ThisWorkbook.VBProject.VBComponents
LinesOfCode = LinesOfCode + vbc.CodeModule.CountOfLines
Next
End Function[/vba]Matt

[lior03]

hello
i was thinking more or less about this
[vba]Function LinesOfCode(ByVal WorkbookName As String, module As String) As Long
Dim vbc As Object, WB As Workbook
On Error Resume Next
Set WB = Workbooks(WorkbookName).Sheets(module)
On Error GoTo 0
If WB Is Nothing Then Exit Function
For Each vbc In WB.VBProject.VBComponents
LinesOfCode = LinesOfCode + vbc.CodeModule.CountOfLines
Next
End Function[/vba]
the user enter a wb name and then a module name
to get an integer of how many lines of code there are in that module.
it do not work
why?
thanks

[mvidas]

Hi moshe,

If you're looking for individual module (or individual component) count, you could use [vba]Function LinesOfCode(ByVal WorkbookName As String, ByVal ModuleName As String) As Long
Dim vbc As Object, WB As Workbook
On Error Resume Next
Set WB = Workbooks(WorkbookName)
Set vbc = WB.VBProject.VBComponents(ModuleName)
On Error GoTo 0
If Not vbc Is Nothing Then
LinesOfCode = vbc.CodeModule.CountOfLines
End If
End Function[/vba]Matt