Hi,

Is it possible using VBA to insert <Start> and <Finish> before and after a set of data.

Example:

Beginning data

71723,121222010,EXAPLECOMPANY,2-13-2013,
71723,121222010,EXAPLECOMPANY,2-13-2013,
71721,121221142,EXAPLECOMPANY,2-13-2013,
71718,121234503,EXAPLECOMPANY,2-13-2013,
71718,121234503,EXAPLECOMPANY,2-13-2013,
71720,121238748,EXAPLECOMPANY2-13-2013,

After VBA

<Start>
71723,121222010,EXAPLECOMPANY,2-13-2013,
71723,121222010,EXAPLECOMPANY,2-13-2013,
<Finish>
<Start>
71721,121221142,EXAPLECOMPANY,2-13-2013,
<Finish>
<Start>
71718,121234503,EXAPLECOMPANY,2-13-2013,
71718,121234503,EXAPLECOMPANY,2-13-2013,
<Finish>
<Start>
71720,121238748,EXAPLECOMPANY2-13-2013,
<Finish>

Thanks for any help or advice,

David

Hi

It is very much doable. The crude way is to read through the values in column A (I suppose) and whenever the value changes add the Tags.

Here is a place to start

http://msdn.microsoft.com/en-us/libr...ice.11%29.aspx

Cheers
Shasur

__________________
C# Code Snippets (http://www.dotnetdud.blogspot.com)

VBA Tips &amp; Tricks (http://www.vbadud.blogspot.com)

If your data is consistently in this format and you can parse working data in the columns next to the original data, then try this (with original data in A1:A6 cells and second delimited data point being the item monitored for change):


Sub Bracketing()

Range("A1").Select
Selection.EntireRow.Insert
ActiveCell.FormulaR1C1 = "<Start>"
Range("A2:A7").Select
Selection.Copy
Range("B2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.TextToColumns Destination:=Range("B2"), DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Comma:=True, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1)), TrailingMinusNumbers:=True
Range("C3").Select
Do While Len(ActiveCell.Formula) > 0
If ActiveCell.Formula = ActiveCell.Offset(-1, 0).Formula Then
ActiveCell.Offset(1, 0).Select
Else
Selection.EntireRow.Insert
ActiveCell.Offset(0, -2).FormulaR1C1 = "<Finish>"
ActiveCell.Offset(1, 0).Select
Selection.EntireRow.Insert
ActiveCell.Offset(0, -2).FormulaR1C1 = "<Start>"
ActiveCell.Offset(2, 0).Select
End If
Loop
ActiveCell.Offset(0, -2).FormulaR1C1 = "<Finish>"
Range("B1:E" & ActiveCell.Row).Clear
Range("A1").Select
End Sub