Macro to give different outputs dependent on result
 

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

Macro to give different outputs dependent on result
 

Sub carlos()
Dim v As Integer
v = Range("A1").Value
Range("C" & v).Copy Range("D" & v)
End Sub
--
Gary''s Student - gsnu200767

Macro to give different outputs dependent on result
 

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

On Feb 6, 10:22*am, Carlos wrote:
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

Macro to give different outputs dependent on result
 

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

" wrote:

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

On Feb 6, 10:22 am, Carlos wrote:
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