Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Pick value off sheet list for VBA code determination
Apologies for the cross post.
Here is a sample of VBA code used to place a value in a cell base on the value entered in the cell previous If LCase(.Value) = "capital" OR _ LCase(.Value) = "grounds" OR _ (etc., for many lines) ..Offset(0, 1).Value = "MP" The code works fine. Now I want to refer to a list on a sheet to determine the value of a cell, i.e., if the value in a cell equals an item from the sheet list, then a value is assigned to another cell. Is this possible? Thank you in advance. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Pick value off sheet list for VBA code determination
hi
i did a little test and it works Sub Test() Dim c As Range Dim r As Range Set r = ActiveCell For Each c In Range("J1:J5") ' your list? If c.Value = r.Value Then ActiveCell.Offset(0, 1).Value = "gotit" Exit For End If Next End Sub it should give you the basic idea. edit to fit your code. "Bill (Unique as my name)" wrote: Apologies for the cross post. Here is a sample of VBA code used to place a value in a cell base on the value entered in the cell previous If LCase(.Value) = "capital" OR _ LCase(.Value) = "grounds" OR _ (etc., for many lines) ..Offset(0, 1).Value = "MP" The code works fine. Now I want to refer to a list on a sheet to determine the value of a cell, i.e., if the value in a cell equals an item from the sheet list, then a value is assigned to another cell. Is this possible? Thank you in advance. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Pick value off sheet list for VBA code determination
On Sep 21, 12:02 pm, FSt1 wrote:
hi i did a little test and it works Sub Test() Dim c As Range Dim r As Range Set r = ActiveCell For Each c In Range("J1:J5") ' your list? If c.Value = r.Value Then ActiveCell.Offset(0, 1).Value = "gotit" Exit For End If Next End Sub it should give you the basic idea. edit to fit your code. "Bill (Unique as my name)" wrote: Apologies for the cross post. Here is a sample of VBA code used to place a value in a cell base on the value entered in the cell previous If LCase(.Value) = "capital" OR _ LCase(.Value) = "grounds" OR _ (etc., for many lines) ..Offset(0, 1).Value = "MP" The code works fine. Now I want to refer to a list on a sheet to determine the value of a cell, i.e., if the value in a cell equals an item from the sheet list, then a value is assigned to another cell. Is this possible? Thank you in advance. Thanks FSt1. So beautiful. So Concise. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Pick value off sheet list for VBA code determination | Excel Discussion (Misc queries) | |||
Look up list of values based on single value from pick list | Excel Discussion (Misc queries) | |||
time sheet determination of what day and time rate | Excel Worksheet Functions | |||
Making pick list conditional on selection from previous pick list | Excel Discussion (Misc queries) | |||
Pick list on a sheet - multiple rows? | Excel Programming |