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.
Add your voice to the tech community where 5M+ people, just like you, are talking about what matters.
If FormatCustomer Then Workbooks.Open Filename:="C:\my documents\Customers.xls" 'Format IDs as General Range("C:C,E:E,F:F").Select Selection.NumberFormat = "General" 'Set font to nine pitch Cells.Select With Selection.Font .Name = "Tahoma" .Size = 9 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = 1 End With 'Set Columns to autofit Cells.Select Selection.Columns.AutoFit 'Rename tab sheet1 to Customers Sheets("Sheet1").Select Sheets("Sheet1").Name = "Customers" 'Define Name Billto rowa = Sheets("Customers").Cells(Rows.Count, 1).End(xlUp).Row ActiveWorkbook.Names.Add Name:="Billto", RefersToR1C1:="=Customers!R2C2:R" & rowa & "C2" & Chr(32) 'Define Name BillToList rowb = Sheets("Customers").Cells(Rows.Count, 1).End(xlUp).Row ActiveWorkbook.Names.Add Name:="BillToLookup", RefersToR1C1:="=Customers!R2C1:R" & rowb & "C8" & Chr(32) 'Define Name BillToLookup ActiveWorkbook.Names.Add Name:="BillToList", RefersToR1C1:="=OFFSET(Customers!R2C1,0,0,COUNTA(Customers!C1)-1)" 'Protect Customers Worksheet ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="password" ActiveSheet.EnableSelection = xlLockedCells 'Go to first cell on worksheet Range("A1").Select 'Save with same name as opened ActiveWorkbook.Save End If
|Multiple (nested?) IF statements with AND / please help - Too many arguments||8||42|
|Combine like values in a graph excel 2016||7||30|
|split worksheet into new worksheets based on changing value in Column A (by means of an Excel VBA)||4||26|
|Import text from rows into columns?||12||32|