Custom Code

[adamsm]

Hi,

How could I write a macro code that would copy the range <code>"I11,M15,I10,I12,I15,M13,I14,K14,I13,O13" </code>from the active sheet if cell "I10" is not empty.


If the cell "I10" is empty How could the code be made to copy the range <code>"I11,M15,D17,I12,I15,M13,I14,K14,I13,O13" from the active sheet.


Any help to do this please?</code><code></code>

 

[Trevor G]

Take a look at this as an example

Sub test()
Dim i As Long
If Range("I10") <> "" Then
With ActiveSheet.Range("I11,M15,I10,I12,I15,M13,I14,K14,I13,O13")
For i = 1 To .Areas.Count
.Areas(i).Copy Sheets("sheet2").Range(.Areas(i).Address)
Next
End With
ElseIf Range("I10") = "" Then
With ActiveSheet.Range("I11,M15,D17,I12,I15,M13,I14,K14,I13,O13")
For i = 1 To .Areas.Count
.Areas(i).Copy Sheets("sheet2").Range(.Areas(i).Address)
Next
End With
End If

End Sub

 

[Peter_SSs]

How could I write a macro code that would copy the range ..

Copy to where?

Is there a reason that you have listed all the cells individually and in a non-systematic way?
For example, in terms of the cells included
Range("I11,M15,I10,I12,I15,M13,I14,K14,I13,O13")
could also be written as
Range("I10:I15,K14,M13,M15,O13")

 

[adamsm]

Thanks for the help. It worked fine and I do really appreciate it.