version 1.4

changes.frm

@@ -75,6 +75,35 @@ Private Sub UserForm_Activate()
     End If
     Me.lbHist.list = X
     
+    lbHEAD.ColumnCount = lbHist.ColumnCount
+    lbHEAD.ColumnWidths = lbHist.ColumnWidths
+
+    ' add header elements
+    lbHEAD.clear
+    lbHEAD.AddItem
+    lbHEAD.list(0, 0) = "Modifier"
+    lbHEAD.list(0, 1) = "Owner"
+    lbHEAD.list(0, 2) = "When"
+    lbHEAD.list(0, 3) = "Tag"
+    lbHEAD.list(0, 4) = "Comment"
+    lbHEAD.list(0, 5) = "Sales"
+    
+    
+
+    
+
+    ' make it pretty
+    'body.ZOrder (1)
+    'lbHEAD.ZOrder (0)
+    'lbHEAD.SpecialEffect = fmSpecialEffectFlat
+    'lbHEAD.BackColor = RGB(200, 200, 200)
+    lbHEAD.Height = 10
+
+    ' align header to body (should be done last!)
+    lbHEAD.width = lbHist.width
+    lbHEAD.Left = lbHist.Left
+    lbHEAD.Top = lbHist.Top - (lbHEAD.Height - 1)
+
 End Sub
 
 Sub delete_selected()

fpvt.frm

@@ -126,6 +126,7 @@ Private Sub cbGoSheet_Click()
     Worksheets("month").sbMPP.value = 0
     
     Me.Hide
+    months.cbMTAG.value = ""
     Worksheets("month").Visible = xlSheetVisible
     Sheets("month").Select
 
@@ -579,7 +580,7 @@ Private Sub UserForm_Activate()
     End If
     
     '----------reset spinner buttons----------------------
-    sbpd.value = 0
+    sbpv.value = 0
     sbpp.value = 0
     sbpd.value = 0
     

months.cls

@@ -558,6 +558,7 @@ Sub build_json()
         Set np("scenario")("iter") = JsonConverter.ParseJson("[""copy""]")
         np("source") = "adj"
         np("type") = "new_basket"
+        np("tag") = cbMTAG.text
         Set m = JsonConverter.ParseJson("{}")
     End If
     

pivot.cls

@@ -15,7 +15,7 @@ End Sub
 
 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, cancel As Boolean)
 
-    If Intersect(Target, ActiveSheet.Range("b7:v100000")) Is Nothing Then
+    If Intersect(Target, ActiveSheet.Range("b8:v100000")) Is Nothing Then
         Exit Sub
     End If