Great, thanks so much Neren. I am so happy that you still find value, even in these Basic VBA videos. I always appreciate so many years of support. Thanks again
Hi Randy, Love how you're creating so much VBA content. A suggestion: You might want to indent the code in your subs, especially if you're making tutorials for people online. What are your thoughts?
Hi and thanks so much. Almost all of my code is indented. I do like to keep it organized. If you want to view the code in a color coded and fully-organized method. that is also automated with my PDF codebooks on my Patreon platform each week www.patreon.com/ExcelForFreelancers I hope this helps and thanks so much.
@@ExcelForFreelancers Interesting that you provide codebooks to your patreons :) I'm not really a consumer of this type of content, I maintain VBA libraries mainly on github :) E.G. stdVBA. It was just something I noticed 😁
Ah no worries at all. I also create an updated training, template and resources on Patreon as well. I have a few hundreds videos right here on UA-cam as well. Thanks again
When I saw 'FileName = Dir(FolderPath &"*.")' I thought 'FileName' receives JUST first one file and had to be incremented, but NOT! Would you explain this?
When making videos in one go, inaccuracies will happen. 'FileName = Dir(FolderPath & "*.*")' means the first file name is retrieved. Then in the loop, when 'FilelName = Dir' the next file name is retrieved. You can easily prove the latter by using 'Debug.Print "Current: " & FileName' before the line, and 'Debug.Print "Next: " & FileName' after the line.
@ymgexcel9499 explained it perfectly. It loops through the entire folder looking for all files that match the criteria. With the last line FileName = Dir its cleared and retrieved the next and will continue until FileName is nothing. It works quite beautifully. Thank you for your Likes, Shares & Comments. It really helps.
HI and thanks. yes for sure. You can add the filter such as "*.pdf" and then you can list them on a sheet, incrementing the rows such as Sheet1.Range("A" & RowNumb).value = Dir(FileName) RowNumb = RowNumb + 1 So just add that into the loop I hope this helps and thanks so much.
Thank you so very much, I really appreciate that Henk. I know this one is very basic for you, but the refresher may help. Thank you for your Likes, Shares & Comments. It really helps.
Hi and thanks so much. I have not worked with speech recognition however I will check it out. It is an interesting and helpful concept. Thank you for your Likes, Shares & Comments. It really helps.
Oh yes that is a great idea. Its an awesome way to do a massive # of tasks with files and folders. (one of the best in my opinion) Thank you for your Likes, Shares & Comments. It really helps.
Hello Randy, I see on the news bulletin huge devastation in China and Vietnam. I hope all goes well with your family and friends and that once again it is propaganda.
Hi Henk thanks so much for the concern. The storm was quite north of me, in Hanoi and norhern area. Here in central Da Nang, the weather has been quite nice, not nearly any rain at all. Thanks again for your kind concern
e.g.. fileName = Dir(folderPath & "*.xml") Do While fileName "" fileNum = FreeFile Open folderPath & fileName For Input As #fileNum fileContent = Input$(LOF(fileNum), fileNum) Close #fileNum ... ... Loop
📅Excel Calendar Pro: Your Solution to Stress-Free Scheduling 👉 rebrand.ly/CalendarPro_PinnedComm
Hi Randy ... Always a new learning experience ... Thank you
Great, thanks so much Neren. I am so happy that you still find value, even in these Basic VBA videos. I always appreciate so many years of support.
Thanks again
Hi there Randy .. good to learn new vba lesson from you again. Thank you for emailing me always
For sure, you are very welcome and I am happy to help and share. I am glad you enjoyed it
Hi Randy, Love how you're creating so much VBA content. A suggestion: You might want to indent the code in your subs, especially if you're making tutorials for people online. What are your thoughts?
Hi and thanks so much. Almost all of my code is indented. I do like to keep it organized. If you want to view the code in a color coded and fully-organized method. that is also automated with my PDF codebooks on my Patreon platform each week
www.patreon.com/ExcelForFreelancers
I hope this helps and thanks so much.
@@ExcelForFreelancers Interesting that you provide codebooks to your patreons :) I'm not really a consumer of this type of content, I maintain VBA libraries mainly on github :) E.G. stdVBA. It was just something I noticed 😁
Ah no worries at all. I also create an updated training, template and resources on Patreon as well.
I have a few hundreds videos right here on UA-cam as well.
Thanks again
thanks sir....
the best to learn step by step
Thank you so very much, I really appreciate that and I am so glad you like it
Just created a loop like that this afternoon!
Can't wait to learn things I missed ❤
Oh Excellent. I am sure you will love this training. Thanks again for your continued support.
When I saw 'FileName = Dir(FolderPath &"*.")' I thought 'FileName' receives JUST first one file and had to be incremented, but NOT! Would you explain this?
When making videos in one go, inaccuracies will happen. 'FileName = Dir(FolderPath & "*.*")' means the first file name is retrieved. Then in the loop, when 'FilelName = Dir' the next file name is retrieved. You can easily prove the latter by using 'Debug.Print "Current: " & FileName' before the line, and 'Debug.Print "Next: " & FileName' after the line.
@ymgexcel9499 explained it perfectly. It loops through the entire folder looking for all files that match the criteria. With the last line FileName = Dir its cleared and retrieved the next and will continue until FileName is nothing. It works quite beautifully.
Thank you for your Likes, Shares & Comments. It really helps.
is that possible to list all extension, like filter
HI and thanks. yes for sure. You can add the filter such as "*.pdf" and then you can list them on a sheet, incrementing the rows such as
Sheet1.Range("A" & RowNumb).value = Dir(FileName)
RowNumb = RowNumb + 1
So just add that into the loop
I hope this helps and thanks so much.
Is this possible in a sharepoint location?
Hi and thanks Yes sure it is. To share and sync your macro-enabled Excel workbook, please watch this training: ua-cam.com/video/G9VqF7yN0Oo/v-deo.html
Whaaaaauw Thnx Randy
Thank you so very much, I really appreciate that Henk. I know this one is very basic for you, but the refresher may help.
Thank you for your Likes, Shares & Comments. It really helps.
Hello do u knw how to use Vba to use windows speech recognition
Hi and thanks so much. I have not worked with speech recognition however I will check it out. It is an interesting and helpful concept. Thank you for your Likes, Shares & Comments. It really helps.
@@ExcelForFreelancers pls revisit it
Wait impatianly..
Thanks so much. You will love this one. Thank you for your Likes, Shares & Comments. It really helps.
I use this to delete my temp folders, cookies and other useless stuff.
Oh yes that is a great idea. Its an awesome way to do a massive # of tasks with files and folders. (one of the best in my opinion)
Thank you for your Likes, Shares & Comments. It really helps.
Perez Jeffrey Brown Jessica Garcia Karen
Hello Randy,
I see on the news bulletin huge devastation in China and Vietnam. I hope all goes well with your family and friends and that once again it is propaganda.
Hi Henk thanks so much for the concern. The storm was quite north of me, in Hanoi and norhern area. Here in central Da Nang, the weather has been quite nice, not nearly any rain at all. Thanks again for your kind concern
e.g..
fileName = Dir(folderPath & "*.xml")
Do While fileName ""
fileNum = FreeFile Open folderPath & fileName For Input As #fileNum fileContent = Input$(LOF(fileNum), fileNum) Close #fileNum
...
...
Loop
Hi Chris, Thanks so much for sharing and great to have you here