laraerin
07-06-2016, 06:05 PM
Hi Everyone,
Using VBA, I want to transform this:
Exchange or install a total of 7 fire extinguishers. 1. Office rear kitchen - 1 x 3.5kg Co2 requires replacing as it has rust and around the cylinder and on the trigger - (unsafe) 2. Ventilation room level 2 carpark -1 x 5kg Co2 has not been pressure tested since 2009 requires replacing as its 2 years out of date. 3. Store room ADJT ventilation room – 1 x 5kg Co2 has not been pressure tested since 2009 requires replacing as its 2 years out of date. 4. Switch Board room in carpark - 1 x 5kg Co2 has not been pressure tested since 2009 requires replacing as its 2 years out of date. 5. Level 6 - 1 x 3.5 kg Co2 out of date requires replacing as its out of date. 6. Sugarcane Restaurant - 1 x 7 Ltr wetcam extinguishers for fat fire out of date - (requires replacing with new wetcam) 7. Sugarcane Restaurant - 1 x 5kg Co2 1 year out of date requires replacing with new C02 and signage.
into this:
Exchange or install a total of 7 fire extinguishers.
1. Office rear kitchen - 1 x 3.5kg Co2 requires replacing as it has rust and around the cylinder and on the trigger (unsafe)
2. Ventilation room level 2 carpark - 1 x 5kg Co2 has not been pressure tested since 2009 requires replacing as its 2 years out of date.
3. Store room ADJT ventilation room - 1 x 5kg Co2 has not been pressure tested since 2009 requires replacing as its 2 years out of date.
4. Switch Board room in carpark - 1 x 5kg Co2 has not been pressure tested since 2009 requires replacing as its 2 years out of date.
5. Level 6 - 1 x 3.5 kg Co2 out of date requires replacing as its out of date.
6. Sugarcane Restaurant - 1 x 7 Ltr wetcam extinguishers for fat fire out of date – (requires replacing with new wetcam)
7. Sugarcane Restaurant - 1 x 5kg Co2 1 year out of date requires replacing with new C02 and signage.
List numbers will always be in the format <space>[0-9].<space>
String is in A1
NOTE: Lists can go to double digits.
Any ideas?
Thanks in advance.
Using VBA, I want to transform this:
Exchange or install a total of 7 fire extinguishers. 1. Office rear kitchen - 1 x 3.5kg Co2 requires replacing as it has rust and around the cylinder and on the trigger - (unsafe) 2. Ventilation room level 2 carpark -1 x 5kg Co2 has not been pressure tested since 2009 requires replacing as its 2 years out of date. 3. Store room ADJT ventilation room – 1 x 5kg Co2 has not been pressure tested since 2009 requires replacing as its 2 years out of date. 4. Switch Board room in carpark - 1 x 5kg Co2 has not been pressure tested since 2009 requires replacing as its 2 years out of date. 5. Level 6 - 1 x 3.5 kg Co2 out of date requires replacing as its out of date. 6. Sugarcane Restaurant - 1 x 7 Ltr wetcam extinguishers for fat fire out of date - (requires replacing with new wetcam) 7. Sugarcane Restaurant - 1 x 5kg Co2 1 year out of date requires replacing with new C02 and signage.
into this:
Exchange or install a total of 7 fire extinguishers.
1. Office rear kitchen - 1 x 3.5kg Co2 requires replacing as it has rust and around the cylinder and on the trigger (unsafe)
2. Ventilation room level 2 carpark - 1 x 5kg Co2 has not been pressure tested since 2009 requires replacing as its 2 years out of date.
3. Store room ADJT ventilation room - 1 x 5kg Co2 has not been pressure tested since 2009 requires replacing as its 2 years out of date.
4. Switch Board room in carpark - 1 x 5kg Co2 has not been pressure tested since 2009 requires replacing as its 2 years out of date.
5. Level 6 - 1 x 3.5 kg Co2 out of date requires replacing as its out of date.
6. Sugarcane Restaurant - 1 x 7 Ltr wetcam extinguishers for fat fire out of date – (requires replacing with new wetcam)
7. Sugarcane Restaurant - 1 x 5kg Co2 1 year out of date requires replacing with new C02 and signage.
List numbers will always be in the format <space>[0-9].<space>
String is in A1
NOTE: Lists can go to double digits.
Any ideas?
Thanks in advance.