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.
Sub PostProcessing() Dim MainWorksheet As Worksheet ' Make sure your worksheet name matches! Set MainWorksheet = ActiveWorkbook.Worksheets("Have") Dim DataRange As Range Dim lastRow As Long Set DataRange = MainWorksheet.UsedRange ' Now that you have the data in DataRange you can process it. mainworksheet.range("A1:J1").Font.Bold = True mainworksheet.range("A1:J1").Interior.ColorIndex = 15 With MainWorksheet .Rows(1).Insert With .Rows(2) .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = True .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With With .Range("B1:J1") .Merge .HorizontalAlignment = xlCenter .Font.Bold = True .FormulaR1C1 = "Test Execution Sprint View" .Font.Name = "Arial" .Font.Size = 12 End With .[a2] = "Cycles" lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 .Cells(lastRow, 1) = "Release Grand Total" .Cells(lastRow, 2).Resize(1, 9).FormulaR1C1 = "=sum(R3C:R[-1]C)" With .Cells(lastRow, 1).Resize(1, 10).Interior .Pattern = xlSolid .ColorIndex = 37 End With End With End Sub
|Text box keydown event does not work||38||39|
|need formula to remove the first word in an excel cell||4||17|
|Consolidation of Worksheet into a final worksheet||4||36|
|New Email window show up in front of any other window||3||9|