newbie trying to workout copy
I've trying a conditional copy and paste routine but, being
a newbie, can't work it out. I have searched through
everyone's website and Goggle but can't seem to find
anything that will point me in the right direction.
I have done the record macro routine and tried to add in
conditional If but that ain't happening. Here is what I
have done.
I have three other possible conditions for "level"
(MITE,BLASTBALL,SQUIRT) which I hope to work in with Else If.
Sub Macro1()
'
' Macro1 Macro
' Macro recorded 01/04/2004 by
'
'
Application.Goto Reference:="level"
If level = "MIDGET" Then
Application.Goto Reference:="midget"
Rows("3:3").Select
Selection.Insert Shift:=xlDown,
CopyOrigin:=xlFormatFromRightOrBelow
Application.Goto Reference:="Input"
Selection.Copy
Application.Goto Reference:="midget"
Range("B3:G3").Select
ActiveSheet.Paste
End If
End Sub
Not sure what I'm doing
Any help whould be appreciated
|