Macro Code

Smitty

Legend

Joined

May 15, 2003

Messages

29,536

• Mar 6, 2008

• #2

You can test for it:

<font face=Calibri>    <SPAN style="color:#00007F">If</SPAN> Range("A1") = 1 <SPAN style="color:#00007F">Then</SPAN><br>        <SPAN style="color:#007F00">'   Do something</SPAN><br>    <SPAN style="color:#00007F">Else</SPAN><br>        <SPAN style="color:#007F00">'   Do something else</SPAN><br>    <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN></FONT>

That's just a very basic example, but hopefully it'll get you started.

 

Upvote 0

S

SAT-65

Board Regular

Joined

Feb 10, 2008

Messages

69

• Mar 7, 2008

• #3

Thanks for the start. I'm doing somthing wrong?

If Range("A1") = 1 Then
' Range("D3").Select
Selection.Copy
Range("B3").Select
ActiveSheet.Paste
Else
' Range("D6").Select
Application.CutCopyMode = False
Selection.Copy
Range("B6").Select
ActiveSheet.Paste
End If

End Sub

 

Upvote 0

Norie

Well-known Member

Joined

Apr 28, 2004

Messages

76,377

Office Version

1. 365

Platform

1. Windows

• Mar 7, 2008

• #4

SAT-65 said:

Thanks for the start. I'm doing somthing wrong?

Click to expand...

What do you think you are doing wrong?

The If Else End If structure looks fine to me.

The only problem I can see is Application.CutCopyMode = False followed by the use of Selection.

 

Upvote 0

Smitty

Legend

Joined

May 15, 2003

Messages

29,536

• Mar 7, 2008

• #5

OK, you followed my example a bit too closely. The text you see in green that's preceded by an apostrophe isn't actually code. The apostrophe forces VBA to see it as a comment. So what's happening is that you're not actually copying anything, therefore not pasting anything as a result. Here's what it should be:

If Range("A1") = 1 Then
Range("D3").Copy Range("B3")
Else
Range("D6").Copy Range("B6")
End If

Note that if you see "Select" followed by "Selection" you can generally eliminate both statements, which will really help your code. That's what I did, and why the code looks so short.

Now, since you're only copying single cell ranges, you can eliminate copying altogether:

If Range("A1") = 1 Then
Range("B3") = Range("D3")
Else
Range("B6") = Range("D6")
End If

 

Upvote 0

R

RalphA

Well-known Member

Joined

May 14, 2003

Messages

3,829

• Mar 7, 2008

• #6

"Heyya", Smitty! Nice, clear code and explanations.

 

Upvote 0

S

SAT-65

Board Regular

Joined

Feb 10, 2008

Messages

69

• Mar 9, 2008

• #7

Now I got it. Thanks

 

Upvote 0