Changes only

[thorpyuk]

Hiya,

I have a spreadsheet that you can enter customer details onto. I can 'import' these details by using a search, and then change them at will.

The one problem is that I wish to export changes into a sheet called 'export'

Therein lies the problem..... I can easily enough just copy everything into the export spreadsheet, but then I can forsee the conversation approaching: "cant you just give us what has changed?"

Now, i've seen a few macros that can either add comments to a cell, or add text to an adjecant cell if anything changes, but these are no good for me for 2 reasons:

1) I use a macro to import into the sheet in the first place, and this constitues several change events in the worksheet_change module.
2) I would then need to easily export the changes, and I dont see me being able to do this easily given the method above.

Please can anyone point me in the right direction? I'm not necessarily looking for code, but any ideas you may have would be great! Thanks

 

[thorpyuk]

*bump*

 

[Gerald Higgins]

What does your data look like ?

 

[thorpyuk]

Here's the form that the data is imported into. I want to bring the changes into a basic export sheet (where the data will be a lot more linear)

 

[thorpyuk]

*bumpety bump*

 

[thorpyuk]

Does anyone have any ideas for a workaround?

 

[jindon]

Hi

Can you tell us about changes? about what againt what?

 

[thorpyuk]

The user can change any of the fields in the picture above.... is that what you mean?

 

[jindon]

Not sure if this is what you wanted
to a sheet module

Private OldData(1)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
OldData(0) = OldData(1)
OldData(1) = Target.Value
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then
     With Application
          .EnableEvents = False
          .Undo
          .EnableEvents = True
     End With
     Exit Sub
End If
If Target.Value <> OldData(0) Then
     Application.EnableEvents = False
     Target.Offset(,1).Value = "Was : " & OldData(0) & ", Now : " & Target.Value
     Application.EnableEvents = True
End If
End Sub