Cannot execute multiple Range in a Sub

[techissue2008]

Hi

I tried the following code but it shows an error:

Sub test2col()
Sheets("Sheet6").Cells.ClearContents
Sheets("Sheet6").Range("A:B").Value = Sheets("Sheet1").Range("A:B").Value
Sheets("Sheet6").Range("D").Value = Sheets("Sheet1").Range("C").Value
End Sub

It said

Sheets("Sheet6").Range("D").Value = Sheets("Sheet1").Range("C").Value
End Sub

has error.

Does a Sub not support to use Range more than one time? If so, do I need to write many Sub to do it?

Thanks for advance.

 

[dafan]

Range("D") or ("C") are not valid ranges...

Just C or D are no cells, so you can't refer to them. If you want to copy columns, use Range("D:D") and ("C:C").

 

[techissue2008]

Thank you for your help.

May I ask do you know whether VBA can write comment?

e.g. //, <!-- -->, #

Does it support it?

 

[jindon]

Sheets("Sheet6").Range("D").Value = Sheets("Sheet1").Range("C").Value

Sheets("Sheet6").Columns("D").Value = Sheets("Sheet1").Columns("C").Value

 

[sbeatton]

Try the below. You need to reference a column as "C:C" not "C"

Sub test2col()
Sheets("Sheet6").Cells.ClearContents
Sheets("Sheet6").Range("A:B").Value = Sheets("Sheet1").Range("A:B").Value
Sheets("Sheet6").Range("D:D").Value = Sheets("Sheet1").Range("C:C").Value
End Sub

 

[sbeatton]

Lost you a bit with #,./ etc

Do you mean can you do this?

Sub test()
Range("B6") = "#"
End Sub

 

[dafan]

If you mean comments in your own code, prefix your comments with ' or #

'This is a comment
This is not a comment
#This is a comment

If you mean comments in cells, use:

Range("B6").AddComment.Text "This is a comment"</pre>

 

[techissue2008]

No, I just want to write a comment to remark it.

Sub test1()
Sheets("Sheet6").Cells.ClearContents
Sheets("Sheet6").Range("A:A").Value = Sheets("Sheet1").Range("D:D").Value // retireve one column data need "A:A"
End Sub

I just want to add a comment or phase out some code by /* ... */

 

[dafan]

Sub test1()
Sheets("Sheet6").Cells.ClearContents
Sheets("Sheet6").Range("A:A").Value = Sheets("Sheet1").Range("D:D").Value ' retireve one column data need "A:A"
End Sub</pre>

</pre>

 

[techissue2008]

Thank you very much.

I read the online book about VBA.
http://www.myplick.com/view/dh_sYXs_Jkn/VBA-Programming-for-Excel?from=53KKMiPCm70

I found that there are 2 symbols that I do not understand:
(1) _ 'It happens in the end of line of code
(2) := 'does it mean not equal? but the book said the not equal operator should be <>

May I ask what do they mean?