Hi Kumar, You can use below vba code to get contractor details simply by entering Contractor Unique No and the filtered details will be saved to respected contractor sheets.
Sub AutofilterExample()
Dim Criteria As Integer
'Enter "Contractor Unique No" to get respected contractor details
Criteria = InputBox(" please enter Contractor Unique No to get him Details")
Worksheets("Daily Report").Activate
Worksheets("Daily Report").UsedRange.AutoFilter Field:=1,
Criteria1:=Criteria
'It will Copy the filtered Contractor details and pasted to the
respected contractor sheets
Worksheets("Daily Report").UsedRange.Offset(1,
0).SpecialCells(xlCellTypeVisible).Copy
'Respected Contractor detail sheet will be activated
Worksheets(Criteria + 2).Activate
ActiveSheet.Range("A4").Select
'Filtered contractor details will be saved into the respected contractor sheet
ActiveSheet.Paste
End Sub
Same code i have pasted in the attached file
If you have any question,please let me know
Regards,
Jayaraju Metta
On Sat, Jun 13, 2015 at 3:37 PM, Kumar Bhanushali
<kumar.bhanush...@pmcprojects.com> wrote:
>
> Dear Sir,
>
> I had attached a file which contains Daily Report sheet, I am updating this
> sheet daily. This sheet contains 7 nos of contractor.
>
> From this sheet, I have to separate data, contractor wise.
>
> Please help
>
>
>
> Regards,
> Kumar Bhanushali
> DISCLAIMER
> The information contained in this e-mail including attachment is meant only
> for the addressee and may contain confidential and privileged information.
> Any use, distribution, printing, retransmission, dissemination, copying or
> disclosure of this e-mail by any other person is strictly prohibited and may
> be unlawful. If you are not the intended recipient and receive this e-mail
> in error, please notify the sender by reply e-mail and then permanently
> delete this message. Electronic transmission cannot be guaranteed to be
> secured. Accordingly, PMC Projects (I) Pvt Ltd does not accept liability for
> any data loss, corruption, interception, unauthorised amendment, viruses,
> delays or consequences thereof.
>
> --
> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
> =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
> https://www.facebook.com/discussexcel
>
> FORUM RULES
>
> 1) Use concise, accurate thread titles. Poor thread titles, like Please
> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will
> not get quick attention or may not be answered.
> 2) Don't post a question in the thread of another member.
> 3) Don't post questions regarding breaking or bypassing any security
> measure.
> 4) Acknowledge the responses you receive, good or bad.
> 5) Jobs posting is not allowed.
> 6) Sharing copyrighted material and their links is not allowed.
>
> NOTE : Don't ever post confidential data in a workbook. Forum owners and
> members are not responsible for any loss.
> ---
> You received this message because you are subscribed to the Google Groups
> "MS EXCEL AND VBA MACROS" group.
> To unsubscribe from this group and stop receiving emails from it, send an
> email to excel-macros+unsubscr...@googlegroups.com.
> To post to this group, send email to excel-macros@googlegroups.com.
> Visit this group at http://groups.google.com/group/excel-macros.
> For more options, visit https://groups.google.com/d/optout.
--
Regards,
Jayaraju.M
+91-9492162134
--
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
https://www.facebook.com/discussexcel
FORUM RULES
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.
NOTE : Don't ever post confidential data in a workbook. Forum owners and
members are not responsible for any loss.
---
You received this message because you are subscribed to the Google Groups "MS
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.
Combined.xlsx
Description: MS-Excel 2007 spreadsheet
