A PHP and Perl based system to collect and display usage statistics from PostgreSQL databases.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
code events for combobox1 Option Explicit Public oldTarget As Range sheet1 events Private Sub ComboBox1_Change() If Not oldTarget Is Nothing Then oldTarget = ComboBox1.Value ComboBox1.Height = ActiveCell.RowHeight - 6 ComboBox1.Width = 148 End Sub Private Sub ComboBox1_Click() On Error Resume Next If Not oldTarget Is Nothing Then oldTarget = ComboBox1.Value ComboBox1.Height = ActiveCell.RowHeight - 6 ComboBox1.Width = 148 End Sub Private Sub ComboBox1_GotFocus() ComboBox1.DropDown ComboBox1.Height = ActiveCell.RowHeight - 6 ComboBox1.Width = 148 End Sub Private Sub Worksheet_SelectionChange(ByVal target As Range) Dim CutCopyMode As XlCutCopyMode If PreviouslySelectedRange Is Nothing Then Set PreviouslySelectedRange = target Application.CutCopyMode = False End If CutCopyMode = Application.CutCopyMode ComboBox1.Top = ActiveCell.Top ComboBox1.Top = target.Top 'ComboBox1 value (if changed) will be stored in same row as target, column c Set oldTarget2 = Cells(target.Row, 3) ComboBox1.Height = ActiveCell.RowHeight - 6 ComboBox1.Width = 148 Select Case CutCopyMode Case xlCopy: PreviouslySelectedRange.Copy Case xlCut: PreviouslySelectedRange.Cut Case Else: Set PreviouslySelectedRange = target End Select ' get out of column Headers If target.Rows.Count = Cells.Rows.Count Then Exit Sub If Not Intersect(target, [A1:AU1]) Is Nothing Then MsgBox "Not Allowed To Edit!", vbCritical, "Template Protection Error" Range("A2").Select End If End Sub
|first name and last initial in excel||11||28|
|Set the row height to autofit in all workshets and increase that height by 4 points (by means of VBA)||9||29|
|Excel formula to report date modified||14||21|
|Copy column before Column A using a macro||6||12|