Contents in Column

[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?

 

[Jacob Skaria]

Try running this macro and feedback

Sub MyMacro1()

lngLastRow = ActiveSheet.Cells(Rows.Count, "D").End(xlUp).Row

For lngRow = 1 To lngLastRow
Dim s As String
Select Case Range("D" & lngRow).Text
Case "New1", "Old1": s = "Customer"
Case " Old2": s = "Assets"
Case " New2": s = "Short Term"
Case " Old3": s = "Long Term"
End Select
If s <> "" Then Range("G" & lngRow) = s
Next

End Sub

If this post helps click Yes

 

[Sal]

This is great. It works great. Thank you for your help.