vba help - Validation File Path from range

[Mallesh23]

Hi Team,

I am using below code to open input files from a cell.
I want to ensure it should not be blank. Shall I use and OR Operator here.

if blank exit the Macro.

'==============Validate File path=============
     If wsFolderPath.Range("b1").value = "" Or wsFolderPath.Range("b2").value = "" Or _
        wsFolderPath.Range("b4").value = "" Or wsFolderPath.Range("b6").value = "" Or _
        wsFolderPath.Range("b8").value = "" Then
       msgbox "FilePath should not be Blank in Ranges" & wbTemplate.Name, vbCritical
        GoTo Myend
    End If

Thanks
mg

 

[dmt32]

try following & see if does what you want

       Dim rng As Range
        Set rng = wsFolderPath.Range("B1:B2,B4,B6,B8")
       
        If Application.CountA(rng) <> rng.Cells.Count Then
            MsgBox "FilePath should not be Blank in Ranges" & wbTemplate.Name, vbCritical
        
       Else
       'do stuff

        End If

Dave

 

[Mallesh23]

Hi Dmt32

Thanks for your help, it worked. ?


Thanks
mg

 

[dmt32]

Glad suggestion helped - many thanks for feedback

Dave