Redo / Add more stuff in a makro

Hello!
I will try my best explain the help i need from you guys and i'll attach the files too. (P.S. i have not created the files)

Loadinglists 1.0 - Current file.
Loadinglists 2.0 - Example.


Current usage:
Sheet Inklistring - This sheet is from the start totally blank. In there right now is the typical input data.
Sheet Sorteringslista - This sheet is from the start totally blank. In there right now is the input data converted to the right output after pressing Hämta_Rutt_Information

There is two buttons on Sheet Sorteringslista:
Button Rensa_Klistra_In - Clears all the input data.
Hämta_Rutt_Information - Converts the input data which looks after the numbers from Lista_Utskrift, which is 3003, 3004, 3006. (<-- These are unit numbers and could be different)

What happens, is that from the input data, the makro outputs the data in to a more readable way by pressing Hämta_Rutt_Information and even does an automatic print of data.
But the makro only handles only one unit number at the time, but i would like to handle more at the same time with a 5-row-space between the "headers" and NOT print automaticly.
I need to be a "standing" print too.

I'm limited in English, so maybe I don't get what you mean correctly.

Anyway, the attachment files has sheet1 and sheet2.

The beginning condition in sheet1
1. has only a header just like the header in sheet Sorteringslista
2. has three value (3003, 3004 and 3006) for Lista_Utskrift on column L.

The button in Sheet1 will :
1. make a range of the defined column number in sheet Inställningar (C4:C11)
2. make a range of the data in sheet Inklistring
3. clear the rows right under the header in Sheet1
4. make a range of the data under Lista_Utskrift on column L.
4. put each result (from sheet Inklistring data) to whatever value in Lista_Utskrift with it's own header.
In this example it will list 3003, 3004 and 3006 since these value are in Lista_Utskrift on column L.

Attachment 769231

In Sheet 2, it has the same beginning condition with sheet1 - but has no button.
The macro will run based on what you type in the yellow box.
If you type 3003, then it show only the 3003 data of sheet Inklistring.

But that's if I'm not mistaken to get what you mean.

Hello!
Sorry for being unclear about certains parts in the Excel, but you got the point either way.
Really glad about the test1-shett

How do i change the formatting without destroying the Excel itself? :P

For an example, want to center align the data and it want to remove column a + b, but not sure if column is used for anything?

Originally Posted by ScaniaR730

How do i change the formatting without destroying the Excel itself? :P
For an example,
want to center align the data

If you want the result is in horizontal center alignment,
add this line :

 rgBorder.HorizontalAlignment = xlCenter

right after this code line

Set rgBorder = Range(oResult, oResult.Offset(rc, ofst - 1))

and it want to remove column a + b, but not sure if column is used for anything?

Sorry once again, I'm limited in English, so I can't understand what you mean.
Did you mean my code (sub test1) is trying to remove column A and B in sheet1,
but the code is not sure if column A and column B in sheet1 is used or not ?

Originally Posted by karmapala

If you want the result is in horizontal center alignment,
add this line :

 rgBorder.HorizontalAlignment = xlCenter

right after this code line

Set rgBorder = Range(oResult, oResult.Offset(rc, ofst - 1))

Sorry once again, I'm limited in English, so I can't understand what you mean.
Did you mean my code (sub test1) is trying to remove column A and B in sheet1,
but the code is not sure if column A and column B in sheet1 is used or not ?

I have no clue how to change the code at all. Can you help me?

I want to save some space on (sub test1), so can you remove column A and keep column B?
Think that column B is needed.

Hi Hi ScaniaR730,
Please have a look the attachment file.
Thank you.