Contact list, mailing labels and invoices

[skelyrata]

Hello. I am glad I found this forum.

I have a problem for which I haven't found a real solution but I am sure there has to be one so here I am praying you guys can point me in the right direction.

Firsty of all my knowledge of Excel is intermediate and NONE for macros.

I started at a new job.

They have a spreadsheet with conctact information divided into columns by company, contact name, email, tel, division, address on sheet # 1.

Every year they send invoices to those companies, but they create the labels and the invoices kind of mannually, I mean they go to sheet # 2 and they create the mailing labels by referencing to the cells one by one, for 150 companies. They do the same thing for the invoices on sheet # 3. I mean it takes like three days to update all that.

Now I am sure Exel must have a very easier and quick way to generate labels and invoices but I have googles around and haven't found the right formula or commands.

Can anybody help me here?

 

[DebugGalpin]

VBA can do this yes but the info you've provided would be too vague for me to do it.

Sheets 2 & 3 is created by looping down sheet1 and putting the information where you want it in Sheet 2.

Label wise... I presume company, contact name, email, tel, division, address relate to the columns A to F, and you want Contact Name, Company, Address in that order (i.e. Columns B, A then F)

I am assuming Cells A1 says "Company" and the first line of data is on A2
s=2
Do until Sheets("Sheet1").Cells(a,1) = vbnullstring
irow = Sheets("Sheet2").Cells(Rows.Count,1).End(xlup).Row+2
Sheets("Sheet2").Cells(irow,1) = Sheets("Sheet1").Cells(s,2)
Sheets("Sheet2").Cells(irow,1+1) = Sheets("Sheet1").Cells(s,1)
Sheets("Sheet2").Cells(irow,1+2) = Sheets("Sheet1").Cells(s,6)

s=s+1
Loop