Snasui Excel Forum

Code: Select all

    Range("B3").Select
    If Range("B3").Value = "not yet pay" Then
    Range("B3").Value = "not yet"
    
    Else
    Range("B3").Select
    Dim s As String
    s = Range("B3").Value
    ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:= _
    "C:\Users\Administrator\Desktop\Countermeasure\" & s & ".xls", TextToDisplay:=Range("B3").Value
    
    End If

Code: Select all

    Range("B3").Select
    If Range("B3").Value = "not yet pay" Then
    Selection.ClearContents
    Range("B3").Value = "not yet"
    ActiveCell.Select

    Else
    Range("B3").Select
    Dim s As String
    s = Range("B3").Value
    ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:= _
    "C:\Users\Administrator\Desktop\Countermeasure\" & s & ".xls", TextToDisplay:=Range("B3").Value
    
    End If

Code: Select all

Sub test1()
    With Range("B3")
        .Hyperlinks.Delete
        If .Value = "not yet pay" Then
            .Value = "not yet"
        Else
         .Hyperlinks.Add Anchor:=Range("B3"), Address:= _
            "C:\Users\Administrator\Desktop\Countermeasure\" & .Value & ".xls", TextToDisplay:=.Value
        End If
    End With
End Sub