User-freindly Spreadsheet/Database to store code

[lionelnz]

Hi. I am looking for a simple way to record my code that I develop so as I do not have to re-invent the wheel or spend hours looking for an answer.

I have developed a simple spreadsheet with the headings
[TABLE="width: 430"]
<TBODY>[TR]
[TD="width: 79, bgcolor: transparent"]Type
[/TD]
[TD="width: 114, bgcolor: transparent"]Name
[/TD]
[TD="width: 114, bgcolor: transparent"]Workbook
[/TD]
[TD="width: 101, bgcolor: transparent"]Date
[/TD]
[TD="width: 164, bgcolor: transparent"]Function
[/TD]
[/TR]
</TBODY>[/TABLE]


Maybe someone has a better way.

Is there a way to hyperlink the name of the procedure to the codein the VB editor?


[TABLE="width: 430"]
<TBODY>[TR]
[TD="width: 79, bgcolor: transparent"][/TD]
[TD="width: 114, bgcolor: transparent"][/TD]
[TD="width: 114, bgcolor: transparent"][/TD]
[TD="width: 101, bgcolor: transparent"][/TD]
[TD="width: 164, bgcolor: transparent"][/TD]
[/TR]
</TBODY>[/TABLE]

 

[mikerickson]

As far as I know there is no way to automatically create that chart. You have to push a button.

Something like this perhaps

Sub test()
    Dim SomeWorkbook As Workbook
    Dim oneComponent As VBComponent
    Dim LineNumber As Integer
    
    Set SomeWorkbook = ThisWorkbook
    For Each oneComponent In SomeWorkbook.VBProject.VBComponents
        With oneComponent.CodeModule
            For LineNumber = .CountOfDeclarationLines + 1 To .CountOfLines
                If .ProcStartLine(.ProcOfLine(LineNumber, vbext_pk_Proc), vbext_pk_Proc) = LineNumber Then
                    Range("A65536").End(xlUp).Offset(1, 0) = ThisWorkbook.Name
                    Range("A65536").End(xlUp).Offset(0, 1) = .Parent.Name
                    Range("A65536").End(xlUp).Offset(0, 2) = .ProcOfLine(LineNumber, vbext_pk_Proc)
                End If
            Next LineNumber
        End With
    Next oneComponent
End Sub