Simple VBA if

[sassriverrat]

Brainfarting because obviously this isn't right. Ears are open.

THanks

    If Worksheets("Developer").Range("I46").Value = "'Network" Then        dpathname = cpathname
    Else: dpathname = bpathname
    End If

 

[Peter_SSs]

Brainfarting because obviously this isn't right. Ears are open.

THanks

    If Worksheets("Developer").Range("I46").Value = "'Network" Then        dpathname = cpathname
    Else: dpathname = bpathname
    End If

Hard to tell when we don't know what you have or what you are trying to achieve and all we have is code that does not do what you want.

First would be to try this

If Worksheets("Developer").Range("I46").Value = "'Network" Then        
  dpathname = cpathname
Else
  dpathname = bpathname
End If

If that doesn't solve the issue, we'd need to know more about your objective, what the various variables are and what is actually going wrong with your posted code.

 

[My Aswer Is This]

A If Else statement should be written like this:

Sub My_If()
'Modified  11/5/2019  5:47:50 AM  EST
If Range("A1").Value = "Yes" Then
    MsgBox "Yes"
Else
    MsgBox "No"
End If
End Sub

 

[sassriverrat]

Sorry- my bad.

Here's a little more for you. It seems odd here to have the a/b/c/d/ etc pathnames but they are utilized individually for file systems and folders later, so necessary. Anyway, I'm blanking on this and it's driving me bananas. But I'm trying to make it such that depending on the value in I46, dpathname will equal either cpathname or bpathname.

Thanks

    myfilename = path2
    bpathname = Environ("Userprofile") & "\" & path1
    cpathname = Worksheets("Developer").Range("E42") & "\" & path1
    'dpathname = Environ("Userprofile") & "\" & path1
    epathname = dpathname & "\" & Path3
    fpathname = epathname & "\"


    If Worksheets("Developer").Range("I46").Value = "'Network" Then
        dpathname = cpathname
    Else
        dpathname = bpathname
    End If

 

[MARK858]

Are you sure that you require the apostrophe in front of Network?

 

[sassriverrat]

No I don't. I only put that there because it's not running the dpath section at all (I don't think) and it's " 'Network" in the referenced cell

 

[Peter_SSs]

No I don't. I only put that there because it's not running the dpath section at all (I don't think) and it's " 'Network" in the referenced cell

So, try removing that apostrophe.

 

[sassriverrat]

I did. When I step into the code it shows the appropriate values but when I run the code, it's like it simply skipped over the whole dpathname.

Here's the rest of that portion of the sub:

Private Sub Save_As()


'Begins Error Handling Code
On Error GoTo Helper


'Creates the SaveAs "Current Voyage" on the Noon Sheet


    Dim path1 As String
    Dim path2 As String
    Dim Path3 As String
    Dim myfilename As String
    Dim cpathname As String
    Dim dpathname As String
    Dim epathname As String
    Dim fpathname As String
    Dim resp As Integer
    Dim name As String
    
    With Worksheets("Notes")
    path1 = .Range("O16")
    name = .Range("N4")
    path2 = .Range("O18")
    Path3 = .Range("U16")
    End With
    
    myfilename = path2
    bpathname = Environ("Userprofile") & "\" & path1
    cpathname = Worksheets("Developer").Range("E42") & "\" & path1
    'dpathname = Environ("Userprofile") & "\" & path1
    epathname = dpathname & "\" & Path3
    fpathname = epathname & "\"


    If Worksheets("Developer").Range("I46").Value = "Network" Then
        dpathname = cpathname
    Else
        dpathname = bpathname
    End If
    
    ActiveSheet.EnableCalculation = False
     
    If ActiveWorkbook.name = "Master Voyage Report.xlsm" Then
       
        resp = MsgBox("You are trying to save the " & myfilename & " to:" & vbCrLf & fpathname & myfilename & ".xlsm", vbYesNo, name)
        If resp = vbYes Then
            If Len(Dir(fpathname, vbDirectory)) = 0 Then
                If Len(Dir(epathname, vbDirectory)) = 0 Then
                    If Len(Dir(dpathname, vbDirectory)) = 0 Then
                        MkDir (dpathname)
                    End If
                    MkDir (epathname)
                End If
                MkDir (fpathname)
            End If
            ActiveWorkbook.SaveAs Filename:=fpathname & myfilename & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
        'Application Closer
            If Workbooks.Count > 1 Then
                ActiveWorkbook.Close
            Else
                Application.Quit
            End If
        ElseIf vbNo Then
            Exit Sub
        ElseIf vbCancel Then
            Exit Sub
        End If
    ElseIf ActiveWorkbook.name = myfilename Then
        ActiveWorkbook.Save
        'Application Closer
            If Workbooks.Count > 1 Then
                ActiveWorkbook.Close
            Else
                Application.Quit
            End If
    Else: ActiveWorkbook.Save
        'Application Closer
            If Workbooks.Count > 1 Then
                ActiveWorkbook.Close
            Else: Application.Quit
            End If
    End If
    
'Error Clearing Code
Exit Sub
Helper:
    resp = MsgBox("We're sorry to see you've encountered an error." & vbCrLf & vbCrLf & "To proceed, we recommend you contact the Developer " & _
    "with error codes [1147] and " & "[" & Err.Number & "-" & Err.Description & "]." & vbCrLf & vbCrLf & "To attempt to patch your problem at least " & _
    "temporarily, we recommend you click [Yes] to see help directions. Would you like to continue?", vbYesNoCancel, name)
        If resp = vbYes Then
            Call Error_Handle(sprocname, Err.Number, Err.Description)
        ElseIf resp = vbNo Then
            Exit Sub
        ElseIf resp = vbCancel Then
            Exit Sub
        End If
        
End Sub

 

[MARK858]

Please copy and paste in the thread the result that appears in the Immediate window when you run the code below.
Please copy and paste the result do not re-type it.

Sub chk2()
Debug.Print "| &"; Worksheets("Developer").Range("I46").Value; "& |", Len(Worksheets("Developer").Range("I46").Value)
End Sub

Also if you replace

    If Worksheets("Developer").Range("I46").Value = "Network" Then
        dpathname = cpathname
    Else
        dpathname = bpathname
    End If

with the code below do you get the message boxes? If so which?

    If Worksheets("Developer").Range("I46").Value = "Network" Then
        MsgBox "Result1"
    Else
        MsgBox "Result2"
    End If

 

[sassriverrat]

Sorry for the late reply- I didn't realize my post hadn't gone through on Tuesday....

anyway- interesting- so posting hte msgbox piece was a super simple way to test- I hadn't even thought about that. It worked as intended. The debug piece of coding returned nothing...