Replacing a Range with another Range

[El Jameo]

Hey all.


So I'll try to explain this as best as I can. I want to make it so that a Range is replaced with another Range. So:


Sub TeamFillOuts()

If Range("C5") = "Go Ape" Then

Range("C7", "C9") = Range("$P$9", "$P$11")

End If

End Sub


If that makes sense. But it obviously doesn't work.


Also, is there an ElseIf function?


Thanks all.

 

[sdsurzh]

Hi El,


Try this


Sub TeamFillOuts()

If Range("C5") = "Go Ape" Then

Range("C7").Value = Range("$P$9").Value

Range("C9").Value = Range("$P$11").Value

End If

End Sub


Thanks,

Suresh Kumar S

 

[majay1973]

Hi El,


You can try this...


Sub TeamFillOuts()

If Range("C5") = "Go Ape" Then

Range("C7") = Range("P9")

Range("C9") = Range("P11")

End If

End Sub

 

[Debraj]

Hi El Jameo,


Fortunately below is working.. as Gaps between you destination cell and source cell are same..

[pre]

Sub TeamFillOuts()
If Range("C5") = "Go Ape" Then
Range("C7,C9").Formula = "=$P9"
Else
Range("C7,C9") = "Yes! There is a ELSE loop also available in Excel..:)"
End If
End Sub

[/pre]

By the way.. Welcome to the forum...

Regards,

Deb

 

[El Jameo]

Thanks for the help all. Got it working.