Search:

Hello Arjo,

This function returns the last row on a filtered worksheet



Function GetLastRow() As Long

Dim endRng As Range
Dim lastRow As Long

Hello Digtheradness,

What do you see in cell "A1"?

Hello Elroy,

This worked for me. I set the ShowModal property to False before running the code.



Sub TestA()

UserForm1.Show
CallByName UserForm1, "Test", VbMethod

Hello max62,

What is the name of the output sheet the data is going to?
Where will the data start on the output sheet?

Hello Max62,

Here is the amended macro. It will open a new workbook only if files are found in the folder.



Sub SearchFolders()

Dim lRow As Long
Dim oFile As...

Hello maor1212,



Sub PerfectNumbers()

' Algorithm by John Knoderer at The Math Forum
' Adapted to VBA by Leith Ross
' http://mathforum.org/dr.math/faq/faq.perfect.html

Hello John757,

I made some changes to your macro. This should work without throwing any errors.



Sub SearchFolders()

Dim lRow As Long
Dim oFile As Object

Hello

Thanks for the feedback. I have modified the macro to look at "A1" down to the last entry in the column. If the column is empty then the macro simply exits with no message.

Replace the...

Hello gmmdinesh,

Here is another way that will let you choose the parent folder and set the depth of the Subfolders to be searched. I have set the macro (CleanFolderPaths) to search all folders...