Possible to Create New Records Based on IF Statement?

[knotty150]

Morning All

Would anyone be able to tell me if it's possible to create another record, for a record based on an IF statement? e.g.:

Sales ID</SPAN>	Sales Person A</SPAN>	Support Sales Person</SPAN>	Amount (£)</SPAN>
456789</SPAN>	Malcolm</SPAN>	Douglas</SPAN>	10</SPAN>

<TBODY>
</TBODY>

I've got data in the above format. I want to produce a table of sales person stats whereby if a record has a "Support Sales Person" (not all of them do), an additional record is create with the "Support Sales Person" listed as the "Sales Person:"

Sales ID</SPAN>	Sales Person A</SPAN>	Support Sales Person</SPAN>	Amount (£)</SPAN>
456789</SPAN>	Douglas</SPAN>		10</SPAN>

<TBODY>
</TBODY>

Reason being is I'd like to be able to include the records with a "Support Sales Person" in the "Sales Person" stats, but then also reflect them separately.

Hope that makes sense!

Thanks

Rich

 

[ChrisBM]

As long as you haven't already made any of the separate mapping tickets it's pretty easy.

'Imagine table starts at in column A in Startrow and ends in Column D in EndRow
For i = Startrow to EndRow
         If Range("C" & i).Value = "" Then
           'Nothing there, not a problem move on
         Else
           'Support Sales Person Present
           
           'Check if already Present
           If Range("A" & i+1).Value = Range("A" & i).Value Then

           Else 


                      'Insert new row
                      Range("A"&i)[COLOR=#333333].Offset(1).EntireRow.Insert[/COLOR]
                      'Put in Data
                      Range("A" & i+1).Value = Range("A" & i).Value
                      Range("B" & i+1).Value = Range("C" & i).Value
                      Range("D" & i+1).Value = Range("D" & i).Value
                      EndRow = EndRow + 1
             End If
         End If 
Next

Edited a bit

Kind Regards,
Chris

 

[knotty150]

That's belting, thanks for your help Chris!

Rich