Required VBA for filter data & transfer data

Hello Team

We want a VBA for solving my work..

We have a workbook with 12824 road record each data in single row (we submit sample datasheet of 20 record)

We want a vba for my entry sheet... where ENTER DISTRICT NAME IN CELL B2 THEN DIVISION NAME IN D2 THEN DISPLAY THOSE MATCHED RECORD FROM DATASHEET TO THIS SHEET &

WHEN WE PRESS Y in Cell I2 THEN TRANSFER THIS sheet DATA from row 6 TO end of filtered data in to PROGRESS SHEET (both sheet password is abc)

(this is my sample sheet we have 12824 road data with 75 distric & each distrcit has 3-4 divsion)

I know this is possible with Filter but in Filter we filter then copy then each time so we want a VBA

if we press only Enter & District Name or division Name then display all District data or if we chosse district name & press enter in Divisin name then display all divsion data in district (i.e. PD, CD-1 ,CD etc)


Thanks in advance

What result we want in entry sheet we also define...

Hello Charles
Thanks For Ur Quick Responce On My Problem..

We Copy This Code To Entry Sheet

But This Not Work As Per My Requirement We Once Again Clear What I Want

In Datasheet We Don't Want Any Change... After Run Vba ...

In Entry Sheet

Here We Required 3 Condition Filter

(1) In Cell Value B2 When We Enter District Name (Any Name From Datasheet Colum B) Then Selected District Name Data Filter From DATASHEET & Copy Those Record Here.

After That We want 2 more Condition

1 .... To Filter One More Match Condition .. Which Is Division ... Cell Value D2 (its depend into district name only those division data filter which district name we enter in cell B2)

2..... IN LAST ... If We Press Y (Yes) in cell value I2 then Copy this filter data (in entry sheet from Row No 6 to end) in PROGRESS SHEET.. LAST BLANK ROW

(NO RECORD REMOVE FROM DATASHEET)


in sort … when we enter distric name then vba start to wok

I think we must use case statement with three target cell value (B2, D2 and I2 cell)

Hope this time we clear what I want in my VBA…

Looking for your +ve respose

Try it on a copy of your original.
This code goes in a regular module.
Click on the "Maybe" button in sheet ENTRY to run this code.
It copies too many cells from the DATASHEET so you'll need to adjust to the right columns or let us know which cells you want copied.

Please Login or Register  to view this content.

This code goes in the ENTRY sheet module.
Double click on cell I2 to run the code.

Please Login or Register  to view this content.

Hi Charles
U very well understand what i want...exactly same what i want.......

Hello jolivanes ... ur provieded code work different from my requirement..
when we press may be button then data display (as per cell b2 & d2).. but we want when we press enter after name entry then automatic data display

& previous district filter data remove in entry sheet..(we check if all data is ok then we press y to cell I2 then this fillter data trasfer to progress sheet)

hope u understand...

Thanks both of u for sowing intrest...
we add rep both of u for this help

In the code "Maybe" delete the "r.AutoFilter field:=3, Criteria1:=Sheets("ENTRY").Range("D2").Value" line
Change the ENTRY Sheet code to this:

Please Login or Register  to view this content.

Hello Charles ur provided code work as per my requirement... only following error

when we choose district then we want clear data in entry sheet before showing filter data.... currently if we filter agra district then 5 row data display ... & when we choose cd-2 division then only one road data dispaly we want....... but currently all district data display..

ok button instad of input form.. we want saparat in entry sheet.. so that when we update data in entry sheet as per reuirement then we ensure that data is correct then press ok.. currently we bound with enter selection...we must enter ok with slection form..

hope u understand what 2 change i want in this...

again Thanks for showing.. intrest.. u take ur time as u much

Thank you very much charles sir.. you solve my problem..thank ..