Need Vba macro to convert data

K

Kamranmushtaq

New Member
Joined
Sep 17, 2014
Messages
1
[TABLE="width: 388"]
<tbody>[TR]
[TD]Date[/TD]
[TD]Department[/TD]
[TD]Time[/TD]
[TD]Seconds[/TD]
[TD]Frequency[/TD]
[/TR]
[TR]
[TD="align: right"]01-Sep[/TD]
[TD]HR[/TD]
[TD]0900-1100[/TD]
[TD="align: right"]30[/TD]
[TD="align: right"]2[/TD]
[/TR]
[TR]
[TD="align: right"]01-Sep[/TD]
[TD]HR[/TD]
[TD]0900-1100[/TD]
[TD="align: right"]60[/TD]
[TD="align: right"]2[/TD]
[/TR]
[TR]
[TD="align: right"]01-Sep[/TD]
[TD]SALES[/TD]
[TD]1900-2100[/TD]
[TD="align: right"]30[/TD]
[TD="align: right"]3[/TD]
[/TR]
[TR]
[TD="align: right"]01-Sep[/TD]
[TD]SALES[/TD]
[TD]1900-2100[/TD]
[TD="align: right"]60[/TD]
[TD="align: right"]4[/TD]
[/TR]
[TR]
[TD="align: right"]01-Sep[/TD]
[TD]ADMIN[/TD]
[TD]2200-2300[/TD]
[TD="align: right"]30[/TD]
[TD="align: right"]2[/TD]
[/TR]
[TR]
[TD="align: right"]01-Sep[/TD]
[TD]ADMIN[/TD]
[TD]2300-2400[/TD]
[TD="align: right"]60[/TD]
[TD="align: right"]3[/TD]
[/TR]
[TR]
[TD="align: right"]02-Sep[/TD]
[TD]HR[/TD]
[TD]0900-1100[/TD]
[TD="align: right"]30[/TD]
[TD="align: right"]2[/TD]
[/TR]
[TR]
[TD="align: right"]02-Sep[/TD]
[TD]HR[/TD]
[TD]0900-1100[/TD]
[TD="align: right"]60[/TD]
[TD="align: right"]1[/TD]
[/TR]
[TR]
[TD="align: right"]02-Sep[/TD]
[TD]SALES[/TD]
[TD]1900-2100[/TD]
[TD="align: right"]30[/TD]
[TD="align: right"]2[/TD]
[/TR]
[TR]
[TD="align: right"]02-Sep[/TD]
[TD]SALES[/TD]
[TD]1900-2100[/TD]
[TD="align: right"]60[/TD]
[TD="align: right"]3[/TD]
[/TR]
[TR]
[TD="align: right"]02-Sep[/TD]
[TD]ADMIN[/TD]
[TD]2200-2300[/TD]
[TD="align: right"]30[/TD]
[TD="align: right"]4[/TD]
[/TR]
[TR]
[TD="align: right"]02-Sep[/TD]
[TD]CS[/TD]
[TD]2300-2400[/TD]
[TD="align: right"]60[/TD]
[TD="align: right"]5[/TD]
[/TR]
</tbody>[/TABLE]

I want to make macro format my data ifrom this format to the below format


[TABLE="width: 388"]
<tbody>[TR]
[TD]Department[/TD]
[TD]Time[/TD]
[TD]Seconds[/TD]
[TD="align: right"]01/09/2014[/TD]
[TD="align: right"]02/09/2014[/TD]
[/TR]
[TR]
[TD]HR[/TD]
[TD]0900-1100[/TD]
[TD="align: right"]30[/TD]
[TD="align: right"]1[/TD]
[TD="align: right"]1[/TD]
[/TR]
[TR]
[TD]HR[/TD]
[TD]0900-1100[/TD]
[TD="align: right"]30[/TD]
[TD="align: right"]1[/TD]
[TD="align: right"]1[/TD]
[/TR]
[TR]
[TD]HR[/TD]
[TD]0900-1100[/TD]
[TD="align: right"]60[/TD]
[TD="align: right"]1[/TD]
[TD="align: right"]1[/TD]
[/TR]
[TR]
[TD]HR[/TD]
[TD]0900-1100[/TD]
[TD="align: right"]60[/TD]
[TD="align: right"]1[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]SALES[/TD]
[TD]1900-2100[/TD]
[TD="align: right"]30[/TD]
[TD="align: right"]1[/TD]
[TD="align: right"]1[/TD]
[/TR]
[TR]
[TD]SALES[/TD]
[TD]1900-2100[/TD]
[TD="align: right"]30[/TD]
[TD="align: right"]1[/TD]
[TD="align: right"]1[/TD]
[/TR]
[TR]
[TD]SALES[/TD]
[TD]1900-2100[/TD]
[TD="align: right"]30[/TD]
[TD="align: right"]1[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]SALES[/TD]
[TD]1900-2100[/TD]
[TD="align: right"]60[/TD]
[TD="align: right"]1[/TD]
[TD="align: right"]1[/TD]
[/TR]
[TR]
[TD]SALES[/TD]
[TD]1900-2100[/TD]
[TD="align: right"]60[/TD]
[TD="align: right"]1[/TD]
[TD="align: right"]1[/TD]
[/TR]
[TR]
[TD]SALES[/TD]
[TD]1900-2100[/TD]
[TD="align: right"]60[/TD]
[TD="align: right"]1[/TD]
[TD="align: right"]1[/TD]
[/TR]
[TR]
[TD]SALES[/TD]
[TD]1900-2100[/TD]
[TD="align: right"]60[/TD]
[TD="align: right"]1[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]ADMIN[/TD]
[TD]2200-2300[/TD]
[TD="align: right"]30[/TD]
[TD="align: right"]1[/TD]
[TD="align: right"]1[/TD]
[/TR]
[TR]
[TD]ADMIN[/TD]
[TD]2200-2300[/TD]
[TD="align: right"]30[/TD]
[TD="align: right"]1[/TD]
[TD="align: right"]1[/TD]
[/TR]
[TR]
[TD]ADMIN[/TD]
[TD]2200-2300[/TD]
[TD="align: right"]30[/TD]
[TD][/TD]
[TD="align: right"]1[/TD]
[/TR]
[TR]
[TD]ADMIN[/TD]
[TD]2200-2300[/TD]
[TD="align: right"]30[/TD]
[TD][/TD]
[TD="align: right"]1[/TD]
[/TR]
[TR]
[TD]CS[/TD]
[TD]2300-2400[/TD]
[TD="align: right"]60[/TD]
[TD="align: right"]1[/TD]
[TD="align: right"]1[/TD]
[/TR]
[TR]
[TD]CS[/TD]
[TD]2300-2400[/TD]
[TD="align: right"]60[/TD]
[TD="align: right"]1[/TD]
[TD="align: right"]1[/TD]
[/TR]
[TR]
[TD]CS[/TD]
[TD]2300-2400[/TD]
[TD="align: right"]60[/TD]
[TD="align: right"]1[/TD]
[TD="align: right"]1[/TD]
[/TR]
[TR]
[TD]CS[/TD]
[TD]2300-2400[/TD]
[TD="align: right"]60[/TD]
[TD][/TD]
[TD="align: right"]
1[/TD]
[/TR]
[TR]
[TD]CS[/TD]
[TD]2300-2400[/TD]
[TD="align: right"]60[/TD]
[TD][/TD]
[TD="align: right"]1
[/TD]
[/TR]
</tbody>[/TABLE]

It is sample data. number of days vary and also frequency also change
 

Excel Facts

Can a formula spear through sheets?
Use =SUM(January:December!E7) to sum E7 on all of the sheets from January through December
You must log in or register to reply here.

Similar threads

J
  • Question Question
Macro for copying data from multiple sheets to a common sheet based on a cell value
Replies
0
Views
411
jmk15315
J
ExcelNewbie2020
  • Solved
Convert horizontal data to vertical with running balance
Replies
4
Views
197
alansidman
A
Dazzawm
  • Solved
Macro To Find Latest Date To Corresponding Data In Column B And Add To Sheet 2
Replies
7
Views
317
Fuji
F
R
  • Solved
VBA Help - Split Data Worksheet with helper sheet into separate workbooks, preserve all formatting and structure and PW protect sheet
Replies
6
Views
352
John_w
J
Sufiyan97
  • Solved
VBA Filter Names from List One by One and then Copy filtered data v2
Replies
6
Views
175
Sufiyan97
Sufiyan97

Forum statistics

Threads
1,223,236
Messages
6,170,915
Members
452,366
Latest member
TePunaBloke

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top