Please correct the 2nd code, both for the same worksheet.
FIRST CODE WORKING PERFECTLY
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D1")) Is Nothing Then
Select Case Range("D1")
Case "0.5": Half
Case "1": One
Case "1.25": OneTwentyFive
End Select
End If
End Sub
SECOND CODE NOT WORKING (plz correct the below)
Private Sub Change(ByVal Target As Range)
If Not Intersect(Target, Range("D2")) Is Nothing Then
Select Case Range("D2")
Case "9.53": ninepointfivethree
End Select
End If
End Sub
FIRST CODE WORKING PERFECTLY
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D1")) Is Nothing Then
Select Case Range("D1")
Case "0.5": Half
Case "1": One
Case "1.25": OneTwentyFive
End Select
End If
End Sub
SECOND CODE NOT WORKING (plz correct the below)
Private Sub Change(ByVal Target As Range)
If Not Intersect(Target, Range("D2")) Is Nothing Then
Select Case Range("D2")
Case "9.53": ninepointfivethree
End Select
End If
End Sub
- Page :
- 1
There are no replies made for this post yet.