Hey,
I am using the following bit of code to try to copy and paste some information based on if a value is found or not:
[VBA]
Dim lookin As Range
Dim found As Variant
Set lookin = Sheets(comptype).Columns("B:B")
Set found = lookin.Find(size, LookAt:=xlWhole, MatchByte:=False)
If found Is Nothing Then
Exit Sub
Else
Sheets(comptype).Activate
Range("c2:g2").Select
Selection.Copy
f = b + 11
Worksheets("sheet1").Activate
Range(Cells(a, f), Cells(a, f).Offset(5, 0)).Select
Selection.Paste
End If
[/VBA]
Neither of my range selections following the "else" statement work
ANy ideas?
Edit Lucas: vba tags added to code. You can select your code when posting and hit the vba button to format it for the forum.