Restore full virtual machine or individual guest files from 19 common file systems directly from the backup file. Schedule VM backups with PowerShell scripts. Set desired time, lean back and let the script to notify you via email upon completion.
Public Sub LengthCountTest() Dim rngCell As Range Dim intColTextLength As Integer Dim intRowCount As Integer Dim intColCount As Integer Dim aryColCount() As Integer Dim intColumns As Integer Dim intColNumber As Integer Dim strNextColumn As String Dim intMax As Integer 'First set the print area to a named range With ActiveSheet .Names.Add "ReportArea", _ "=" & Range("Print_Area").Address intRowCount = .Range("ReportArea").Rows.Count Debug.Print "Number of Rows: " & intRowCount intColCount = .Range("ReportArea").Columns.Count Debug.Print "Number of Columns: " & intColCount 'End With ReDim aryColCount(1 To intColCount) intColumns = 1 Do Until intColumns > intColCount With ActiveSheet strNextColumn = WhichColumn(intColumns) For Each rngCell In Range(strNextColumn & ":" & strNextColumn).Columns intMax = fntMaxInCol(strNextColumn) Debug.Print intMax Next rngCell intColumns = intColumns + 1 End With Loop End With End Sub Function fntMaxInCol(col As String) As Integer 'Finds the longest string in a column Dim lngLastrow As Long Dim i As Long lngLastrow = Range(col & Rows.Count).End(xlUp).Row fntMaxInCol = 0 For i = 1 To lngLastrow If Len(Range(col & i).Value) > fntMaxInCol Then fntMaxInCol = Len(Range(col & i).Value) Next End Function Public Function WhichColumn(intColNumber As Integer) As String 'Determines which colum is next in the loop based on inter passed in Select Case intColNumber Case 1 WhichColumn = "A" Case 2 WhichColumn = "B" Case 3 WhichColumn = "C" Case 4 WhichColumn = "D" Case 5 WhichColumn = "E" Case 6 WhichColumn = "F" End Select End Function
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.