ThisWorkbook.Activate
Worksheets(dc & "device_names").Activate
x = 1
y = 2
'This do loop puts the headers in the first row and makes a header
'for each instance of x which is found in the range A:A of the sheet which
'corresponds with the variable dc.
Do
For Each x In Range("A:A")
Worksheets(dc & "device_names").Activate
Cells.Range("A:A").Activate
If x = svr Then
ActiveCell.Offset(1, 0).Activate
x = ActiveCell.Value
End If
Do While x = 1
ActiveCell.Offset(1, 0).Activate
x = ActiveCell.Value
ndname = x
Loop
If x = "" Then
Exit Do
End If
Worksheets(dc).Activate
If y <= 254 Then
Cells(1, y) = svr & x & " 'I/Os per Second'"
I = 0
ElseIf y >= 255 Then
I = I + 1
Worksheets.Add().Name = dc & "_" & I & "_overflow"
Workbooks(filename).Activate
Range("B5").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Workbooks(myname).Activate
Worksheets(dc & "_" & I & "_overflow").Activate
Cells(1, 1) = "Date/Time"
Cells(1, 1).Activate
ActiveCell.Offset(1, 0).Activate
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=True, Transpose:=True
End If
Workbooks(filename).Activate
Cells.Find(What:=x, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
On Error Resume Next
Selection.Offset(2, 1).Activate
Range(ActiveCell, Selection.End(xlToRight)).Select
Selection.Copy
ThisWorkbook.Activate
Worksheets(dc).Activate
If y > 255 Then
Worksheets(dc & "_" & I & "_overflow").Activate
End If
If Cells(2, y) = "" Then
Cells(2, y).Activate
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Else:
Cells(2, y).Select
Selection.End(xlDown).Activate
ActiveCell.Offset(1, 0).Activate
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
End If
If y > 254 Then
y = 1
Worksheets(dc & "_" & I & "_overflow").Activate
Cells(1, y + 1) = svr & x & " 'Response Time (ms)'"
End If
If y <= 254 Then
Cells(1, y + 1) = svr & x & " 'Response Time (ms)'"
End If
Workbooks(filename).Activate
ActiveCell.Offset(8, 0).Activate
Range(ActiveCell, Selection.End(xlToRight)).Select
Selection.Copy
'
ThisWorkbook.Activate
Worksheets(dc).Activate
' LastRow = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
If Cells(2, y + 1) = "" Then
Cells(2, y + 1).Activate
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Else: Cells(2, y + 1).Select
Selection.End(xlDown).Activate
ActiveCell.Offset(1, 0).Activate
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
End If
y = y + 2
Next x
Loop While x <> ""
Windows(filename).Close
Next day
Bookmarks