Queries 06-01-10

  • Follow


I need help with this , it will not run, am i missing something.

Private Sub Worksheet_Activate()
Call Sheet5.getvalues
      Call Sheet5.SortRange1
End Sub
Sub getvalues()
lr = Application.Max(2, Cells(Rows.Count, 1).End(xlUp).Row)
'MsgBox lr
Rows("2:" & lr).ClearContents
With Worksheets("Automated RAC")
slr = .Cells(Rows.Count, "a").End(xlUp).Row
    'MsgBox slr
    For L = 2 To slr
      dlr = Cells(Rows.Count, "a").End(xlUp).Row + 1
    ' If .Cells(L, "L") =jone and not .cells(f, "F") = "Closed" Then 
..Rows(f).Copy Rows(dlr)
    If .Cells(L, "l") = jones Then .Rows(F).Copy Rows(dlr)
    Next L
End With
End Sub
Sub SortRange1()
   

End Sub
Sub Fixit1() 'Use if event macro stops working
 Application.EnableEvents = True
End Sub




-- 
Sherry
0
Reply Utf 6/1/2010 6:00:01 PM

0 Replies
284 Views

(page loaded in 0.033 seconds)


Reply: