Contents in Column
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?
|