A "form" to drag/drop a list of items into a priority list

[dmj120]

Is there a way to have a the list in E4:E13 be able to drab and drop each into C4:C13; and even rearrange after?

So if I wanted to put "PM Required" (E4) as item l.5 (C8), I can simply drag it over.

Book3
	A	B	C	D	E	F
1
2		Priority hi/lo
3		Item	Drag Item		Item Name
4		I.1			PM Required
5		I.2			Needs PM parts
6		I.3			AEM Candidate (NoSM)
7		I.4			Service Delivery (Self-perform, VSC)
8		I.5			DM Labor
9		I.6			DM Parts
10		I.7			SM Labor
11		I.8			SM Parts
12		I.9			Model DM hrs with Device max/min
13		I.10			Model SM hrs with Device max/min
14
Sheet1

 

[rpaulson]

this may work for you.

double click the item in column e and pit will remove it a copy to the click board,
then click in column c and it will paste it in.

Dim cpyValue As Variant
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("E4:E13")) Is Nothing Then
        cpyValue = Target.Value
        Cancel = True
        Target.ClearContents
    End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not IsEmpty(cpyValue) And Not Intersect(Target, Range("C4:C13")) Is Nothing Then
        Target.Value = cpyValue
        copiedValue = Empty
    End If
End Sub

 

[dmj120]

Thanks man!!

 

[rpaulson]

FIxed a typo

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not IsEmpty(cpyValue) And Not Intersect(Target, Range("C4:C13")) Is Nothing Then
        Target.Value = cpyValue
        cpyValue = Empty
    End If
End Sub