VBA Macro to Excel(repost)

We need an Excel-macro that is simple and we would like to be able to modify the macro with more features later on.

The last coder that was trying to do the macro, did not deliver in time and was sending us a lot of macro to test. We do not have the time to do the testing.

We just want a simple macro with a menu.

It's important that you use a lot of comments in the code. We are not any good to write VBA Macros, so we need to have clear comments, so we will understand your code.

We are running MS OFFICE 2007 in Swedish.

## Deliverables

Every week, we got a spreadsheet with 1000+ rows and about 30 columns. And every week we are doing the same "fix up" of this file, manually.

We need to make a macro that will save us the time to do this.

The former vWorker coder have done 50 % of the job, allready.

We would like to run this case in two or three separately projects. We start with part one and if we like what you are doing, we will continue to modify this macro in part two and/or part three.

**Macro part one.

**

Lock row number one.

Bold row one

Insert ten new columns from C to L and give them the headlines below:

"Bolagets namn (firma) tillfixat utan AB"

"Bolagets namn (firma) tillfixat"

"Underlag dom?nnamn"

"Tillfixat-Underlag-domannamn-1"

"TillfixatUnderlagdomannamn2"

"Resultat 1"

"Resultat 2"

"Antal Dom?nnamn"

"IDN" (if the headline "Bolagets namn (firma)" contains one or more of the characters ??????????, then set this cell **YES**. If not, set this sell to **NO**)

"Barcode" (Use the value from "Bolagets organisationsnummer" and ad an asterisk in the beginning at the end of that value. For example *556491-7606*.We will then use a barcode font when we print the value from this sell.)

Insert three new columns at the end of the spreadsheet, right side and give them the headlines below. Those three new column will have a dialog box, because the value will change from week to week.

"Ant" (only text)

"Ver" (only text)

"Pris" (only numbers and max three characters)

Copy all values from the column "Bolagets namn (firma)" to "Bolagets namn (firma) tillfixat utan AB".

Use the column " Bolagets namn (firma) tillfixat utan AB" and

remove

" AB"

" Aktiebolag"

" Holding"

" Scandinavia"

" Sweden"

if those words are the LAST words in the cell. Note that the space before the word need to be removed too.

Remove

" i Stockholm"

" i G?teborg"

" i Malm?"

and 2000 more words if those words are the LAST words in the cell. Note that the space before the word need to be removed too. The words will be sent later. Note that the space before the word need to be removed too.

Replace the characters ?????????? with aAaAoOuUeE

Replace & with ""

Replace . med ""

Replace % med ""

Replace + med ""

Replace " och " med "-"

Replace : med ""

Replace " " med " "

Replace "'" med ""

Replace ", " with " "

Replace "/" med "-"

Replace "Fastighetsbolaget " med "" if the text is at the left in the cell!

Replace " - " med " "

Replace " " with " " (two spaces with one)

Remove a space if the cell begin with two single characters with a space between, if this is the first characters in the cell. For example: "X X SomeTextinTheCell". Then remove the space between the two X. The result will be" "XX SomeTextinTheCell".

If there is only upper case letters in the cell, then replace the text with uppercase characters in the every first word. But ONLY if the cell contains one or more space in the cell.

Example: "THIS IS A DEMO" will be "This Is A Demo"

Example: "THISISADEMO" will be "THISISADEMO"

Example: "THIS IS a DEMO" will be "This Is a Demo"

Example of the file we got every week is enclosed.

Excel Microsoft Access Microsoft Exchange Powerpoint Script Install Shell Script Software Architecture Word

Project ID: #3163962

About the project