VBA moving and adding data

J

James

I have this appliaction that spits out a format that is not usable for me,
but with some minor changes it would be good to go. I just don't know how
the code would work.

here is what part of my file looks like:
ColumnA Coulmn B Column C Column D
FAULT F02 8
PILLAR 3018169.273 492458.0997 -9771.365343
3017502.798 493106.6833 -8696.365343
3016836.323 493755.2668 -7621.365343
3016169.848 494403.8503 -6546.365343
3015503.373 495052.4339 -5471.365343

Here is what I would like it to look like:
ColumnA ColumnB ColumnC ColumnD ColumnE
PILLAR 3018169.273 492458.0997 -9771.365343 F02
2 3017502.798 493106.6833 -8696.365343 F02
2 3016836.323 493755.2668 -7621.365343 F02
2 3016169.848 494403.8503 -6546.365343 F02
3 3015503.373 495052.4339 -5471.365343 F02

The changes are that below the word Pillar I need it to fill in with 2, 2,
2, 3. There will always be 4 rows below the word PILLAR. The next edit is
that when ever it see's the word Fault I need it to take that Fault name in
this case "F02" in place that in the new column E. Than it can delete the
line with the word "FAULT" in it.

My file will have several of these changes:
FAULT F02 8
PILLAR 3018169.273 492458.0997 -9771.365343
3017502.798 493106.6833 -8696.365343
3016836.323 493755.2668 -7621.365343
3016169.848 494403.8503 -6546.365343
3015503.373 495052.4339 -5471.365343
PILLAR 3020447.789 492879.3342 -9810.206268
3019781.72 493506.5923 -8735.206268
3019115.651 494133.8503 -7660.206268
3018449.582 494761.1083 -6585.206268
3017783.513 495388.3663 -5510.206268
FAULT F01 12
PILLAR 3003939.811 477721.429 -9506.335762
3003782.961 478547.8341 -8209.876673
3003626.112 479374.2393 -6913.417583
3003469.262 480200.6444 -5616.958494
3003312.412 481027.0496 -4320.499404
PILLAR 3024619.206 495966.8091 -9807.286549
3023966.167 496558.5893 -8732.286549
3023313.128 497150.3695 -7657.286549
3022660.089 497742.1497 -6582.286549
3022007.05 498333.9300 -5507.286549

So you can see where it gets complicated from time to time. Thank you for
the help.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top