Excel根据第三个单元格的值将一个单元格的值复制到另一个单元格

Question

I am trying to have one cell from a range (AG2:AG30) copy the value of another cell from a similar range (AB2:AB30) based on the value of a third cell (D2:D30) .

• The value for column D is selected from a drop down box and the value of column AB is a formula.
• I don't need to copy the formula into column AG just the value. Values for column D would be "Surgery" , "OR" , "ER" , "PICU" , and "Other" .

If anyone could help with a vba code that could do this I would greatly appreciate it. Thanks!

Answer 1

Try the following

=IF(C2=1,B2,A2)

IF says that you will display the value of the second parameter if the first parameter is true. Otherwise it will copy the third parameter.

In my example, if C2 is equal to 1, then the function will return B2. Otherwise A2.

Answer 2

I think this is more of.... exactly what you want :)

Please please comment if you have any questions. I broke it apart for coding clarity and easy customization.

Option Explicit

'module-scope variables
Dim range1 As Range
Dim range2 As Range
Dim range3 As Range
Dim i As Long
Dim string1 As String

Dim address1 As String
Dim address2 As String


Sub derp()

'set your sheet here or just let it work on active sheet

Set range1 = Range("AG2:AG30")
Set range2 = Range("AB2:AB30")
Set range3 = Range("D2:D30")

For i = 0 To range3.Rows.Count

    string1 = range3(i).Value
    address1 = range1(i).Address
    address2 = range2(i).Address

    Select Case string1

        Case string1 = "Surgery"
            'do stuff here
            Call Valueswap(address1, address2)

        Case string1 = "OR"


        Case string1 = "ER"

        Case string1 = "PICU"

        Case string1 = "Other"

        Case Else
            'value in column D yields error, put a message here

    End Select

Next







End Sub

Function Valueswap(address1 As String, address2 As String)
    'puts second address value into the first address
    Range(address2).Value = Range(address1).Value

End Function