Dear Paul and gurus,
I want to find the last row. Is this OK?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim LastRow As Long
If WorksheetFunction.CountA(Cells) > 0 Then
'Search for any entry, by searching backwards by Rows.
LastRow = Cells.Find(What:="*", After:=[A1], _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
MsgBox LastRow & " You cant go beyond this workbook closed."
end sub
or somthing like this.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim LastRow As Long
LastRow = ActiveSheet.UsedRange.Rows.Count
if LastRow=>10 then
MsgBox LastRow & " You cant go beyond this workbook closed."
endif
end sub
Thanks
On Mon, Nov 9, 2009 at 8:34 PM, Paul <schreiner_p...@att.net> wrote:
>
> What do you mean by "last row with data = 10"?
> do you mean that row #10 has data?
> or that the last row with data has a VALUE of 10 in a specific column?
> will there be data in rows 1-9?
> What columns will the data be in? look for ANY data in row 10?
>
> What do you want to use to trigger the event?
> When does the last row change to 10?
>
> do you want to save the workbook when it closes?
>
> You could create an event:
> Private Sub Worksheet_Change(ByVal Target As Range)
>
> test for whatever you're testing for:
> If (Target.Row = 10) then
>
> then:
>
>
> ThisWorkbook.Close savechanges:=False
>
>
>
>
> On Nov 8, 11:31 pm, OSAVentures Calamba <osav...@gmail.com> wrote:
> > dear gurus,
> >
> > i need to close a workbook if last row with data =10, Any VBA suggestion
> > please?
> >
> > dellosa
> >
>
--~--~---------~--~----~------------~-------~--~----~
----------------------------------------------------------------------------------
Some important links for excel users:
1. Excel and VBA Tutorials(Video and Text), Free add-ins downloads at
http://www.excelitems.com
2. Excel tutorials at http://www.excel-macros.blogspot.com
3. Learn VBA Macros at http://www.vbamacros.blogspot.com
4. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
If you find any spam message in the group, please send an email to:
Ayush Jain @ jainayus...@gmail.com or
Ashish Jain @ 26may.1...@gmail.com
<><><><><><><><><><><><><><><><><><><><><><>
HELP US GROW !!
We reach over 6,500 subscribers worldwide and receive many nice notes about the
learning and support from the group. Our goal is to have 10,000 subscribers by
the end of 2009. Let friends and co-workers know they can subscribe to group at
http://groups.google.com/group/excel-macros/subscribe
-~----------~----~----~----~------~----~------~--~---
