Macro to give different outputs dependent on result

[Carlos]

Hi,

From what I've been learning I would have thought this was a simple Macro to
write. However I'm having a lot of trouble!!

Basically I want A macro that will check the value in cell A1 and if the
value equals 1 then it should give one output. but if it equals 2 it should
give another output etc for 4 or five outputs. I'm guessing that I need to
use the IF, then, else statement but can't seem to figure it out.

If someone could show me the code which does exactly this

If A1 = 1 then copy cell C1 and paste into D1 but if A1 = 2 then copy cell
C2 and paste into D2 but if A1 = 3 then copy cell C3 and paste into D4.

Then I can work from there with what I want it too do.

Thanks for your help!
Carl

 

[Gary''s Student]

Sub carlos()
Dim v As Integer
v = Range("A1").Value
Range("C" & v).Copy Range("D" & v)
End Sub

 

[paul.robinson]

Hi
Two ways to do this - using Select Case and If..then

Select Case:

Select Case Range("A1").Value
Case 1: Range("D1").Value = Range("C1").Value
Case 2: Range("D2").Value = Range("C2").Value
Case 3: Range("D3").Value = Range("C3").Value
Case Else: 'whatever
End Select

If..then...else

With Range("A1")
If .Value = 1 then
Range("D1").Value = Range("C1").Value
elseIf .Value = 2 then
Range("D2").Value = Range("C2").Value
elseIf .Value = 3 then
Range("D3").Value = Range("C3").Value
else
'whatever
End If
End With

regards
Paul

 

[Carlos]

Cheers Paul.

That is brilliant. i've used the if one and it worked first time.. I just
couldn't get the code right.

Thanks for both of your help!

Carl