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?

Contents in Column
 

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
---------------
Jacob Skaria


"Sal" wrote:

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?

Contents in Column
 

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

"Jacob Skaria" wrote:

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
---------------
Jacob Skaria


"Sal" wrote:

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?