Few Questions

[dcharland]

Hello,

I have a few questions with regards to VBA coding,

1) In my code I evaluate the "Yes" or "No" answers based on user input in cells (many of them) and when I read that value in VBA it's case sensitive. So "Yes" is not "yes". What is the best way to deal with this situation?
here is one of the line of code

If Cells(4, "E").Value = "Yes" And Cells(11, "J").Value = "Yes" Then

2) I'm asking user to input a file path & filename in cell C5 (and 4 other cells) e.i. (C:\Users\work\temp.txt), that in it's self isn't a problem, but would like to have the user "browse" to find the file is that possible? If yes any ideas on how to implement it?

Also is there a way to verify if the file exist (assuming there is also the option for the user to actually type the file name)

Thanks for your help.

 

[repairman615]

Hello,

Welcome to the Board!

To handle case sensitivity (Thanks HotPepper):

<font face=Courier New><SPAN style="color:#00007F">If</SPAN> UCase(Cells(4, "E").Value) = "YES" And UCase(Cells(11, "J").Value) = "YES" <SPAN style="color:#00007F">Then</SPAN><br>        </FONT>

 

[Warship]

For #2 have look at:

Application.GetOpenFilename("Text Files (*.txt), *.txt")

Function FileExists(ByVal strPath As String) As Boolean
'Function returns true if file exists, false otherwise
    If Dir(strPath) > "" Then
        FileExists = True
    Else
        FileExists = False
    End If
End Function

 

[dcharland]

thanks for the responses. I've implemented the ucase, but will do the other tomorrow as i have been working on this code for to long and my eyes aren't seing things properly anymore