Needs VBA to Pull Data from Queries to Forms

[nkms143]

Hi to all,

I have a Client Data base which has been saved in Excel Sheet. Each Client has it own Excel File. Now, What i Want is to Pull Data from Each Client in a Prefixed Form Format. Now i'm in Doubt that Formulas will work. Hence, I Need VBA Code to pull Data from Client Database. I have added 2 Sheets namely 'Working sheet' and 'Queries' in the Sample Workbook. What i want is A VBA Code Which will pull Data from Queries Sheet to Working sheet which contains a form which is a fixed pattern. Few Cells Highlighted with blue colors Contains Formulas hence it should be left untouched. Some of the Fields in Queries sheet have multiple Rows which also needs to pe pulled in Working Sheet. Any Help is Greatly Appreciated. Thanks in Advance

 

[vletm]

Where do You need VBA Code?
Why You cannot write to 'Working Sheet' Cell A5 =Queries!B4 and so on?

 

[nkms143]

I have to do this for each and every Query Sheet in Different File. So Forumla Won't Work. A VBA Will Work For me. A Macro Module Will Work For me.

 

[vletm]

So, You can do that Yourself!
Make own Macro like ...

Sub Do_nkms143()
    Sheets("Working Sheet").Range("A5") = Sheets("Queries").Range("B4")
'    and so on...
end sub

... and if You can use some loop then less code
> Ideas? ... Answers? ... Questions?

 

[nkms143]

I have already tried the Code. However the length of the Code is too big. Is there any another alternate code which involves lesser code!!!!!!

 

[vletm]

What is too big?
Maybe 64k of code is too big?

Sub Do_nkms143()
    Q = "Queries"
    with sheets("Working Sheet")
        .range("A5") = sheets(Q).range("B4")
'        and so on
    end with
end sub