Posts by shadal

Re: Need function to find oldest created file within folder

YES! That's the ticket!

Thank you very much!!

Re: Need function to find oldest created file within folder

Thanks cytop, but that's still grabbing the oldest modified file, not the oldest created file..

Below is a screenshot of my directory.. The script should be grabbing the Standard.htm file which was created on 6/2, but instead its grabbing the ... MM Report.htm file which was modified on 7/18

[ATTACH=CONFIG]70156[/ATTACH]

Hello,

I need a function that will search a folder and return the oldest CREATED .htm file.

I've tried a few examples I've found around the web but they either return the last modified file, or all files...

The argument I send to the function is the folder where the file will be located.

eg..
GetOldestHtmFile (c:\temp\)

Re: Return items in array

Thank you, I knew it was simple!

Hello,

Seems this should be a pretty simple task but it's suffocating me...

My array consists of...

Section1|24,Section2|47,Section3|69,Section4|103,Section5|145

I need a loop that will return

tempVar1 = Section1
tempVar2 = 24

Loop

tempVar1 = Section 2
tempVar2 = 47

Loop - etc, etc...

I've tried LEFT, SPLIT... Not having luck though..

Re: Checking if sheet exists

Thank you!
With a little bit of tweaking, this fit into my code nicely!

I'm trying to create new tabs depending on the current date...

If August 08 tab exists already I need an August 08_1 tab, then an August 08_2 tab, etc...

Below is my code, but when the if condition is true and it should execute the 'else' statement, the code fails. Please help!

Dim tabName As String    Dim tabMonth As String
    Dim tabDate As String
    Dim tabCount As Integer
    
    tabDate = Format(Date, "dd")
    tabMonth = MonthName(Month(Date))
    tabName = tabMonth & Space(1) & tabDate
    tabCount = 0
    
    For p = 1 To ThisWorkbook.Sheets.Count
    
        If (Worksheets(tabName).Name <> "") Then
            tabName = tabMonth & Space(1) & tabDate & "_" & tabCount + (p)
        Else
            Exit For
        End If
    
    Next p