Sir i stuck in your macro. 1 ) filter is not working 2) I have
usecanother macro for that sheet then where should i put ur macro. my
macro as follows
'Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cell As Range
Dim pcNum As Long
Dim party As String
Dim prod As String
Dim ws As Worksheet
Dim tgtRowNum As Long
Dim lastDataRow As Long
Set ws = ActiveSheet
lastDataRow = ws.Range("A1").End(xlDown).Row
'end the procedure if the cursor is not in the first empty cell in
column AIf Target.Column <> 1 Then Exit Sub
If Target.Row <> lastDataRow Then Exit Sub
'find the last identifier
With Range("A:A") 'The range to search
On Error Resume Next
Set Cell = .Find(Target.Value, ActiveCell, xlValues, xlWhole,
xlByRows, xlPrevious)
End With
'
If Cell Is Nothing Then
'If a new number series is required, use an input box routine here
Exit Sub
Else
pcNum = Cell.Offset(0, 8).Value
prod = Cell.Offset(0, 1).Value
party = Cell.Offset(0, 2).Value
Target.Offset(0, 8).Value = pcNum + 1
Target.Offset(0, 1).Value = prod
Target.Offset(0, 2).Value = party
End If
End Sub
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
HELP US GROW !!
We reach over 7000 subscribers worldwide and receive many nice notes about the
learning and support from the group.Let friends and co-workers know they can
subscribe to group at http://groups.google.com/group/excel-macros/subscribe
