drag and drop settings

[KentKHI]

Hey Guys!

Is there a way to set the drag and drop settings to drag and drop values only, not formulas?

Thanks,

Kent

 

[erik.van.geit]

Hi, KentKHI !

Is there a way to set the drag and drop settings the way you want? Not to my knowledge.

Here is some code to try out. Formulas are dropped as values, just what you asked.
This could give you an idea to start.
Be warned: this kind of stuff has some inconvenients. Most of the times users don't like this. So add some warnings for them if you use this.
Testing you'll see what happens.

You will need an extra (hidden) sheet named "log" (or whatever)
This code is put in the worksheet module.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target(1).Formula = Sheets("log").Range("A1") Then Target = Target
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target(1).Select
Sheets("log").Range("A1") = "'" & Target(1).Formula
End Sub

regards,
Erik