Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
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.
Private Sub Worksheet_SelectionChange(ByVal target As Range) ComboBox1.Top = ActiveCell.Top ComboBox1.Top = target.Top 'ComboBox1 value (if changed) will be stored in same row as target, column c Set oldTarget = Cells(target.Row, 3) ComboBox1.Height = ActiveCell.RowHeight - 6 ComboBox1.Width = 148 ' 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
|VBA: create a write log procedure||8||63|
|Excel 2016 lost MRU list||8||61|
|copy a docm-file from a fixed folder location into the folder of the currently active workbook using VBA||4||22|
|Need adjust data counting||17||11|