S
Sal
This code….
Private Sub Worksheet_Change(ByVal Target As Range)
Dim s As String
If Target.Column = 4 Then
Select Case (UCase(Target.Value))
Case "New1", "Old1": s = "Customer"
Case " Old2": s = "Assets"
Case " New2": s = "Short Term"
Case " Old3": s = "Long Term"
End Select
If s <> "" Then Target.Offset(, 3).Value = s
End If
End Sub
Does this….
-When a cell in Column D contains New1 or Old1, “Customer†is entered into
Column G in the same row.
-When a cell in Column D contains Old2, “Assets†is entered into Column G in
the same row.
-When a cell in Column D contains New2, “ShortTerm†is entered into Column G
in the same row.
-When a cell in Column D contains Old3, “LongTerm†is entered into Column G
in the same row.
To start using the code above I right click Sheet 1 and select view code and
then paste it inside. Can you help me make this code different so that when
I press Alt F8, I can run it using that interface?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim s As String
If Target.Column = 4 Then
Select Case (UCase(Target.Value))
Case "New1", "Old1": s = "Customer"
Case " Old2": s = "Assets"
Case " New2": s = "Short Term"
Case " Old3": s = "Long Term"
End Select
If s <> "" Then Target.Offset(, 3).Value = s
End If
End Sub
Does this….
-When a cell in Column D contains New1 or Old1, “Customer†is entered into
Column G in the same row.
-When a cell in Column D contains Old2, “Assets†is entered into Column G in
the same row.
-When a cell in Column D contains New2, “ShortTerm†is entered into Column G
in the same row.
-When a cell in Column D contains Old3, “LongTerm†is entered into Column G
in the same row.
To start using the code above I right click Sheet 1 and select view code and
then paste it inside. Can you help me make this code different so that when
I press Alt F8, I can run it using that interface?