| Home |
| Search |
| Today's Posts |
|
#6
Posted to microsoft.public.excel.misc
|
|||
|
|||
Multiple If statement
Thank you for your help
"FiluDlidu" wrote: Ha! You may want to add an extra line: Sub Worksheet_Change(ByVal Target As Range) If Intersect(Range("A1,C1"), Target) Is Nothing Then Exit Sub Range("B" & Range("A1").Value).Copy Range("C1").PasteSpecial Paste:=xlPasteFormats Application.CutCopyMode = False End Sub "FiluDlidu" wrote: Through a macro that could be done, but I am unsure how much you like using macros. Would C1 be the cell where you enter your formula, you could use the following on the sheet's code page: Sub Worksheet_Change(ByVal Target As Range) If Intersect(Range("A1,C1"), Target) Is Nothing Then Exit Sub Range("B" & Range("A1").Value).Copy Range("C1").PasteSpecial Paste:=xlPasteFormats End Sub "John Gregory" wrote: That works, thank you By the way, is there a simple way to also copy the field shading from the data cells? "FiluDlidu" wrote: I'm not sure if that would work for you, but maybe that is what you are looking for: =index($B:$B,$A$1) "John Gregory" wrote: I am trying to write a "IF" test to do the following: If the value of A1 = 1, then cell = B1 If the value of A1 = 2, then cell = B2 If the value of A1 = 3, then cell = B3 The cell A1 is used as the selector, and I have data that is in each of the B cells (too much data for a list). I have tried data validation, but could not get it to work. Any ideas? |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Multiple if Statement? | Excel Discussion (Misc queries) | |||
| Multiple IF statement | Excel Worksheet Functions | |||
| Multiple IF statement | Excel Discussion (Misc queries) | |||
| Multiple IF Statement | Excel Worksheet Functions | |||
| Multiple If Statement | Excel Worksheet Functions | |||
Threaded Mode
