Prev: VB code to Access 2000 code
Next: Query--using Access 2007
From: Sherry on 1 Jun 2010 14:39
I have a message that pops up saying debug, then I double click and receive
this
can anybody help me with this. I want to just pull all by george onto
another spreadsheet call call Jon and the info is pulling from master name
Grace.

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("Grace")
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") = GEORGEL and not .cells(f, "F") = "Closed" Then
..Rows(f).Copy Rows(dlr)
If .Cells(L, "l") = GEORGE Then .Rows(F).Copy Rows(dlr)
Next L
End With
End Sub
Sub SortRange1()
--
Sherry
From: Jeff Boyce on 1 Jun 2010 15:46
Sherry

Based on your code, I'm guessing you're working in Excel. This newsgroup
supports MS Access, the relational database.

Regards

Jeff Boyce
Microsoft Access MVP

--
Disclaimer: This author may have received products and services mentioned
in this post. Mention and/or description of a product or service herein
does not constitute endorsement thereof.

Any code or pseudocode included in this post is offered "as is", with no
guarantee as to suitability.

You can thank the FTC of the USA for making this disclaimer
possible/necessary.

"Sherry" <Sherry(a)discussions.microsoft.com> wrote in message
news:9259A68D-A31E-4BA9-BED8-D6A7B0FADB9A(a)microsoft.com...
> I have a message that pops up saying debug, then I double click and
> receive
> this
> can anybody help me with this. I want to just pull all by george onto
> another spreadsheet call call Jon and the info is pulling from master name
> Grace.
>
> 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("Grace")
> 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") = GEORGEL and not .cells(f, "F") = "Closed" Then
> .Rows(f).Copy Rows(dlr)
> If .Cells(L, "l") = GEORGE Then .Rows(F).Copy Rows(dlr)
> Next L
> End With
> End Sub
> Sub SortRange1()
> --
> Sherry


 | 
Pages: 1
Prev: VB code to Access 2000 code
Next: Query--using Access 2007