michael_allen_24
Board Regular
- Joined
- Dec 29, 2010
- Messages
- 64
Hello, I need some help. I am not very experienced at writing macros and I cannot figure this one out so any help would be much appreciated. I am trying to create a macro that checks whether a value in Cell C2 is either "Rec" or "Spec". And then depending on that result, copy the value from cell D1 or I1 and paste it into the either filter C19:E19 or G19:J19. It works when I take the second IF argument out but when I put them both in, it does not. And if I put the End If after the first or second argument, it give me the compile error: end if without block if. Not sure what I am doing wrong, it’s probably something very basic. Again any help would be much appreciated. Thanks in advance.</SPAN>
' If ActiveSheet.Range("C2") = "Rec" Then</SPAN>
Range("D1").Select</SPAN>
ActiveCell.FormulaR1C1 = "=RC[-1]"</SPAN>
Range("D1").Select</SPAN>
Selection.Copy</SPAN>
ActiveSheet.Range("$C$19:$AF$1205").AutoFilter Field:=1, Criteria1:=Range("D1").Value</SPAN>
Range("C19:E19").Select</SPAN>
' If ActiveSheet.Range("C2") = "Spec" Then</SPAN>
Range("I1").Select</SPAN>
ActiveCell.FormulaR1C1 = "=RC[-1]"</SPAN>
Range("I1").Select</SPAN>
Selection.Copy</SPAN>
ActiveSheet.Range("$C$19:$AF$1205").AutoFilter Field:=1, Criteria1:=Range("I1").Value</SPAN>
Range("C19:E19").Select</SPAN>
End Sub</SPAN>
' If ActiveSheet.Range("C2") = "Rec" Then</SPAN>
Range("D1").Select</SPAN>
ActiveCell.FormulaR1C1 = "=RC[-1]"</SPAN>
Range("D1").Select</SPAN>
Selection.Copy</SPAN>
ActiveSheet.Range("$C$19:$AF$1205").AutoFilter Field:=1, Criteria1:=Range("D1").Value</SPAN>
Range("C19:E19").Select</SPAN>
' If ActiveSheet.Range("C2") = "Spec" Then</SPAN>
Range("I1").Select</SPAN>
ActiveCell.FormulaR1C1 = "=RC[-1]"</SPAN>
Range("I1").Select</SPAN>
Selection.Copy</SPAN>
ActiveSheet.Range("$C$19:$AF$1205").AutoFilter Field:=1, Criteria1:=Range("I1").Value</SPAN>
Range("C19:E19").Select</SPAN>
End Sub</SPAN>