Sort data into another workbook

[BramGrey]

Ok,
I have 2 files.
- HOME.xlsm
- Has several tabs (01, 02, 03, 04, 05,... they are all blanco)
- INPUT.xlsx
- Has 1 tab calles "Sheet1".

In "Sheet1" there is some data. In the first column there is a always a number between 1 and ....

Whats I need is:

Import all rows that start with a "1" from "Sheet1", to "HOME" into tab "01"
Import all rows that start with a "2" from "Sheet1", to "Home" into tab "02"
Import all.....

and so on...

The only numbers that can be in the first column of "Sheet1" are from 1 to 6 and from 21 to 30. (not sure if this info is needed)
All tabs in "HOME" are already made.


Thanks a lot!!
Greetings from Europe, Belgium, Antwerp.

[Kramxel]

This seems relatively simple but can you attach a couple of sample workbooks please.

[BramGrey]

I hope the attachments are visible.

[BramGrey]

Input = import

[Sintek]

..................deleted................
Attachments uploaded....

[BramGrey]

@Sintek, I prefer not to send a file of what it should look like... too much work. Just sort the lines and write them in the correct Tab of the HOME workbook. The whole line,... if it's not clear, off course I send you what it should look like.

Anyway, Thx for the fast reply.

[jindon]

Place both files in the same folder and Run the code from Home.xlsm.

Please Login or Register  to view this content.

[BramGrey]

Error on:
Set rs = cn.Execute("SELECT * FROM [Sheet1$] WHERE F1 = " & Val(ws.Name))

[jindon]

Working here.

[BramGrey]

I'll send you the original files then... perhaps because I placed into an existing code.
Its still a work in progress...

In this example SeasonalityCheck = HOME

Already thanks a lot for the help.

PS, I know the file will probably won't work, due alle the links to files on my X drive.

[jindon]

Change to

Please Login or Register  to view this content.

[BramGrey]

AWSOME!!

Now to make it a bit more complex,

If I want to import only column A, B, C end D (so if I put some formulas in E, F, G they not get over written)

Thx!!

[jindon]

Just change

Please Login or Register  to view this content.

to

Please Login or Register  to view this content.

[Kramxel]

not the way I would have done it, but this is pretty impressive. guess I'm gonna go research ADODB connections and a little SQL.

[jindon]

guess I'm gonna go research ADODB connections and a little SQL.

It will be a very strong tool for you, and thanks for the rep.

[Kramxel]

You're right it is - only palyed around with a few basic examples but loving it so far and you're welcome.