Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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? |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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? |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
VBA - Insert row, copy contents of original row except for contents of column A | Excel Programming | |||
How can I sort contents of one column based on the contents ofanother column? | Excel Programming | |||
Fill a column with the contents of another column based on a choic | Excel Discussion (Misc queries) | |||
Please Help: Paste Column Contents to Next Available Column Without Data | Excel Programming | |||
move contents of column C based on criteria related to column A | Excel Discussion (Misc queries) |