Videos:
How to Build Covid-19 tracker in Excel using VBA --NL 6 stars!
Option Explicit
Sub transpose1()
'
' transpose1 Macro
'
'
Range("A1:AG2").Select
Selection.Copy
Range("A4").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Columns("A:A").ColumnWidth = 87.57
Range("A4").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "ID"
Range("A3").Select
End Sub
Sub covidPos()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("CovidPos")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
'a = Worksheets("query").Cells(Rows.Count, 1).End(xlUp).row
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If rg.Cells(i, 17).Value = "Positive" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
'If marks = "Positive" Then
' Worksheets("query").Rows(i).Copy
'
'Worksheets("CovidPos").Activate
' b = Worksheets("CovidPos").Cells(Rows.Count, 1).End(xlUp).Row
' Worksheets("CovidPos").Cells(b + 1, 1).Select
' ActiveSheet.Paste
Worksheets("CovidPos").Range("A1").Columns.AutoFit
Worksheets("CovidPos").Range("B1").Columns.AutoFit
Worksheets("CovidPos").Range("C1").Columns.AutoFit
Worksheets("CovidPos").Range("D1").Columns.AutoFit
Worksheets("CovidPos").Range("E1").Columns.AutoFit
Worksheets("CovidPos").Range("G1").Columns.AutoFit
Worksheets("CovidPos").Range("H1").Columns.AutoFit
Worksheets("CovidPos").Range("I1").Columns.AutoFit
Worksheets("CovidPos").Range("J1").Columns.AutoFit
Worksheets("CovidPos").Range("K1").Columns.AutoFit
Worksheets("CovidPos").Range("L1").Columns.AutoFit
Worksheets("CovidPos").Range("M1").Columns.AutoFit
Worksheets("CovidPos").Range("N1").Columns.AutoFit
Worksheets("CovidPos").Range("O1").Columns.AutoFit
Worksheets("CovidPos").Range("P1").Columns.AutoFit
Worksheets("CovidPos").Range("Q1").Columns.AutoFit
Worksheets("CovidPos").Range("R1").Columns.AutoFit
Worksheets("CovidPos").Range("S1").Columns.AutoFit
Worksheets("CovidPos").Range("T1").Columns.AutoFit
Worksheets("CovidPos").Range("U1").Columns.AutoFit
Worksheets("CovidPos").Range("V1").Columns.AutoFit
Worksheets("CovidPos").Range("W1").Columns.AutoFit
Worksheets("CovidPos").Range("X1").Columns.AutoFit
Worksheets("CovidPos").Range("Y1").Columns.AutoFit
Worksheets("CovidPos").Range("Z1").Columns.AutoFit
Worksheets("CovidPos").Range("AA1").Columns.AutoFit
Worksheets("CovidPos").Range("AB1").Columns.AutoFit
Worksheets("CovidPos").Range("AC1").Columns.AutoFit
Worksheets("CovidPos").Range("AD1").Columns.AutoFit
Worksheets("CovidPos").Range("AE1").Columns.AutoFit
Worksheets("CovidPos").Range("AF1").Columns.AutoFit
Worksheets("CovidPos").Range("AG1").Columns.AutoFit
Worksheets("CovidPos").Range("AH1").Columns.AutoFit
Worksheets("CovidPos").Range("AI1").Columns.AutoFit
Worksheets("CovidPos").Range("AJ1").Columns.AutoFit
Worksheets("CovidPos").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("CovidPos").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("B5") = numRows - 1
End Sub
Sub clinical()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("Clinical")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
'a = Worksheets("query").Cells(Rows.Count, 1).End(xlUp).row
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If rg.Cells(i, 14).Value = "Clinical" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
'If marks = "Positive" Then
' Worksheets("query").Rows(i).Copy
'
'Worksheets("Clinical").Activate
' b = Worksheets("Clinical").Cells(Rows.Count, 1).End(xlUp).Row
' Worksheets("Clinical").Cells(b + 1, 1).Select
' ActiveSheet.Paste
Worksheets("Clinical").Range("A1").Columns.AutoFit
Worksheets("Clinical").Range("B1").Columns.AutoFit
Worksheets("Clinical").Range("C1").Columns.AutoFit
Worksheets("Clinical").Range("D1").Columns.AutoFit
Worksheets("Clinical").Range("E1").Columns.AutoFit
Worksheets("Clinical").Range("G1").Columns.AutoFit
Worksheets("Clinical").Range("H1").Columns.AutoFit
Worksheets("Clinical").Range("I1").Columns.AutoFit
Worksheets("Clinical").Range("J1").Columns.AutoFit
Worksheets("Clinical").Range("K1").Columns.AutoFit
Worksheets("Clinical").Range("L1").Columns.AutoFit
Worksheets("Clinical").Range("M1").Columns.AutoFit
Worksheets("Clinical").Range("N1").Columns.AutoFit
Worksheets("Clinical").Range("O1").Columns.AutoFit
Worksheets("Clinical").Range("P1").Columns.AutoFit
Worksheets("Clinical").Range("Q1").Columns.AutoFit
Worksheets("Clinical").Range("R1").Columns.AutoFit
Worksheets("Clinical").Range("S1").Columns.AutoFit
Worksheets("Clinical").Range("T1").Columns.AutoFit
Worksheets("Clinical").Range("U1").Columns.AutoFit
Worksheets("Clinical").Range("V1").Columns.AutoFit
Worksheets("Clinical").Range("W1").Columns.AutoFit
Worksheets("Clinical").Range("X1").Columns.AutoFit
Worksheets("Clinical").Range("Y1").Columns.AutoFit
Worksheets("Clinical").Range("Z1").Columns.AutoFit
Worksheets("Clinical").Range("AA1").Columns.AutoFit
Worksheets("Clinical").Range("AB1").Columns.AutoFit
Worksheets("Clinical").Range("AC1").Columns.AutoFit
Worksheets("Clinical").Range("AD1").Columns.AutoFit
Worksheets("Clinical").Range("AE1").Columns.AutoFit
Worksheets("Clinical").Range("AF1").Columns.AutoFit
Worksheets("Clinical").Range("AG1").Columns.AutoFit
Worksheets("Clinical").Range("AH1").Columns.AutoFit
Worksheets("Clinical").Range("AI1").Columns.AutoFit
Worksheets("Clinical").Range("AJ1").Columns.AutoFit
Worksheets("Clinical").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("Clinical").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("B7") = numRows - 1
End Sub
Sub nonClinical()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("Non-Clinical")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
'a = Worksheets("query").Cells(Rows.Count, 1).End(xlUp).row
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If rg.Cells(i, 14).Value = "Non-Clinical" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
'If marks = "Positive" Then
' Worksheets("query").Rows(i).Copy
'
'Worksheets("Non-Clinical").Activate
' b = Worksheets("Non-Clinical").Cells(Rows.Count, 1).End(xlUp).Row
' Worksheets("Non-Clinical").Cells(b + 1, 1).Select
' ActiveSheet.Paste
Worksheets("Non-Clinical").Range("A1").Columns.AutoFit
Worksheets("Non-Clinical").Range("B1").Columns.AutoFit
Worksheets("Non-Clinical").Range("C1").Columns.AutoFit
Worksheets("Non-Clinical").Range("D1").Columns.AutoFit
Worksheets("Non-Clinical").Range("E1").Columns.AutoFit
Worksheets("Non-Clinical").Range("G1").Columns.AutoFit
Worksheets("Non-Clinical").Range("H1").Columns.AutoFit
Worksheets("Non-Clinical").Range("I1").Columns.AutoFit
Worksheets("Non-Clinical").Range("J1").Columns.AutoFit
Worksheets("Non-Clinical").Range("K1").Columns.AutoFit
Worksheets("Non-Clinical").Range("L1").Columns.AutoFit
Worksheets("Non-Clinical").Range("M1").Columns.AutoFit
Worksheets("Non-Clinical").Range("N1").Columns.AutoFit
Worksheets("Non-Clinical").Range("O1").Columns.AutoFit
Worksheets("Non-Clinical").Range("P1").Columns.AutoFit
Worksheets("Non-Clinical").Range("Q1").Columns.AutoFit
Worksheets("Non-Clinical").Range("R1").Columns.AutoFit
Worksheets("Non-Clinical").Range("S1").Columns.AutoFit
Worksheets("Non-Clinical").Range("T1").Columns.AutoFit
Worksheets("Non-Clinical").Range("U1").Columns.AutoFit
Worksheets("Non-Clinical").Range("V1").Columns.AutoFit
Worksheets("Non-Clinical").Range("W1").Columns.AutoFit
Worksheets("Non-Clinical").Range("X1").Columns.AutoFit
Worksheets("Non-Clinical").Range("Y1").Columns.AutoFit
Worksheets("Non-Clinical").Range("Z1").Columns.AutoFit
Worksheets("Non-Clinical").Range("AA1").Columns.AutoFit
Worksheets("Non-Clinical").Range("AB1").Columns.AutoFit
Worksheets("Non-Clinical").Range("AC1").Columns.AutoFit
Worksheets("Non-Clinical").Range("AD1").Columns.AutoFit
Worksheets("Non-Clinical").Range("AE1").Columns.AutoFit
Worksheets("Non-Clinical").Range("AF1").Columns.AutoFit
Worksheets("Non-Clinical").Range("AG1").Columns.AutoFit
Worksheets("Non-Clinical").Range("AH1").Columns.AutoFit
Worksheets("Non-Clinical").Range("AI1").Columns.AutoFit
Worksheets("Non-Clinical").Range("AJ1").Columns.AutoFit
Worksheets("Non-Clinical").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("Non-Clinical").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("B9") = numRows - 1
End Sub
Sub quarIsol()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("QuarIsol")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
'a = Worksheets("query").Cells(Rows.Count, 1).End(xlUp).row
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If rg.Cells(i, 26).Value = "Home" Or rg.Cells(i, 26).Value = "Hospital-inpatient" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
'If marks = "Positive" Then
' Worksheets("query").Rows(i).Copy
'
'Worksheets("QuarIsol").Activate
' b = Worksheets("QuarIsol").Cells(Rows.Count, 1).End(xlUp).Row
' Worksheets("QuarIsol").Cells(b + 1, 1).Select
' ActiveSheet.Paste
Worksheets("QuarIsol").Range("A1").Columns.AutoFit
Worksheets("QuarIsol").Range("B1").Columns.AutoFit
Worksheets("QuarIsol").Range("C1").Columns.AutoFit
Worksheets("QuarIsol").Range("D1").Columns.AutoFit
Worksheets("QuarIsol").Range("E1").Columns.AutoFit
Worksheets("QuarIsol").Range("G1").Columns.AutoFit
Worksheets("QuarIsol").Range("H1").Columns.AutoFit
Worksheets("QuarIsol").Range("I1").Columns.AutoFit
Worksheets("QuarIsol").Range("J1").Columns.AutoFit
Worksheets("QuarIsol").Range("K1").Columns.AutoFit
Worksheets("QuarIsol").Range("L1").Columns.AutoFit
Worksheets("QuarIsol").Range("M1").Columns.AutoFit
Worksheets("QuarIsol").Range("N1").Columns.AutoFit
Worksheets("QuarIsol").Range("O1").Columns.AutoFit
Worksheets("QuarIsol").Range("P1").Columns.AutoFit
Worksheets("QuarIsol").Range("Q1").Columns.AutoFit
Worksheets("QuarIsol").Range("R1").Columns.AutoFit
Worksheets("QuarIsol").Range("S1").Columns.AutoFit
Worksheets("QuarIsol").Range("T1").Columns.AutoFit
Worksheets("QuarIsol").Range("U1").Columns.AutoFit
Worksheets("QuarIsol").Range("V1").Columns.AutoFit
Worksheets("QuarIsol").Range("W1").Columns.AutoFit
Worksheets("QuarIsol").Range("X1").Columns.AutoFit
Worksheets("QuarIsol").Range("Y1").Columns.AutoFit
Worksheets("QuarIsol").Range("Z1").Columns.AutoFit
Worksheets("QuarIsol").Range("AA1").Columns.AutoFit
Worksheets("QuarIsol").Range("AB1").Columns.AutoFit
Worksheets("QuarIsol").Range("AC1").Columns.AutoFit
Worksheets("QuarIsol").Range("AD1").Columns.AutoFit
Worksheets("QuarIsol").Range("AE1").Columns.AutoFit
Worksheets("QuarIsol").Range("AF1").Columns.AutoFit
Worksheets("QuarIsol").Range("AG1").Columns.AutoFit
Worksheets("QuarIsol").Range("AH1").Columns.AutoFit
Worksheets("QuarIsol").Range("AI1").Columns.AutoFit
Worksheets("QuarIsol").Range("AJ1").Columns.AutoFit
Worksheets("QuarIsol").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("QuarIsol").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("B11") = numRows - 1
End Sub
Sub notQuarIsol()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("NotQuarIsol")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
'a = Worksheets("query").Cells(Rows.Count, 1).End(xlUp).row
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If rg.Cells(i, 26).Value = "Not recommended, does not meet criteria" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("NotQuarIsol").Range("A1").Columns.AutoFit
Worksheets("NotQuarIsol").Range("B1").Columns.AutoFit
Worksheets("NotQuarIsol").Range("C1").Columns.AutoFit
Worksheets("NotQuarIsol").Range("D1").Columns.AutoFit
Worksheets("NotQuarIsol").Range("E1").Columns.AutoFit
Worksheets("NotQuarIsol").Range("G1").Columns.AutoFit
Worksheets("NotQuarIsol").Range("H1").Columns.AutoFit
Worksheets("NotQuarIsol").Range("I1").Columns.AutoFit
Worksheets("NotQuarIsol").Range("J1").Columns.AutoFit
Worksheets("NotQuarIsol").Range("K1").Columns.AutoFit
Worksheets("NotQuarIsol").Range("L1").Columns.AutoFit
Worksheets("NotQuarIsol").Range("M1").Columns.AutoFit
Worksheets("NotQuarIsol").Range("N1").Columns.AutoFit
Worksheets("NotQuarIsol").Range("O1").Columns.AutoFit
Worksheets("NotQuarIsol").Range("P1").Columns.AutoFit
Worksheets("NotQuarIsol").Range("Q1").Columns.AutoFit
Worksheets("NotQuarIsol").Range("R1").Columns.AutoFit
Worksheets("NotQuarIsol").Range("S1").Columns.AutoFit
Worksheets("NotQuarIsol").Range("T1").Columns.AutoFit
Worksheets("NotQuarIsol").Range("U1").Columns.AutoFit
Worksheets("NotQuarIsol").Range("V1").Columns.AutoFit
Worksheets("NotQuarIsol").Range("W1").Columns.AutoFit
Worksheets("NotQuarIsol").Range("X1").Columns.AutoFit
Worksheets("NotQuarIsol").Range("Y1").Columns.AutoFit
Worksheets("NotQuarIsol").Range("Z1").Columns.AutoFit
Worksheets("NotQuarIsol").Range("AA1").Columns.AutoFit
Worksheets("NotQuarIsol").Range("AB1").Columns.AutoFit
Worksheets("NotQuarIsol").Range("AC1").Columns.AutoFit
Worksheets("NotQuarIsol").Range("AD1").Columns.AutoFit
Worksheets("NotQuarIsol").Range("AE1").Columns.AutoFit
Worksheets("NotQuarIsol").Range("AF1").Columns.AutoFit
Worksheets("NotQuarIsol").Range("AG1").Columns.AutoFit
Worksheets("NotQuarIsol").Range("AH1").Columns.AutoFit
Worksheets("NotQuarIsol").Range("AI1").Columns.AutoFit
Worksheets("NotQuarIsol").Range("AJ1").Columns.AutoFit
Worksheets("NotQuarIsol").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("NotQuarIsol").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("B13") = numRows - 1
End Sub
Sub earlyRTW()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("EarlyRTW_Crit")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
'a = Worksheets("query").Cells(Rows.Count, 1).End(xlUp).row
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If rg.Cells(i, 23).Value = "Yes" Or rg.Cells(i, 23).Value = "Yes--with restrictions" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("EarlyRTW_Crit").Range("A1").Columns.AutoFit
Worksheets("EarlyRTW_Crit").Range("B1").Columns.AutoFit
Worksheets("EarlyRTW_Crit").Range("C1").Columns.AutoFit
Worksheets("EarlyRTW_Crit").Range("D1").Columns.AutoFit
Worksheets("EarlyRTW_Crit").Range("E1").Columns.AutoFit
Worksheets("EarlyRTW_Crit").Range("G1").Columns.AutoFit
Worksheets("EarlyRTW_Crit").Range("H1").Columns.AutoFit
Worksheets("EarlyRTW_Crit").Range("I1").Columns.AutoFit
Worksheets("EarlyRTW_Crit").Range("J1").Columns.AutoFit
Worksheets("EarlyRTW_Crit").Range("K1").Columns.AutoFit
Worksheets("EarlyRTW_Crit").Range("L1").Columns.AutoFit
Worksheets("EarlyRTW_Crit").Range("M1").Columns.AutoFit
Worksheets("EarlyRTW_Crit").Range("N1").Columns.AutoFit
Worksheets("EarlyRTW_Crit").Range("O1").Columns.AutoFit
Worksheets("EarlyRTW_Crit").Range("P1").Columns.AutoFit
Worksheets("EarlyRTW_Crit").Range("Q1").Columns.AutoFit
Worksheets("EarlyRTW_Crit").Range("R1").Columns.AutoFit
Worksheets("EarlyRTW_Crit").Range("S1").Columns.AutoFit
Worksheets("EarlyRTW_Crit").Range("T1").Columns.AutoFit
Worksheets("EarlyRTW_Crit").Range("U1").Columns.AutoFit
Worksheets("EarlyRTW_Crit").Range("V1").Columns.AutoFit
Worksheets("EarlyRTW_Crit").Range("W1").Columns.AutoFit
Worksheets("EarlyRTW_Crit").Range("X1").Columns.AutoFit
Worksheets("EarlyRTW_Crit").Range("Y1").Columns.AutoFit
Worksheets("EarlyRTW_Crit").Range("Z1").Columns.AutoFit
Worksheets("EarlyRTW_Crit").Range("AA1").Columns.AutoFit
Worksheets("EarlyRTW_Crit").Range("AB1").Columns.AutoFit
Worksheets("EarlyRTW_Crit").Range("AC1").Columns.AutoFit
Worksheets("EarlyRTW_Crit").Range("AD1").Columns.AutoFit
Worksheets("EarlyRTW_Crit").Range("AE1").Columns.AutoFit
Worksheets("EarlyRTW_Crit").Range("AF1").Columns.AutoFit
Worksheets("EarlyRTW_Crit").Range("AG1").Columns.AutoFit
Worksheets("EarlyRTW_Crit").Range("AH1").Columns.AutoFit
Worksheets("EarlyRTW_Crit").Range("AI1").Columns.AutoFit
Worksheets("EarlyRTW_Crit").Range("AJ1").Columns.AutoFit
Worksheets("EarlyRTW_Crit").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("EarlyRTW_Crit").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("B24") = numRows - 1
End Sub
Sub nurses()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("Nurses")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
'a = Worksheets("query").Cells(Rows.Count, 1).End(xlUp).row
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If rg.Cells(i, 13).Value = "Nurse (All)" And rg.Cells(i, 17).Value = "Positive" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("Nurses").Range("A1").Columns.AutoFit
Worksheets("Nurses").Range("B1").Columns.AutoFit
Worksheets("Nurses").Range("C1").Columns.AutoFit
Worksheets("Nurses").Range("D1").Columns.AutoFit
Worksheets("Nurses").Range("E1").Columns.AutoFit
Worksheets("Nurses").Range("G1").Columns.AutoFit
Worksheets("Nurses").Range("H1").Columns.AutoFit
Worksheets("Nurses").Range("I1").Columns.AutoFit
Worksheets("Nurses").Range("J1").Columns.AutoFit
Worksheets("Nurses").Range("K1").Columns.AutoFit
Worksheets("Nurses").Range("L1").Columns.AutoFit
Worksheets("Nurses").Range("M1").Columns.AutoFit
Worksheets("Nurses").Range("N1").Columns.AutoFit
Worksheets("Nurses").Range("O1").Columns.AutoFit
Worksheets("Nurses").Range("P1").Columns.AutoFit
Worksheets("Nurses").Range("Q1").Columns.AutoFit
Worksheets("Nurses").Range("R1").Columns.AutoFit
Worksheets("Nurses").Range("S1").Columns.AutoFit
Worksheets("Nurses").Range("T1").Columns.AutoFit
Worksheets("Nurses").Range("U1").Columns.AutoFit
Worksheets("Nurses").Range("V1").Columns.AutoFit
Worksheets("Nurses").Range("W1").Columns.AutoFit
Worksheets("Nurses").Range("X1").Columns.AutoFit
Worksheets("Nurses").Range("Y1").Columns.AutoFit
Worksheets("Nurses").Range("Z1").Columns.AutoFit
Worksheets("Nurses").Range("AA1").Columns.AutoFit
Worksheets("Nurses").Range("AB1").Columns.AutoFit
Worksheets("Nurses").Range("AC1").Columns.AutoFit
Worksheets("Nurses").Range("AD1").Columns.AutoFit
Worksheets("Nurses").Range("AE1").Columns.AutoFit
Worksheets("Nurses").Range("AF1").Columns.AutoFit
Worksheets("Nurses").Range("AG1").Columns.AutoFit
Worksheets("Nurses").Range("AH1").Columns.AutoFit
Worksheets("Nurses").Range("AI1").Columns.AutoFit
Worksheets("Nurses").Range("AJ1").Columns.AutoFit
Worksheets("Nurses").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("Nurses").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("I5") = numRows - 1
End Sub
Sub physicians()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("Physicians")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If rg.Cells(i, 13).Value = "Physician (All)" And rg.Cells(i, 17).Value = "Positive" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("Physicians").Range("A1").Columns.AutoFit
Worksheets("Physicians").Range("B1").Columns.AutoFit
Worksheets("Physicians").Range("C1").Columns.AutoFit
Worksheets("Physicians").Range("D1").Columns.AutoFit
Worksheets("Physicians").Range("E1").Columns.AutoFit
Worksheets("Physicians").Range("G1").Columns.AutoFit
Worksheets("Physicians").Range("H1").Columns.AutoFit
Worksheets("Physicians").Range("I1").Columns.AutoFit
Worksheets("Physicians").Range("J1").Columns.AutoFit
Worksheets("Physicians").Range("K1").Columns.AutoFit
Worksheets("Physicians").Range("L1").Columns.AutoFit
Worksheets("Physicians").Range("M1").Columns.AutoFit
Worksheets("Physicians").Range("N1").Columns.AutoFit
Worksheets("Physicians").Range("O1").Columns.AutoFit
Worksheets("Physicians").Range("P1").Columns.AutoFit
Worksheets("Physicians").Range("Q1").Columns.AutoFit
Worksheets("Physicians").Range("R1").Columns.AutoFit
Worksheets("Physicians").Range("S1").Columns.AutoFit
Worksheets("Physicians").Range("T1").Columns.AutoFit
Worksheets("Physicians").Range("U1").Columns.AutoFit
Worksheets("Physicians").Range("V1").Columns.AutoFit
Worksheets("Physicians").Range("W1").Columns.AutoFit
Worksheets("Physicians").Range("X1").Columns.AutoFit
Worksheets("Physicians").Range("Y1").Columns.AutoFit
Worksheets("Physicians").Range("Z1").Columns.AutoFit
Worksheets("Physicians").Range("AA1").Columns.AutoFit
Worksheets("Physicians").Range("AB1").Columns.AutoFit
Worksheets("Physicians").Range("AC1").Columns.AutoFit
Worksheets("Physicians").Range("AD1").Columns.AutoFit
Worksheets("Physicians").Range("AE1").Columns.AutoFit
Worksheets("Physicians").Range("AF1").Columns.AutoFit
Worksheets("Physicians").Range("AG1").Columns.AutoFit
Worksheets("Physicians").Range("AH1").Columns.AutoFit
Worksheets("Physicians").Range("AI1").Columns.AutoFit
Worksheets("Physicians").Range("AJ1").Columns.AutoFit
Worksheets("Physicians").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("Physicians").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("I3") = numRows - 1
End Sub
Sub physicianAssistants()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("PhysicianAssistants")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If rg.Cells(i, 13).Value = "Physician Assistant" And rg.Cells(i, 17).Value = "Positive" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("PhysicianAssistants").Range("A1").Columns.AutoFit
Worksheets("PhysicianAssistants").Range("B1").Columns.AutoFit
Worksheets("PhysicianAssistants").Range("C1").Columns.AutoFit
Worksheets("PhysicianAssistants").Range("D1").Columns.AutoFit
Worksheets("PhysicianAssistants").Range("E1").Columns.AutoFit
Worksheets("PhysicianAssistants").Range("G1").Columns.AutoFit
Worksheets("PhysicianAssistants").Range("H1").Columns.AutoFit
Worksheets("PhysicianAssistants").Range("I1").Columns.AutoFit
Worksheets("PhysicianAssistants").Range("J1").Columns.AutoFit
Worksheets("PhysicianAssistants").Range("K1").Columns.AutoFit
Worksheets("PhysicianAssistants").Range("L1").Columns.AutoFit
Worksheets("PhysicianAssistants").Range("M1").Columns.AutoFit
Worksheets("PhysicianAssistants").Range("N1").Columns.AutoFit
Worksheets("PhysicianAssistants").Range("O1").Columns.AutoFit
Worksheets("PhysicianAssistants").Range("P1").Columns.AutoFit
Worksheets("PhysicianAssistants").Range("Q1").Columns.AutoFit
Worksheets("PhysicianAssistants").Range("R1").Columns.AutoFit
Worksheets("PhysicianAssistants").Range("S1").Columns.AutoFit
Worksheets("PhysicianAssistants").Range("T1").Columns.AutoFit
Worksheets("PhysicianAssistants").Range("U1").Columns.AutoFit
Worksheets("PhysicianAssistants").Range("V1").Columns.AutoFit
Worksheets("PhysicianAssistants").Range("W1").Columns.AutoFit
Worksheets("PhysicianAssistants").Range("X1").Columns.AutoFit
Worksheets("PhysicianAssistants").Range("Y1").Columns.AutoFit
Worksheets("PhysicianAssistants").Range("Z1").Columns.AutoFit
Worksheets("PhysicianAssistants").Range("AA1").Columns.AutoFit
Worksheets("PhysicianAssistants").Range("AB1").Columns.AutoFit
Worksheets("PhysicianAssistants").Range("AC1").Columns.AutoFit
Worksheets("PhysicianAssistants").Range("AD1").Columns.AutoFit
Worksheets("PhysicianAssistants").Range("AE1").Columns.AutoFit
Worksheets("PhysicianAssistants").Range("AF1").Columns.AutoFit
Worksheets("PhysicianAssistants").Range("AG1").Columns.AutoFit
Worksheets("PhysicianAssistants").Range("AH1").Columns.AutoFit
Worksheets("PhysicianAssistants").Range("AI1").Columns.AutoFit
Worksheets("PhysicianAssistants").Range("AJ1").Columns.AutoFit
Worksheets("PhysicianAssistants").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("PhysicianAssistants").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("I9") = numRows - 1
End Sub
Sub anesthesiologists()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("Anesthesiologists")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If rg.Cells(i, 13).Value = "Anesthesiologist" And rg.Cells(i, 17).Value = "Positive" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("Anesthesiologists").Range("A1").Columns.AutoFit
Worksheets("Anesthesiologists").Range("B1").Columns.AutoFit
Worksheets("Anesthesiologists").Range("C1").Columns.AutoFit
Worksheets("Anesthesiologists").Range("D1").Columns.AutoFit
Worksheets("Anesthesiologists").Range("E1").Columns.AutoFit
Worksheets("Anesthesiologists").Range("G1").Columns.AutoFit
Worksheets("Anesthesiologists").Range("H1").Columns.AutoFit
Worksheets("Anesthesiologists").Range("I1").Columns.AutoFit
Worksheets("Anesthesiologists").Range("J1").Columns.AutoFit
Worksheets("Anesthesiologists").Range("K1").Columns.AutoFit
Worksheets("Anesthesiologists").Range("L1").Columns.AutoFit
Worksheets("Anesthesiologists").Range("M1").Columns.AutoFit
Worksheets("Anesthesiologists").Range("N1").Columns.AutoFit
Worksheets("Anesthesiologists").Range("O1").Columns.AutoFit
Worksheets("Anesthesiologists").Range("P1").Columns.AutoFit
Worksheets("Anesthesiologists").Range("Q1").Columns.AutoFit
Worksheets("Anesthesiologists").Range("R1").Columns.AutoFit
Worksheets("Anesthesiologists").Range("S1").Columns.AutoFit
Worksheets("Anesthesiologists").Range("T1").Columns.AutoFit
Worksheets("Anesthesiologists").Range("U1").Columns.AutoFit
Worksheets("Anesthesiologists").Range("V1").Columns.AutoFit
Worksheets("Anesthesiologists").Range("W1").Columns.AutoFit
Worksheets("Anesthesiologists").Range("X1").Columns.AutoFit
Worksheets("Anesthesiologists").Range("Y1").Columns.AutoFit
Worksheets("Anesthesiologists").Range("Z1").Columns.AutoFit
Worksheets("Anesthesiologists").Range("AA1").Columns.AutoFit
Worksheets("Anesthesiologists").Range("AB1").Columns.AutoFit
Worksheets("Anesthesiologists").Range("AC1").Columns.AutoFit
Worksheets("Anesthesiologists").Range("AD1").Columns.AutoFit
Worksheets("Anesthesiologists").Range("AE1").Columns.AutoFit
Worksheets("Anesthesiologists").Range("AF1").Columns.AutoFit
Worksheets("Anesthesiologists").Range("AG1").Columns.AutoFit
Worksheets("Anesthesiologists").Range("AH1").Columns.AutoFit
Worksheets("Anesthesiologists").Range("AI1").Columns.AutoFit
Worksheets("Anesthesiologists").Range("AJ1").Columns.AutoFit
Worksheets("Anesthesiologists").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("Anesthesiologists").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("I17") = numRows - 1
End Sub
Sub pharmacists()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("Pharmacists")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If rg.Cells(i, 13).Value = "Pharmacists" And rg.Cells(i, 17).Value = "Positive" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("Pharmacists").Range("A1").Columns.AutoFit
Worksheets("Pharmacists").Range("B1").Columns.AutoFit
Worksheets("Pharmacists").Range("C1").Columns.AutoFit
Worksheets("Pharmacists").Range("D1").Columns.AutoFit
Worksheets("Pharmacists").Range("E1").Columns.AutoFit
Worksheets("Pharmacists").Range("G1").Columns.AutoFit
Worksheets("Pharmacists").Range("H1").Columns.AutoFit
Worksheets("Pharmacists").Range("I1").Columns.AutoFit
Worksheets("Pharmacists").Range("J1").Columns.AutoFit
Worksheets("Pharmacists").Range("K1").Columns.AutoFit
Worksheets("Pharmacists").Range("L1").Columns.AutoFit
Worksheets("Pharmacists").Range("M1").Columns.AutoFit
Worksheets("Pharmacists").Range("N1").Columns.AutoFit
Worksheets("Pharmacists").Range("O1").Columns.AutoFit
Worksheets("Pharmacists").Range("P1").Columns.AutoFit
Worksheets("Pharmacists").Range("Q1").Columns.AutoFit
Worksheets("Pharmacists").Range("R1").Columns.AutoFit
Worksheets("Pharmacists").Range("S1").Columns.AutoFit
Worksheets("Pharmacists").Range("T1").Columns.AutoFit
Worksheets("Pharmacists").Range("U1").Columns.AutoFit
Worksheets("Pharmacists").Range("V1").Columns.AutoFit
Worksheets("Pharmacists").Range("W1").Columns.AutoFit
Worksheets("Pharmacists").Range("X1").Columns.AutoFit
Worksheets("Pharmacists").Range("Y1").Columns.AutoFit
Worksheets("Pharmacists").Range("Z1").Columns.AutoFit
Worksheets("Pharmacists").Range("AA1").Columns.AutoFit
Worksheets("Pharmacists").Range("AB1").Columns.AutoFit
Worksheets("Pharmacists").Range("AC1").Columns.AutoFit
Worksheets("Pharmacists").Range("AD1").Columns.AutoFit
Worksheets("Pharmacists").Range("AE1").Columns.AutoFit
Worksheets("Pharmacists").Range("AF1").Columns.AutoFit
Worksheets("Pharmacists").Range("AG1").Columns.AutoFit
Worksheets("Pharmacists").Range("AH1").Columns.AutoFit
Worksheets("Pharmacists").Range("AI1").Columns.AutoFit
Worksheets("Pharmacists").Range("AJ1").Columns.AutoFit
Worksheets("Pharmacists").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("Pharmacists").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("I11") = numRows - 1
End Sub
Sub respTher()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("RespTher")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If rg.Cells(i, 13).Value = "Respiratory Therapist" And rg.Cells(i, 17).Value = "Positive" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("RespTher").Range("A1").Columns.AutoFit
Worksheets("RespTher").Range("B1").Columns.AutoFit
Worksheets("RespTher").Range("C1").Columns.AutoFit
Worksheets("RespTher").Range("D1").Columns.AutoFit
Worksheets("RespTher").Range("E1").Columns.AutoFit
Worksheets("RespTher").Range("G1").Columns.AutoFit
Worksheets("RespTher").Range("H1").Columns.AutoFit
Worksheets("RespTher").Range("I1").Columns.AutoFit
Worksheets("RespTher").Range("J1").Columns.AutoFit
Worksheets("RespTher").Range("K1").Columns.AutoFit
Worksheets("RespTher").Range("L1").Columns.AutoFit
Worksheets("RespTher").Range("M1").Columns.AutoFit
Worksheets("RespTher").Range("N1").Columns.AutoFit
Worksheets("RespTher").Range("O1").Columns.AutoFit
Worksheets("RespTher").Range("P1").Columns.AutoFit
Worksheets("RespTher").Range("Q1").Columns.AutoFit
Worksheets("RespTher").Range("R1").Columns.AutoFit
Worksheets("RespTher").Range("S1").Columns.AutoFit
Worksheets("RespTher").Range("T1").Columns.AutoFit
Worksheets("RespTher").Range("U1").Columns.AutoFit
Worksheets("RespTher").Range("V1").Columns.AutoFit
Worksheets("RespTher").Range("W1").Columns.AutoFit
Worksheets("RespTher").Range("X1").Columns.AutoFit
Worksheets("RespTher").Range("Y1").Columns.AutoFit
Worksheets("RespTher").Range("Z1").Columns.AutoFit
Worksheets("RespTher").Range("AA1").Columns.AutoFit
Worksheets("RespTher").Range("AB1").Columns.AutoFit
Worksheets("RespTher").Range("AC1").Columns.AutoFit
Worksheets("RespTher").Range("AD1").Columns.AutoFit
Worksheets("RespTher").Range("AE1").Columns.AutoFit
Worksheets("RespTher").Range("AF1").Columns.AutoFit
Worksheets("RespTher").Range("AG1").Columns.AutoFit
Worksheets("RespTher").Range("AH1").Columns.AutoFit
Worksheets("RespTher").Range("AI1").Columns.AutoFit
Worksheets("RespTher").Range("AJ1").Columns.AutoFit
Worksheets("RespTher").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("RespTher").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("I13") = numRows - 1
End Sub
Sub CNAs()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("CNA")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If rg.Cells(i, 13).Value = "Certified Nursing Assistant (CNA)" And rg.Cells(i, 17).Value = "Positive" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("CNA").Range("A1").Columns.AutoFit
Worksheets("CNA").Range("B1").Columns.AutoFit
Worksheets("CNA").Range("C1").Columns.AutoFit
Worksheets("CNA").Range("D1").Columns.AutoFit
Worksheets("CNA").Range("E1").Columns.AutoFit
Worksheets("CNA").Range("G1").Columns.AutoFit
Worksheets("CNA").Range("H1").Columns.AutoFit
Worksheets("CNA").Range("I1").Columns.AutoFit
Worksheets("CNA").Range("J1").Columns.AutoFit
Worksheets("CNA").Range("K1").Columns.AutoFit
Worksheets("CNA").Range("L1").Columns.AutoFit
Worksheets("CNA").Range("M1").Columns.AutoFit
Worksheets("CNA").Range("N1").Columns.AutoFit
Worksheets("CNA").Range("O1").Columns.AutoFit
Worksheets("CNA").Range("P1").Columns.AutoFit
Worksheets("CNA").Range("Q1").Columns.AutoFit
Worksheets("CNA").Range("R1").Columns.AutoFit
Worksheets("CNA").Range("S1").Columns.AutoFit
Worksheets("CNA").Range("T1").Columns.AutoFit
Worksheets("CNA").Range("U1").Columns.AutoFit
Worksheets("CNA").Range("V1").Columns.AutoFit
Worksheets("CNA").Range("W1").Columns.AutoFit
Worksheets("CNA").Range("X1").Columns.AutoFit
Worksheets("CNA").Range("Y1").Columns.AutoFit
Worksheets("CNA").Range("Z1").Columns.AutoFit
Worksheets("CNA").Range("AA1").Columns.AutoFit
Worksheets("CNA").Range("AB1").Columns.AutoFit
Worksheets("CNA").Range("AC1").Columns.AutoFit
Worksheets("CNA").Range("AD1").Columns.AutoFit
Worksheets("CNA").Range("AE1").Columns.AutoFit
Worksheets("CNA").Range("AF1").Columns.AutoFit
Worksheets("CNA").Range("AG1").Columns.AutoFit
Worksheets("CNA").Range("AH1").Columns.AutoFit
Worksheets("CNA").Range("AI1").Columns.AutoFit
Worksheets("CNA").Range("AJ1").Columns.AutoFit
Worksheets("CNA").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("CNA").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("I7") = numRows - 1
End Sub
Sub nutritionFood()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("NUTRFOOD")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If rg.Cells(i, 13).Value = "Nutrition and Food" And rg.Cells(i, 17).Value = "Positive" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("NUTRFOOD").Range("A1").Columns.AutoFit
Worksheets("NUTRFOOD").Range("B1").Columns.AutoFit
Worksheets("NUTRFOOD").Range("C1").Columns.AutoFit
Worksheets("NUTRFOOD").Range("D1").Columns.AutoFit
Worksheets("NUTRFOOD").Range("E1").Columns.AutoFit
Worksheets("NUTRFOOD").Range("G1").Columns.AutoFit
Worksheets("NUTRFOOD").Range("H1").Columns.AutoFit
Worksheets("NUTRFOOD").Range("I1").Columns.AutoFit
Worksheets("NUTRFOOD").Range("J1").Columns.AutoFit
Worksheets("NUTRFOOD").Range("K1").Columns.AutoFit
Worksheets("NUTRFOOD").Range("L1").Columns.AutoFit
Worksheets("NUTRFOOD").Range("M1").Columns.AutoFit
Worksheets("NUTRFOOD").Range("N1").Columns.AutoFit
Worksheets("NUTRFOOD").Range("O1").Columns.AutoFit
Worksheets("NUTRFOOD").Range("P1").Columns.AutoFit
Worksheets("NUTRFOOD").Range("Q1").Columns.AutoFit
Worksheets("NUTRFOOD").Range("R1").Columns.AutoFit
Worksheets("NUTRFOOD").Range("S1").Columns.AutoFit
Worksheets("NUTRFOOD").Range("T1").Columns.AutoFit
Worksheets("NUTRFOOD").Range("U1").Columns.AutoFit
Worksheets("NUTRFOOD").Range("V1").Columns.AutoFit
Worksheets("NUTRFOOD").Range("W1").Columns.AutoFit
Worksheets("NUTRFOOD").Range("X1").Columns.AutoFit
Worksheets("NUTRFOOD").Range("Y1").Columns.AutoFit
Worksheets("NUTRFOOD").Range("Z1").Columns.AutoFit
Worksheets("NUTRFOOD").Range("AA1").Columns.AutoFit
Worksheets("NUTRFOOD").Range("AB1").Columns.AutoFit
Worksheets("NUTRFOOD").Range("AC1").Columns.AutoFit
Worksheets("NUTRFOOD").Range("AD1").Columns.AutoFit
Worksheets("NUTRFOOD").Range("AE1").Columns.AutoFit
Worksheets("NUTRFOOD").Range("AF1").Columns.AutoFit
Worksheets("NUTRFOOD").Range("AG1").Columns.AutoFit
Worksheets("NUTRFOOD").Range("AH1").Columns.AutoFit
Worksheets("NUTRFOOD").Range("AI1").Columns.AutoFit
Worksheets("NUTRFOOD").Range("AJ1").Columns.AutoFit
Worksheets("NUTRFOOD").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("NUTRFOOD").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("I23") = numRows - 1
End Sub
Sub biomed()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("BIOMED")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If rg.Cells(i, 13).Value = "Biomed Equip Sup Spec" And rg.Cells(i, 17).Value = "Positive" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("BIOMED").Range("A1").Columns.AutoFit
Worksheets("BIOMED").Range("B1").Columns.AutoFit
Worksheets("BIOMED").Range("C1").Columns.AutoFit
Worksheets("BIOMED").Range("D1").Columns.AutoFit
Worksheets("BIOMED").Range("E1").Columns.AutoFit
Worksheets("BIOMED").Range("G1").Columns.AutoFit
Worksheets("BIOMED").Range("H1").Columns.AutoFit
Worksheets("BIOMED").Range("I1").Columns.AutoFit
Worksheets("BIOMED").Range("J1").Columns.AutoFit
Worksheets("BIOMED").Range("K1").Columns.AutoFit
Worksheets("BIOMED").Range("L1").Columns.AutoFit
Worksheets("BIOMED").Range("M1").Columns.AutoFit
Worksheets("BIOMED").Range("N1").Columns.AutoFit
Worksheets("BIOMED").Range("O1").Columns.AutoFit
Worksheets("BIOMED").Range("P1").Columns.AutoFit
Worksheets("BIOMED").Range("Q1").Columns.AutoFit
Worksheets("BIOMED").Range("R1").Columns.AutoFit
Worksheets("BIOMED").Range("S1").Columns.AutoFit
Worksheets("BIOMED").Range("T1").Columns.AutoFit
Worksheets("BIOMED").Range("U1").Columns.AutoFit
Worksheets("BIOMED").Range("V1").Columns.AutoFit
Worksheets("BIOMED").Range("W1").Columns.AutoFit
Worksheets("BIOMED").Range("X1").Columns.AutoFit
Worksheets("BIOMED").Range("Y1").Columns.AutoFit
Worksheets("BIOMED").Range("Z1").Columns.AutoFit
Worksheets("BIOMED").Range("AA1").Columns.AutoFit
Worksheets("BIOMED").Range("AB1").Columns.AutoFit
Worksheets("BIOMED").Range("AC1").Columns.AutoFit
Worksheets("BIOMED").Range("AD1").Columns.AutoFit
Worksheets("BIOMED").Range("AE1").Columns.AutoFit
Worksheets("BIOMED").Range("AF1").Columns.AutoFit
Worksheets("BIOMED").Range("AG1").Columns.AutoFit
Worksheets("BIOMED").Range("AH1").Columns.AutoFit
Worksheets("BIOMED").Range("AI1").Columns.AutoFit
Worksheets("BIOMED").Range("AJ1").Columns.AutoFit
Worksheets("BIOMED").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("BIOMED").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("I15") = numRows - 1
End Sub
Sub housekeeping()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("HOUSEKEEPING")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If rg.Cells(i, 13).Value = "Housekeeping Aides" And rg.Cells(i, 17).Value = "Positive" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("HOUSEKEEPING").Range("A1").Columns.AutoFit
Worksheets("HOUSEKEEPING").Range("B1").Columns.AutoFit
Worksheets("HOUSEKEEPING").Range("C1").Columns.AutoFit
Worksheets("HOUSEKEEPING").Range("D1").Columns.AutoFit
Worksheets("HOUSEKEEPING").Range("E1").Columns.AutoFit
Worksheets("HOUSEKEEPING").Range("G1").Columns.AutoFit
Worksheets("HOUSEKEEPING").Range("H1").Columns.AutoFit
Worksheets("HOUSEKEEPING").Range("I1").Columns.AutoFit
Worksheets("HOUSEKEEPING").Range("J1").Columns.AutoFit
Worksheets("HOUSEKEEPING").Range("K1").Columns.AutoFit
Worksheets("HOUSEKEEPING").Range("L1").Columns.AutoFit
Worksheets("HOUSEKEEPING").Range("M1").Columns.AutoFit
Worksheets("HOUSEKEEPING").Range("N1").Columns.AutoFit
Worksheets("HOUSEKEEPING").Range("O1").Columns.AutoFit
Worksheets("HOUSEKEEPING").Range("P1").Columns.AutoFit
Worksheets("HOUSEKEEPING").Range("Q1").Columns.AutoFit
Worksheets("HOUSEKEEPING").Range("R1").Columns.AutoFit
Worksheets("HOUSEKEEPING").Range("S1").Columns.AutoFit
Worksheets("HOUSEKEEPING").Range("T1").Columns.AutoFit
Worksheets("HOUSEKEEPING").Range("U1").Columns.AutoFit
Worksheets("HOUSEKEEPING").Range("V1").Columns.AutoFit
Worksheets("HOUSEKEEPING").Range("W1").Columns.AutoFit
Worksheets("HOUSEKEEPING").Range("X1").Columns.AutoFit
Worksheets("HOUSEKEEPING").Range("Y1").Columns.AutoFit
Worksheets("HOUSEKEEPING").Range("Z1").Columns.AutoFit
Worksheets("HOUSEKEEPING").Range("AA1").Columns.AutoFit
Worksheets("HOUSEKEEPING").Range("AB1").Columns.AutoFit
Worksheets("HOUSEKEEPING").Range("AC1").Columns.AutoFit
Worksheets("HOUSEKEEPING").Range("AD1").Columns.AutoFit
Worksheets("HOUSEKEEPING").Range("AE1").Columns.AutoFit
Worksheets("HOUSEKEEPING").Range("AF1").Columns.AutoFit
Worksheets("HOUSEKEEPING").Range("AG1").Columns.AutoFit
Worksheets("HOUSEKEEPING").Range("AH1").Columns.AutoFit
Worksheets("HOUSEKEEPING").Range("AI1").Columns.AutoFit
Worksheets("HOUSEKEEPING").Range("AJ1").Columns.AutoFit
Worksheets("HOUSEKEEPING").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("HOUSEKEEPING").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("I19") = numRows - 1
End Sub
Sub supplyTechs()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("SUPPLYTECH")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If rg.Cells(i, 13).Value = "Supply Tech" And rg.Cells(i, 17).Value = "Positive" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("SUPPLYTECH").Range("A1").Columns.AutoFit
Worksheets("SUPPLYTECH").Range("B1").Columns.AutoFit
Worksheets("SUPPLYTECH").Range("C1").Columns.AutoFit
Worksheets("SUPPLYTECH").Range("D1").Columns.AutoFit
Worksheets("SUPPLYTECH").Range("E1").Columns.AutoFit
Worksheets("SUPPLYTECH").Range("G1").Columns.AutoFit
Worksheets("SUPPLYTECH").Range("H1").Columns.AutoFit
Worksheets("SUPPLYTECH").Range("I1").Columns.AutoFit
Worksheets("SUPPLYTECH").Range("J1").Columns.AutoFit
Worksheets("SUPPLYTECH").Range("K1").Columns.AutoFit
Worksheets("SUPPLYTECH").Range("L1").Columns.AutoFit
Worksheets("SUPPLYTECH").Range("M1").Columns.AutoFit
Worksheets("SUPPLYTECH").Range("N1").Columns.AutoFit
Worksheets("SUPPLYTECH").Range("O1").Columns.AutoFit
Worksheets("SUPPLYTECH").Range("P1").Columns.AutoFit
Worksheets("SUPPLYTECH").Range("Q1").Columns.AutoFit
Worksheets("SUPPLYTECH").Range("R1").Columns.AutoFit
Worksheets("SUPPLYTECH").Range("S1").Columns.AutoFit
Worksheets("SUPPLYTECH").Range("T1").Columns.AutoFit
Worksheets("SUPPLYTECH").Range("U1").Columns.AutoFit
Worksheets("SUPPLYTECH").Range("V1").Columns.AutoFit
Worksheets("SUPPLYTECH").Range("W1").Columns.AutoFit
Worksheets("SUPPLYTECH").Range("X1").Columns.AutoFit
Worksheets("SUPPLYTECH").Range("Y1").Columns.AutoFit
Worksheets("SUPPLYTECH").Range("Z1").Columns.AutoFit
Worksheets("SUPPLYTECH").Range("AA1").Columns.AutoFit
Worksheets("SUPPLYTECH").Range("AB1").Columns.AutoFit
Worksheets("SUPPLYTECH").Range("AC1").Columns.AutoFit
Worksheets("SUPPLYTECH").Range("AD1").Columns.AutoFit
Worksheets("SUPPLYTECH").Range("AE1").Columns.AutoFit
Worksheets("SUPPLYTECH").Range("AF1").Columns.AutoFit
Worksheets("SUPPLYTECH").Range("AG1").Columns.AutoFit
Worksheets("SUPPLYTECH").Range("AH1").Columns.AutoFit
Worksheets("SUPPLYTECH").Range("AI1").Columns.AutoFit
Worksheets("SUPPLYTECH").Range("AJ1").Columns.AutoFit
Worksheets("SUPPLYTECH").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("SUPPLYTECH").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("I21") = numRows - 1
End Sub
Sub allOthers()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("ALL_OTHERS")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If rg.Cells(i, 13).Value = "All Other" And rg.Cells(i, 17).Value = "Positive" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("ALL_OTHERS").Range("A1").Columns.AutoFit
Worksheets("ALL_OTHERS").Range("B1").Columns.AutoFit
Worksheets("ALL_OTHERS").Range("C1").Columns.AutoFit
Worksheets("ALL_OTHERS").Range("D1").Columns.AutoFit
Worksheets("ALL_OTHERS").Range("E1").Columns.AutoFit
Worksheets("ALL_OTHERS").Range("G1").Columns.AutoFit
Worksheets("ALL_OTHERS").Range("H1").Columns.AutoFit
Worksheets("ALL_OTHERS").Range("I1").Columns.AutoFit
Worksheets("ALL_OTHERS").Range("J1").Columns.AutoFit
Worksheets("ALL_OTHERS").Range("K1").Columns.AutoFit
Worksheets("ALL_OTHERS").Range("L1").Columns.AutoFit
Worksheets("ALL_OTHERS").Range("M1").Columns.AutoFit
Worksheets("ALL_OTHERS").Range("N1").Columns.AutoFit
Worksheets("ALL_OTHERS").Range("O1").Columns.AutoFit
Worksheets("ALL_OTHERS").Range("P1").Columns.AutoFit
Worksheets("ALL_OTHERS").Range("Q1").Columns.AutoFit
Worksheets("ALL_OTHERS").Range("R1").Columns.AutoFit
Worksheets("ALL_OTHERS").Range("S1").Columns.AutoFit
Worksheets("ALL_OTHERS").Range("T1").Columns.AutoFit
Worksheets("ALL_OTHERS").Range("U1").Columns.AutoFit
Worksheets("ALL_OTHERS").Range("V1").Columns.AutoFit
Worksheets("ALL_OTHERS").Range("W1").Columns.AutoFit
Worksheets("ALL_OTHERS").Range("X1").Columns.AutoFit
Worksheets("ALL_OTHERS").Range("Y1").Columns.AutoFit
Worksheets("ALL_OTHERS").Range("Z1").Columns.AutoFit
Worksheets("ALL_OTHERS").Range("AA1").Columns.AutoFit
Worksheets("ALL_OTHERS").Range("AB1").Columns.AutoFit
Worksheets("ALL_OTHERS").Range("AC1").Columns.AutoFit
Worksheets("ALL_OTHERS").Range("AD1").Columns.AutoFit
Worksheets("ALL_OTHERS").Range("AE1").Columns.AutoFit
Worksheets("ALL_OTHERS").Range("AF1").Columns.AutoFit
Worksheets("ALL_OTHERS").Range("AG1").Columns.AutoFit
Worksheets("ALL_OTHERS").Range("AH1").Columns.AutoFit
Worksheets("ALL_OTHERS").Range("AI1").Columns.AutoFit
Worksheets("ALL_OTHERS").Range("AJ1").Columns.AutoFit
Worksheets("ALL_OTHERS").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("ALL_OTHERS").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("I25") = numRows - 1
End Sub
Sub pendingLabs()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("PendingLabs")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
'a = Worksheets("query").Cells(Rows.Count, 1).End(xlUp).row
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If rg.Cells(i, 17).Value = "Pending Result" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("PendingLabs").Range("A1").Columns.AutoFit
Worksheets("PendingLabs").Range("B1").Columns.AutoFit
Worksheets("PendingLabs").Range("C1").Columns.AutoFit
Worksheets("PendingLabs").Range("D1").Columns.AutoFit
Worksheets("PendingLabs").Range("E1").Columns.AutoFit
Worksheets("PendingLabs").Range("G1").Columns.AutoFit
Worksheets("PendingLabs").Range("H1").Columns.AutoFit
Worksheets("PendingLabs").Range("I1").Columns.AutoFit
Worksheets("PendingLabs").Range("J1").Columns.AutoFit
Worksheets("PendingLabs").Range("K1").Columns.AutoFit
Worksheets("PendingLabs").Range("L1").Columns.AutoFit
Worksheets("PendingLabs").Range("M1").Columns.AutoFit
Worksheets("PendingLabs").Range("N1").Columns.AutoFit
Worksheets("PendingLabs").Range("O1").Columns.AutoFit
Worksheets("PendingLabs").Range("P1").Columns.AutoFit
Worksheets("PendingLabs").Range("Q1").Columns.AutoFit
Worksheets("PendingLabs").Range("R1").Columns.AutoFit
Worksheets("PendingLabs").Range("S1").Columns.AutoFit
Worksheets("PendingLabs").Range("T1").Columns.AutoFit
Worksheets("PendingLabs").Range("U1").Columns.AutoFit
Worksheets("PendingLabs").Range("V1").Columns.AutoFit
Worksheets("PendingLabs").Range("W1").Columns.AutoFit
Worksheets("PendingLabs").Range("X1").Columns.AutoFit
Worksheets("PendingLabs").Range("Y1").Columns.AutoFit
Worksheets("PendingLabs").Range("Z1").Columns.AutoFit
Worksheets("PendingLabs").Range("AA1").Columns.AutoFit
Worksheets("PendingLabs").Range("AB1").Columns.AutoFit
Worksheets("PendingLabs").Range("AC1").Columns.AutoFit
Worksheets("PendingLabs").Range("AD1").Columns.AutoFit
Worksheets("PendingLabs").Range("AE1").Columns.AutoFit
Worksheets("PendingLabs").Range("AF1").Columns.AutoFit
Worksheets("PendingLabs").Range("AG1").Columns.AutoFit
Worksheets("PendingLabs").Range("AH1").Columns.AutoFit
Worksheets("PendingLabs").Range("AI1").Columns.AutoFit
Worksheets("PendingLabs").Range("AJ1").Columns.AutoFit
Worksheets("PendingLabs").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("PendingLabs").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("B17") = numRows - 1
End Sub
Sub insertTime()
Worksheets("ExSummary").Activate
Sheets("ExSummary").Range("D2").Select
ActiveCell.Formula = Format(Now(), "mm.dd.yyyy hh:mm")
End Sub
Sub formattedForCPRS()
Dim a As Long
Dim b As Long
Dim i As Long
Dim marks, marks8 As Long
Dim marks1, marks2, marks3, marks6, marks7, marks10, marks11, marks12, marks13, marks16, marks17, marks18, marks20, marks22, marks23, marks25, marks30, marks33, marks34, marks35, marks36, marks37 As String
Dim numRows, numRows1 As Long
Dim lastRow As Long
Dim lastRow1 As Long
Dim lastRow2 As Long
Dim lastrow3 As Long
Dim n As Integer
Dim currentDate, marks4, marks5, marks9, marks14, marks15, marks19, marks21, marks24, marks26, marks27, marks28, marks29, marks31, marks32 As Date
currentDate = Now()
Dim subDate As Date
subDate = DateAdd("d", -4, currentDate) 'subDate is the current date minus 4 days
Dim mydate As Date
'MsgBox "AK3 value is "
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
If ws.Name = "CPRSFormatted" Then
Application.DisplayAlerts = False 'switching off the alert button
ws.Delete
End If
Next
Worksheets("formatForCPRS_Note").Activate
Dim ak As Long
ak = Worksheets("formatForCPRS_Note").Range("B1").Value
a = Worksheets("query").Cells(Rows.Count, 1).End(xlUp).row
For i = 2 To a
marks = Worksheets("query").Cells(i, 1).Value
marks2 = Worksheets("query").Cells(i, 2).Value
marks3 = Worksheets("query").Cells(i, 3).Value
marks4 = Worksheets("query").Cells(i, 4).Value
marks5 = Worksheets("query").Cells(i, 5).Value
marks6 = Worksheets("query").Cells(i, 6).Value
marks7 = Worksheets("query").Cells(i, 7).Value
marks8 = Worksheets("query").Cells(i, 8).Value
marks9 = Worksheets("query").Cells(i, 9).Value
marks10 = Worksheets("query").Cells(i, 10).Value
marks11 = Worksheets("query").Cells(i, 11).Value
marks12 = Worksheets("query").Cells(i, 12).Value
marks13 = Worksheets("query").Cells(i, 13).Value
marks14 = Worksheets("query").Cells(i, 14).Value
marks15 = Worksheets("query").Cells(i, 15).Value
marks16 = Worksheets("query").Cells(i, 16).Value
marks17 = Worksheets("query").Cells(i, 17).Value
marks18 = Worksheets("query").Cells(i, 18).Value
marks19 = Worksheets("query").Cells(i, 19).Value
marks20 = Worksheets("query").Cells(i, 20).Value
marks21 = Worksheets("query").Cells(i, 21).Value
marks22 = Worksheets("query").Cells(i, 22).Value
marks23 = Worksheets("query").Cells(i, 23).Value
marks24 = Worksheets("query").Cells(i, 24).Value
marks25 = Worksheets("query").Cells(i, 25).Value
marks26 = Worksheets("query").Cells(i, 26).Value
marks27 = Worksheets("query").Cells(i, 27).Value
marks28 = Worksheets("query").Cells(i, 28).Value
marks29 = Worksheets("query").Cells(i, 29).Value
marks30 = Worksheets("query").Cells(i, 30).Value
marks31 = Worksheets("query").Cells(i, 31).Value
marks32 = Worksheets("query").Cells(i, 32).Value
marks33 = Worksheets("query").Cells(i, 33).Value
marks34 = Worksheets("query").Cells(i, 34).Value
marks35 = Worksheets("query").Cells(i, 35).Value
marks36 = Worksheets("query").Cells(i, 36).Value
marks37 = Worksheets("query").Cells(i, 37).Value
'If marks = Worksheets("query").Range("AK3").Value Then
If marks = ak Then
Dim myString As String
myString = "Patient is " & marks6 & Space(1) & marks5 & "." _
& Space(1) & "The patient's position/job is: " & marks12 & "." _
& Space(1) & "Patient occupies a " & marks13 & " role." _
& Space(1) & "Presenting symptoms were: " & marks20 & "." _
& Space(1) & "The Covid19 test date was: " & marks15 & "." & Space(1) _
& "The Covid19 test result status is: " & marks16 & "." _
& Space(1) & "Quarantine/Isolation determination was: " & marks25 & "." _
& Space(1) & "Quarantine/Isolation start date was: " & marks26 & "." _
& Space(1) & "Quarantine/Isolation estimated END date is: " & marks27 & "." _
& Space(1) & "The estimated OEH Return to Work Clearance date is: " & marks31 & "." _
& Space(1) & "The Early Return to Work/Critical worker designation is: " & marks22 & "."
Worksheets("forCPRS").Activate
Sheets("forCPRS").Range("A1").Value = myString
'MsgBox "Pt " & marks & "" & "lastName is " & marks5 & "" & marks6
'Dim MyString As String
'
'MyString = "Patient ID on Covid-19 tracker is: " & marks & Space(2) & "Name is: " & _
'marks6 & Space(1) & marks5 & "." & Space(2) &
Worksheets("formatForCPRS_Note").Activate
Worksheets("formatForCPRS_Note").Range("B5").Value = marks
Worksheets("formatForCPRS_Note").Range("B6").Value = marks2
Worksheets("formatForCPRS_Note").Range("B7").Value = marks3
Worksheets("formatForCPRS_Note").Range("B8").Value = marks4
Worksheets("formatForCPRS_Note").Range("B9").Value = marks6
Worksheets("formatForCPRS_Note").Range("B10").Value = marks7
Worksheets("formatForCPRS_Note").Range("B11").Value = marks8
Worksheets("formatForCPRS_Note").Range("B12").Value = marks9
Worksheets("formatForCPRS_Note").Range("B13").Value = marks10
Worksheets("formatForCPRS_Note").Range("B14").Value = marks11
Worksheets("formatForCPRS_Note").Range("B15").Value = marks12
Worksheets("formatForCPRS_Note").Range("B16").Value = marks13
Worksheets("formatForCPRS_Note").Range("B17").Value = marks14
Worksheets("formatForCPRS_Note").Range("B18").Value = marks15
Worksheets("formatForCPRS_Note").Range("B19").Value = marks16
Worksheets("formatForCPRS_Note").Range("B20").Value = marks17
Worksheets("formatForCPRS_Note").Range("B21").Value = marks18
Worksheets("formatForCPRS_Note").Range("B22").Value = marks19
Worksheets("formatForCPRS_Note").Range("B23").Value = marks20
Worksheets("formatForCPRS_Note").Range("B24").Value = marks21
Worksheets("formatForCPRS_Note").Range("B25").Value = marks22
Worksheets("formatForCPRS_Note").Range("B26").Value = marks23
Worksheets("formatForCPRS_Note").Range("B27").Value = marks24
Worksheets("formatForCPRS_Note").Range("B28").Value = marks25
Worksheets("formatForCPRS_Note").Range("B29").Value = marks26
Worksheets("formatForCPRS_Note").Range("B30").Value = marks27
Worksheets("formatForCPRS_Note").Range("B31").Value = marks28
Worksheets("formatForCPRS_Note").Range("B32").Value = marks29
Worksheets("formatForCPRS_Note").Range("B33").Value = marks30
Worksheets("formatForCPRS_Note").Range("B34").Value = marks31
Worksheets("formatForCPRS_Note").Range("B35").Value = marks32
Worksheets("formatForCPRS_Note").Range("B36").Value = marks33
Worksheets("formatForCPRS_Note").Range("B37").Value = marks34
Worksheets("formatForCPRS_Note").Range("B38").Value = marks35
Worksheets("formatForCPRS_Note").Range("B39").Value = marks36
Worksheets("formatForCPRS_Note").Range("B40").Value = marks37
End If
Next
'
'MsgBox "The value of B2 is " & bb
ThisWorkbook.Worksheets("formatForCPRS_Note").Cells(1, 1).Select
End Sub
Sub needsAction()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("NEEDSACTION")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
'a = Worksheets("query").Cells(Rows.Count, 1).End(xlUp).row
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If rg.Cells(i, 2).Value = "Needs Action" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("NEEDSACTION").Range("A1").Columns.AutoFit
Worksheets("NEEDSACTION").Range("B1").Columns.AutoFit
Worksheets("NEEDSACTION").Range("C1").Columns.AutoFit
Worksheets("NEEDSACTION").Range("D1").Columns.AutoFit
Worksheets("NEEDSACTION").Range("E1").Columns.AutoFit
Worksheets("NEEDSACTION").Range("G1").Columns.AutoFit
Worksheets("NEEDSACTION").Range("H1").Columns.AutoFit
Worksheets("NEEDSACTION").Range("I1").Columns.AutoFit
Worksheets("NEEDSACTION").Range("J1").Columns.AutoFit
Worksheets("NEEDSACTION").Range("K1").Columns.AutoFit
Worksheets("NEEDSACTION").Range("L1").Columns.AutoFit
Worksheets("NEEDSACTION").Range("M1").Columns.AutoFit
Worksheets("NEEDSACTION").Range("N1").Columns.AutoFit
Worksheets("NEEDSACTION").Range("O1").Columns.AutoFit
Worksheets("NEEDSACTION").Range("P1").Columns.AutoFit
Worksheets("NEEDSACTION").Range("Q1").Columns.AutoFit
Worksheets("NEEDSACTION").Range("R1").Columns.AutoFit
Worksheets("NEEDSACTION").Range("S1").Columns.AutoFit
Worksheets("NEEDSACTION").Range("T1").Columns.AutoFit
Worksheets("NEEDSACTION").Range("U1").Columns.AutoFit
Worksheets("NEEDSACTION").Range("V1").Columns.AutoFit
Worksheets("NEEDSACTION").Range("W1").Columns.AutoFit
Worksheets("NEEDSACTION").Range("X1").Columns.AutoFit
Worksheets("NEEDSACTION").Range("Y1").Columns.AutoFit
Worksheets("NEEDSACTION").Range("Z1").Columns.AutoFit
Worksheets("NEEDSACTION").Range("AA1").Columns.AutoFit
Worksheets("NEEDSACTION").Range("AB1").Columns.AutoFit
Worksheets("NEEDSACTION").Range("AC1").Columns.AutoFit
Worksheets("NEEDSACTION").Range("AD1").Columns.AutoFit
Worksheets("NEEDSACTION").Range("AE1").Columns.AutoFit
Worksheets("NEEDSACTION").Range("AF1").Columns.AutoFit
Worksheets("NEEDSACTION").Range("AG1").Columns.AutoFit
Worksheets("NEEDSACTION").Range("AH1").Columns.AutoFit
Worksheets("NEEDSACTION").Range("AI1").Columns.AutoFit
Worksheets("NEEDSACTION").Range("AJ1").Columns.AutoFit
Worksheets("NEEDSACTION").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("NEEDSACTION").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("B26") = numRows - 1
End Sub
Sub ReturnToWorkNo()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("RETURNTOWORKNO")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
'a = Worksheets("query").Cells(Rows.Count, 1).End(xlUp).row
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If rg.Cells(i, 31).Value = "No" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("RETURNTOWORKNO").Range("A1").Columns.AutoFit
Worksheets("RETURNTOWORKNO").Range("B1").Columns.AutoFit
Worksheets("RETURNTOWORKNO").Range("C1").Columns.AutoFit
Worksheets("RETURNTOWORKNO").Range("D1").Columns.AutoFit
Worksheets("RETURNTOWORKNO").Range("E1").Columns.AutoFit
Worksheets("RETURNTOWORKNO").Range("G1").Columns.AutoFit
Worksheets("RETURNTOWORKNO").Range("H1").Columns.AutoFit
Worksheets("RETURNTOWORKNO").Range("I1").Columns.AutoFit
Worksheets("RETURNTOWORKNO").Range("J1").Columns.AutoFit
Worksheets("RETURNTOWORKNO").Range("K1").Columns.AutoFit
Worksheets("RETURNTOWORKNO").Range("L1").Columns.AutoFit
Worksheets("RETURNTOWORKNO").Range("M1").Columns.AutoFit
Worksheets("RETURNTOWORKNO").Range("N1").Columns.AutoFit
Worksheets("RETURNTOWORKNO").Range("O1").Columns.AutoFit
Worksheets("RETURNTOWORKNO").Range("P1").Columns.AutoFit
Worksheets("RETURNTOWORKNO").Range("Q1").Columns.AutoFit
Worksheets("RETURNTOWORKNO").Range("R1").Columns.AutoFit
Worksheets("RETURNTOWORKNO").Range("S1").Columns.AutoFit
Worksheets("RETURNTOWORKNO").Range("T1").Columns.AutoFit
Worksheets("RETURNTOWORKNO").Range("U1").Columns.AutoFit
Worksheets("RETURNTOWORKNO").Range("V1").Columns.AutoFit
Worksheets("RETURNTOWORKNO").Range("W1").Columns.AutoFit
Worksheets("RETURNTOWORKNO").Range("X1").Columns.AutoFit
Worksheets("RETURNTOWORKNO").Range("Y1").Columns.AutoFit
Worksheets("RETURNTOWORKNO").Range("Z1").Columns.AutoFit
Worksheets("RETURNTOWORKNO").Range("AA1").Columns.AutoFit
Worksheets("RETURNTOWORKNO").Range("AB1").Columns.AutoFit
Worksheets("RETURNTOWORKNO").Range("AC1").Columns.AutoFit
Worksheets("RETURNTOWORKNO").Range("AD1").Columns.AutoFit
Worksheets("RETURNTOWORKNO").Range("AE1").Columns.AutoFit
Worksheets("RETURNTOWORKNO").Range("AF1").Columns.AutoFit
Worksheets("RETURNTOWORKNO").Range("AG1").Columns.AutoFit
Worksheets("RETURNTOWORKNO").Range("AH1").Columns.AutoFit
Worksheets("RETURNTOWORKNO").Range("AI1").Columns.AutoFit
Worksheets("RETURNTOWORKNO").Range("AJ1").Columns.AutoFit
Worksheets("RETURNTOWORKNO").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("RETURNTOWORKNO").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("B19") = numRows - 1
End Sub
Sub ReturnToWorkYes()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("RETURNTOWORKYES")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
'a = Worksheets("query").Cells(Rows.Count, 1).End(xlUp).row
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If rg.Cells(i, 31).Value = "Yes" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("RETURNTOWORKYES").Range("A1").Columns.AutoFit
Worksheets("RETURNTOWORKYES").Range("B1").Columns.AutoFit
Worksheets("RETURNTOWORKYES").Range("C1").Columns.AutoFit
Worksheets("RETURNTOWORKYES").Range("D1").Columns.AutoFit
Worksheets("RETURNTOWORKYES").Range("E1").Columns.AutoFit
Worksheets("RETURNTOWORKYES").Range("G1").Columns.AutoFit
Worksheets("RETURNTOWORKYES").Range("H1").Columns.AutoFit
Worksheets("RETURNTOWORKYES").Range("I1").Columns.AutoFit
Worksheets("RETURNTOWORKYES").Range("J1").Columns.AutoFit
Worksheets("RETURNTOWORKYES").Range("K1").Columns.AutoFit
Worksheets("RETURNTOWORKYES").Range("L1").Columns.AutoFit
Worksheets("RETURNTOWORKYES").Range("M1").Columns.AutoFit
Worksheets("RETURNTOWORKYES").Range("N1").Columns.AutoFit
Worksheets("RETURNTOWORKYES").Range("O1").Columns.AutoFit
Worksheets("RETURNTOWORKYES").Range("P1").Columns.AutoFit
Worksheets("RETURNTOWORKYES").Range("Q1").Columns.AutoFit
Worksheets("RETURNTOWORKYES").Range("R1").Columns.AutoFit
Worksheets("RETURNTOWORKYES").Range("S1").Columns.AutoFit
Worksheets("RETURNTOWORKYES").Range("T1").Columns.AutoFit
Worksheets("RETURNTOWORKYES").Range("U1").Columns.AutoFit
Worksheets("RETURNTOWORKYES").Range("V1").Columns.AutoFit
Worksheets("RETURNTOWORKYES").Range("W1").Columns.AutoFit
Worksheets("RETURNTOWORKYES").Range("X1").Columns.AutoFit
Worksheets("RETURNTOWORKYES").Range("Y1").Columns.AutoFit
Worksheets("RETURNTOWORKYES").Range("Z1").Columns.AutoFit
Worksheets("RETURNTOWORKYES").Range("AA1").Columns.AutoFit
Worksheets("RETURNTOWORKYES").Range("AB1").Columns.AutoFit
Worksheets("RETURNTOWORKYES").Range("AC1").Columns.AutoFit
Worksheets("RETURNTOWORKYES").Range("AD1").Columns.AutoFit
Worksheets("RETURNTOWORKYES").Range("AE1").Columns.AutoFit
Worksheets("RETURNTOWORKYES").Range("AF1").Columns.AutoFit
Worksheets("RETURNTOWORKYES").Range("AG1").Columns.AutoFit
Worksheets("RETURNTOWORKYES").Range("AH1").Columns.AutoFit
Worksheets("RETURNTOWORKYES").Range("AI1").Columns.AutoFit
Worksheets("RETURNTOWORKYES").Range("AJ1").Columns.AutoFit
Worksheets("RETURNTOWORKYES").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("RETURNTOWORKYES").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("B21") = numRows - 1
End Sub
Sub countTotal()
Dim numRows As Long
Worksheets("query").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("B3") = numRows - 1
End Sub
Sub inpatient()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("INPATIENT")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
'a = Worksheets("query").Cells(Rows.Count, 1).End(xlUp).row
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If rg.Cells(i, 26).Value = "Hospital-inpatient" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("INPATIENT").Range("A1").Columns.AutoFit
Worksheets("INPATIENT").Range("B1").Columns.AutoFit
Worksheets("INPATIENT").Range("C1").Columns.AutoFit
Worksheets("INPATIENT").Range("D1").Columns.AutoFit
Worksheets("INPATIENT").Range("E1").Columns.AutoFit
Worksheets("INPATIENT").Range("G1").Columns.AutoFit
Worksheets("INPATIENT").Range("H1").Columns.AutoFit
Worksheets("INPATIENT").Range("I1").Columns.AutoFit
Worksheets("INPATIENT").Range("J1").Columns.AutoFit
Worksheets("INPATIENT").Range("K1").Columns.AutoFit
Worksheets("INPATIENT").Range("L1").Columns.AutoFit
Worksheets("INPATIENT").Range("M1").Columns.AutoFit
Worksheets("INPATIENT").Range("N1").Columns.AutoFit
Worksheets("INPATIENT").Range("O1").Columns.AutoFit
Worksheets("INPATIENT").Range("P1").Columns.AutoFit
Worksheets("INPATIENT").Range("Q1").Columns.AutoFit
Worksheets("INPATIENT").Range("R1").Columns.AutoFit
Worksheets("INPATIENT").Range("S1").Columns.AutoFit
Worksheets("INPATIENT").Range("T1").Columns.AutoFit
Worksheets("INPATIENT").Range("U1").Columns.AutoFit
Worksheets("INPATIENT").Range("V1").Columns.AutoFit
Worksheets("INPATIENT").Range("W1").Columns.AutoFit
Worksheets("INPATIENT").Range("X1").Columns.AutoFit
Worksheets("INPATIENT").Range("Y1").Columns.AutoFit
Worksheets("INPATIENT").Range("Z1").Columns.AutoFit
Worksheets("INPATIENT").Range("AA1").Columns.AutoFit
Worksheets("INPATIENT").Range("AB1").Columns.AutoFit
Worksheets("INPATIENT").Range("AC1").Columns.AutoFit
Worksheets("INPATIENT").Range("AD1").Columns.AutoFit
Worksheets("INPATIENT").Range("AE1").Columns.AutoFit
Worksheets("INPATIENT").Range("AF1").Columns.AutoFit
Worksheets("INPATIENT").Range("AG1").Columns.AutoFit
Worksheets("INPATIENT").Range("AH1").Columns.AutoFit
Worksheets("INPATIENT").Range("AI1").Columns.AutoFit
Worksheets("INPATIENT").Range("AJ1").Columns.AutoFit
Worksheets("INPATIENT").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("INPATIENT").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("I26") = numRows - 1
End Sub
Sub ReturnToWorkYesCovidPos()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("RETURNTOWORKYESCOVIDPOS")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If rg.Cells(i, 17).Value = "Positive" And rg.Cells(i, 31).Value = "Yes" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("RETURNTOWORKYESCOVIDPOS").Range("A1").Columns.AutoFit
Worksheets("RETURNTOWORKYESCOVIDPOS").Range("B1").Columns.AutoFit
Worksheets("RETURNTOWORKYESCOVIDPOS").Range("C1").Columns.AutoFit
Worksheets("RETURNTOWORKYESCOVIDPOS").Range("D1").Columns.AutoFit
Worksheets("RETURNTOWORKYESCOVIDPOS").Range("E1").Columns.AutoFit
Worksheets("RETURNTOWORKYESCOVIDPOS").Range("G1").Columns.AutoFit
Worksheets("RETURNTOWORKYESCOVIDPOS").Range("H1").Columns.AutoFit
Worksheets("RETURNTOWORKYESCOVIDPOS").Range("I1").Columns.AutoFit
Worksheets("RETURNTOWORKYESCOVIDPOS").Range("J1").Columns.AutoFit
Worksheets("RETURNTOWORKYESCOVIDPOS").Range("K1").Columns.AutoFit
Worksheets("RETURNTOWORKYESCOVIDPOS").Range("L1").Columns.AutoFit
Worksheets("RETURNTOWORKYESCOVIDPOS").Range("M1").Columns.AutoFit
Worksheets("RETURNTOWORKYESCOVIDPOS").Range("N1").Columns.AutoFit
Worksheets("RETURNTOWORKYESCOVIDPOS").Range("O1").Columns.AutoFit
Worksheets("RETURNTOWORKYESCOVIDPOS").Range("P1").Columns.AutoFit
Worksheets("RETURNTOWORKYESCOVIDPOS").Range("Q1").Columns.AutoFit
Worksheets("RETURNTOWORKYESCOVIDPOS").Range("R1").Columns.AutoFit
Worksheets("RETURNTOWORKYESCOVIDPOS").Range("S1").Columns.AutoFit
Worksheets("RETURNTOWORKYESCOVIDPOS").Range("T1").Columns.AutoFit
Worksheets("RETURNTOWORKYESCOVIDPOS").Range("U1").Columns.AutoFit
Worksheets("RETURNTOWORKYESCOVIDPOS").Range("V1").Columns.AutoFit
Worksheets("RETURNTOWORKYESCOVIDPOS").Range("W1").Columns.AutoFit
Worksheets("RETURNTOWORKYESCOVIDPOS").Range("X1").Columns.AutoFit
Worksheets("RETURNTOWORKYESCOVIDPOS").Range("Y1").Columns.AutoFit
Worksheets("RETURNTOWORKYESCOVIDPOS").Range("Z1").Columns.AutoFit
Worksheets("RETURNTOWORKYESCOVIDPOS").Range("AA1").Columns.AutoFit
Worksheets("RETURNTOWORKYESCOVIDPOS").Range("AB1").Columns.AutoFit
Worksheets("RETURNTOWORKYESCOVIDPOS").Range("AC1").Columns.AutoFit
Worksheets("RETURNTOWORKYESCOVIDPOS").Range("AD1").Columns.AutoFit
Worksheets("RETURNTOWORKYESCOVIDPOS").Range("AE1").Columns.AutoFit
Worksheets("RETURNTOWORKYESCOVIDPOS").Range("AF1").Columns.AutoFit
Worksheets("RETURNTOWORKYESCOVIDPOS").Range("AG1").Columns.AutoFit
Worksheets("RETURNTOWORKYESCOVIDPOS").Range("AH1").Columns.AutoFit
Worksheets("RETURNTOWORKYESCOVIDPOS").Range("AI1").Columns.AutoFit
Worksheets("RETURNTOWORKYESCOVIDPOS").Range("AJ1").Columns.AutoFit
Worksheets("RETURNTOWORKYESCOVIDPOS").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("RETURNTOWORKYESCOVIDPOS").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("B22") = numRows - 1
End Sub
Sub QuarIsolClin()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("QUARISOLCLIN")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If rg.Cells(i, 14).Value = "Clinical" And rg.Cells(i, 17).Value = "Positive" And (rg.Cells(i, 26).Value = "Home" Or rg.Cells(i, 26).Value = "Hospital-inpatient") Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("QUARISOLCLIN").Range("A1").Columns.AutoFit
Worksheets("QUARISOLCLIN").Range("B1").Columns.AutoFit
Worksheets("QUARISOLCLIN").Range("C1").Columns.AutoFit
Worksheets("QUARISOLCLIN").Range("D1").Columns.AutoFit
Worksheets("QUARISOLCLIN").Range("E1").Columns.AutoFit
Worksheets("QUARISOLCLIN").Range("G1").Columns.AutoFit
Worksheets("QUARISOLCLIN").Range("H1").Columns.AutoFit
Worksheets("QUARISOLCLIN").Range("I1").Columns.AutoFit
Worksheets("QUARISOLCLIN").Range("J1").Columns.AutoFit
Worksheets("QUARISOLCLIN").Range("K1").Columns.AutoFit
Worksheets("QUARISOLCLIN").Range("L1").Columns.AutoFit
Worksheets("QUARISOLCLIN").Range("M1").Columns.AutoFit
Worksheets("QUARISOLCLIN").Range("N1").Columns.AutoFit
Worksheets("QUARISOLCLIN").Range("O1").Columns.AutoFit
Worksheets("QUARISOLCLIN").Range("P1").Columns.AutoFit
Worksheets("QUARISOLCLIN").Range("Q1").Columns.AutoFit
Worksheets("QUARISOLCLIN").Range("R1").Columns.AutoFit
Worksheets("QUARISOLCLIN").Range("S1").Columns.AutoFit
Worksheets("QUARISOLCLIN").Range("T1").Columns.AutoFit
Worksheets("QUARISOLCLIN").Range("U1").Columns.AutoFit
Worksheets("QUARISOLCLIN").Range("V1").Columns.AutoFit
Worksheets("QUARISOLCLIN").Range("W1").Columns.AutoFit
Worksheets("QUARISOLCLIN").Range("X1").Columns.AutoFit
Worksheets("QUARISOLCLIN").Range("Y1").Columns.AutoFit
Worksheets("QUARISOLCLIN").Range("Z1").Columns.AutoFit
Worksheets("QUARISOLCLIN").Range("AA1").Columns.AutoFit
Worksheets("QUARISOLCLIN").Range("AB1").Columns.AutoFit
Worksheets("QUARISOLCLIN").Range("AC1").Columns.AutoFit
Worksheets("QUARISOLCLIN").Range("AD1").Columns.AutoFit
Worksheets("QUARISOLCLIN").Range("AE1").Columns.AutoFit
Worksheets("QUARISOLCLIN").Range("AF1").Columns.AutoFit
Worksheets("QUARISOLCLIN").Range("AG1").Columns.AutoFit
Worksheets("QUARISOLCLIN").Range("AH1").Columns.AutoFit
Worksheets("QUARISOLCLIN").Range("AI1").Columns.AutoFit
Worksheets("QUARISOLCLIN").Range("AJ1").Columns.AutoFit
Worksheets("QUARISOLCLIN").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("QUARISOLCLIN").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("B14") = numRows - 1
End Sub
Sub QuarIsolNonClin()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("QUARISOLNONCLIN")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If rg.Cells(i, 14).Value = "Non-Clinical" And rg.Cells(i, 17).Value = "Positive" And (rg.Cells(i, 26).Value = "Home" Or rg.Cells(i, 26).Value = "Hospital-inpatient") Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("QUARISOLNONCLIN").Range("A1").Columns.AutoFit
Worksheets("QUARISOLNONCLIN").Range("B1").Columns.AutoFit
Worksheets("QUARISOLNONCLIN").Range("C1").Columns.AutoFit
Worksheets("QUARISOLNONCLIN").Range("D1").Columns.AutoFit
Worksheets("QUARISOLNONCLIN").Range("E1").Columns.AutoFit
Worksheets("QUARISOLNONCLIN").Range("G1").Columns.AutoFit
Worksheets("QUARISOLNONCLIN").Range("H1").Columns.AutoFit
Worksheets("QUARISOLNONCLIN").Range("I1").Columns.AutoFit
Worksheets("QUARISOLNONCLIN").Range("J1").Columns.AutoFit
Worksheets("QUARISOLNONCLIN").Range("K1").Columns.AutoFit
Worksheets("QUARISOLNONCLIN").Range("L1").Columns.AutoFit
Worksheets("QUARISOLNONCLIN").Range("M1").Columns.AutoFit
Worksheets("QUARISOLNONCLIN").Range("N1").Columns.AutoFit
Worksheets("QUARISOLNONCLIN").Range("O1").Columns.AutoFit
Worksheets("QUARISOLNONCLIN").Range("P1").Columns.AutoFit
Worksheets("QUARISOLNONCLIN").Range("Q1").Columns.AutoFit
Worksheets("QUARISOLNONCLIN").Range("R1").Columns.AutoFit
Worksheets("QUARISOLNONCLIN").Range("S1").Columns.AutoFit
Worksheets("QUARISOLNONCLIN").Range("T1").Columns.AutoFit
Worksheets("QUARISOLNONCLIN").Range("U1").Columns.AutoFit
Worksheets("QUARISOLNONCLIN").Range("V1").Columns.AutoFit
Worksheets("QUARISOLNONCLIN").Range("W1").Columns.AutoFit
Worksheets("QUARISOLNONCLIN").Range("X1").Columns.AutoFit
Worksheets("QUARISOLNONCLIN").Range("Y1").Columns.AutoFit
Worksheets("QUARISOLNONCLIN").Range("Z1").Columns.AutoFit
Worksheets("QUARISOLNONCLIN").Range("AA1").Columns.AutoFit
Worksheets("QUARISOLNONCLIN").Range("AB1").Columns.AutoFit
Worksheets("QUARISOLNONCLIN").Range("AC1").Columns.AutoFit
Worksheets("QUARISOLNONCLIN").Range("AD1").Columns.AutoFit
Worksheets("QUARISOLNONCLIN").Range("AE1").Columns.AutoFit
Worksheets("QUARISOLNONCLIN").Range("AF1").Columns.AutoFit
Worksheets("QUARISOLNONCLIN").Range("AG1").Columns.AutoFit
Worksheets("QUARISOLNONCLIN").Range("AH1").Columns.AutoFit
Worksheets("QUARISOLNONCLIN").Range("AI1").Columns.AutoFit
Worksheets("QUARISOLNONCLIN").Range("AJ1").Columns.AutoFit
Worksheets("QUARISOLNONCLIN").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("QUARISOLNONCLIN").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("B15") = numRows - 1
End Sub
Sub deceased()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("DECEASED")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
'a = Worksheets("query").Cells(Rows.Count, 1).End(xlUp).row
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If rg.Cells(i, 35).Value = "Yes" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("DECEASED").Range("A1").Columns.AutoFit
Worksheets("DECEASED").Range("B1").Columns.AutoFit
Worksheets("DECEASED").Range("C1").Columns.AutoFit
Worksheets("DECEASED").Range("D1").Columns.AutoFit
Worksheets("DECEASED").Range("E1").Columns.AutoFit
Worksheets("DECEASED").Range("G1").Columns.AutoFit
Worksheets("DECEASED").Range("H1").Columns.AutoFit
Worksheets("DECEASED").Range("I1").Columns.AutoFit
Worksheets("DECEASED").Range("J1").Columns.AutoFit
Worksheets("DECEASED").Range("K1").Columns.AutoFit
Worksheets("DECEASED").Range("L1").Columns.AutoFit
Worksheets("DECEASED").Range("M1").Columns.AutoFit
Worksheets("DECEASED").Range("N1").Columns.AutoFit
Worksheets("DECEASED").Range("O1").Columns.AutoFit
Worksheets("DECEASED").Range("P1").Columns.AutoFit
Worksheets("DECEASED").Range("Q1").Columns.AutoFit
Worksheets("DECEASED").Range("R1").Columns.AutoFit
Worksheets("DECEASED").Range("S1").Columns.AutoFit
Worksheets("DECEASED").Range("T1").Columns.AutoFit
Worksheets("DECEASED").Range("U1").Columns.AutoFit
Worksheets("DECEASED").Range("V1").Columns.AutoFit
Worksheets("DECEASED").Range("W1").Columns.AutoFit
Worksheets("DECEASED").Range("X1").Columns.AutoFit
Worksheets("DECEASED").Range("Y1").Columns.AutoFit
Worksheets("DECEASED").Range("Z1").Columns.AutoFit
Worksheets("DECEASED").Range("AA1").Columns.AutoFit
Worksheets("DECEASED").Range("AB1").Columns.AutoFit
Worksheets("DECEASED").Range("AC1").Columns.AutoFit
Worksheets("DECEASED").Range("AD1").Columns.AutoFit
Worksheets("DECEASED").Range("AE1").Columns.AutoFit
Worksheets("DECEASED").Range("AF1").Columns.AutoFit
Worksheets("DECEASED").Range("AG1").Columns.AutoFit
Worksheets("DECEASED").Range("AH1").Columns.AutoFit
Worksheets("DECEASED").Range("AI1").Columns.AutoFit
Worksheets("DECEASED").Range("AJ1").Columns.AutoFit
Worksheets("DECEASED").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("DECEASED").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("B28") = numRows - 1
End Sub
Sub WS_leave()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("WS_LEAVE")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
'a = Worksheets("query").Cells(Rows.Count, 1).End(xlUp).row
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If rg.Cells(i, 36).Value = "Yes" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("WS_LEAVE").Range("A1").Columns.AutoFit
Worksheets("WS_LEAVE").Range("B1").Columns.AutoFit
Worksheets("WS_LEAVE").Range("C1").Columns.AutoFit
Worksheets("WS_LEAVE").Range("D1").Columns.AutoFit
Worksheets("WS_LEAVE").Range("E1").Columns.AutoFit
Worksheets("WS_LEAVE").Range("G1").Columns.AutoFit
Worksheets("WS_LEAVE").Range("H1").Columns.AutoFit
Worksheets("WS_LEAVE").Range("I1").Columns.AutoFit
Worksheets("WS_LEAVE").Range("J1").Columns.AutoFit
Worksheets("WS_LEAVE").Range("K1").Columns.AutoFit
Worksheets("WS_LEAVE").Range("L1").Columns.AutoFit
Worksheets("WS_LEAVE").Range("M1").Columns.AutoFit
Worksheets("WS_LEAVE").Range("N1").Columns.AutoFit
Worksheets("WS_LEAVE").Range("O1").Columns.AutoFit
Worksheets("WS_LEAVE").Range("P1").Columns.AutoFit
Worksheets("WS_LEAVE").Range("Q1").Columns.AutoFit
Worksheets("WS_LEAVE").Range("R1").Columns.AutoFit
Worksheets("WS_LEAVE").Range("S1").Columns.AutoFit
Worksheets("WS_LEAVE").Range("T1").Columns.AutoFit
Worksheets("WS_LEAVE").Range("U1").Columns.AutoFit
Worksheets("WS_LEAVE").Range("V1").Columns.AutoFit
Worksheets("WS_LEAVE").Range("W1").Columns.AutoFit
Worksheets("WS_LEAVE").Range("X1").Columns.AutoFit
Worksheets("WS_LEAVE").Range("Y1").Columns.AutoFit
Worksheets("WS_LEAVE").Range("Z1").Columns.AutoFit
Worksheets("WS_LEAVE").Range("AA1").Columns.AutoFit
Worksheets("WS_LEAVE").Range("AB1").Columns.AutoFit
Worksheets("WS_LEAVE").Range("AC1").Columns.AutoFit
Worksheets("WS_LEAVE").Range("AD1").Columns.AutoFit
Worksheets("WS_LEAVE").Range("AE1").Columns.AutoFit
Worksheets("WS_LEAVE").Range("AF1").Columns.AutoFit
Worksheets("WS_LEAVE").Range("AG1").Columns.AutoFit
Worksheets("WS_LEAVE").Range("AH1").Columns.AutoFit
Worksheets("WS_LEAVE").Range("AI1").Columns.AutoFit
Worksheets("WS_LEAVE").Range("AJ1").Columns.AutoFit
Worksheets("WS_LEAVE").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("WS_LEAVE").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("I29") = numRows - 1
End Sub
Sub covidPosClin()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("COVIDPOSCLIN")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If rg.Cells(i, 14).Value = "Clinical" And rg.Cells(i, 17).Value = "Positive" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("COVIDPOSCLIN").Range("A1").Columns.AutoFit
Worksheets("COVIDPOSCLIN").Range("B1").Columns.AutoFit
Worksheets("COVIDPOSCLIN").Range("C1").Columns.AutoFit
Worksheets("COVIDPOSCLIN").Range("D1").Columns.AutoFit
Worksheets("COVIDPOSCLIN").Range("E1").Columns.AutoFit
Worksheets("COVIDPOSCLIN").Range("G1").Columns.AutoFit
Worksheets("COVIDPOSCLIN").Range("H1").Columns.AutoFit
Worksheets("COVIDPOSCLIN").Range("I1").Columns.AutoFit
Worksheets("COVIDPOSCLIN").Range("J1").Columns.AutoFit
Worksheets("COVIDPOSCLIN").Range("K1").Columns.AutoFit
Worksheets("COVIDPOSCLIN").Range("L1").Columns.AutoFit
Worksheets("COVIDPOSCLIN").Range("M1").Columns.AutoFit
Worksheets("COVIDPOSCLIN").Range("N1").Columns.AutoFit
Worksheets("COVIDPOSCLIN").Range("O1").Columns.AutoFit
Worksheets("COVIDPOSCLIN").Range("P1").Columns.AutoFit
Worksheets("COVIDPOSCLIN").Range("Q1").Columns.AutoFit
Worksheets("COVIDPOSCLIN").Range("R1").Columns.AutoFit
Worksheets("COVIDPOSCLIN").Range("S1").Columns.AutoFit
Worksheets("COVIDPOSCLIN").Range("T1").Columns.AutoFit
Worksheets("COVIDPOSCLIN").Range("U1").Columns.AutoFit
Worksheets("COVIDPOSCLIN").Range("V1").Columns.AutoFit
Worksheets("COVIDPOSCLIN").Range("W1").Columns.AutoFit
Worksheets("COVIDPOSCLIN").Range("X1").Columns.AutoFit
Worksheets("COVIDPOSCLIN").Range("Y1").Columns.AutoFit
Worksheets("COVIDPOSCLIN").Range("Z1").Columns.AutoFit
Worksheets("COVIDPOSCLIN").Range("AA1").Columns.AutoFit
Worksheets("COVIDPOSCLIN").Range("AB1").Columns.AutoFit
Worksheets("COVIDPOSCLIN").Range("AC1").Columns.AutoFit
Worksheets("COVIDPOSCLIN").Range("AD1").Columns.AutoFit
Worksheets("COVIDPOSCLIN").Range("AE1").Columns.AutoFit
Worksheets("COVIDPOSCLIN").Range("AF1").Columns.AutoFit
Worksheets("COVIDPOSCLIN").Range("AG1").Columns.AutoFit
Worksheets("COVIDPOSCLIN").Range("AH1").Columns.AutoFit
Worksheets("COVIDPOSCLIN").Range("AI1").Columns.AutoFit
Worksheets("COVIDPOSCLIN").Range("AJ1").Columns.AutoFit
Worksheets("COVIDPOSCLIN").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("COVIDPOSCLIN").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("E5") = numRows - 1
End Sub
Sub covidPosNonClin()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("COVIDPOSNONCLIN")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If rg.Cells(i, 14).Value = "Non-Clinical" And rg.Cells(i, 17).Value = "Positive" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("COVIDPOSNONCLIN").Range("A1").Columns.AutoFit
Worksheets("COVIDPOSNONCLIN").Range("B1").Columns.AutoFit
Worksheets("COVIDPOSNONCLIN").Range("C1").Columns.AutoFit
Worksheets("COVIDPOSNONCLIN").Range("D1").Columns.AutoFit
Worksheets("COVIDPOSNONCLIN").Range("E1").Columns.AutoFit
Worksheets("COVIDPOSNONCLIN").Range("G1").Columns.AutoFit
Worksheets("COVIDPOSNONCLIN").Range("H1").Columns.AutoFit
Worksheets("COVIDPOSNONCLIN").Range("I1").Columns.AutoFit
Worksheets("COVIDPOSNONCLIN").Range("J1").Columns.AutoFit
Worksheets("COVIDPOSNONCLIN").Range("K1").Columns.AutoFit
Worksheets("COVIDPOSNONCLIN").Range("L1").Columns.AutoFit
Worksheets("COVIDPOSNONCLIN").Range("M1").Columns.AutoFit
Worksheets("COVIDPOSNONCLIN").Range("N1").Columns.AutoFit
Worksheets("COVIDPOSNONCLIN").Range("O1").Columns.AutoFit
Worksheets("COVIDPOSNONCLIN").Range("P1").Columns.AutoFit
Worksheets("COVIDPOSNONCLIN").Range("Q1").Columns.AutoFit
Worksheets("COVIDPOSNONCLIN").Range("R1").Columns.AutoFit
Worksheets("COVIDPOSNONCLIN").Range("S1").Columns.AutoFit
Worksheets("COVIDPOSNONCLIN").Range("T1").Columns.AutoFit
Worksheets("COVIDPOSNONCLIN").Range("U1").Columns.AutoFit
Worksheets("COVIDPOSNONCLIN").Range("V1").Columns.AutoFit
Worksheets("COVIDPOSNONCLIN").Range("W1").Columns.AutoFit
Worksheets("COVIDPOSNONCLIN").Range("X1").Columns.AutoFit
Worksheets("COVIDPOSNONCLIN").Range("Y1").Columns.AutoFit
Worksheets("COVIDPOSNONCLIN").Range("Z1").Columns.AutoFit
Worksheets("COVIDPOSNONCLIN").Range("AA1").Columns.AutoFit
Worksheets("COVIDPOSNONCLIN").Range("AB1").Columns.AutoFit
Worksheets("COVIDPOSNONCLIN").Range("AC1").Columns.AutoFit
Worksheets("COVIDPOSNONCLIN").Range("AD1").Columns.AutoFit
Worksheets("COVIDPOSNONCLIN").Range("AE1").Columns.AutoFit
Worksheets("COVIDPOSNONCLIN").Range("AF1").Columns.AutoFit
Worksheets("COVIDPOSNONCLIN").Range("AG1").Columns.AutoFit
Worksheets("COVIDPOSNONCLIN").Range("AH1").Columns.AutoFit
Worksheets("COVIDPOSNONCLIN").Range("AI1").Columns.AutoFit
Worksheets("COVIDPOSNONCLIN").Range("AJ1").Columns.AutoFit
Worksheets("COVIDPOSNONCLIN").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("COVIDPOSNONCLIN").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("E6") = numRows - 1
End Sub
Sub pendingLabsClin()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("PENDINGLABSCLIN")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If rg.Cells(i, 14).Value = "Clinical" And rg.Cells(i, 17).Value = "Pending Result" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("PENDINGLABSCLIN").Range("A1").Columns.AutoFit
Worksheets("PENDINGLABSCLIN").Range("B1").Columns.AutoFit
Worksheets("PENDINGLABSCLIN").Range("C1").Columns.AutoFit
Worksheets("PENDINGLABSCLIN").Range("D1").Columns.AutoFit
Worksheets("PENDINGLABSCLIN").Range("E1").Columns.AutoFit
Worksheets("PENDINGLABSCLIN").Range("G1").Columns.AutoFit
Worksheets("PENDINGLABSCLIN").Range("H1").Columns.AutoFit
Worksheets("PENDINGLABSCLIN").Range("I1").Columns.AutoFit
Worksheets("PENDINGLABSCLIN").Range("J1").Columns.AutoFit
Worksheets("PENDINGLABSCLIN").Range("K1").Columns.AutoFit
Worksheets("PENDINGLABSCLIN").Range("L1").Columns.AutoFit
Worksheets("PENDINGLABSCLIN").Range("M1").Columns.AutoFit
Worksheets("PENDINGLABSCLIN").Range("N1").Columns.AutoFit
Worksheets("PENDINGLABSCLIN").Range("O1").Columns.AutoFit
Worksheets("PENDINGLABSCLIN").Range("P1").Columns.AutoFit
Worksheets("PENDINGLABSCLIN").Range("Q1").Columns.AutoFit
Worksheets("PENDINGLABSCLIN").Range("R1").Columns.AutoFit
Worksheets("PENDINGLABSCLIN").Range("S1").Columns.AutoFit
Worksheets("PENDINGLABSCLIN").Range("T1").Columns.AutoFit
Worksheets("PENDINGLABSCLIN").Range("U1").Columns.AutoFit
Worksheets("PENDINGLABSCLIN").Range("V1").Columns.AutoFit
Worksheets("PENDINGLABSCLIN").Range("W1").Columns.AutoFit
Worksheets("PENDINGLABSCLIN").Range("X1").Columns.AutoFit
Worksheets("PENDINGLABSCLIN").Range("Y1").Columns.AutoFit
Worksheets("PENDINGLABSCLIN").Range("Z1").Columns.AutoFit
Worksheets("PENDINGLABSCLIN").Range("AA1").Columns.AutoFit
Worksheets("PENDINGLABSCLIN").Range("AB1").Columns.AutoFit
Worksheets("PENDINGLABSCLIN").Range("AC1").Columns.AutoFit
Worksheets("PENDINGLABSCLIN").Range("AD1").Columns.AutoFit
Worksheets("PENDINGLABSCLIN").Range("AE1").Columns.AutoFit
Worksheets("PENDINGLABSCLIN").Range("AF1").Columns.AutoFit
Worksheets("PENDINGLABSCLIN").Range("AG1").Columns.AutoFit
Worksheets("PENDINGLABSCLIN").Range("AH1").Columns.AutoFit
Worksheets("PENDINGLABSCLIN").Range("AI1").Columns.AutoFit
Worksheets("PENDINGLABSCLIN").Range("AJ1").Columns.AutoFit
Worksheets("PENDINGLABSCLIN").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("PENDINGLABSCLIN").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("E17") = numRows - 1
End Sub
Sub pendingLabsNonClin()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("PENDINGLABSNONCLIN")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If rg.Cells(i, 14).Value = "Non-Clinical" And rg.Cells(i, 17).Value = "Pending Result" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("PENDINGLABSNONCLIN").Range("A1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLIN").Range("B1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLIN").Range("C1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLIN").Range("D1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLIN").Range("E1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLIN").Range("G1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLIN").Range("H1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLIN").Range("I1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLIN").Range("J1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLIN").Range("K1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLIN").Range("L1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLIN").Range("M1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLIN").Range("N1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLIN").Range("O1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLIN").Range("P1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLIN").Range("Q1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLIN").Range("R1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLIN").Range("S1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLIN").Range("T1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLIN").Range("U1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLIN").Range("V1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLIN").Range("W1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLIN").Range("X1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLIN").Range("Y1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLIN").Range("Z1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLIN").Range("AA1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLIN").Range("AB1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLIN").Range("AC1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLIN").Range("AD1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLIN").Range("AE1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLIN").Range("AF1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLIN").Range("AG1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLIN").Range("AH1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLIN").Range("AI1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLIN").Range("AJ1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLIN").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("PENDINGLABSNONCLIN").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("E18") = numRows - 1
End Sub
Sub notTestedClin()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("NOTTESTEDCLIN")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If rg.Cells(i, 14).Value = "Clinical" And rg.Cells(i, 17).Value = "Not Tested" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("NOTTESTEDCLIN").Range("A1").Columns.AutoFit
Worksheets("NOTTESTEDCLIN").Range("B1").Columns.AutoFit
Worksheets("NOTTESTEDCLIN").Range("C1").Columns.AutoFit
Worksheets("NOTTESTEDCLIN").Range("D1").Columns.AutoFit
Worksheets("NOTTESTEDCLIN").Range("E1").Columns.AutoFit
Worksheets("NOTTESTEDCLIN").Range("G1").Columns.AutoFit
Worksheets("NOTTESTEDCLIN").Range("H1").Columns.AutoFit
Worksheets("NOTTESTEDCLIN").Range("I1").Columns.AutoFit
Worksheets("NOTTESTEDCLIN").Range("J1").Columns.AutoFit
Worksheets("NOTTESTEDCLIN").Range("K1").Columns.AutoFit
Worksheets("NOTTESTEDCLIN").Range("L1").Columns.AutoFit
Worksheets("NOTTESTEDCLIN").Range("M1").Columns.AutoFit
Worksheets("NOTTESTEDCLIN").Range("N1").Columns.AutoFit
Worksheets("NOTTESTEDCLIN").Range("O1").Columns.AutoFit
Worksheets("NOTTESTEDCLIN").Range("P1").Columns.AutoFit
Worksheets("NOTTESTEDCLIN").Range("Q1").Columns.AutoFit
Worksheets("NOTTESTEDCLIN").Range("R1").Columns.AutoFit
Worksheets("NOTTESTEDCLIN").Range("S1").Columns.AutoFit
Worksheets("NOTTESTEDCLIN").Range("T1").Columns.AutoFit
Worksheets("NOTTESTEDCLIN").Range("U1").Columns.AutoFit
Worksheets("NOTTESTEDCLIN").Range("V1").Columns.AutoFit
Worksheets("NOTTESTEDCLIN").Range("W1").Columns.AutoFit
Worksheets("NOTTESTEDCLIN").Range("X1").Columns.AutoFit
Worksheets("NOTTESTEDCLIN").Range("Y1").Columns.AutoFit
Worksheets("NOTTESTEDCLIN").Range("Z1").Columns.AutoFit
Worksheets("NOTTESTEDCLIN").Range("AA1").Columns.AutoFit
Worksheets("NOTTESTEDCLIN").Range("AB1").Columns.AutoFit
Worksheets("NOTTESTEDCLIN").Range("AC1").Columns.AutoFit
Worksheets("NOTTESTEDCLIN").Range("AD1").Columns.AutoFit
Worksheets("NOTTESTEDCLIN").Range("AE1").Columns.AutoFit
Worksheets("NOTTESTEDCLIN").Range("AF1").Columns.AutoFit
Worksheets("NOTTESTEDCLIN").Range("AG1").Columns.AutoFit
Worksheets("NOTTESTEDCLIN").Range("AH1").Columns.AutoFit
Worksheets("NOTTESTEDCLIN").Range("AI1").Columns.AutoFit
Worksheets("NOTTESTEDCLIN").Range("AJ1").Columns.AutoFit
Worksheets("NOTTESTEDCLIN").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("NOTTESTEDCLIN").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("E20") = numRows - 1
End Sub
Sub notTestedNonClin()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("NOTTESTEDNONCLIN")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If rg.Cells(i, 14).Value = "Non-Clinical" And rg.Cells(i, 17).Value = "Not Tested" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("NOTTESTEDNONCLIN").Range("A1").Columns.AutoFit
Worksheets("NOTTESTEDNONCLIN").Range("B1").Columns.AutoFit
Worksheets("NOTTESTEDNONCLIN").Range("C1").Columns.AutoFit
Worksheets("NOTTESTEDNONCLIN").Range("D1").Columns.AutoFit
Worksheets("NOTTESTEDNONCLIN").Range("E1").Columns.AutoFit
Worksheets("NOTTESTEDNONCLIN").Range("G1").Columns.AutoFit
Worksheets("NOTTESTEDNONCLIN").Range("H1").Columns.AutoFit
Worksheets("NOTTESTEDNONCLIN").Range("I1").Columns.AutoFit
Worksheets("NOTTESTEDNONCLIN").Range("J1").Columns.AutoFit
Worksheets("NOTTESTEDNONCLIN").Range("K1").Columns.AutoFit
Worksheets("NOTTESTEDNONCLIN").Range("L1").Columns.AutoFit
Worksheets("NOTTESTEDNONCLIN").Range("M1").Columns.AutoFit
Worksheets("NOTTESTEDNONCLIN").Range("N1").Columns.AutoFit
Worksheets("NOTTESTEDNONCLIN").Range("O1").Columns.AutoFit
Worksheets("NOTTESTEDNONCLIN").Range("P1").Columns.AutoFit
Worksheets("NOTTESTEDNONCLIN").Range("Q1").Columns.AutoFit
Worksheets("NOTTESTEDNONCLIN").Range("R1").Columns.AutoFit
Worksheets("NOTTESTEDNONCLIN").Range("S1").Columns.AutoFit
Worksheets("NOTTESTEDNONCLIN").Range("T1").Columns.AutoFit
Worksheets("NOTTESTEDNONCLIN").Range("U1").Columns.AutoFit
Worksheets("NOTTESTEDNONCLIN").Range("V1").Columns.AutoFit
Worksheets("NOTTESTEDNONCLIN").Range("W1").Columns.AutoFit
Worksheets("NOTTESTEDNONCLIN").Range("X1").Columns.AutoFit
Worksheets("NOTTESTEDNONCLIN").Range("Y1").Columns.AutoFit
Worksheets("NOTTESTEDNONCLIN").Range("Z1").Columns.AutoFit
Worksheets("NOTTESTEDNONCLIN").Range("AA1").Columns.AutoFit
Worksheets("NOTTESTEDNONCLIN").Range("AB1").Columns.AutoFit
Worksheets("NOTTESTEDNONCLIN").Range("AC1").Columns.AutoFit
Worksheets("NOTTESTEDNONCLIN").Range("AD1").Columns.AutoFit
Worksheets("NOTTESTEDNONCLIN").Range("AE1").Columns.AutoFit
Worksheets("NOTTESTEDNONCLIN").Range("AF1").Columns.AutoFit
Worksheets("NOTTESTEDNONCLIN").Range("AG1").Columns.AutoFit
Worksheets("NOTTESTEDNONCLIN").Range("AH1").Columns.AutoFit
Worksheets("NOTTESTEDNONCLIN").Range("AI1").Columns.AutoFit
Worksheets("NOTTESTEDNONCLIN").Range("AJ1").Columns.AutoFit
Worksheets("NOTTESTEDNONCLIN").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("NOTTESTEDNONCLIN").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("E21") = numRows - 1
End Sub
Sub negTestClin()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("NEGTESTCLIN")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If rg.Cells(i, 14).Value = "Clinical" And rg.Cells(i, 17).Value = "Negative" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("NEGTESTCLIN").Range("A1").Columns.AutoFit
Worksheets("NEGTESTCLIN").Range("B1").Columns.AutoFit
Worksheets("NEGTESTCLIN").Range("C1").Columns.AutoFit
Worksheets("NEGTESTCLIN").Range("D1").Columns.AutoFit
Worksheets("NEGTESTCLIN").Range("E1").Columns.AutoFit
Worksheets("NEGTESTCLIN").Range("G1").Columns.AutoFit
Worksheets("NEGTESTCLIN").Range("H1").Columns.AutoFit
Worksheets("NEGTESTCLIN").Range("I1").Columns.AutoFit
Worksheets("NEGTESTCLIN").Range("J1").Columns.AutoFit
Worksheets("NEGTESTCLIN").Range("K1").Columns.AutoFit
Worksheets("NEGTESTCLIN").Range("L1").Columns.AutoFit
Worksheets("NEGTESTCLIN").Range("M1").Columns.AutoFit
Worksheets("NEGTESTCLIN").Range("N1").Columns.AutoFit
Worksheets("NEGTESTCLIN").Range("O1").Columns.AutoFit
Worksheets("NEGTESTCLIN").Range("P1").Columns.AutoFit
Worksheets("NEGTESTCLIN").Range("Q1").Columns.AutoFit
Worksheets("NEGTESTCLIN").Range("R1").Columns.AutoFit
Worksheets("NEGTESTCLIN").Range("S1").Columns.AutoFit
Worksheets("NEGTESTCLIN").Range("T1").Columns.AutoFit
Worksheets("NEGTESTCLIN").Range("U1").Columns.AutoFit
Worksheets("NEGTESTCLIN").Range("V1").Columns.AutoFit
Worksheets("NEGTESTCLIN").Range("W1").Columns.AutoFit
Worksheets("NEGTESTCLIN").Range("X1").Columns.AutoFit
Worksheets("NEGTESTCLIN").Range("Y1").Columns.AutoFit
Worksheets("NEGTESTCLIN").Range("Z1").Columns.AutoFit
Worksheets("NEGTESTCLIN").Range("AA1").Columns.AutoFit
Worksheets("NEGTESTCLIN").Range("AB1").Columns.AutoFit
Worksheets("NEGTESTCLIN").Range("AC1").Columns.AutoFit
Worksheets("NEGTESTCLIN").Range("AD1").Columns.AutoFit
Worksheets("NEGTESTCLIN").Range("AE1").Columns.AutoFit
Worksheets("NEGTESTCLIN").Range("AF1").Columns.AutoFit
Worksheets("NEGTESTCLIN").Range("AG1").Columns.AutoFit
Worksheets("NEGTESTCLIN").Range("AH1").Columns.AutoFit
Worksheets("NEGTESTCLIN").Range("AI1").Columns.AutoFit
Worksheets("NEGTESTCLIN").Range("AJ1").Columns.AutoFit
Worksheets("NEGTESTCLIN").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("NEGTESTCLIN").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("E23") = numRows - 1
End Sub
Sub negTestNonClin()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("NEGTESTNONCLIN")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If rg.Cells(i, 14).Value = "Non-Clinical" And rg.Cells(i, 17).Value = "Negative" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("NEGTESTNONCLIN").Range("A1").Columns.AutoFit
Worksheets("NEGTESTNONCLIN").Range("B1").Columns.AutoFit
Worksheets("NEGTESTNONCLIN").Range("C1").Columns.AutoFit
Worksheets("NEGTESTNONCLIN").Range("D1").Columns.AutoFit
Worksheets("NEGTESTNONCLIN").Range("E1").Columns.AutoFit
Worksheets("NEGTESTNONCLIN").Range("G1").Columns.AutoFit
Worksheets("NEGTESTNONCLIN").Range("H1").Columns.AutoFit
Worksheets("NEGTESTNONCLIN").Range("I1").Columns.AutoFit
Worksheets("NEGTESTNONCLIN").Range("J1").Columns.AutoFit
Worksheets("NEGTESTNONCLIN").Range("K1").Columns.AutoFit
Worksheets("NEGTESTNONCLIN").Range("L1").Columns.AutoFit
Worksheets("NEGTESTNONCLIN").Range("M1").Columns.AutoFit
Worksheets("NEGTESTNONCLIN").Range("N1").Columns.AutoFit
Worksheets("NEGTESTNONCLIN").Range("O1").Columns.AutoFit
Worksheets("NEGTESTNONCLIN").Range("P1").Columns.AutoFit
Worksheets("NEGTESTNONCLIN").Range("Q1").Columns.AutoFit
Worksheets("NEGTESTNONCLIN").Range("R1").Columns.AutoFit
Worksheets("NEGTESTNONCLIN").Range("S1").Columns.AutoFit
Worksheets("NEGTESTNONCLIN").Range("T1").Columns.AutoFit
Worksheets("NEGTESTNONCLIN").Range("U1").Columns.AutoFit
Worksheets("NEGTESTNONCLIN").Range("V1").Columns.AutoFit
Worksheets("NEGTESTNONCLIN").Range("W1").Columns.AutoFit
Worksheets("NEGTESTNONCLIN").Range("X1").Columns.AutoFit
Worksheets("NEGTESTNONCLIN").Range("Y1").Columns.AutoFit
Worksheets("NEGTESTNONCLIN").Range("Z1").Columns.AutoFit
Worksheets("NEGTESTNONCLIN").Range("AA1").Columns.AutoFit
Worksheets("NEGTESTNONCLIN").Range("AB1").Columns.AutoFit
Worksheets("NEGTESTNONCLIN").Range("AC1").Columns.AutoFit
Worksheets("NEGTESTNONCLIN").Range("AD1").Columns.AutoFit
Worksheets("NEGTESTNONCLIN").Range("AE1").Columns.AutoFit
Worksheets("NEGTESTNONCLIN").Range("AF1").Columns.AutoFit
Worksheets("NEGTESTNONCLIN").Range("AG1").Columns.AutoFit
Worksheets("NEGTESTNONCLIN").Range("AH1").Columns.AutoFit
Worksheets("NEGTESTNONCLIN").Range("AI1").Columns.AutoFit
Worksheets("NEGTESTNONCLIN").Range("AJ1").Columns.AutoFit
Worksheets("NEGTESTNONCLIN").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("NEGTESTNONCLIN").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("E24") = numRows - 1
End Sub
Sub NotTestedSympClin()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("NOTTESTEDSYMPCLIN")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If rg.Cells(i, 14).Value = "Clinical" And rg.Cells(i, 17).Value = "Not Tested" And rg.Cells(i, 19).Value = "Yes" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("NOTTESTEDSYMPCLIN").Range("A1").Columns.AutoFit
Worksheets("NOTTESTEDSYMPCLIN").Range("B1").Columns.AutoFit
Worksheets("NOTTESTEDSYMPCLIN").Range("C1").Columns.AutoFit
Worksheets("NOTTESTEDSYMPCLIN").Range("D1").Columns.AutoFit
Worksheets("NOTTESTEDSYMPCLIN").Range("E1").Columns.AutoFit
Worksheets("NOTTESTEDSYMPCLIN").Range("G1").Columns.AutoFit
Worksheets("NOTTESTEDSYMPCLIN").Range("H1").Columns.AutoFit
Worksheets("NOTTESTEDSYMPCLIN").Range("I1").Columns.AutoFit
Worksheets("NOTTESTEDSYMPCLIN").Range("J1").Columns.AutoFit
Worksheets("NOTTESTEDSYMPCLIN").Range("K1").Columns.AutoFit
Worksheets("NOTTESTEDSYMPCLIN").Range("L1").Columns.AutoFit
Worksheets("NOTTESTEDSYMPCLIN").Range("M1").Columns.AutoFit
Worksheets("NOTTESTEDSYMPCLIN").Range("N1").Columns.AutoFit
Worksheets("NOTTESTEDSYMPCLIN").Range("O1").Columns.AutoFit
Worksheets("NOTTESTEDSYMPCLIN").Range("P1").Columns.AutoFit
Worksheets("NOTTESTEDSYMPCLIN").Range("Q1").Columns.AutoFit
Worksheets("NOTTESTEDSYMPCLIN").Range("R1").Columns.AutoFit
Worksheets("NOTTESTEDSYMPCLIN").Range("S1").Columns.AutoFit
Worksheets("NOTTESTEDSYMPCLIN").Range("T1").Columns.AutoFit
Worksheets("NOTTESTEDSYMPCLIN").Range("U1").Columns.AutoFit
Worksheets("NOTTESTEDSYMPCLIN").Range("V1").Columns.AutoFit
Worksheets("NOTTESTEDSYMPCLIN").Range("W1").Columns.AutoFit
Worksheets("NOTTESTEDSYMPCLIN").Range("X1").Columns.AutoFit
Worksheets("NOTTESTEDSYMPCLIN").Range("Y1").Columns.AutoFit
Worksheets("NOTTESTEDSYMPCLIN").Range("Z1").Columns.AutoFit
Worksheets("NOTTESTEDSYMPCLIN").Range("AA1").Columns.AutoFit
Worksheets("NOTTESTEDSYMPCLIN").Range("AB1").Columns.AutoFit
Worksheets("NOTTESTEDSYMPCLIN").Range("AC1").Columns.AutoFit
Worksheets("NOTTESTEDSYMPCLIN").Range("AD1").Columns.AutoFit
Worksheets("NOTTESTEDSYMPCLIN").Range("AE1").Columns.AutoFit
Worksheets("NOTTESTEDSYMPCLIN").Range("AF1").Columns.AutoFit
Worksheets("NOTTESTEDSYMPCLIN").Range("AG1").Columns.AutoFit
Worksheets("NOTTESTEDSYMPCLIN").Range("AH1").Columns.AutoFit
Worksheets("NOTTESTEDSYMPCLIN").Range("AI1").Columns.AutoFit
Worksheets("NOTTESTEDSYMPCLIN").Range("AJ1").Columns.AutoFit
Worksheets("NOTTESTEDSYMPCLIN").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("NOTTESTEDSYMPCLIN").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("E26") = numRows - 1
End Sub
Sub NotTestedSympNonClin()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("NOTTESTEDSYMPNONCLIN")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If rg.Cells(i, 14).Value = "Non-Clinical" And rg.Cells(i, 17).Value = "Not Tested" And rg.Cells(i, 19).Value = "Yes" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("NOTTESTEDSYMPNONCLIN").Range("A1").Columns.AutoFit
Worksheets("NOTTESTEDSYMPNONCLIN").Range("B1").Columns.AutoFit
Worksheets("NOTTESTEDSYMPNONCLIN").Range("C1").Columns.AutoFit
Worksheets("NOTTESTEDSYMPNONCLIN").Range("D1").Columns.AutoFit
Worksheets("NOTTESTEDSYMPNONCLIN").Range("E1").Columns.AutoFit
Worksheets("NOTTESTEDSYMPNONCLIN").Range("G1").Columns.AutoFit
Worksheets("NOTTESTEDSYMPNONCLIN").Range("H1").Columns.AutoFit
Worksheets("NOTTESTEDSYMPNONCLIN").Range("I1").Columns.AutoFit
Worksheets("NOTTESTEDSYMPNONCLIN").Range("J1").Columns.AutoFit
Worksheets("NOTTESTEDSYMPNONCLIN").Range("K1").Columns.AutoFit
Worksheets("NOTTESTEDSYMPNONCLIN").Range("L1").Columns.AutoFit
Worksheets("NOTTESTEDSYMPNONCLIN").Range("M1").Columns.AutoFit
Worksheets("NOTTESTEDSYMPNONCLIN").Range("N1").Columns.AutoFit
Worksheets("NOTTESTEDSYMPNONCLIN").Range("O1").Columns.AutoFit
Worksheets("NOTTESTEDSYMPNONCLIN").Range("P1").Columns.AutoFit
Worksheets("NOTTESTEDSYMPNONCLIN").Range("Q1").Columns.AutoFit
Worksheets("NOTTESTEDSYMPNONCLIN").Range("R1").Columns.AutoFit
Worksheets("NOTTESTEDSYMPNONCLIN").Range("S1").Columns.AutoFit
Worksheets("NOTTESTEDSYMPNONCLIN").Range("T1").Columns.AutoFit
Worksheets("NOTTESTEDSYMPNONCLIN").Range("U1").Columns.AutoFit
Worksheets("NOTTESTEDSYMPNONCLIN").Range("V1").Columns.AutoFit
Worksheets("NOTTESTEDSYMPNONCLIN").Range("W1").Columns.AutoFit
Worksheets("NOTTESTEDSYMPNONCLIN").Range("X1").Columns.AutoFit
Worksheets("NOTTESTEDSYMPNONCLIN").Range("Y1").Columns.AutoFit
Worksheets("NOTTESTEDSYMPNONCLIN").Range("Z1").Columns.AutoFit
Worksheets("NOTTESTEDSYMPNONCLIN").Range("AA1").Columns.AutoFit
Worksheets("NOTTESTEDSYMPNONCLIN").Range("AB1").Columns.AutoFit
Worksheets("NOTTESTEDSYMPNONCLIN").Range("AC1").Columns.AutoFit
Worksheets("NOTTESTEDSYMPNONCLIN").Range("AD1").Columns.AutoFit
Worksheets("NOTTESTEDSYMPNONCLIN").Range("AE1").Columns.AutoFit
Worksheets("NOTTESTEDSYMPNONCLIN").Range("AF1").Columns.AutoFit
Worksheets("NOTTESTEDSYMPNONCLIN").Range("AG1").Columns.AutoFit
Worksheets("NOTTESTEDSYMPNONCLIN").Range("AH1").Columns.AutoFit
Worksheets("NOTTESTEDSYMPNONCLIN").Range("AI1").Columns.AutoFit
Worksheets("NOTTESTEDSYMPNONCLIN").Range("AJ1").Columns.AutoFit
Worksheets("NOTTESTEDSYMPNONCLIN").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("NOTTESTEDSYMPNONCLIN").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("E27") = numRows - 1
End Sub
Sub totalTested()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("TOTALTESTED")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
'a = Worksheets("query").Cells(Rows.Count, 1).End(xlUp).row
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If rg.Cells(i, 17).Value = "Positive" Or rg.Cells(i, 17).Value = "Negative" Or rg.Cells(i, 17).Value = "Pending Result" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("TOTALTESTED").Range("A1").Columns.AutoFit
Worksheets("TOTALTESTED").Range("B1").Columns.AutoFit
Worksheets("TOTALTESTED").Range("C1").Columns.AutoFit
Worksheets("TOTALTESTED").Range("D1").Columns.AutoFit
Worksheets("TOTALTESTED").Range("E1").Columns.AutoFit
Worksheets("TOTALTESTED").Range("G1").Columns.AutoFit
Worksheets("TOTALTESTED").Range("H1").Columns.AutoFit
Worksheets("TOTALTESTED").Range("I1").Columns.AutoFit
Worksheets("TOTALTESTED").Range("J1").Columns.AutoFit
Worksheets("TOTALTESTED").Range("K1").Columns.AutoFit
Worksheets("TOTALTESTED").Range("L1").Columns.AutoFit
Worksheets("TOTALTESTED").Range("M1").Columns.AutoFit
Worksheets("TOTALTESTED").Range("N1").Columns.AutoFit
Worksheets("TOTALTESTED").Range("O1").Columns.AutoFit
Worksheets("TOTALTESTED").Range("P1").Columns.AutoFit
Worksheets("TOTALTESTED").Range("Q1").Columns.AutoFit
Worksheets("TOTALTESTED").Range("R1").Columns.AutoFit
Worksheets("TOTALTESTED").Range("S1").Columns.AutoFit
Worksheets("TOTALTESTED").Range("T1").Columns.AutoFit
Worksheets("TOTALTESTED").Range("U1").Columns.AutoFit
Worksheets("TOTALTESTED").Range("V1").Columns.AutoFit
Worksheets("TOTALTESTED").Range("W1").Columns.AutoFit
Worksheets("TOTALTESTED").Range("X1").Columns.AutoFit
Worksheets("TOTALTESTED").Range("Y1").Columns.AutoFit
Worksheets("TOTALTESTED").Range("Z1").Columns.AutoFit
Worksheets("TOTALTESTED").Range("AA1").Columns.AutoFit
Worksheets("TOTALTESTED").Range("AB1").Columns.AutoFit
Worksheets("TOTALTESTED").Range("AC1").Columns.AutoFit
Worksheets("TOTALTESTED").Range("AD1").Columns.AutoFit
Worksheets("TOTALTESTED").Range("AE1").Columns.AutoFit
Worksheets("TOTALTESTED").Range("AF1").Columns.AutoFit
Worksheets("TOTALTESTED").Range("AG1").Columns.AutoFit
Worksheets("TOTALTESTED").Range("AH1").Columns.AutoFit
Worksheets("TOTALTESTED").Range("AI1").Columns.AutoFit
Worksheets("TOTALTESTED").Range("AJ1").Columns.AutoFit
Worksheets("TOTALTESTED").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("TOTALTESTED").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("E29") = numRows - 1
End Sub
Sub covidPosFHCCLab()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("COVIDPOSFHCCLAB")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If rg.Cells(i, 17).Value = "Positive" And rg.Cells(i, 18).Value = "FHCC" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("COVIDPOSFHCCLAB").Range("A1").Columns.AutoFit
Worksheets("COVIDPOSFHCCLAB").Range("B1").Columns.AutoFit
Worksheets("COVIDPOSFHCCLAB").Range("C1").Columns.AutoFit
Worksheets("COVIDPOSFHCCLAB").Range("D1").Columns.AutoFit
Worksheets("COVIDPOSFHCCLAB").Range("E1").Columns.AutoFit
Worksheets("COVIDPOSFHCCLAB").Range("G1").Columns.AutoFit
Worksheets("COVIDPOSFHCCLAB").Range("H1").Columns.AutoFit
Worksheets("COVIDPOSFHCCLAB").Range("I1").Columns.AutoFit
Worksheets("COVIDPOSFHCCLAB").Range("J1").Columns.AutoFit
Worksheets("COVIDPOSFHCCLAB").Range("K1").Columns.AutoFit
Worksheets("COVIDPOSFHCCLAB").Range("L1").Columns.AutoFit
Worksheets("COVIDPOSFHCCLAB").Range("M1").Columns.AutoFit
Worksheets("COVIDPOSFHCCLAB").Range("N1").Columns.AutoFit
Worksheets("COVIDPOSFHCCLAB").Range("O1").Columns.AutoFit
Worksheets("COVIDPOSFHCCLAB").Range("P1").Columns.AutoFit
Worksheets("COVIDPOSFHCCLAB").Range("Q1").Columns.AutoFit
Worksheets("COVIDPOSFHCCLAB").Range("R1").Columns.AutoFit
Worksheets("COVIDPOSFHCCLAB").Range("S1").Columns.AutoFit
Worksheets("COVIDPOSFHCCLAB").Range("T1").Columns.AutoFit
Worksheets("COVIDPOSFHCCLAB").Range("U1").Columns.AutoFit
Worksheets("COVIDPOSFHCCLAB").Range("V1").Columns.AutoFit
Worksheets("COVIDPOSFHCCLAB").Range("W1").Columns.AutoFit
Worksheets("COVIDPOSFHCCLAB").Range("X1").Columns.AutoFit
Worksheets("COVIDPOSFHCCLAB").Range("Y1").Columns.AutoFit
Worksheets("COVIDPOSFHCCLAB").Range("Z1").Columns.AutoFit
Worksheets("COVIDPOSFHCCLAB").Range("AA1").Columns.AutoFit
Worksheets("COVIDPOSFHCCLAB").Range("AB1").Columns.AutoFit
Worksheets("COVIDPOSFHCCLAB").Range("AC1").Columns.AutoFit
Worksheets("COVIDPOSFHCCLAB").Range("AD1").Columns.AutoFit
Worksheets("COVIDPOSFHCCLAB").Range("AE1").Columns.AutoFit
Worksheets("COVIDPOSFHCCLAB").Range("AF1").Columns.AutoFit
Worksheets("COVIDPOSFHCCLAB").Range("AG1").Columns.AutoFit
Worksheets("COVIDPOSFHCCLAB").Range("AH1").Columns.AutoFit
Worksheets("COVIDPOSFHCCLAB").Range("AI1").Columns.AutoFit
Worksheets("COVIDPOSFHCCLAB").Range("AJ1").Columns.AutoFit
Worksheets("COVIDPOSFHCCLAB").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("COVIDPOSFHCCLAB").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("E31") = numRows - 1
End Sub
Sub covidPosOutsideLab()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("COVIDPOSOUTSIDELAB")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If rg.Cells(i, 17).Value = "Positive" And rg.Cells(i, 18).Value = "Other" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("COVIDPOSOUTSIDELAB").Range("A1").Columns.AutoFit
Worksheets("COVIDPOSOUTSIDELAB").Range("B1").Columns.AutoFit
Worksheets("COVIDPOSOUTSIDELAB").Range("C1").Columns.AutoFit
Worksheets("COVIDPOSOUTSIDELAB").Range("D1").Columns.AutoFit
Worksheets("COVIDPOSOUTSIDELAB").Range("E1").Columns.AutoFit
Worksheets("COVIDPOSOUTSIDELAB").Range("G1").Columns.AutoFit
Worksheets("COVIDPOSOUTSIDELAB").Range("H1").Columns.AutoFit
Worksheets("COVIDPOSOUTSIDELAB").Range("I1").Columns.AutoFit
Worksheets("COVIDPOSOUTSIDELAB").Range("J1").Columns.AutoFit
Worksheets("COVIDPOSOUTSIDELAB").Range("K1").Columns.AutoFit
Worksheets("COVIDPOSOUTSIDELAB").Range("L1").Columns.AutoFit
Worksheets("COVIDPOSOUTSIDELAB").Range("M1").Columns.AutoFit
Worksheets("COVIDPOSOUTSIDELAB").Range("N1").Columns.AutoFit
Worksheets("COVIDPOSOUTSIDELAB").Range("O1").Columns.AutoFit
Worksheets("COVIDPOSOUTSIDELAB").Range("P1").Columns.AutoFit
Worksheets("COVIDPOSOUTSIDELAB").Range("Q1").Columns.AutoFit
Worksheets("COVIDPOSOUTSIDELAB").Range("R1").Columns.AutoFit
Worksheets("COVIDPOSOUTSIDELAB").Range("S1").Columns.AutoFit
Worksheets("COVIDPOSOUTSIDELAB").Range("T1").Columns.AutoFit
Worksheets("COVIDPOSOUTSIDELAB").Range("U1").Columns.AutoFit
Worksheets("COVIDPOSOUTSIDELAB").Range("V1").Columns.AutoFit
Worksheets("COVIDPOSOUTSIDELAB").Range("W1").Columns.AutoFit
Worksheets("COVIDPOSOUTSIDELAB").Range("X1").Columns.AutoFit
Worksheets("COVIDPOSOUTSIDELAB").Range("Y1").Columns.AutoFit
Worksheets("COVIDPOSOUTSIDELAB").Range("Z1").Columns.AutoFit
Worksheets("COVIDPOSOUTSIDELAB").Range("AA1").Columns.AutoFit
Worksheets("COVIDPOSOUTSIDELAB").Range("AB1").Columns.AutoFit
Worksheets("COVIDPOSOUTSIDELAB").Range("AC1").Columns.AutoFit
Worksheets("COVIDPOSOUTSIDELAB").Range("AD1").Columns.AutoFit
Worksheets("COVIDPOSOUTSIDELAB").Range("AE1").Columns.AutoFit
Worksheets("COVIDPOSOUTSIDELAB").Range("AF1").Columns.AutoFit
Worksheets("COVIDPOSOUTSIDELAB").Range("AG1").Columns.AutoFit
Worksheets("COVIDPOSOUTSIDELAB").Range("AH1").Columns.AutoFit
Worksheets("COVIDPOSOUTSIDELAB").Range("AI1").Columns.AutoFit
Worksheets("COVIDPOSOUTSIDELAB").Range("AJ1").Columns.AutoFit
Worksheets("COVIDPOSOUTSIDELAB").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("COVIDPOSOUTSIDELAB").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("E32") = numRows - 1
End Sub
Sub CovTestsFHCCLab()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("COVTESTSFHCCLAB")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If (rg.Cells(i, 17).Value = "Positive" Or rg.Cells(i, 17).Value = "Negative" Or rg.Cells(i, 17).Value = "Pending Result") And rg.Cells(i, 18).Value = "FHCC" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("COVTESTSFHCCLAB").Range("A1").Columns.AutoFit
Worksheets("COVTESTSFHCCLAB").Range("B1").Columns.AutoFit
Worksheets("COVTESTSFHCCLAB").Range("C1").Columns.AutoFit
Worksheets("COVTESTSFHCCLAB").Range("D1").Columns.AutoFit
Worksheets("COVTESTSFHCCLAB").Range("E1").Columns.AutoFit
Worksheets("COVTESTSFHCCLAB").Range("G1").Columns.AutoFit
Worksheets("COVTESTSFHCCLAB").Range("H1").Columns.AutoFit
Worksheets("COVTESTSFHCCLAB").Range("I1").Columns.AutoFit
Worksheets("COVTESTSFHCCLAB").Range("J1").Columns.AutoFit
Worksheets("COVTESTSFHCCLAB").Range("K1").Columns.AutoFit
Worksheets("COVTESTSFHCCLAB").Range("L1").Columns.AutoFit
Worksheets("COVTESTSFHCCLAB").Range("M1").Columns.AutoFit
Worksheets("COVTESTSFHCCLAB").Range("N1").Columns.AutoFit
Worksheets("COVTESTSFHCCLAB").Range("O1").Columns.AutoFit
Worksheets("COVTESTSFHCCLAB").Range("P1").Columns.AutoFit
Worksheets("COVTESTSFHCCLAB").Range("Q1").Columns.AutoFit
Worksheets("COVTESTSFHCCLAB").Range("R1").Columns.AutoFit
Worksheets("COVTESTSFHCCLAB").Range("S1").Columns.AutoFit
Worksheets("COVTESTSFHCCLAB").Range("T1").Columns.AutoFit
Worksheets("COVTESTSFHCCLAB").Range("U1").Columns.AutoFit
Worksheets("COVTESTSFHCCLAB").Range("V1").Columns.AutoFit
Worksheets("COVTESTSFHCCLAB").Range("W1").Columns.AutoFit
Worksheets("COVTESTSFHCCLAB").Range("X1").Columns.AutoFit
Worksheets("COVTESTSFHCCLAB").Range("Y1").Columns.AutoFit
Worksheets("COVTESTSFHCCLAB").Range("Z1").Columns.AutoFit
Worksheets("COVTESTSFHCCLAB").Range("AA1").Columns.AutoFit
Worksheets("COVTESTSFHCCLAB").Range("AB1").Columns.AutoFit
Worksheets("COVTESTSFHCCLAB").Range("AC1").Columns.AutoFit
Worksheets("COVTESTSFHCCLAB").Range("AD1").Columns.AutoFit
Worksheets("COVTESTSFHCCLAB").Range("AE1").Columns.AutoFit
Worksheets("COVTESTSFHCCLAB").Range("AF1").Columns.AutoFit
Worksheets("COVTESTSFHCCLAB").Range("AG1").Columns.AutoFit
Worksheets("COVTESTSFHCCLAB").Range("AH1").Columns.AutoFit
Worksheets("COVTESTSFHCCLAB").Range("AI1").Columns.AutoFit
Worksheets("COVTESTSFHCCLAB").Range("AJ1").Columns.AutoFit
Worksheets("COVTESTSFHCCLAB").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("COVTESTSFHCCLAB").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("E34") = numRows - 1
End Sub
Sub CovTestsOutside()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("COVTESTSOUTSIDE")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If (rg.Cells(i, 17).Value = "Positive" Or rg.Cells(i, 17).Value = "Negative" Or rg.Cells(i, 17).Value = "Pending Result") And rg.Cells(i, 18).Value = "Other" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("COVTESTSOUTSIDE").Range("A1").Columns.AutoFit
Worksheets("COVTESTSOUTSIDE").Range("B1").Columns.AutoFit
Worksheets("COVTESTSOUTSIDE").Range("C1").Columns.AutoFit
Worksheets("COVTESTSOUTSIDE").Range("D1").Columns.AutoFit
Worksheets("COVTESTSOUTSIDE").Range("E1").Columns.AutoFit
Worksheets("COVTESTSOUTSIDE").Range("G1").Columns.AutoFit
Worksheets("COVTESTSOUTSIDE").Range("H1").Columns.AutoFit
Worksheets("COVTESTSOUTSIDE").Range("I1").Columns.AutoFit
Worksheets("COVTESTSOUTSIDE").Range("J1").Columns.AutoFit
Worksheets("COVTESTSOUTSIDE").Range("K1").Columns.AutoFit
Worksheets("COVTESTSOUTSIDE").Range("L1").Columns.AutoFit
Worksheets("COVTESTSOUTSIDE").Range("M1").Columns.AutoFit
Worksheets("COVTESTSOUTSIDE").Range("N1").Columns.AutoFit
Worksheets("COVTESTSOUTSIDE").Range("O1").Columns.AutoFit
Worksheets("COVTESTSOUTSIDE").Range("P1").Columns.AutoFit
Worksheets("COVTESTSOUTSIDE").Range("Q1").Columns.AutoFit
Worksheets("COVTESTSOUTSIDE").Range("R1").Columns.AutoFit
Worksheets("COVTESTSOUTSIDE").Range("S1").Columns.AutoFit
Worksheets("COVTESTSOUTSIDE").Range("T1").Columns.AutoFit
Worksheets("COVTESTSOUTSIDE").Range("U1").Columns.AutoFit
Worksheets("COVTESTSOUTSIDE").Range("V1").Columns.AutoFit
Worksheets("COVTESTSOUTSIDE").Range("W1").Columns.AutoFit
Worksheets("COVTESTSOUTSIDE").Range("X1").Columns.AutoFit
Worksheets("COVTESTSOUTSIDE").Range("Y1").Columns.AutoFit
Worksheets("COVTESTSOUTSIDE").Range("Z1").Columns.AutoFit
Worksheets("COVTESTSOUTSIDE").Range("AA1").Columns.AutoFit
Worksheets("COVTESTSOUTSIDE").Range("AB1").Columns.AutoFit
Worksheets("COVTESTSOUTSIDE").Range("AC1").Columns.AutoFit
Worksheets("COVTESTSOUTSIDE").Range("AD1").Columns.AutoFit
Worksheets("COVTESTSOUTSIDE").Range("AE1").Columns.AutoFit
Worksheets("COVTESTSOUTSIDE").Range("AF1").Columns.AutoFit
Worksheets("COVTESTSOUTSIDE").Range("AG1").Columns.AutoFit
Worksheets("COVTESTSOUTSIDE").Range("AH1").Columns.AutoFit
Worksheets("COVTESTSOUTSIDE").Range("AI1").Columns.AutoFit
Worksheets("COVTESTSOUTSIDE").Range("AJ1").Columns.AutoFit
Worksheets("COVTESTSOUTSIDE").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("COVTESTSOUTSIDE").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("E35") = numRows - 1
End Sub
Sub PendingLabsClinRTW_Y()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("PENDINGLABSCLINRTW_Y")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If rg.Cells(i, 14).Value = "Clinical" And rg.Cells(i, 17).Value = "Pending Result" And rg.Cells(i, 31).Value = "Yes" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("PENDINGLABSCLINRTW_Y").Range("A1").Columns.AutoFit
Worksheets("PENDINGLABSCLINRTW_Y").Range("B1").Columns.AutoFit
Worksheets("PENDINGLABSCLINRTW_Y").Range("C1").Columns.AutoFit
Worksheets("PENDINGLABSCLINRTW_Y").Range("D1").Columns.AutoFit
Worksheets("PENDINGLABSCLINRTW_Y").Range("E1").Columns.AutoFit
Worksheets("PENDINGLABSCLINRTW_Y").Range("G1").Columns.AutoFit
Worksheets("PENDINGLABSCLINRTW_Y").Range("H1").Columns.AutoFit
Worksheets("PENDINGLABSCLINRTW_Y").Range("I1").Columns.AutoFit
Worksheets("PENDINGLABSCLINRTW_Y").Range("J1").Columns.AutoFit
Worksheets("PENDINGLABSCLINRTW_Y").Range("K1").Columns.AutoFit
Worksheets("PENDINGLABSCLINRTW_Y").Range("L1").Columns.AutoFit
Worksheets("PENDINGLABSCLINRTW_Y").Range("M1").Columns.AutoFit
Worksheets("PENDINGLABSCLINRTW_Y").Range("N1").Columns.AutoFit
Worksheets("PENDINGLABSCLINRTW_Y").Range("O1").Columns.AutoFit
Worksheets("PENDINGLABSCLINRTW_Y").Range("P1").Columns.AutoFit
Worksheets("PENDINGLABSCLINRTW_Y").Range("Q1").Columns.AutoFit
Worksheets("PENDINGLABSCLINRTW_Y").Range("R1").Columns.AutoFit
Worksheets("PENDINGLABSCLINRTW_Y").Range("S1").Columns.AutoFit
Worksheets("PENDINGLABSCLINRTW_Y").Range("T1").Columns.AutoFit
Worksheets("PENDINGLABSCLINRTW_Y").Range("U1").Columns.AutoFit
Worksheets("PENDINGLABSCLINRTW_Y").Range("V1").Columns.AutoFit
Worksheets("PENDINGLABSCLINRTW_Y").Range("W1").Columns.AutoFit
Worksheets("PENDINGLABSCLINRTW_Y").Range("X1").Columns.AutoFit
Worksheets("PENDINGLABSCLINRTW_Y").Range("Y1").Columns.AutoFit
Worksheets("PENDINGLABSCLINRTW_Y").Range("Z1").Columns.AutoFit
Worksheets("PENDINGLABSCLINRTW_Y").Range("AA1").Columns.AutoFit
Worksheets("PENDINGLABSCLINRTW_Y").Range("AB1").Columns.AutoFit
Worksheets("PENDINGLABSCLINRTW_Y").Range("AC1").Columns.AutoFit
Worksheets("PENDINGLABSCLINRTW_Y").Range("AD1").Columns.AutoFit
Worksheets("PENDINGLABSCLINRTW_Y").Range("AE1").Columns.AutoFit
Worksheets("PENDINGLABSCLINRTW_Y").Range("AF1").Columns.AutoFit
Worksheets("PENDINGLABSCLINRTW_Y").Range("AG1").Columns.AutoFit
Worksheets("PENDINGLABSCLINRTW_Y").Range("AH1").Columns.AutoFit
Worksheets("PENDINGLABSCLINRTW_Y").Range("AI1").Columns.AutoFit
Worksheets("PENDINGLABSCLINRTW_Y").Range("AJ1").Columns.AutoFit
Worksheets("PENDINGLABSCLINRTW_Y").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("PENDINGLABSCLINRTW_Y").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("E37") = numRows - 1
End Sub
Sub PendingLabsClinRTW_N()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("PENDINGLABSCLINRTW_N")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If rg.Cells(i, 14).Value = "Clinical" And rg.Cells(i, 17).Value = "Pending Result" And rg.Cells(i, 31).Value = "No" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("PENDINGLABSCLINRTW_N").Range("A1").Columns.AutoFit
Worksheets("PENDINGLABSCLINRTW_N").Range("B1").Columns.AutoFit
Worksheets("PENDINGLABSCLINRTW_N").Range("C1").Columns.AutoFit
Worksheets("PENDINGLABSCLINRTW_N").Range("D1").Columns.AutoFit
Worksheets("PENDINGLABSCLINRTW_N").Range("E1").Columns.AutoFit
Worksheets("PENDINGLABSCLINRTW_N").Range("G1").Columns.AutoFit
Worksheets("PENDINGLABSCLINRTW_N").Range("H1").Columns.AutoFit
Worksheets("PENDINGLABSCLINRTW_N").Range("I1").Columns.AutoFit
Worksheets("PENDINGLABSCLINRTW_N").Range("J1").Columns.AutoFit
Worksheets("PENDINGLABSCLINRTW_N").Range("K1").Columns.AutoFit
Worksheets("PENDINGLABSCLINRTW_N").Range("L1").Columns.AutoFit
Worksheets("PENDINGLABSCLINRTW_N").Range("M1").Columns.AutoFit
Worksheets("PENDINGLABSCLINRTW_N").Range("N1").Columns.AutoFit
Worksheets("PENDINGLABSCLINRTW_N").Range("O1").Columns.AutoFit
Worksheets("PENDINGLABSCLINRTW_N").Range("P1").Columns.AutoFit
Worksheets("PENDINGLABSCLINRTW_N").Range("Q1").Columns.AutoFit
Worksheets("PENDINGLABSCLINRTW_N").Range("R1").Columns.AutoFit
Worksheets("PENDINGLABSCLINRTW_N").Range("S1").Columns.AutoFit
Worksheets("PENDINGLABSCLINRTW_N").Range("T1").Columns.AutoFit
Worksheets("PENDINGLABSCLINRTW_N").Range("U1").Columns.AutoFit
Worksheets("PENDINGLABSCLINRTW_N").Range("V1").Columns.AutoFit
Worksheets("PENDINGLABSCLINRTW_N").Range("W1").Columns.AutoFit
Worksheets("PENDINGLABSCLINRTW_N").Range("X1").Columns.AutoFit
Worksheets("PENDINGLABSCLINRTW_N").Range("Y1").Columns.AutoFit
Worksheets("PENDINGLABSCLINRTW_N").Range("Z1").Columns.AutoFit
Worksheets("PENDINGLABSCLINRTW_N").Range("AA1").Columns.AutoFit
Worksheets("PENDINGLABSCLINRTW_N").Range("AB1").Columns.AutoFit
Worksheets("PENDINGLABSCLINRTW_N").Range("AC1").Columns.AutoFit
Worksheets("PENDINGLABSCLINRTW_N").Range("AD1").Columns.AutoFit
Worksheets("PENDINGLABSCLINRTW_N").Range("AE1").Columns.AutoFit
Worksheets("PENDINGLABSCLINRTW_N").Range("AF1").Columns.AutoFit
Worksheets("PENDINGLABSCLINRTW_N").Range("AG1").Columns.AutoFit
Worksheets("PENDINGLABSCLINRTW_N").Range("AH1").Columns.AutoFit
Worksheets("PENDINGLABSCLINRTW_N").Range("AI1").Columns.AutoFit
Worksheets("PENDINGLABSCLINRTW_N").Range("AJ1").Columns.AutoFit
Worksheets("PENDINGLABSCLINRTW_N").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("PENDINGLABSCLINRTW_N").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("E38") = numRows - 1
End Sub
Sub PendingLabsNonClinRTW_Y()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("PENDINGLABSNONCLINRTW_Y")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If rg.Cells(i, 14).Value = "Non-Clinical" And rg.Cells(i, 17).Value = "Pending Result" And rg.Cells(i, 31).Value = "Yes" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("PENDINGLABSNONCLINRTW_Y").Range("A1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLINRTW_Y").Range("B1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLINRTW_Y").Range("C1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLINRTW_Y").Range("D1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLINRTW_Y").Range("E1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLINRTW_Y").Range("G1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLINRTW_Y").Range("H1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLINRTW_Y").Range("I1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLINRTW_Y").Range("J1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLINRTW_Y").Range("K1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLINRTW_Y").Range("L1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLINRTW_Y").Range("M1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLINRTW_Y").Range("N1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLINRTW_Y").Range("O1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLINRTW_Y").Range("P1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLINRTW_Y").Range("Q1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLINRTW_Y").Range("R1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLINRTW_Y").Range("S1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLINRTW_Y").Range("T1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLINRTW_Y").Range("U1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLINRTW_Y").Range("V1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLINRTW_Y").Range("W1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLINRTW_Y").Range("X1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLINRTW_Y").Range("Y1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLINRTW_Y").Range("Z1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLINRTW_Y").Range("AA1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLINRTW_Y").Range("AB1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLINRTW_Y").Range("AC1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLINRTW_Y").Range("AD1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLINRTW_Y").Range("AE1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLINRTW_Y").Range("AF1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLINRTW_Y").Range("AG1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLINRTW_Y").Range("AH1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLINRTW_Y").Range("AI1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLINRTW_Y").Range("AJ1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLINRTW_Y").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("PENDINGLABSNONCLINRTW_Y").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("E40") = numRows - 1
End Sub
Sub PendingLabsNonClinRTW_N()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("PENDINGLABSNONCLINRTW_N")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If rg.Cells(i, 14).Value = "Non-Clinical" And rg.Cells(i, 17).Value = "Pending Result" And rg.Cells(i, 31).Value = "No" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("PENDINGLABSNONCLINRTW_N").Range("A1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLINRTW_N").Range("B1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLINRTW_N").Range("C1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLINRTW_N").Range("D1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLINRTW_N").Range("E1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLINRTW_N").Range("G1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLINRTW_N").Range("H1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLINRTW_N").Range("I1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLINRTW_N").Range("J1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLINRTW_N").Range("K1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLINRTW_N").Range("L1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLINRTW_N").Range("M1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLINRTW_N").Range("N1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLINRTW_N").Range("O1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLINRTW_N").Range("P1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLINRTW_N").Range("Q1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLINRTW_N").Range("R1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLINRTW_N").Range("S1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLINRTW_N").Range("T1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLINRTW_N").Range("U1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLINRTW_N").Range("V1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLINRTW_N").Range("W1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLINRTW_N").Range("X1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLINRTW_N").Range("Y1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLINRTW_N").Range("Z1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLINRTW_N").Range("AA1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLINRTW_N").Range("AB1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLINRTW_N").Range("AC1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLINRTW_N").Range("AD1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLINRTW_N").Range("AE1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLINRTW_N").Range("AF1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLINRTW_N").Range("AG1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLINRTW_N").Range("AH1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLINRTW_N").Range("AI1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLINRTW_N").Range("AJ1").Columns.AutoFit
Worksheets("PENDINGLABSNONCLINRTW_N").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("PENDINGLABSNONCLINRTW_N").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("E41") = numRows - 1
End Sub
Sub CovPosRTW_Y_clin()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("COVPOSRTW_Y_CLIN")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If rg.Cells(i, 14).Value = "Clinical" And rg.Cells(i, 17).Value = "Positive" And rg.Cells(i, 31).Value = "Yes" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("COVPOSRTW_Y_CLIN").Range("A1").Columns.AutoFit
Worksheets("COVPOSRTW_Y_CLIN").Range("B1").Columns.AutoFit
Worksheets("COVPOSRTW_Y_CLIN").Range("C1").Columns.AutoFit
Worksheets("COVPOSRTW_Y_CLIN").Range("D1").Columns.AutoFit
Worksheets("COVPOSRTW_Y_CLIN").Range("E1").Columns.AutoFit
Worksheets("COVPOSRTW_Y_CLIN").Range("G1").Columns.AutoFit
Worksheets("COVPOSRTW_Y_CLIN").Range("H1").Columns.AutoFit
Worksheets("COVPOSRTW_Y_CLIN").Range("I1").Columns.AutoFit
Worksheets("COVPOSRTW_Y_CLIN").Range("J1").Columns.AutoFit
Worksheets("COVPOSRTW_Y_CLIN").Range("K1").Columns.AutoFit
Worksheets("COVPOSRTW_Y_CLIN").Range("L1").Columns.AutoFit
Worksheets("COVPOSRTW_Y_CLIN").Range("M1").Columns.AutoFit
Worksheets("COVPOSRTW_Y_CLIN").Range("N1").Columns.AutoFit
Worksheets("COVPOSRTW_Y_CLIN").Range("O1").Columns.AutoFit
Worksheets("COVPOSRTW_Y_CLIN").Range("P1").Columns.AutoFit
Worksheets("COVPOSRTW_Y_CLIN").Range("Q1").Columns.AutoFit
Worksheets("COVPOSRTW_Y_CLIN").Range("R1").Columns.AutoFit
Worksheets("COVPOSRTW_Y_CLIN").Range("S1").Columns.AutoFit
Worksheets("COVPOSRTW_Y_CLIN").Range("T1").Columns.AutoFit
Worksheets("COVPOSRTW_Y_CLIN").Range("U1").Columns.AutoFit
Worksheets("COVPOSRTW_Y_CLIN").Range("V1").Columns.AutoFit
Worksheets("COVPOSRTW_Y_CLIN").Range("W1").Columns.AutoFit
Worksheets("COVPOSRTW_Y_CLIN").Range("X1").Columns.AutoFit
Worksheets("COVPOSRTW_Y_CLIN").Range("Y1").Columns.AutoFit
Worksheets("COVPOSRTW_Y_CLIN").Range("Z1").Columns.AutoFit
Worksheets("COVPOSRTW_Y_CLIN").Range("AA1").Columns.AutoFit
Worksheets("COVPOSRTW_Y_CLIN").Range("AB1").Columns.AutoFit
Worksheets("COVPOSRTW_Y_CLIN").Range("AC1").Columns.AutoFit
Worksheets("COVPOSRTW_Y_CLIN").Range("AD1").Columns.AutoFit
Worksheets("COVPOSRTW_Y_CLIN").Range("AE1").Columns.AutoFit
Worksheets("COVPOSRTW_Y_CLIN").Range("AF1").Columns.AutoFit
Worksheets("COVPOSRTW_Y_CLIN").Range("AG1").Columns.AutoFit
Worksheets("COVPOSRTW_Y_CLIN").Range("AH1").Columns.AutoFit
Worksheets("COVPOSRTW_Y_CLIN").Range("AI1").Columns.AutoFit
Worksheets("COVPOSRTW_Y_CLIN").Range("AJ1").Columns.AutoFit
Worksheets("COVPOSRTW_Y_CLIN").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("COVPOSRTW_Y_CLIN").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("I37") = numRows - 1
End Sub
Sub CovPosRTW_N_clin()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("COVPOSRTW_N_CLIN")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If rg.Cells(i, 14).Value = "Clinical" And rg.Cells(i, 17).Value = "Positive" And rg.Cells(i, 31).Value = "No" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("COVPOSRTW_N_CLIN").Range("A1").Columns.AutoFit
Worksheets("COVPOSRTW_N_CLIN").Range("B1").Columns.AutoFit
Worksheets("COVPOSRTW_N_CLIN").Range("C1").Columns.AutoFit
Worksheets("COVPOSRTW_N_CLIN").Range("D1").Columns.AutoFit
Worksheets("COVPOSRTW_N_CLIN").Range("E1").Columns.AutoFit
Worksheets("COVPOSRTW_N_CLIN").Range("G1").Columns.AutoFit
Worksheets("COVPOSRTW_N_CLIN").Range("H1").Columns.AutoFit
Worksheets("COVPOSRTW_N_CLIN").Range("I1").Columns.AutoFit
Worksheets("COVPOSRTW_N_CLIN").Range("J1").Columns.AutoFit
Worksheets("COVPOSRTW_N_CLIN").Range("K1").Columns.AutoFit
Worksheets("COVPOSRTW_N_CLIN").Range("L1").Columns.AutoFit
Worksheets("COVPOSRTW_N_CLIN").Range("M1").Columns.AutoFit
Worksheets("COVPOSRTW_N_CLIN").Range("N1").Columns.AutoFit
Worksheets("COVPOSRTW_N_CLIN").Range("O1").Columns.AutoFit
Worksheets("COVPOSRTW_N_CLIN").Range("P1").Columns.AutoFit
Worksheets("COVPOSRTW_N_CLIN").Range("Q1").Columns.AutoFit
Worksheets("COVPOSRTW_N_CLIN").Range("R1").Columns.AutoFit
Worksheets("COVPOSRTW_N_CLIN").Range("S1").Columns.AutoFit
Worksheets("COVPOSRTW_N_CLIN").Range("T1").Columns.AutoFit
Worksheets("COVPOSRTW_N_CLIN").Range("U1").Columns.AutoFit
Worksheets("COVPOSRTW_N_CLIN").Range("V1").Columns.AutoFit
Worksheets("COVPOSRTW_N_CLIN").Range("W1").Columns.AutoFit
Worksheets("COVPOSRTW_N_CLIN").Range("X1").Columns.AutoFit
Worksheets("COVPOSRTW_N_CLIN").Range("Y1").Columns.AutoFit
Worksheets("COVPOSRTW_N_CLIN").Range("Z1").Columns.AutoFit
Worksheets("COVPOSRTW_N_CLIN").Range("AA1").Columns.AutoFit
Worksheets("COVPOSRTW_N_CLIN").Range("AB1").Columns.AutoFit
Worksheets("COVPOSRTW_N_CLIN").Range("AC1").Columns.AutoFit
Worksheets("COVPOSRTW_N_CLIN").Range("AD1").Columns.AutoFit
Worksheets("COVPOSRTW_N_CLIN").Range("AE1").Columns.AutoFit
Worksheets("COVPOSRTW_N_CLIN").Range("AF1").Columns.AutoFit
Worksheets("COVPOSRTW_N_CLIN").Range("AG1").Columns.AutoFit
Worksheets("COVPOSRTW_N_CLIN").Range("AH1").Columns.AutoFit
Worksheets("COVPOSRTW_N_CLIN").Range("AI1").Columns.AutoFit
Worksheets("COVPOSRTW_N_CLIN").Range("AJ1").Columns.AutoFit
Worksheets("COVPOSRTW_N_CLIN").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("COVPOSRTW_N_CLIN").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("I38") = numRows - 1
End Sub
Sub CovPosRTWYesClin()
Dim a As Long
Dim b As Long
Dim i As Long
Dim marks, marks1, marks2 As String
Dim numRows, numRows1 As Long
Dim lastRow As Long
Dim lastRow1 As Long
Dim lastRow2 As Long
Dim lastrow3 As Long
Dim n As Integer
Dim currentDate As Date
currentDate = Now()
Dim subDate As Date
subDate = DateAdd("d", -4, currentDate) 'subDate is the current date minus 4 days
Dim mydate As Date
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
If ws.Name = "CovPosRTWYesClin" Then
Application.DisplayAlerts = False 'switching off the alert button
ws.Delete
End If
Next
Worksheets.Add.Name = "CovPosRTWYesClin"
Worksheets("CovPosRTWYesClin").Activate
Worksheets("CovPosRTWYesClin").Range("A1") = "ID:"
Worksheets("CovPosRTWYesClin").Range("B1") = "Status:----------"
Worksheets("CovPosRTWYesClin").Range("C1") = "Area Entering Initial Information into Tracker:"
Worksheets("CovPosRTWYesClin").Range("D1") = "Date of Initial Presentation/Call-in:"
Worksheets("COVPOSRTWYESCLIN").Range("E1") = "Date of Last Update:"
Worksheets("COVPOSRTWYESCLIN").Range("F1") = "Last Name:"
Worksheets("COVPOSRTWYESCLIN").Range("G1") = "First Name:"
Worksheets("COVPOSRTWYESCLIN").Range("H1") = "Last 4:"
Worksheets("COVPOSRTWYESCLIN").Range("I1") = "DOB:----------"
Worksheets("COVPOSRTWYESCLIN").Range("J1") = "Phone #:----------"
Worksheets("COVPOSRTWYESCLIN").Range("K1") = "Direct Supervisor's Name:"
Worksheets("COVPOSRTWYESCLIN").Range("L1") = "Work Location:"
Worksheets("COVPOSRTWYESCLIN").Range("M1") = "Position:"
Worksheets("COVPOSRTWYESCLIN").Range("N1") = "Clinical vs Non-Clinical Role:"
Worksheets("COVPOSRTWYESCLIN").Range("O1") = "Date of COVID-19 Test Swab:"
Worksheets("COVPOSRTWYESCLIN").Range("P1") = "Date of Test Result:"
Worksheets("COVPOSRTWYESCLIN").Range("Q1") = "COVID-19 Test Result:"
Worksheets("COVPOSRTWYESCLIN").Range("R1") = "COVID-19 Testing Location:"
Worksheets("COVPOSRTWYESCLIN").Range("S1") = "COVID-19 Related Symptoms Reported on Initial Presentation/Call-in?"
Worksheets("COVPOSRTWYESCLIN").Range("T1") = "Date of Symptom Onset:"
Worksheets("COVPOSRTWYESCLIN").Range("U1") = "Presenting Symptoms:------------------------------"
Worksheets("COVPOSRTWYESCLIN").Range("V1") = "Date Employee reports symptom resolution:"
Worksheets("COVPOSRTWYESCLIN").Range("W1") = "Employee may be considered for early Return to Work in the event of Critical Staffing Shortage:"
Worksheets("COVPOSRTWYESCLIN").Range("X1") = "Direct Exposure or Travel History:"
Worksheets("COVPOSRTWYESCLIN").Range("Y1") = "Date of Last Direct Exposure or Travel History:"
Worksheets("COVPOSRTWYESCLIN").Range("Z1") = "Quarantine or Isolation recommended:"
Worksheets("COVPOSRTWYESCLIN").Range("AA1") = "Start Date Quarantine/Isolation:"
Worksheets("COVPOSRTWYESCLIN").Range("AB1") = "Estimated End Date Quarantine/Isolation:"
Worksheets("COVPOSRTWYESCLIN").Range("AC1") = "Date of Primary Care Provider (PCP) Clearance:"
Worksheets("COVPOSRTWYESCLIN").Range("AD1") = "Scheduled Appt. Date for OEH Return to Work Eval:"
Worksheets("COVPOSRTWYESCLIN").Range("AE1") = "Return to Work Clearance Approved?"
Worksheets("COVPOSRTWYESCLIN").Range("AF1") = "Date of OEH Return to Work Clearance:"
Worksheets("COVPOSRTWYESCLIN").Range("AG1") = "Date of Face-to-Face Returned to Work Screening:"
Worksheets("COVPOSRTWYESCLIN").Range("AH1") = "Comments:"
Worksheets("COVPOSRTWYESCLIN").Range("AI1") = "Deceased:"
Worksheets("COVPOSRTWYESCLIN").Range("AJ1") = "Weather/Safety Leave?"
Worksheets("COVPOSRTWYESCLIN").Range("AK1") = "Weather/Safety Leave Dates:"
a = Worksheets("query").Cells(Rows.Count, 1).End(xlUp).row
For i = 2 To a
marks = Worksheets("query").Cells(i, 17).Value
marks1 = Worksheets("query").Cells(i, 14).Value
marks2 = Worksheets("query").Cells(i, 31).Value
If marks = "Positive" And marks1 = "Clinical" And marks2 = "Yes" Then
Worksheets("query").Rows(i).Copy
Worksheets("CovPosRTWYesClin").Activate
b = Worksheets("CovPosRTWYesClin").Cells(Rows.Count, 1).End(xlUp).row
Worksheets("CovPosRTWYesClin").Cells(b + 1, 1).Select
ActiveSheet.Paste
Worksheets("CovPosRTWYesClin").Range("A1").Columns.AutoFit
Worksheets("CovPosRTWYesClin").Range("B1").Columns.AutoFit
Worksheets("CovPosRTWYesClin").Range("C1").Columns.AutoFit
Worksheets("CovPosRTWYesClin").Range("D1").Columns.AutoFit
Worksheets("CovPosRTWYesClin").Range("E1").Columns.AutoFit
Worksheets("CovPosRTWYesClin").Range("G1").Columns.AutoFit
Worksheets("CovPosRTWYesClin").Range("H1").Columns.AutoFit
Worksheets("CovPosRTWYesClin").Range("I1").Columns.AutoFit
Worksheets("CovPosRTWYesClin").Range("J1").Columns.AutoFit
Worksheets("CovPosRTWYesClin").Range("K1").Columns.AutoFit
Worksheets("CovPosRTWYesClin").Range("L1").Columns.AutoFit
Worksheets("CovPosRTWYesClin").Range("M1").Columns.AutoFit
Worksheets("CovPosRTWYesClin").Range("N1").Columns.AutoFit
Worksheets("CovPosRTWYesClin").Range("O1").Columns.AutoFit
Worksheets("CovPosRTWYesClin").Range("P1").Columns.AutoFit
Worksheets("CovPosRTWYesClin").Range("Q1").Columns.AutoFit
Worksheets("CovPosRTWYesClin").Range("R1").Columns.AutoFit
Worksheets("CovPosRTWYesClin").Range("S1").Columns.AutoFit
Worksheets("CovPosRTWYesClin").Range("T1").Columns.AutoFit
Worksheets("CovPosRTWYesClin").Range("U1").Columns.AutoFit
Worksheets("CovPosRTWYesClin").Range("V1").Columns.AutoFit
Worksheets("CovPosRTWYesClin").Range("W1").Columns.AutoFit
Worksheets("CovPosRTWYesClin").Range("X1").Columns.AutoFit
Worksheets("CovPosRTWYesClin").Range("Y1").Columns.AutoFit
Worksheets("CovPosRTWYesClin").Range("Z1").Columns.AutoFit
Worksheets("CovPosRTWYesClin").Range("AA1").Columns.AutoFit
Worksheets("CovPosRTWYesClin").Range("AB1").Columns.AutoFit
Worksheets("CovPosRTWYesClin").Range("AC1").Columns.AutoFit
Worksheets("CovPosRTWYesClin").Range("AD1").Columns.AutoFit
Worksheets("CovPosRTWYesClin").Range("AE1").Columns.AutoFit
Worksheets("CovPosRTWYesClin").Range("AF1").Columns.AutoFit
Worksheets("CovPosRTWYesClin").Range("AG1").Columns.AutoFit
Worksheets("CovPosRTWYesClin").Range("AH1").Columns.AutoFit
Worksheets("CovPosRTWYesClin").Range("AI1").Columns.AutoFit
Worksheets("CovPosRTWYesClin").Range("AJ1").Columns.AutoFit
Worksheets("CovPosRTWYesClin").Range("AK1").Columns.AutoFit
Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
'Worksheets("query").Activate
ThisWorkbook.Worksheets("CovPosRTWYesClin").Cells(1, 1).Select
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("I37") = numRows - 1
End Sub
Sub CovPosRTW_Y_nonClin()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("COVPOSRTW_Y_NONCLIN")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If rg.Cells(i, 14).Value = "Non-Clinical" And rg.Cells(i, 17).Value = "Positive" And rg.Cells(i, 31).Value = "Yes" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("COVPOSRTW_Y_NONCLIN").Range("A1").Columns.AutoFit
Worksheets("COVPOSRTW_Y_NONCLIN").Range("B1").Columns.AutoFit
Worksheets("COVPOSRTW_Y_NONCLIN").Range("C1").Columns.AutoFit
Worksheets("COVPOSRTW_Y_NONCLIN").Range("D1").Columns.AutoFit
Worksheets("COVPOSRTW_Y_NONCLIN").Range("E1").Columns.AutoFit
Worksheets("COVPOSRTW_Y_NONCLIN").Range("G1").Columns.AutoFit
Worksheets("COVPOSRTW_Y_NONCLIN").Range("H1").Columns.AutoFit
Worksheets("COVPOSRTW_Y_NONCLIN").Range("I1").Columns.AutoFit
Worksheets("COVPOSRTW_Y_NONCLIN").Range("J1").Columns.AutoFit
Worksheets("COVPOSRTW_Y_NONCLIN").Range("K1").Columns.AutoFit
Worksheets("COVPOSRTW_Y_NONCLIN").Range("L1").Columns.AutoFit
Worksheets("COVPOSRTW_Y_NONCLIN").Range("M1").Columns.AutoFit
Worksheets("COVPOSRTW_Y_NONCLIN").Range("N1").Columns.AutoFit
Worksheets("COVPOSRTW_Y_NONCLIN").Range("O1").Columns.AutoFit
Worksheets("COVPOSRTW_Y_NONCLIN").Range("P1").Columns.AutoFit
Worksheets("COVPOSRTW_Y_NONCLIN").Range("Q1").Columns.AutoFit
Worksheets("COVPOSRTW_Y_NONCLIN").Range("R1").Columns.AutoFit
Worksheets("COVPOSRTW_Y_NONCLIN").Range("S1").Columns.AutoFit
Worksheets("COVPOSRTW_Y_NONCLIN").Range("T1").Columns.AutoFit
Worksheets("COVPOSRTW_Y_NONCLIN").Range("U1").Columns.AutoFit
Worksheets("COVPOSRTW_Y_NONCLIN").Range("V1").Columns.AutoFit
Worksheets("COVPOSRTW_Y_NONCLIN").Range("W1").Columns.AutoFit
Worksheets("COVPOSRTW_Y_NONCLIN").Range("X1").Columns.AutoFit
Worksheets("COVPOSRTW_Y_NONCLIN").Range("Y1").Columns.AutoFit
Worksheets("COVPOSRTW_Y_NONCLIN").Range("Z1").Columns.AutoFit
Worksheets("COVPOSRTW_Y_NONCLIN").Range("AA1").Columns.AutoFit
Worksheets("COVPOSRTW_Y_NONCLIN").Range("AB1").Columns.AutoFit
Worksheets("COVPOSRTW_Y_NONCLIN").Range("AC1").Columns.AutoFit
Worksheets("COVPOSRTW_Y_NONCLIN").Range("AD1").Columns.AutoFit
Worksheets("COVPOSRTW_Y_NONCLIN").Range("AE1").Columns.AutoFit
Worksheets("COVPOSRTW_Y_NONCLIN").Range("AF1").Columns.AutoFit
Worksheets("COVPOSRTW_Y_NONCLIN").Range("AG1").Columns.AutoFit
Worksheets("COVPOSRTW_Y_NONCLIN").Range("AH1").Columns.AutoFit
Worksheets("COVPOSRTW_Y_NONCLIN").Range("AI1").Columns.AutoFit
Worksheets("COVPOSRTW_Y_NONCLIN").Range("AJ1").Columns.AutoFit
Worksheets("COVPOSRTW_Y_NONCLIN").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("COVPOSRTW_Y_NONCLIN").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("I40") = numRows - 1
End Sub
Sub CovPosRTW_N_nonClin()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("COVPOSRTW_N_NONCLIN")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If rg.Cells(i, 14).Value = "Non-Clinical" And rg.Cells(i, 17).Value = "Positive" And rg.Cells(i, 31).Value = "No" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("COVPOSRTW_N_NONCLIN").Range("A1").Columns.AutoFit
Worksheets("COVPOSRTW_N_NONCLIN").Range("B1").Columns.AutoFit
Worksheets("COVPOSRTW_N_NONCLIN").Range("C1").Columns.AutoFit
Worksheets("COVPOSRTW_N_NONCLIN").Range("D1").Columns.AutoFit
Worksheets("COVPOSRTW_N_NONCLIN").Range("E1").Columns.AutoFit
Worksheets("COVPOSRTW_N_NONCLIN").Range("G1").Columns.AutoFit
Worksheets("COVPOSRTW_N_NONCLIN").Range("H1").Columns.AutoFit
Worksheets("COVPOSRTW_N_NONCLIN").Range("I1").Columns.AutoFit
Worksheets("COVPOSRTW_N_NONCLIN").Range("J1").Columns.AutoFit
Worksheets("COVPOSRTW_N_NONCLIN").Range("K1").Columns.AutoFit
Worksheets("COVPOSRTW_N_NONCLIN").Range("L1").Columns.AutoFit
Worksheets("COVPOSRTW_N_NONCLIN").Range("M1").Columns.AutoFit
Worksheets("COVPOSRTW_N_NONCLIN").Range("N1").Columns.AutoFit
Worksheets("COVPOSRTW_N_NONCLIN").Range("O1").Columns.AutoFit
Worksheets("COVPOSRTW_N_NONCLIN").Range("P1").Columns.AutoFit
Worksheets("COVPOSRTW_N_NONCLIN").Range("Q1").Columns.AutoFit
Worksheets("COVPOSRTW_N_NONCLIN").Range("R1").Columns.AutoFit
Worksheets("COVPOSRTW_N_NONCLIN").Range("S1").Columns.AutoFit
Worksheets("COVPOSRTW_N_NONCLIN").Range("T1").Columns.AutoFit
Worksheets("COVPOSRTW_N_NONCLIN").Range("U1").Columns.AutoFit
Worksheets("COVPOSRTW_N_NONCLIN").Range("V1").Columns.AutoFit
Worksheets("COVPOSRTW_N_NONCLIN").Range("W1").Columns.AutoFit
Worksheets("COVPOSRTW_N_NONCLIN").Range("X1").Columns.AutoFit
Worksheets("COVPOSRTW_N_NONCLIN").Range("Y1").Columns.AutoFit
Worksheets("COVPOSRTW_N_NONCLIN").Range("Z1").Columns.AutoFit
Worksheets("COVPOSRTW_N_NONCLIN").Range("AA1").Columns.AutoFit
Worksheets("COVPOSRTW_N_NONCLIN").Range("AB1").Columns.AutoFit
Worksheets("COVPOSRTW_N_NONCLIN").Range("AC1").Columns.AutoFit
Worksheets("COVPOSRTW_N_NONCLIN").Range("AD1").Columns.AutoFit
Worksheets("COVPOSRTW_N_NONCLIN").Range("AE1").Columns.AutoFit
Worksheets("COVPOSRTW_N_NONCLIN").Range("AF1").Columns.AutoFit
Worksheets("COVPOSRTW_N_NONCLIN").Range("AG1").Columns.AutoFit
Worksheets("COVPOSRTW_N_NONCLIN").Range("AH1").Columns.AutoFit
Worksheets("COVPOSRTW_N_NONCLIN").Range("AI1").Columns.AutoFit
Worksheets("COVPOSRTW_N_NONCLIN").Range("AJ1").Columns.AutoFit
Worksheets("COVPOSRTW_N_NONCLIN").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("COVPOSRTW_N_NONCLIN").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("I41") = numRows - 1
End Sub
Sub CovNegRTW_N_nonClin()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("COVNEGRTW_N_NONCLIN")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If rg.Cells(i, 14).Value = "Non-Clinical" And rg.Cells(i, 17).Value = "Negative" And rg.Cells(i, 31).Value = "No" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("COVNEGRTW_N_NONCLIN").Range("A1").Columns.AutoFit
Worksheets("COVNEGRTW_N_NONCLIN").Range("B1").Columns.AutoFit
Worksheets("COVNEGRTW_N_NONCLIN").Range("C1").Columns.AutoFit
Worksheets("COVNEGRTW_N_NONCLIN").Range("D1").Columns.AutoFit
Worksheets("COVNEGRTW_N_NONCLIN").Range("E1").Columns.AutoFit
Worksheets("COVNEGRTW_N_NONCLIN").Range("G1").Columns.AutoFit
Worksheets("COVNEGRTW_N_NONCLIN").Range("H1").Columns.AutoFit
Worksheets("COVNEGRTW_N_NONCLIN").Range("I1").Columns.AutoFit
Worksheets("COVNEGRTW_N_NONCLIN").Range("J1").Columns.AutoFit
Worksheets("COVNEGRTW_N_NONCLIN").Range("K1").Columns.AutoFit
Worksheets("COVNEGRTW_N_NONCLIN").Range("L1").Columns.AutoFit
Worksheets("COVNEGRTW_N_NONCLIN").Range("M1").Columns.AutoFit
Worksheets("COVNEGRTW_N_NONCLIN").Range("N1").Columns.AutoFit
Worksheets("COVNEGRTW_N_NONCLIN").Range("O1").Columns.AutoFit
Worksheets("COVNEGRTW_N_NONCLIN").Range("P1").Columns.AutoFit
Worksheets("COVNEGRTW_N_NONCLIN").Range("Q1").Columns.AutoFit
Worksheets("COVNEGRTW_N_NONCLIN").Range("R1").Columns.AutoFit
Worksheets("COVNEGRTW_N_NONCLIN").Range("S1").Columns.AutoFit
Worksheets("COVNEGRTW_N_NONCLIN").Range("T1").Columns.AutoFit
Worksheets("COVNEGRTW_N_NONCLIN").Range("U1").Columns.AutoFit
Worksheets("COVNEGRTW_N_NONCLIN").Range("V1").Columns.AutoFit
Worksheets("COVNEGRTW_N_NONCLIN").Range("W1").Columns.AutoFit
Worksheets("COVNEGRTW_N_NONCLIN").Range("X1").Columns.AutoFit
Worksheets("COVNEGRTW_N_NONCLIN").Range("Y1").Columns.AutoFit
Worksheets("COVNEGRTW_N_NONCLIN").Range("Z1").Columns.AutoFit
Worksheets("COVNEGRTW_N_NONCLIN").Range("AA1").Columns.AutoFit
Worksheets("COVNEGRTW_N_NONCLIN").Range("AB1").Columns.AutoFit
Worksheets("COVNEGRTW_N_NONCLIN").Range("AC1").Columns.AutoFit
Worksheets("COVNEGRTW_N_NONCLIN").Range("AD1").Columns.AutoFit
Worksheets("COVNEGRTW_N_NONCLIN").Range("AE1").Columns.AutoFit
Worksheets("COVNEGRTW_N_NONCLIN").Range("AF1").Columns.AutoFit
Worksheets("COVNEGRTW_N_NONCLIN").Range("AG1").Columns.AutoFit
Worksheets("COVNEGRTW_N_NONCLIN").Range("AH1").Columns.AutoFit
Worksheets("COVNEGRTW_N_NONCLIN").Range("AI1").Columns.AutoFit
Worksheets("COVNEGRTW_N_NONCLIN").Range("AJ1").Columns.AutoFit
Worksheets("COVNEGRTW_N_NONCLIN").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("COVNEGRTW_N_NONCLIN").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("I47") = numRows - 1
End Sub
Sub CovNegRTW_Y_nonClin()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("COVNEGRTW_Y_NONCLIN")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If rg.Cells(i, 14).Value = "Non-Clinical" And rg.Cells(i, 17).Value = "Negative" And rg.Cells(i, 31).Value = "Yes" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("COVNEGRTW_Y_NONCLIN").Range("A1").Columns.AutoFit
Worksheets("COVNEGRTW_Y_NONCLIN").Range("B1").Columns.AutoFit
Worksheets("COVNEGRTW_Y_NONCLIN").Range("C1").Columns.AutoFit
Worksheets("COVNEGRTW_Y_NONCLIN").Range("D1").Columns.AutoFit
Worksheets("COVNEGRTW_Y_NONCLIN").Range("E1").Columns.AutoFit
Worksheets("COVNEGRTW_Y_NONCLIN").Range("G1").Columns.AutoFit
Worksheets("COVNEGRTW_Y_NONCLIN").Range("H1").Columns.AutoFit
Worksheets("COVNEGRTW_Y_NONCLIN").Range("I1").Columns.AutoFit
Worksheets("COVNEGRTW_Y_NONCLIN").Range("J1").Columns.AutoFit
Worksheets("COVNEGRTW_Y_NONCLIN").Range("K1").Columns.AutoFit
Worksheets("COVNEGRTW_Y_NONCLIN").Range("L1").Columns.AutoFit
Worksheets("COVNEGRTW_Y_NONCLIN").Range("M1").Columns.AutoFit
Worksheets("COVNEGRTW_Y_NONCLIN").Range("N1").Columns.AutoFit
Worksheets("COVNEGRTW_Y_NONCLIN").Range("O1").Columns.AutoFit
Worksheets("COVNEGRTW_Y_NONCLIN").Range("P1").Columns.AutoFit
Worksheets("COVNEGRTW_Y_NONCLIN").Range("Q1").Columns.AutoFit
Worksheets("COVNEGRTW_Y_NONCLIN").Range("R1").Columns.AutoFit
Worksheets("COVNEGRTW_Y_NONCLIN").Range("S1").Columns.AutoFit
Worksheets("COVNEGRTW_Y_NONCLIN").Range("T1").Columns.AutoFit
Worksheets("COVNEGRTW_Y_NONCLIN").Range("U1").Columns.AutoFit
Worksheets("COVNEGRTW_Y_NONCLIN").Range("V1").Columns.AutoFit
Worksheets("COVNEGRTW_Y_NONCLIN").Range("W1").Columns.AutoFit
Worksheets("COVNEGRTW_Y_NONCLIN").Range("X1").Columns.AutoFit
Worksheets("COVNEGRTW_Y_NONCLIN").Range("Y1").Columns.AutoFit
Worksheets("COVNEGRTW_Y_NONCLIN").Range("Z1").Columns.AutoFit
Worksheets("COVNEGRTW_Y_NONCLIN").Range("AA1").Columns.AutoFit
Worksheets("COVNEGRTW_Y_NONCLIN").Range("AB1").Columns.AutoFit
Worksheets("COVNEGRTW_Y_NONCLIN").Range("AC1").Columns.AutoFit
Worksheets("COVNEGRTW_Y_NONCLIN").Range("AD1").Columns.AutoFit
Worksheets("COVNEGRTW_Y_NONCLIN").Range("AE1").Columns.AutoFit
Worksheets("COVNEGRTW_Y_NONCLIN").Range("AF1").Columns.AutoFit
Worksheets("COVNEGRTW_Y_NONCLIN").Range("AG1").Columns.AutoFit
Worksheets("COVNEGRTW_Y_NONCLIN").Range("AH1").Columns.AutoFit
Worksheets("COVNEGRTW_Y_NONCLIN").Range("AI1").Columns.AutoFit
Worksheets("COVNEGRTW_Y_NONCLIN").Range("AJ1").Columns.AutoFit
Worksheets("COVNEGRTW_Y_NONCLIN").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("COVNEGRTW_Y_NONCLIN").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("I46") = numRows - 1
End Sub
Sub CovNegRTW_Y_clin()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("COVNEGRTW_Y_CLIN")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If rg.Cells(i, 14).Value = "Clinical" And rg.Cells(i, 17).Value = "Negative" And rg.Cells(i, 31).Value = "Yes" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("COVNEGRTW_Y_CLIN").Range("A1").Columns.AutoFit
Worksheets("COVNEGRTW_Y_CLIN").Range("B1").Columns.AutoFit
Worksheets("COVNEGRTW_Y_CLIN").Range("C1").Columns.AutoFit
Worksheets("COVNEGRTW_Y_CLIN").Range("D1").Columns.AutoFit
Worksheets("COVNEGRTW_Y_CLIN").Range("E1").Columns.AutoFit
Worksheets("COVNEGRTW_Y_CLIN").Range("G1").Columns.AutoFit
Worksheets("COVNEGRTW_Y_CLIN").Range("H1").Columns.AutoFit
Worksheets("COVNEGRTW_Y_CLIN").Range("I1").Columns.AutoFit
Worksheets("COVNEGRTW_Y_CLIN").Range("J1").Columns.AutoFit
Worksheets("COVNEGRTW_Y_CLIN").Range("K1").Columns.AutoFit
Worksheets("COVNEGRTW_Y_CLIN").Range("L1").Columns.AutoFit
Worksheets("COVNEGRTW_Y_CLIN").Range("M1").Columns.AutoFit
Worksheets("COVNEGRTW_Y_CLIN").Range("N1").Columns.AutoFit
Worksheets("COVNEGRTW_Y_CLIN").Range("O1").Columns.AutoFit
Worksheets("COVNEGRTW_Y_CLIN").Range("P1").Columns.AutoFit
Worksheets("COVNEGRTW_Y_CLIN").Range("Q1").Columns.AutoFit
Worksheets("COVNEGRTW_Y_CLIN").Range("R1").Columns.AutoFit
Worksheets("COVNEGRTW_Y_CLIN").Range("S1").Columns.AutoFit
Worksheets("COVNEGRTW_Y_CLIN").Range("T1").Columns.AutoFit
Worksheets("COVNEGRTW_Y_CLIN").Range("U1").Columns.AutoFit
Worksheets("COVNEGRTW_Y_CLIN").Range("V1").Columns.AutoFit
Worksheets("COVNEGRTW_Y_CLIN").Range("W1").Columns.AutoFit
Worksheets("COVNEGRTW_Y_CLIN").Range("X1").Columns.AutoFit
Worksheets("COVNEGRTW_Y_CLIN").Range("Y1").Columns.AutoFit
Worksheets("COVNEGRTW_Y_CLIN").Range("Z1").Columns.AutoFit
Worksheets("COVNEGRTW_Y_CLIN").Range("AA1").Columns.AutoFit
Worksheets("COVNEGRTW_Y_CLIN").Range("AB1").Columns.AutoFit
Worksheets("COVNEGRTW_Y_CLIN").Range("AC1").Columns.AutoFit
Worksheets("COVNEGRTW_Y_CLIN").Range("AD1").Columns.AutoFit
Worksheets("COVNEGRTW_Y_CLIN").Range("AE1").Columns.AutoFit
Worksheets("COVNEGRTW_Y_CLIN").Range("AF1").Columns.AutoFit
Worksheets("COVNEGRTW_Y_CLIN").Range("AG1").Columns.AutoFit
Worksheets("COVNEGRTW_Y_CLIN").Range("AH1").Columns.AutoFit
Worksheets("COVNEGRTW_Y_CLIN").Range("AI1").Columns.AutoFit
Worksheets("COVNEGRTW_Y_CLIN").Range("AJ1").Columns.AutoFit
Worksheets("COVNEGRTW_Y_CLIN").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("COVNEGRTW_Y_CLIN").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("I43") = numRows - 1
End Sub
Sub CovNegRTW_N_clin()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("COVNEGRTW_N_CLIN")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If rg.Cells(i, 14).Value = "Clinical" And rg.Cells(i, 17).Value = "Negative" And rg.Cells(i, 31).Value = "No" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("COVNEGRTW_N_CLIN").Range("A1").Columns.AutoFit
Worksheets("COVNEGRTW_N_CLIN").Range("B1").Columns.AutoFit
Worksheets("COVNEGRTW_N_CLIN").Range("C1").Columns.AutoFit
Worksheets("COVNEGRTW_N_CLIN").Range("D1").Columns.AutoFit
Worksheets("COVNEGRTW_N_CLIN").Range("E1").Columns.AutoFit
Worksheets("COVNEGRTW_N_CLIN").Range("G1").Columns.AutoFit
Worksheets("COVNEGRTW_N_CLIN").Range("H1").Columns.AutoFit
Worksheets("COVNEGRTW_N_CLIN").Range("I1").Columns.AutoFit
Worksheets("COVNEGRTW_N_CLIN").Range("J1").Columns.AutoFit
Worksheets("COVNEGRTW_N_CLIN").Range("K1").Columns.AutoFit
Worksheets("COVNEGRTW_N_CLIN").Range("L1").Columns.AutoFit
Worksheets("COVNEGRTW_N_CLIN").Range("M1").Columns.AutoFit
Worksheets("COVNEGRTW_N_CLIN").Range("N1").Columns.AutoFit
Worksheets("COVNEGRTW_N_CLIN").Range("O1").Columns.AutoFit
Worksheets("COVNEGRTW_N_CLIN").Range("P1").Columns.AutoFit
Worksheets("COVNEGRTW_N_CLIN").Range("Q1").Columns.AutoFit
Worksheets("COVNEGRTW_N_CLIN").Range("R1").Columns.AutoFit
Worksheets("COVNEGRTW_N_CLIN").Range("S1").Columns.AutoFit
Worksheets("COVNEGRTW_N_CLIN").Range("T1").Columns.AutoFit
Worksheets("COVNEGRTW_N_CLIN").Range("U1").Columns.AutoFit
Worksheets("COVNEGRTW_N_CLIN").Range("V1").Columns.AutoFit
Worksheets("COVNEGRTW_N_CLIN").Range("W1").Columns.AutoFit
Worksheets("COVNEGRTW_N_CLIN").Range("X1").Columns.AutoFit
Worksheets("COVNEGRTW_N_CLIN").Range("Y1").Columns.AutoFit
Worksheets("COVNEGRTW_N_CLIN").Range("Z1").Columns.AutoFit
Worksheets("COVNEGRTW_N_CLIN").Range("AA1").Columns.AutoFit
Worksheets("COVNEGRTW_N_CLIN").Range("AB1").Columns.AutoFit
Worksheets("COVNEGRTW_N_CLIN").Range("AC1").Columns.AutoFit
Worksheets("COVNEGRTW_N_CLIN").Range("AD1").Columns.AutoFit
Worksheets("COVNEGRTW_N_CLIN").Range("AE1").Columns.AutoFit
Worksheets("COVNEGRTW_N_CLIN").Range("AF1").Columns.AutoFit
Worksheets("COVNEGRTW_N_CLIN").Range("AG1").Columns.AutoFit
Worksheets("COVNEGRTW_N_CLIN").Range("AH1").Columns.AutoFit
Worksheets("COVNEGRTW_N_CLIN").Range("AI1").Columns.AutoFit
Worksheets("COVNEGRTW_N_CLIN").Range("AJ1").Columns.AutoFit
Worksheets("COVNEGRTW_N_CLIN").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("COVNEGRTW_N_CLIN").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("I44") = numRows - 1
End Sub
Sub NTSympClinRTWyes()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("NTSYMPCLINRTWYES")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If rg.Cells(i, 14).Value = "Clinical" And rg.Cells(i, 17).Value = "Not Tested" And rg.Cells(i, 19).Value = "Yes" And rg.Cells(i, 31).Value = "Yes" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("NTSYMPCLINRTWYES").Range("A1").Columns.AutoFit
Worksheets("NTSYMPCLINRTWYES").Range("B1").Columns.AutoFit
Worksheets("NTSYMPCLINRTWYES").Range("C1").Columns.AutoFit
Worksheets("NTSYMPCLINRTWYES").Range("D1").Columns.AutoFit
Worksheets("NTSYMPCLINRTWYES").Range("E1").Columns.AutoFit
Worksheets("NTSYMPCLINRTWYES").Range("G1").Columns.AutoFit
Worksheets("NTSYMPCLINRTWYES").Range("H1").Columns.AutoFit
Worksheets("NTSYMPCLINRTWYES").Range("I1").Columns.AutoFit
Worksheets("NTSYMPCLINRTWYES").Range("J1").Columns.AutoFit
Worksheets("NTSYMPCLINRTWYES").Range("K1").Columns.AutoFit
Worksheets("NTSYMPCLINRTWYES").Range("L1").Columns.AutoFit
Worksheets("NTSYMPCLINRTWYES").Range("M1").Columns.AutoFit
Worksheets("NTSYMPCLINRTWYES").Range("N1").Columns.AutoFit
Worksheets("NTSYMPCLINRTWYES").Range("O1").Columns.AutoFit
Worksheets("NTSYMPCLINRTWYES").Range("P1").Columns.AutoFit
Worksheets("NTSYMPCLINRTWYES").Range("Q1").Columns.AutoFit
Worksheets("NTSYMPCLINRTWYES").Range("R1").Columns.AutoFit
Worksheets("NTSYMPCLINRTWYES").Range("S1").Columns.AutoFit
Worksheets("NTSYMPCLINRTWYES").Range("T1").Columns.AutoFit
Worksheets("NTSYMPCLINRTWYES").Range("U1").Columns.AutoFit
Worksheets("NTSYMPCLINRTWYES").Range("V1").Columns.AutoFit
Worksheets("NTSYMPCLINRTWYES").Range("W1").Columns.AutoFit
Worksheets("NTSYMPCLINRTWYES").Range("X1").Columns.AutoFit
Worksheets("NTSYMPCLINRTWYES").Range("Y1").Columns.AutoFit
Worksheets("NTSYMPCLINRTWYES").Range("Z1").Columns.AutoFit
Worksheets("NTSYMPCLINRTWYES").Range("AA1").Columns.AutoFit
Worksheets("NTSYMPCLINRTWYES").Range("AB1").Columns.AutoFit
Worksheets("NTSYMPCLINRTWYES").Range("AC1").Columns.AutoFit
Worksheets("NTSYMPCLINRTWYES").Range("AD1").Columns.AutoFit
Worksheets("NTSYMPCLINRTWYES").Range("AE1").Columns.AutoFit
Worksheets("NTSYMPCLINRTWYES").Range("AF1").Columns.AutoFit
Worksheets("NTSYMPCLINRTWYES").Range("AG1").Columns.AutoFit
Worksheets("NTSYMPCLINRTWYES").Range("AH1").Columns.AutoFit
Worksheets("NTSYMPCLINRTWYES").Range("AI1").Columns.AutoFit
Worksheets("NTSYMPCLINRTWYES").Range("AJ1").Columns.AutoFit
Worksheets("NTSYMPCLINRTWYES").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("NTSYMPCLINRTWYES").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("E43") = numRows - 1
End Sub
Sub NTSympClinRTWno()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("NTSYMPCLINRTWNO")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If rg.Cells(i, 14).Value = "Clinical" And rg.Cells(i, 17).Value = "Not Tested" And rg.Cells(i, 19).Value = "Yes" And rg.Cells(i, 31).Value = "No" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("NTSYMPCLINRTWNO").Range("A1").Columns.AutoFit
Worksheets("NTSYMPCLINRTWNO").Range("B1").Columns.AutoFit
Worksheets("NTSYMPCLINRTWNO").Range("C1").Columns.AutoFit
Worksheets("NTSYMPCLINRTWNO").Range("D1").Columns.AutoFit
Worksheets("NTSYMPCLINRTWNO").Range("E1").Columns.AutoFit
Worksheets("NTSYMPCLINRTWNO").Range("G1").Columns.AutoFit
Worksheets("NTSYMPCLINRTWNO").Range("H1").Columns.AutoFit
Worksheets("NTSYMPCLINRTWNO").Range("I1").Columns.AutoFit
Worksheets("NTSYMPCLINRTWNO").Range("J1").Columns.AutoFit
Worksheets("NTSYMPCLINRTWNO").Range("K1").Columns.AutoFit
Worksheets("NTSYMPCLINRTWNO").Range("L1").Columns.AutoFit
Worksheets("NTSYMPCLINRTWNO").Range("M1").Columns.AutoFit
Worksheets("NTSYMPCLINRTWNO").Range("N1").Columns.AutoFit
Worksheets("NTSYMPCLINRTWNO").Range("O1").Columns.AutoFit
Worksheets("NTSYMPCLINRTWNO").Range("P1").Columns.AutoFit
Worksheets("NTSYMPCLINRTWNO").Range("Q1").Columns.AutoFit
Worksheets("NTSYMPCLINRTWNO").Range("R1").Columns.AutoFit
Worksheets("NTSYMPCLINRTWNO").Range("S1").Columns.AutoFit
Worksheets("NTSYMPCLINRTWNO").Range("T1").Columns.AutoFit
Worksheets("NTSYMPCLINRTWNO").Range("U1").Columns.AutoFit
Worksheets("NTSYMPCLINRTWNO").Range("V1").Columns.AutoFit
Worksheets("NTSYMPCLINRTWNO").Range("W1").Columns.AutoFit
Worksheets("NTSYMPCLINRTWNO").Range("X1").Columns.AutoFit
Worksheets("NTSYMPCLINRTWNO").Range("Y1").Columns.AutoFit
Worksheets("NTSYMPCLINRTWNO").Range("Z1").Columns.AutoFit
Worksheets("NTSYMPCLINRTWNO").Range("AA1").Columns.AutoFit
Worksheets("NTSYMPCLINRTWNO").Range("AB1").Columns.AutoFit
Worksheets("NTSYMPCLINRTWNO").Range("AC1").Columns.AutoFit
Worksheets("NTSYMPCLINRTWNO").Range("AD1").Columns.AutoFit
Worksheets("NTSYMPCLINRTWNO").Range("AE1").Columns.AutoFit
Worksheets("NTSYMPCLINRTWNO").Range("AF1").Columns.AutoFit
Worksheets("NTSYMPCLINRTWNO").Range("AG1").Columns.AutoFit
Worksheets("NTSYMPCLINRTWNO").Range("AH1").Columns.AutoFit
Worksheets("NTSYMPCLINRTWNO").Range("AI1").Columns.AutoFit
Worksheets("NTSYMPCLINRTWNO").Range("AJ1").Columns.AutoFit
Worksheets("NTSYMPCLINRTWNO").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("NTSYMPCLINRTWNO").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("E44") = numRows - 1
End Sub
Sub NTSympNonClinRTWno()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("NTSYMPNONCLINRTWNO")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If rg.Cells(i, 14).Value = "Non-Clinical" And rg.Cells(i, 17).Value = "Not Tested" And rg.Cells(i, 19).Value = "Yes" And (rg.Cells(i, 31).Value = "No" Or rg.Cells(i, 31).Value = "No Show") Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("NTSYMPNONCLINRTWNO").Range("A1").Columns.AutoFit
Worksheets("NTSYMPNONCLINRTWNO").Range("B1").Columns.AutoFit
Worksheets("NTSYMPNONCLINRTWNO").Range("C1").Columns.AutoFit
Worksheets("NTSYMPNONCLINRTWNO").Range("D1").Columns.AutoFit
Worksheets("NTSYMPNONCLINRTWNO").Range("E1").Columns.AutoFit
Worksheets("NTSYMPNONCLINRTWNO").Range("G1").Columns.AutoFit
Worksheets("NTSYMPNONCLINRTWNO").Range("H1").Columns.AutoFit
Worksheets("NTSYMPNONCLINRTWNO").Range("I1").Columns.AutoFit
Worksheets("NTSYMPNONCLINRTWNO").Range("J1").Columns.AutoFit
Worksheets("NTSYMPNONCLINRTWNO").Range("K1").Columns.AutoFit
Worksheets("NTSYMPNONCLINRTWNO").Range("L1").Columns.AutoFit
Worksheets("NTSYMPNONCLINRTWNO").Range("M1").Columns.AutoFit
Worksheets("NTSYMPNONCLINRTWNO").Range("N1").Columns.AutoFit
Worksheets("NTSYMPNONCLINRTWNO").Range("O1").Columns.AutoFit
Worksheets("NTSYMPNONCLINRTWNO").Range("P1").Columns.AutoFit
Worksheets("NTSYMPNONCLINRTWNO").Range("Q1").Columns.AutoFit
Worksheets("NTSYMPNONCLINRTWNO").Range("R1").Columns.AutoFit
Worksheets("NTSYMPNONCLINRTWNO").Range("S1").Columns.AutoFit
Worksheets("NTSYMPNONCLINRTWNO").Range("T1").Columns.AutoFit
Worksheets("NTSYMPNONCLINRTWNO").Range("U1").Columns.AutoFit
Worksheets("NTSYMPNONCLINRTWNO").Range("V1").Columns.AutoFit
Worksheets("NTSYMPNONCLINRTWNO").Range("W1").Columns.AutoFit
Worksheets("NTSYMPNONCLINRTWNO").Range("X1").Columns.AutoFit
Worksheets("NTSYMPNONCLINRTWNO").Range("Y1").Columns.AutoFit
Worksheets("NTSYMPNONCLINRTWNO").Range("Z1").Columns.AutoFit
Worksheets("NTSYMPNONCLINRTWNO").Range("AA1").Columns.AutoFit
Worksheets("NTSYMPNONCLINRTWNO").Range("AB1").Columns.AutoFit
Worksheets("NTSYMPNONCLINRTWNO").Range("AC1").Columns.AutoFit
Worksheets("NTSYMPNONCLINRTWNO").Range("AD1").Columns.AutoFit
Worksheets("NTSYMPNONCLINRTWNO").Range("AE1").Columns.AutoFit
Worksheets("NTSYMPNONCLINRTWNO").Range("AF1").Columns.AutoFit
Worksheets("NTSYMPNONCLINRTWNO").Range("AG1").Columns.AutoFit
Worksheets("NTSYMPNONCLINRTWNO").Range("AH1").Columns.AutoFit
Worksheets("NTSYMPNONCLINRTWNO").Range("AI1").Columns.AutoFit
Worksheets("NTSYMPNONCLINRTWNO").Range("AJ1").Columns.AutoFit
Worksheets("NTSYMPNONCLINRTWNO").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("NTSYMPNONCLINRTWNO").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("E47") = numRows - 1
End Sub
Sub NTSympNonClinRTWyes()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("NTSYMPNONCLINRTWYES")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If rg.Cells(i, 14).Value = "Non-Clinical" And rg.Cells(i, 17).Value = "Not Tested" And rg.Cells(i, 19).Value = "Yes" And rg.Cells(i, 31).Value = "Yes" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("NTSYMPNONCLINRTWYES").Range("A1").Columns.AutoFit
Worksheets("NTSYMPNONCLINRTWYES").Range("B1").Columns.AutoFit
Worksheets("NTSYMPNONCLINRTWYES").Range("C1").Columns.AutoFit
Worksheets("NTSYMPNONCLINRTWYES").Range("D1").Columns.AutoFit
Worksheets("NTSYMPNONCLINRTWYES").Range("E1").Columns.AutoFit
Worksheets("NTSYMPNONCLINRTWYES").Range("G1").Columns.AutoFit
Worksheets("NTSYMPNONCLINRTWYES").Range("H1").Columns.AutoFit
Worksheets("NTSYMPNONCLINRTWYES").Range("I1").Columns.AutoFit
Worksheets("NTSYMPNONCLINRTWYES").Range("J1").Columns.AutoFit
Worksheets("NTSYMPNONCLINRTWYES").Range("K1").Columns.AutoFit
Worksheets("NTSYMPNONCLINRTWYES").Range("L1").Columns.AutoFit
Worksheets("NTSYMPNONCLINRTWYES").Range("M1").Columns.AutoFit
Worksheets("NTSYMPNONCLINRTWYES").Range("N1").Columns.AutoFit
Worksheets("NTSYMPNONCLINRTWYES").Range("O1").Columns.AutoFit
Worksheets("NTSYMPNONCLINRTWYES").Range("P1").Columns.AutoFit
Worksheets("NTSYMPNONCLINRTWYES").Range("Q1").Columns.AutoFit
Worksheets("NTSYMPNONCLINRTWYES").Range("R1").Columns.AutoFit
Worksheets("NTSYMPNONCLINRTWYES").Range("S1").Columns.AutoFit
Worksheets("NTSYMPNONCLINRTWYES").Range("T1").Columns.AutoFit
Worksheets("NTSYMPNONCLINRTWYES").Range("U1").Columns.AutoFit
Worksheets("NTSYMPNONCLINRTWYES").Range("V1").Columns.AutoFit
Worksheets("NTSYMPNONCLINRTWYES").Range("W1").Columns.AutoFit
Worksheets("NTSYMPNONCLINRTWYES").Range("X1").Columns.AutoFit
Worksheets("NTSYMPNONCLINRTWYES").Range("Y1").Columns.AutoFit
Worksheets("NTSYMPNONCLINRTWYES").Range("Z1").Columns.AutoFit
Worksheets("NTSYMPNONCLINRTWYES").Range("AA1").Columns.AutoFit
Worksheets("NTSYMPNONCLINRTWYES").Range("AB1").Columns.AutoFit
Worksheets("NTSYMPNONCLINRTWYES").Range("AC1").Columns.AutoFit
Worksheets("NTSYMPNONCLINRTWYES").Range("AD1").Columns.AutoFit
Worksheets("NTSYMPNONCLINRTWYES").Range("AE1").Columns.AutoFit
Worksheets("NTSYMPNONCLINRTWYES").Range("AF1").Columns.AutoFit
Worksheets("NTSYMPNONCLINRTWYES").Range("AG1").Columns.AutoFit
Worksheets("NTSYMPNONCLINRTWYES").Range("AH1").Columns.AutoFit
Worksheets("NTSYMPNONCLINRTWYES").Range("AI1").Columns.AutoFit
Worksheets("NTSYMPNONCLINRTWYES").Range("AJ1").Columns.AutoFit
Worksheets("NTSYMPNONCLINRTWYES").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("NTSYMPNONCLINRTWYES").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("E46") = numRows - 1
End Sub
Sub SymptomaticYes()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("SYMPTOMATICYES")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
'a = Worksheets("query").Cells(Rows.Count, 1).End(xlUp).row
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If rg.Cells(i, 19).Value = "Yes" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("SYMPTOMATICYES").Range("A1").Columns.AutoFit
Worksheets("SYMPTOMATICYES").Range("B1").Columns.AutoFit
Worksheets("SYMPTOMATICYES").Range("C1").Columns.AutoFit
Worksheets("SYMPTOMATICYES").Range("D1").Columns.AutoFit
Worksheets("SYMPTOMATICYES").Range("E1").Columns.AutoFit
Worksheets("SYMPTOMATICYES").Range("G1").Columns.AutoFit
Worksheets("SYMPTOMATICYES").Range("H1").Columns.AutoFit
Worksheets("SYMPTOMATICYES").Range("I1").Columns.AutoFit
Worksheets("SYMPTOMATICYES").Range("J1").Columns.AutoFit
Worksheets("SYMPTOMATICYES").Range("K1").Columns.AutoFit
Worksheets("SYMPTOMATICYES").Range("L1").Columns.AutoFit
Worksheets("SYMPTOMATICYES").Range("M1").Columns.AutoFit
Worksheets("SYMPTOMATICYES").Range("N1").Columns.AutoFit
Worksheets("SYMPTOMATICYES").Range("O1").Columns.AutoFit
Worksheets("SYMPTOMATICYES").Range("P1").Columns.AutoFit
Worksheets("SYMPTOMATICYES").Range("Q1").Columns.AutoFit
Worksheets("SYMPTOMATICYES").Range("R1").Columns.AutoFit
Worksheets("SYMPTOMATICYES").Range("S1").Columns.AutoFit
Worksheets("SYMPTOMATICYES").Range("T1").Columns.AutoFit
Worksheets("SYMPTOMATICYES").Range("U1").Columns.AutoFit
Worksheets("SYMPTOMATICYES").Range("V1").Columns.AutoFit
Worksheets("SYMPTOMATICYES").Range("W1").Columns.AutoFit
Worksheets("SYMPTOMATICYES").Range("X1").Columns.AutoFit
Worksheets("SYMPTOMATICYES").Range("Y1").Columns.AutoFit
Worksheets("SYMPTOMATICYES").Range("Z1").Columns.AutoFit
Worksheets("SYMPTOMATICYES").Range("AA1").Columns.AutoFit
Worksheets("SYMPTOMATICYES").Range("AB1").Columns.AutoFit
Worksheets("SYMPTOMATICYES").Range("AC1").Columns.AutoFit
Worksheets("SYMPTOMATICYES").Range("AD1").Columns.AutoFit
Worksheets("SYMPTOMATICYES").Range("AE1").Columns.AutoFit
Worksheets("SYMPTOMATICYES").Range("AF1").Columns.AutoFit
Worksheets("SYMPTOMATICYES").Range("AG1").Columns.AutoFit
Worksheets("SYMPTOMATICYES").Range("AH1").Columns.AutoFit
Worksheets("SYMPTOMATICYES").Range("AI1").Columns.AutoFit
Worksheets("SYMPTOMATICYES").Range("AJ1").Columns.AutoFit
Worksheets("SYMPTOMATICYES").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("SYMPTOMATICYES").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("I31") = numRows - 1
End Sub
Sub SymptomaticNo()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("SYMPTOMATICNO")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
'a = Worksheets("query").Cells(Rows.Count, 1).End(xlUp).row
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If rg.Cells(i, 19).Value = "No" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("SYMPTOMATICNO").Range("A1").Columns.AutoFit
Worksheets("SYMPTOMATICNO").Range("B1").Columns.AutoFit
Worksheets("SYMPTOMATICNO").Range("C1").Columns.AutoFit
Worksheets("SYMPTOMATICNO").Range("D1").Columns.AutoFit
Worksheets("SYMPTOMATICNO").Range("E1").Columns.AutoFit
Worksheets("SYMPTOMATICNO").Range("G1").Columns.AutoFit
Worksheets("SYMPTOMATICNO").Range("H1").Columns.AutoFit
Worksheets("SYMPTOMATICNO").Range("I1").Columns.AutoFit
Worksheets("SYMPTOMATICNO").Range("J1").Columns.AutoFit
Worksheets("SYMPTOMATICNO").Range("K1").Columns.AutoFit
Worksheets("SYMPTOMATICNO").Range("L1").Columns.AutoFit
Worksheets("SYMPTOMATICNO").Range("M1").Columns.AutoFit
Worksheets("SYMPTOMATICNO").Range("N1").Columns.AutoFit
Worksheets("SYMPTOMATICNO").Range("O1").Columns.AutoFit
Worksheets("SYMPTOMATICNO").Range("P1").Columns.AutoFit
Worksheets("SYMPTOMATICNO").Range("Q1").Columns.AutoFit
Worksheets("SYMPTOMATICNO").Range("R1").Columns.AutoFit
Worksheets("SYMPTOMATICNO").Range("S1").Columns.AutoFit
Worksheets("SYMPTOMATICNO").Range("T1").Columns.AutoFit
Worksheets("SYMPTOMATICNO").Range("U1").Columns.AutoFit
Worksheets("SYMPTOMATICNO").Range("V1").Columns.AutoFit
Worksheets("SYMPTOMATICNO").Range("W1").Columns.AutoFit
Worksheets("SYMPTOMATICNO").Range("X1").Columns.AutoFit
Worksheets("SYMPTOMATICNO").Range("Y1").Columns.AutoFit
Worksheets("SYMPTOMATICNO").Range("Z1").Columns.AutoFit
Worksheets("SYMPTOMATICNO").Range("AA1").Columns.AutoFit
Worksheets("SYMPTOMATICNO").Range("AB1").Columns.AutoFit
Worksheets("SYMPTOMATICNO").Range("AC1").Columns.AutoFit
Worksheets("SYMPTOMATICNO").Range("AD1").Columns.AutoFit
Worksheets("SYMPTOMATICNO").Range("AE1").Columns.AutoFit
Worksheets("SYMPTOMATICNO").Range("AF1").Columns.AutoFit
Worksheets("SYMPTOMATICNO").Range("AG1").Columns.AutoFit
Worksheets("SYMPTOMATICNO").Range("AH1").Columns.AutoFit
Worksheets("SYMPTOMATICNO").Range("AI1").Columns.AutoFit
Worksheets("SYMPTOMATICNO").Range("AJ1").Columns.AutoFit
Worksheets("SYMPTOMATICNO").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("SYMPTOMATICNO").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("I32") = numRows - 1
End Sub
Sub testBlank()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("TESTBLANK")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
'a = Worksheets("query").Cells(Rows.Count, 1).End(xlUp).row
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If IsEmpty(rg.Cells(i, 17).Value) = True And rg.Cells(i, 19).Value = "Yes" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("TESTBLANK").Range("A1").Columns.AutoFit
Worksheets("TESTBLANK").Range("B1").Columns.AutoFit
Worksheets("TESTBLANK").Range("C1").Columns.AutoFit
Worksheets("TESTBLANK").Range("D1").Columns.AutoFit
Worksheets("TESTBLANK").Range("E1").Columns.AutoFit
Worksheets("TESTBLANK").Range("G1").Columns.AutoFit
Worksheets("TESTBLANK").Range("H1").Columns.AutoFit
Worksheets("TESTBLANK").Range("I1").Columns.AutoFit
Worksheets("TESTBLANK").Range("J1").Columns.AutoFit
Worksheets("TESTBLANK").Range("K1").Columns.AutoFit
Worksheets("TESTBLANK").Range("L1").Columns.AutoFit
Worksheets("TESTBLANK").Range("M1").Columns.AutoFit
Worksheets("TESTBLANK").Range("N1").Columns.AutoFit
Worksheets("TESTBLANK").Range("O1").Columns.AutoFit
Worksheets("TESTBLANK").Range("P1").Columns.AutoFit
Worksheets("TESTBLANK").Range("Q1").Columns.AutoFit
Worksheets("TESTBLANK").Range("R1").Columns.AutoFit
Worksheets("TESTBLANK").Range("S1").Columns.AutoFit
Worksheets("TESTBLANK").Range("T1").Columns.AutoFit
Worksheets("TESTBLANK").Range("U1").Columns.AutoFit
Worksheets("TESTBLANK").Range("V1").Columns.AutoFit
Worksheets("TESTBLANK").Range("W1").Columns.AutoFit
Worksheets("TESTBLANK").Range("X1").Columns.AutoFit
Worksheets("TESTBLANK").Range("Y1").Columns.AutoFit
Worksheets("TESTBLANK").Range("Z1").Columns.AutoFit
Worksheets("TESTBLANK").Range("AA1").Columns.AutoFit
Worksheets("TESTBLANK").Range("AB1").Columns.AutoFit
Worksheets("TESTBLANK").Range("AC1").Columns.AutoFit
Worksheets("TESTBLANK").Range("AD1").Columns.AutoFit
Worksheets("TESTBLANK").Range("AE1").Columns.AutoFit
Worksheets("TESTBLANK").Range("AF1").Columns.AutoFit
Worksheets("TESTBLANK").Range("AG1").Columns.AutoFit
Worksheets("TESTBLANK").Range("AH1").Columns.AutoFit
Worksheets("TESTBLANK").Range("AI1").Columns.AutoFit
Worksheets("TESTBLANK").Range("AJ1").Columns.AutoFit
Worksheets("TESTBLANK").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("TESTBLANK").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("E4") = numRows - 1
End Sub
Sub SympTested()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("SYMPTESTED")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If (rg.Cells(i, 17).Value = "Positive" Or rg.Cells(i, 17).Value = "Negative" Or rg.Cells(i, 17).Value = "Pending Result") And rg.Cells(i, 19).Value = "Yes" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("SYMPTESTED").Range("A1").Columns.AutoFit
Worksheets("SYMPTESTED").Range("B1").Columns.AutoFit
Worksheets("SYMPTESTED").Range("C1").Columns.AutoFit
Worksheets("SYMPTESTED").Range("D1").Columns.AutoFit
Worksheets("SYMPTESTED").Range("E1").Columns.AutoFit
Worksheets("SYMPTESTED").Range("G1").Columns.AutoFit
Worksheets("SYMPTESTED").Range("H1").Columns.AutoFit
Worksheets("SYMPTESTED").Range("I1").Columns.AutoFit
Worksheets("SYMPTESTED").Range("J1").Columns.AutoFit
Worksheets("SYMPTESTED").Range("K1").Columns.AutoFit
Worksheets("SYMPTESTED").Range("L1").Columns.AutoFit
Worksheets("SYMPTESTED").Range("M1").Columns.AutoFit
Worksheets("SYMPTESTED").Range("N1").Columns.AutoFit
Worksheets("SYMPTESTED").Range("O1").Columns.AutoFit
Worksheets("SYMPTESTED").Range("P1").Columns.AutoFit
Worksheets("SYMPTESTED").Range("Q1").Columns.AutoFit
Worksheets("SYMPTESTED").Range("R1").Columns.AutoFit
Worksheets("SYMPTESTED").Range("S1").Columns.AutoFit
Worksheets("SYMPTESTED").Range("T1").Columns.AutoFit
Worksheets("SYMPTESTED").Range("U1").Columns.AutoFit
Worksheets("SYMPTESTED").Range("V1").Columns.AutoFit
Worksheets("SYMPTESTED").Range("W1").Columns.AutoFit
Worksheets("SYMPTESTED").Range("X1").Columns.AutoFit
Worksheets("SYMPTESTED").Range("Y1").Columns.AutoFit
Worksheets("SYMPTESTED").Range("Z1").Columns.AutoFit
Worksheets("SYMPTESTED").Range("AA1").Columns.AutoFit
Worksheets("SYMPTESTED").Range("AB1").Columns.AutoFit
Worksheets("SYMPTESTED").Range("AC1").Columns.AutoFit
Worksheets("SYMPTESTED").Range("AD1").Columns.AutoFit
Worksheets("SYMPTESTED").Range("AE1").Columns.AutoFit
Worksheets("SYMPTESTED").Range("AF1").Columns.AutoFit
Worksheets("SYMPTESTED").Range("AG1").Columns.AutoFit
Worksheets("SYMPTESTED").Range("AH1").Columns.AutoFit
Worksheets("SYMPTESTED").Range("AI1").Columns.AutoFit
Worksheets("SYMPTESTED").Range("AJ1").Columns.AutoFit
Worksheets("SYMPTESTED").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("SYMPTESTED").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("E7") = numRows - 1
End Sub
Sub SympNotTested()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("SYMPNOTTESTED")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If rg.Cells(i, 17).Value = "Not Tested" And rg.Cells(i, 19).Value = "Yes" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("SYMPNOTTESTED").Range("A1").Columns.AutoFit
Worksheets("SYMPNOTTESTED").Range("B1").Columns.AutoFit
Worksheets("SYMPNOTTESTED").Range("C1").Columns.AutoFit
Worksheets("SYMPNOTTESTED").Range("D1").Columns.AutoFit
Worksheets("SYMPNOTTESTED").Range("E1").Columns.AutoFit
Worksheets("SYMPNOTTESTED").Range("G1").Columns.AutoFit
Worksheets("SYMPNOTTESTED").Range("H1").Columns.AutoFit
Worksheets("SYMPNOTTESTED").Range("I1").Columns.AutoFit
Worksheets("SYMPNOTTESTED").Range("J1").Columns.AutoFit
Worksheets("SYMPNOTTESTED").Range("K1").Columns.AutoFit
Worksheets("SYMPNOTTESTED").Range("L1").Columns.AutoFit
Worksheets("SYMPNOTTESTED").Range("M1").Columns.AutoFit
Worksheets("SYMPNOTTESTED").Range("N1").Columns.AutoFit
Worksheets("SYMPNOTTESTED").Range("O1").Columns.AutoFit
Worksheets("SYMPNOTTESTED").Range("P1").Columns.AutoFit
Worksheets("SYMPNOTTESTED").Range("Q1").Columns.AutoFit
Worksheets("SYMPNOTTESTED").Range("R1").Columns.AutoFit
Worksheets("SYMPNOTTESTED").Range("S1").Columns.AutoFit
Worksheets("SYMPNOTTESTED").Range("T1").Columns.AutoFit
Worksheets("SYMPNOTTESTED").Range("U1").Columns.AutoFit
Worksheets("SYMPNOTTESTED").Range("V1").Columns.AutoFit
Worksheets("SYMPNOTTESTED").Range("W1").Columns.AutoFit
Worksheets("SYMPNOTTESTED").Range("X1").Columns.AutoFit
Worksheets("SYMPNOTTESTED").Range("Y1").Columns.AutoFit
Worksheets("SYMPNOTTESTED").Range("Z1").Columns.AutoFit
Worksheets("SYMPNOTTESTED").Range("AA1").Columns.AutoFit
Worksheets("SYMPNOTTESTED").Range("AB1").Columns.AutoFit
Worksheets("SYMPNOTTESTED").Range("AC1").Columns.AutoFit
Worksheets("SYMPNOTTESTED").Range("AD1").Columns.AutoFit
Worksheets("SYMPNOTTESTED").Range("AE1").Columns.AutoFit
Worksheets("SYMPNOTTESTED").Range("AF1").Columns.AutoFit
Worksheets("SYMPNOTTESTED").Range("AG1").Columns.AutoFit
Worksheets("SYMPNOTTESTED").Range("AH1").Columns.AutoFit
Worksheets("SYMPNOTTESTED").Range("AI1").Columns.AutoFit
Worksheets("SYMPNOTTESTED").Range("AJ1").Columns.AutoFit
Worksheets("SYMPNOTTESTED").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("SYMPNOTTESTED").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("E8") = numRows - 1
End Sub
Sub SympTestedClinRTWyes()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("SYMPTESTEDCLINRTWYES")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If (rg.Cells(i, 17).Value = "Positive" Or rg.Cells(i, 17).Value = "Negative" Or rg.Cells(i, 17).Value = "Pending Result") And rg.Cells(i, 14).Value = "Clinical" And rg.Cells(i, 19).Value = "Yes" And rg.Cells(i, 31).Value = "Yes" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("SYMPTESTEDCLINRTWYES").Range("A1").Columns.AutoFit
Worksheets("SYMPTESTEDCLINRTWYES").Range("B1").Columns.AutoFit
Worksheets("SYMPTESTEDCLINRTWYES").Range("C1").Columns.AutoFit
Worksheets("SYMPTESTEDCLINRTWYES").Range("D1").Columns.AutoFit
Worksheets("SYMPTESTEDCLINRTWYES").Range("E1").Columns.AutoFit
Worksheets("SYMPTESTEDCLINRTWYES").Range("G1").Columns.AutoFit
Worksheets("SYMPTESTEDCLINRTWYES").Range("H1").Columns.AutoFit
Worksheets("SYMPTESTEDCLINRTWYES").Range("I1").Columns.AutoFit
Worksheets("SYMPTESTEDCLINRTWYES").Range("J1").Columns.AutoFit
Worksheets("SYMPTESTEDCLINRTWYES").Range("K1").Columns.AutoFit
Worksheets("SYMPTESTEDCLINRTWYES").Range("L1").Columns.AutoFit
Worksheets("SYMPTESTEDCLINRTWYES").Range("M1").Columns.AutoFit
Worksheets("SYMPTESTEDCLINRTWYES").Range("N1").Columns.AutoFit
Worksheets("SYMPTESTEDCLINRTWYES").Range("O1").Columns.AutoFit
Worksheets("SYMPTESTEDCLINRTWYES").Range("P1").Columns.AutoFit
Worksheets("SYMPTESTEDCLINRTWYES").Range("Q1").Columns.AutoFit
Worksheets("SYMPTESTEDCLINRTWYES").Range("R1").Columns.AutoFit
Worksheets("SYMPTESTEDCLINRTWYES").Range("S1").Columns.AutoFit
Worksheets("SYMPTESTEDCLINRTWYES").Range("T1").Columns.AutoFit
Worksheets("SYMPTESTEDCLINRTWYES").Range("U1").Columns.AutoFit
Worksheets("SYMPTESTEDCLINRTWYES").Range("V1").Columns.AutoFit
Worksheets("SYMPTESTEDCLINRTWYES").Range("W1").Columns.AutoFit
Worksheets("SYMPTESTEDCLINRTWYES").Range("X1").Columns.AutoFit
Worksheets("SYMPTESTEDCLINRTWYES").Range("Y1").Columns.AutoFit
Worksheets("SYMPTESTEDCLINRTWYES").Range("Z1").Columns.AutoFit
Worksheets("SYMPTESTEDCLINRTWYES").Range("AA1").Columns.AutoFit
Worksheets("SYMPTESTEDCLINRTWYES").Range("AB1").Columns.AutoFit
Worksheets("SYMPTESTEDCLINRTWYES").Range("AC1").Columns.AutoFit
Worksheets("SYMPTESTEDCLINRTWYES").Range("AD1").Columns.AutoFit
Worksheets("SYMPTESTEDCLINRTWYES").Range("AE1").Columns.AutoFit
Worksheets("SYMPTESTEDCLINRTWYES").Range("AF1").Columns.AutoFit
Worksheets("SYMPTESTEDCLINRTWYES").Range("AG1").Columns.AutoFit
Worksheets("SYMPTESTEDCLINRTWYES").Range("AH1").Columns.AutoFit
Worksheets("SYMPTESTEDCLINRTWYES").Range("AI1").Columns.AutoFit
Worksheets("SYMPTESTEDCLINRTWYES").Range("AJ1").Columns.AutoFit
Worksheets("SYMPTESTEDCLINRTWYES").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("SYMPTESTEDCLINRTWYES").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("B43") = numRows - 1
End Sub
Sub SympTestedClinRTWno()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("SYMPTESTEDCLINRTWNO")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If (rg.Cells(i, 17).Value = "Positive" Or rg.Cells(i, 17).Value = "Negative" Or rg.Cells(i, 17).Value = "Pending Result") And rg.Cells(i, 14).Value = "Clinical" And rg.Cells(i, 19).Value = "Yes" And rg.Cells(i, 31).Value = "No" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("SYMPTESTEDCLINRTWNO").Range("A1").Columns.AutoFit
Worksheets("SYMPTESTEDCLINRTWNO").Range("B1").Columns.AutoFit
Worksheets("SYMPTESTEDCLINRTWNO").Range("C1").Columns.AutoFit
Worksheets("SYMPTESTEDCLINRTWNO").Range("D1").Columns.AutoFit
Worksheets("SYMPTESTEDCLINRTWNO").Range("E1").Columns.AutoFit
Worksheets("SYMPTESTEDCLINRTWNO").Range("G1").Columns.AutoFit
Worksheets("SYMPTESTEDCLINRTWNO").Range("H1").Columns.AutoFit
Worksheets("SYMPTESTEDCLINRTWNO").Range("I1").Columns.AutoFit
Worksheets("SYMPTESTEDCLINRTWNO").Range("J1").Columns.AutoFit
Worksheets("SYMPTESTEDCLINRTWNO").Range("K1").Columns.AutoFit
Worksheets("SYMPTESTEDCLINRTWNO").Range("L1").Columns.AutoFit
Worksheets("SYMPTESTEDCLINRTWNO").Range("M1").Columns.AutoFit
Worksheets("SYMPTESTEDCLINRTWNO").Range("N1").Columns.AutoFit
Worksheets("SYMPTESTEDCLINRTWNO").Range("O1").Columns.AutoFit
Worksheets("SYMPTESTEDCLINRTWNO").Range("P1").Columns.AutoFit
Worksheets("SYMPTESTEDCLINRTWNO").Range("Q1").Columns.AutoFit
Worksheets("SYMPTESTEDCLINRTWNO").Range("R1").Columns.AutoFit
Worksheets("SYMPTESTEDCLINRTWNO").Range("S1").Columns.AutoFit
Worksheets("SYMPTESTEDCLINRTWNO").Range("T1").Columns.AutoFit
Worksheets("SYMPTESTEDCLINRTWNO").Range("U1").Columns.AutoFit
Worksheets("SYMPTESTEDCLINRTWNO").Range("V1").Columns.AutoFit
Worksheets("SYMPTESTEDCLINRTWNO").Range("W1").Columns.AutoFit
Worksheets("SYMPTESTEDCLINRTWNO").Range("X1").Columns.AutoFit
Worksheets("SYMPTESTEDCLINRTWNO").Range("Y1").Columns.AutoFit
Worksheets("SYMPTESTEDCLINRTWNO").Range("Z1").Columns.AutoFit
Worksheets("SYMPTESTEDCLINRTWNO").Range("AA1").Columns.AutoFit
Worksheets("SYMPTESTEDCLINRTWNO").Range("AB1").Columns.AutoFit
Worksheets("SYMPTESTEDCLINRTWNO").Range("AC1").Columns.AutoFit
Worksheets("SYMPTESTEDCLINRTWNO").Range("AD1").Columns.AutoFit
Worksheets("SYMPTESTEDCLINRTWNO").Range("AE1").Columns.AutoFit
Worksheets("SYMPTESTEDCLINRTWNO").Range("AF1").Columns.AutoFit
Worksheets("SYMPTESTEDCLINRTWNO").Range("AG1").Columns.AutoFit
Worksheets("SYMPTESTEDCLINRTWNO").Range("AH1").Columns.AutoFit
Worksheets("SYMPTESTEDCLINRTWNO").Range("AI1").Columns.AutoFit
Worksheets("SYMPTESTEDCLINRTWNO").Range("AJ1").Columns.AutoFit
Worksheets("SYMPTESTEDCLINRTWNO").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("SYMPTESTEDCLINRTWNO").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("B44") = numRows - 1
End Sub
Sub SympTestedNonClinRTWno()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("SYMPTESTEDNONCLINRTWNO")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If (rg.Cells(i, 17).Value = "Positive" Or rg.Cells(i, 17).Value = "Negative" Or rg.Cells(i, 17).Value = "Pending Result") And rg.Cells(i, 14).Value = "Non-Clinical" And rg.Cells(i, 19).Value = "Yes" And rg.Cells(i, 31).Value = "No" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("SYMPTESTEDNONCLINRTWNO").Range("A1").Columns.AutoFit
Worksheets("SYMPTESTEDNONCLINRTWNO").Range("B1").Columns.AutoFit
Worksheets("SYMPTESTEDNONCLINRTWNO").Range("C1").Columns.AutoFit
Worksheets("SYMPTESTEDNONCLINRTWNO").Range("D1").Columns.AutoFit
Worksheets("SYMPTESTEDNONCLINRTWNO").Range("E1").Columns.AutoFit
Worksheets("SYMPTESTEDNONCLINRTWNO").Range("G1").Columns.AutoFit
Worksheets("SYMPTESTEDNONCLINRTWNO").Range("H1").Columns.AutoFit
Worksheets("SYMPTESTEDNONCLINRTWNO").Range("I1").Columns.AutoFit
Worksheets("SYMPTESTEDNONCLINRTWNO").Range("J1").Columns.AutoFit
Worksheets("SYMPTESTEDNONCLINRTWNO").Range("K1").Columns.AutoFit
Worksheets("SYMPTESTEDNONCLINRTWNO").Range("L1").Columns.AutoFit
Worksheets("SYMPTESTEDNONCLINRTWNO").Range("M1").Columns.AutoFit
Worksheets("SYMPTESTEDNONCLINRTWNO").Range("N1").Columns.AutoFit
Worksheets("SYMPTESTEDNONCLINRTWNO").Range("O1").Columns.AutoFit
Worksheets("SYMPTESTEDNONCLINRTWNO").Range("P1").Columns.AutoFit
Worksheets("SYMPTESTEDNONCLINRTWNO").Range("Q1").Columns.AutoFit
Worksheets("SYMPTESTEDNONCLINRTWNO").Range("R1").Columns.AutoFit
Worksheets("SYMPTESTEDNONCLINRTWNO").Range("S1").Columns.AutoFit
Worksheets("SYMPTESTEDNONCLINRTWNO").Range("T1").Columns.AutoFit
Worksheets("SYMPTESTEDNONCLINRTWNO").Range("U1").Columns.AutoFit
Worksheets("SYMPTESTEDNONCLINRTWNO").Range("V1").Columns.AutoFit
Worksheets("SYMPTESTEDNONCLINRTWNO").Range("W1").Columns.AutoFit
Worksheets("SYMPTESTEDNONCLINRTWNO").Range("X1").Columns.AutoFit
Worksheets("SYMPTESTEDNONCLINRTWNO").Range("Y1").Columns.AutoFit
Worksheets("SYMPTESTEDNONCLINRTWNO").Range("Z1").Columns.AutoFit
Worksheets("SYMPTESTEDNONCLINRTWNO").Range("AA1").Columns.AutoFit
Worksheets("SYMPTESTEDNONCLINRTWNO").Range("AB1").Columns.AutoFit
Worksheets("SYMPTESTEDNONCLINRTWNO").Range("AC1").Columns.AutoFit
Worksheets("SYMPTESTEDNONCLINRTWNO").Range("AD1").Columns.AutoFit
Worksheets("SYMPTESTEDNONCLINRTWNO").Range("AE1").Columns.AutoFit
Worksheets("SYMPTESTEDNONCLINRTWNO").Range("AF1").Columns.AutoFit
Worksheets("SYMPTESTEDNONCLINRTWNO").Range("AG1").Columns.AutoFit
Worksheets("SYMPTESTEDNONCLINRTWNO").Range("AH1").Columns.AutoFit
Worksheets("SYMPTESTEDNONCLINRTWNO").Range("AI1").Columns.AutoFit
Worksheets("SYMPTESTEDNONCLINRTWNO").Range("AJ1").Columns.AutoFit
Worksheets("SYMPTESTEDNONCLINRTWNO").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("SYMPTESTEDNONCLINRTWNO").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("B47") = numRows - 1
End Sub
Sub SympTestedNonClinRTWyes()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("SYMPTESTEDNONCLINRTWYES")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If (rg.Cells(i, 17).Value = "Positive" Or rg.Cells(i, 17).Value = "Negative" Or rg.Cells(i, 17).Value = "Pending Result") And rg.Cells(i, 14).Value = "Non-Clinical" And rg.Cells(i, 19).Value = "Yes" And rg.Cells(i, 31).Value = "Yes" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("SYMPTESTEDNONCLINRTWYES").Range("A1").Columns.AutoFit
Worksheets("SYMPTESTEDNONCLINRTWYES").Range("B1").Columns.AutoFit
Worksheets("SYMPTESTEDNONCLINRTWYES").Range("C1").Columns.AutoFit
Worksheets("SYMPTESTEDNONCLINRTWYES").Range("D1").Columns.AutoFit
Worksheets("SYMPTESTEDNONCLINRTWYES").Range("E1").Columns.AutoFit
Worksheets("SYMPTESTEDNONCLINRTWYES").Range("G1").Columns.AutoFit
Worksheets("SYMPTESTEDNONCLINRTWYES").Range("H1").Columns.AutoFit
Worksheets("SYMPTESTEDNONCLINRTWYES").Range("I1").Columns.AutoFit
Worksheets("SYMPTESTEDNONCLINRTWYES").Range("J1").Columns.AutoFit
Worksheets("SYMPTESTEDNONCLINRTWYES").Range("K1").Columns.AutoFit
Worksheets("SYMPTESTEDNONCLINRTWYES").Range("L1").Columns.AutoFit
Worksheets("SYMPTESTEDNONCLINRTWYES").Range("M1").Columns.AutoFit
Worksheets("SYMPTESTEDNONCLINRTWYES").Range("N1").Columns.AutoFit
Worksheets("SYMPTESTEDNONCLINRTWYES").Range("O1").Columns.AutoFit
Worksheets("SYMPTESTEDNONCLINRTWYES").Range("P1").Columns.AutoFit
Worksheets("SYMPTESTEDNONCLINRTWYES").Range("Q1").Columns.AutoFit
Worksheets("SYMPTESTEDNONCLINRTWYES").Range("R1").Columns.AutoFit
Worksheets("SYMPTESTEDNONCLINRTWYES").Range("S1").Columns.AutoFit
Worksheets("SYMPTESTEDNONCLINRTWYES").Range("T1").Columns.AutoFit
Worksheets("SYMPTESTEDNONCLINRTWYES").Range("U1").Columns.AutoFit
Worksheets("SYMPTESTEDNONCLINRTWYES").Range("V1").Columns.AutoFit
Worksheets("SYMPTESTEDNONCLINRTWYES").Range("W1").Columns.AutoFit
Worksheets("SYMPTESTEDNONCLINRTWYES").Range("X1").Columns.AutoFit
Worksheets("SYMPTESTEDNONCLINRTWYES").Range("Y1").Columns.AutoFit
Worksheets("SYMPTESTEDNONCLINRTWYES").Range("Z1").Columns.AutoFit
Worksheets("SYMPTESTEDNONCLINRTWYES").Range("AA1").Columns.AutoFit
Worksheets("SYMPTESTEDNONCLINRTWYES").Range("AB1").Columns.AutoFit
Worksheets("SYMPTESTEDNONCLINRTWYES").Range("AC1").Columns.AutoFit
Worksheets("SYMPTESTEDNONCLINRTWYES").Range("AD1").Columns.AutoFit
Worksheets("SYMPTESTEDNONCLINRTWYES").Range("AE1").Columns.AutoFit
Worksheets("SYMPTESTEDNONCLINRTWYES").Range("AF1").Columns.AutoFit
Worksheets("SYMPTESTEDNONCLINRTWYES").Range("AG1").Columns.AutoFit
Worksheets("SYMPTESTEDNONCLINRTWYES").Range("AH1").Columns.AutoFit
Worksheets("SYMPTESTEDNONCLINRTWYES").Range("AI1").Columns.AutoFit
Worksheets("SYMPTESTEDNONCLINRTWYES").Range("AJ1").Columns.AutoFit
Worksheets("SYMPTESTEDNONCLINRTWYES").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("SYMPTESTEDNONCLINRTWYES").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("B46") = numRows - 1
End Sub
Sub NegTestNotFHCC()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("NEGTESTNOTFHCC")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If rg.Cells(i, 17).Value = "Negative" And rg.Cells(i, 18).Value = "Other" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("NEGTESTNOTFHCC").Range("A1").Columns.AutoFit
Worksheets("NEGTESTNOTFHCC").Range("B1").Columns.AutoFit
Worksheets("NEGTESTNOTFHCC").Range("C1").Columns.AutoFit
Worksheets("NEGTESTNOTFHCC").Range("D1").Columns.AutoFit
Worksheets("NEGTESTNOTFHCC").Range("E1").Columns.AutoFit
Worksheets("NEGTESTNOTFHCC").Range("G1").Columns.AutoFit
Worksheets("NEGTESTNOTFHCC").Range("H1").Columns.AutoFit
Worksheets("NEGTESTNOTFHCC").Range("I1").Columns.AutoFit
Worksheets("NEGTESTNOTFHCC").Range("J1").Columns.AutoFit
Worksheets("NEGTESTNOTFHCC").Range("K1").Columns.AutoFit
Worksheets("NEGTESTNOTFHCC").Range("L1").Columns.AutoFit
Worksheets("NEGTESTNOTFHCC").Range("M1").Columns.AutoFit
Worksheets("NEGTESTNOTFHCC").Range("N1").Columns.AutoFit
Worksheets("NEGTESTNOTFHCC").Range("O1").Columns.AutoFit
Worksheets("NEGTESTNOTFHCC").Range("P1").Columns.AutoFit
Worksheets("NEGTESTNOTFHCC").Range("Q1").Columns.AutoFit
Worksheets("NEGTESTNOTFHCC").Range("R1").Columns.AutoFit
Worksheets("NEGTESTNOTFHCC").Range("S1").Columns.AutoFit
Worksheets("NEGTESTNOTFHCC").Range("T1").Columns.AutoFit
Worksheets("NEGTESTNOTFHCC").Range("U1").Columns.AutoFit
Worksheets("NEGTESTNOTFHCC").Range("V1").Columns.AutoFit
Worksheets("NEGTESTNOTFHCC").Range("W1").Columns.AutoFit
Worksheets("NEGTESTNOTFHCC").Range("X1").Columns.AutoFit
Worksheets("NEGTESTNOTFHCC").Range("Y1").Columns.AutoFit
Worksheets("NEGTESTNOTFHCC").Range("Z1").Columns.AutoFit
Worksheets("NEGTESTNOTFHCC").Range("AA1").Columns.AutoFit
Worksheets("NEGTESTNOTFHCC").Range("AB1").Columns.AutoFit
Worksheets("NEGTESTNOTFHCC").Range("AC1").Columns.AutoFit
Worksheets("NEGTESTNOTFHCC").Range("AD1").Columns.AutoFit
Worksheets("NEGTESTNOTFHCC").Range("AE1").Columns.AutoFit
Worksheets("NEGTESTNOTFHCC").Range("AF1").Columns.AutoFit
Worksheets("NEGTESTNOTFHCC").Range("AG1").Columns.AutoFit
Worksheets("NEGTESTNOTFHCC").Range("AH1").Columns.AutoFit
Worksheets("NEGTESTNOTFHCC").Range("AI1").Columns.AutoFit
Worksheets("NEGTESTNOTFHCC").Range("AJ1").Columns.AutoFit
Worksheets("NEGTESTNOTFHCC").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("NEGTESTNOTFHCC").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("B41") = numRows - 1
End Sub
Sub NegTestFHCC()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("NEGTESTFHCC")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If rg.Cells(i, 17).Value = "Negative" And rg.Cells(i, 18).Value = "FHCC" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("NEGTESTFHCC").Range("A1").Columns.AutoFit
Worksheets("NEGTESTFHCC").Range("B1").Columns.AutoFit
Worksheets("NEGTESTFHCC").Range("C1").Columns.AutoFit
Worksheets("NEGTESTFHCC").Range("D1").Columns.AutoFit
Worksheets("NEGTESTFHCC").Range("E1").Columns.AutoFit
Worksheets("NEGTESTFHCC").Range("G1").Columns.AutoFit
Worksheets("NEGTESTFHCC").Range("H1").Columns.AutoFit
Worksheets("NEGTESTFHCC").Range("I1").Columns.AutoFit
Worksheets("NEGTESTFHCC").Range("J1").Columns.AutoFit
Worksheets("NEGTESTFHCC").Range("K1").Columns.AutoFit
Worksheets("NEGTESTFHCC").Range("L1").Columns.AutoFit
Worksheets("NEGTESTFHCC").Range("M1").Columns.AutoFit
Worksheets("NEGTESTFHCC").Range("N1").Columns.AutoFit
Worksheets("NEGTESTFHCC").Range("O1").Columns.AutoFit
Worksheets("NEGTESTFHCC").Range("P1").Columns.AutoFit
Worksheets("NEGTESTFHCC").Range("Q1").Columns.AutoFit
Worksheets("NEGTESTFHCC").Range("R1").Columns.AutoFit
Worksheets("NEGTESTFHCC").Range("S1").Columns.AutoFit
Worksheets("NEGTESTFHCC").Range("T1").Columns.AutoFit
Worksheets("NEGTESTFHCC").Range("U1").Columns.AutoFit
Worksheets("NEGTESTFHCC").Range("V1").Columns.AutoFit
Worksheets("NEGTESTFHCC").Range("W1").Columns.AutoFit
Worksheets("NEGTESTFHCC").Range("X1").Columns.AutoFit
Worksheets("NEGTESTFHCC").Range("Y1").Columns.AutoFit
Worksheets("NEGTESTFHCC").Range("Z1").Columns.AutoFit
Worksheets("NEGTESTFHCC").Range("AA1").Columns.AutoFit
Worksheets("NEGTESTFHCC").Range("AB1").Columns.AutoFit
Worksheets("NEGTESTFHCC").Range("AC1").Columns.AutoFit
Worksheets("NEGTESTFHCC").Range("AD1").Columns.AutoFit
Worksheets("NEGTESTFHCC").Range("AE1").Columns.AutoFit
Worksheets("NEGTESTFHCC").Range("AF1").Columns.AutoFit
Worksheets("NEGTESTFHCC").Range("AG1").Columns.AutoFit
Worksheets("NEGTESTFHCC").Range("AH1").Columns.AutoFit
Worksheets("NEGTESTFHCC").Range("AI1").Columns.AutoFit
Worksheets("NEGTESTFHCC").Range("AJ1").Columns.AutoFit
Worksheets("NEGTESTFHCC").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("NEGTESTFHCC").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("B40") = numRows - 1
End Sub
Sub ActiveNL()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("ACTIVENL")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If rg.Cells(i, 2).Value = "Active" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("ACTIVENL").Range("A1").Columns.AutoFit
Worksheets("ACTIVENL").Range("B1").Columns.AutoFit
Worksheets("ACTIVENL").Range("C1").Columns.AutoFit
Worksheets("ACTIVENL").Range("D1").Columns.AutoFit
Worksheets("ACTIVENL").Range("E1").Columns.AutoFit
Worksheets("ACTIVENL").Range("G1").Columns.AutoFit
Worksheets("ACTIVENL").Range("H1").Columns.AutoFit
Worksheets("ACTIVENL").Range("I1").Columns.AutoFit
Worksheets("ACTIVENL").Range("J1").Columns.AutoFit
Worksheets("ACTIVENL").Range("K1").Columns.AutoFit
Worksheets("ACTIVENL").Range("L1").Columns.AutoFit
Worksheets("ACTIVENL").Range("M1").Columns.AutoFit
Worksheets("ACTIVENL").Range("N1").Columns.AutoFit
Worksheets("ACTIVENL").Range("O1").Columns.AutoFit
Worksheets("ACTIVENL").Range("P1").Columns.AutoFit
Worksheets("ACTIVENL").Range("Q1").Columns.AutoFit
Worksheets("ACTIVENL").Range("R1").Columns.AutoFit
Worksheets("ACTIVENL").Range("S1").Columns.AutoFit
Worksheets("ACTIVENL").Range("T1").Columns.AutoFit
Worksheets("ACTIVENL").Range("U1").Columns.AutoFit
Worksheets("ACTIVENL").Range("V1").Columns.AutoFit
Worksheets("ACTIVENL").Range("W1").Columns.AutoFit
Worksheets("ACTIVENL").Range("X1").Columns.AutoFit
Worksheets("ACTIVENL").Range("Y1").Columns.AutoFit
Worksheets("ACTIVENL").Range("Z1").Columns.AutoFit
Worksheets("ACTIVENL").Range("AA1").Columns.AutoFit
Worksheets("ACTIVENL").Range("AB1").Columns.AutoFit
Worksheets("ACTIVENL").Range("AC1").Columns.AutoFit
Worksheets("ACTIVENL").Range("AD1").Columns.AutoFit
Worksheets("ACTIVENL").Range("AE1").Columns.AutoFit
Worksheets("ACTIVENL").Range("AF1").Columns.AutoFit
Worksheets("ACTIVENL").Range("AG1").Columns.AutoFit
Worksheets("ACTIVENL").Range("AH1").Columns.AutoFit
Worksheets("ACTIVENL").Range("AI1").Columns.AutoFit
Worksheets("ACTIVENL").Range("AJ1").Columns.AutoFit
Worksheets("ACTIVENL").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("ACTIVENL").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("E48") = numRows - 1
End Sub
Sub InactiveNL()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("INACTIVENL")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If rg.Cells(i, 2).Value = "Inactive" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("INACTIVENL").Range("A1").Columns.AutoFit
Worksheets("INACTIVENL").Range("B1").Columns.AutoFit
Worksheets("INACTIVENL").Range("C1").Columns.AutoFit
Worksheets("INACTIVENL").Range("D1").Columns.AutoFit
Worksheets("INACTIVENL").Range("E1").Columns.AutoFit
Worksheets("INACTIVENL").Range("G1").Columns.AutoFit
Worksheets("INACTIVENL").Range("H1").Columns.AutoFit
Worksheets("INACTIVENL").Range("I1").Columns.AutoFit
Worksheets("INACTIVENL").Range("J1").Columns.AutoFit
Worksheets("INACTIVENL").Range("K1").Columns.AutoFit
Worksheets("INACTIVENL").Range("L1").Columns.AutoFit
Worksheets("INACTIVENL").Range("M1").Columns.AutoFit
Worksheets("INACTIVENL").Range("N1").Columns.AutoFit
Worksheets("INACTIVENL").Range("O1").Columns.AutoFit
Worksheets("INACTIVENL").Range("P1").Columns.AutoFit
Worksheets("INACTIVENL").Range("Q1").Columns.AutoFit
Worksheets("INACTIVENL").Range("R1").Columns.AutoFit
Worksheets("INACTIVENL").Range("S1").Columns.AutoFit
Worksheets("INACTIVENL").Range("T1").Columns.AutoFit
Worksheets("INACTIVENL").Range("U1").Columns.AutoFit
Worksheets("INACTIVENL").Range("V1").Columns.AutoFit
Worksheets("INACTIVENL").Range("W1").Columns.AutoFit
Worksheets("INACTIVENL").Range("X1").Columns.AutoFit
Worksheets("INACTIVENL").Range("Y1").Columns.AutoFit
Worksheets("INACTIVENL").Range("Z1").Columns.AutoFit
Worksheets("INACTIVENL").Range("AA1").Columns.AutoFit
Worksheets("INACTIVENL").Range("AB1").Columns.AutoFit
Worksheets("INACTIVENL").Range("AC1").Columns.AutoFit
Worksheets("INACTIVENL").Range("AD1").Columns.AutoFit
Worksheets("INACTIVENL").Range("AE1").Columns.AutoFit
Worksheets("INACTIVENL").Range("AF1").Columns.AutoFit
Worksheets("INACTIVENL").Range("AG1").Columns.AutoFit
Worksheets("INACTIVENL").Range("AH1").Columns.AutoFit
Worksheets("INACTIVENL").Range("AI1").Columns.AutoFit
Worksheets("INACTIVENL").Range("AJ1").Columns.AutoFit
Worksheets("INACTIVENL").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("INACTIVENL").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("E49") = numRows - 1
End Sub
Sub BlankCovPosClinRTW()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("BLANKCOVPOSCLINRTW")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
'a = Worksheets("query").Cells(Rows.Count, 1).End(xlUp).row
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If IsEmpty(rg.Cells(i, 31).Value) = True And rg.Cells(i, 14).Value = "Clinical" And rg.Cells(i, 17).Value = "Positive" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("BLANKCOVPOSCLINRTW").Range("A1").Columns.AutoFit
Worksheets("BLANKCOVPOSCLINRTW").Range("B1").Columns.AutoFit
Worksheets("BLANKCOVPOSCLINRTW").Range("C1").Columns.AutoFit
Worksheets("BLANKCOVPOSCLINRTW").Range("D1").Columns.AutoFit
Worksheets("BLANKCOVPOSCLINRTW").Range("E1").Columns.AutoFit
Worksheets("BLANKCOVPOSCLINRTW").Range("G1").Columns.AutoFit
Worksheets("BLANKCOVPOSCLINRTW").Range("H1").Columns.AutoFit
Worksheets("BLANKCOVPOSCLINRTW").Range("I1").Columns.AutoFit
Worksheets("BLANKCOVPOSCLINRTW").Range("J1").Columns.AutoFit
Worksheets("BLANKCOVPOSCLINRTW").Range("K1").Columns.AutoFit
Worksheets("BLANKCOVPOSCLINRTW").Range("L1").Columns.AutoFit
Worksheets("BLANKCOVPOSCLINRTW").Range("M1").Columns.AutoFit
Worksheets("BLANKCOVPOSCLINRTW").Range("N1").Columns.AutoFit
Worksheets("BLANKCOVPOSCLINRTW").Range("O1").Columns.AutoFit
Worksheets("BLANKCOVPOSCLINRTW").Range("P1").Columns.AutoFit
Worksheets("BLANKCOVPOSCLINRTW").Range("Q1").Columns.AutoFit
Worksheets("BLANKCOVPOSCLINRTW").Range("R1").Columns.AutoFit
Worksheets("BLANKCOVPOSCLINRTW").Range("S1").Columns.AutoFit
Worksheets("BLANKCOVPOSCLINRTW").Range("T1").Columns.AutoFit
Worksheets("BLANKCOVPOSCLINRTW").Range("U1").Columns.AutoFit
Worksheets("BLANKCOVPOSCLINRTW").Range("V1").Columns.AutoFit
Worksheets("BLANKCOVPOSCLINRTW").Range("W1").Columns.AutoFit
Worksheets("BLANKCOVPOSCLINRTW").Range("X1").Columns.AutoFit
Worksheets("BLANKCOVPOSCLINRTW").Range("Y1").Columns.AutoFit
Worksheets("BLANKCOVPOSCLINRTW").Range("Z1").Columns.AutoFit
Worksheets("BLANKCOVPOSCLINRTW").Range("AA1").Columns.AutoFit
Worksheets("BLANKCOVPOSCLINRTW").Range("AB1").Columns.AutoFit
Worksheets("BLANKCOVPOSCLINRTW").Range("AC1").Columns.AutoFit
Worksheets("BLANKCOVPOSCLINRTW").Range("AD1").Columns.AutoFit
Worksheets("BLANKCOVPOSCLINRTW").Range("AE1").Columns.AutoFit
Worksheets("BLANKCOVPOSCLINRTW").Range("AF1").Columns.AutoFit
Worksheets("BLANKCOVPOSCLINRTW").Range("AG1").Columns.AutoFit
Worksheets("BLANKCOVPOSCLINRTW").Range("AH1").Columns.AutoFit
Worksheets("BLANKCOVPOSCLINRTW").Range("AI1").Columns.AutoFit
Worksheets("BLANKCOVPOSCLINRTW").Range("AJ1").Columns.AutoFit
Worksheets("BLANKCOVPOSCLINRTW").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("BLANKCOVPOSCLINRTW").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("B49") = numRows - 1
End Sub
Sub BlankCovPosNonClinRTW()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("BLANKCOVPOSNONCLINRTW")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
'a = Worksheets("query").Cells(Rows.Count, 1).End(xlUp).row
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If IsEmpty(rg.Cells(i, 31).Value) = True And rg.Cells(i, 14).Value = "Non-Clinical" And rg.Cells(i, 17).Value = "Positive" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("BLANKCOVPOSNONCLINRTW").Range("A1").Columns.AutoFit
Worksheets("BLANKCOVPOSNONCLINRTW").Range("B1").Columns.AutoFit
Worksheets("BLANKCOVPOSNONCLINRTW").Range("C1").Columns.AutoFit
Worksheets("BLANKCOVPOSNONCLINRTW").Range("D1").Columns.AutoFit
Worksheets("BLANKCOVPOSNONCLINRTW").Range("E1").Columns.AutoFit
Worksheets("BLANKCOVPOSNONCLINRTW").Range("G1").Columns.AutoFit
Worksheets("BLANKCOVPOSNONCLINRTW").Range("H1").Columns.AutoFit
Worksheets("BLANKCOVPOSNONCLINRTW").Range("I1").Columns.AutoFit
Worksheets("BLANKCOVPOSNONCLINRTW").Range("J1").Columns.AutoFit
Worksheets("BLANKCOVPOSNONCLINRTW").Range("K1").Columns.AutoFit
Worksheets("BLANKCOVPOSNONCLINRTW").Range("L1").Columns.AutoFit
Worksheets("BLANKCOVPOSNONCLINRTW").Range("M1").Columns.AutoFit
Worksheets("BLANKCOVPOSNONCLINRTW").Range("N1").Columns.AutoFit
Worksheets("BLANKCOVPOSNONCLINRTW").Range("O1").Columns.AutoFit
Worksheets("BLANKCOVPOSNONCLINRTW").Range("P1").Columns.AutoFit
Worksheets("BLANKCOVPOSNONCLINRTW").Range("Q1").Columns.AutoFit
Worksheets("BLANKCOVPOSNONCLINRTW").Range("R1").Columns.AutoFit
Worksheets("BLANKCOVPOSNONCLINRTW").Range("S1").Columns.AutoFit
Worksheets("BLANKCOVPOSNONCLINRTW").Range("T1").Columns.AutoFit
Worksheets("BLANKCOVPOSNONCLINRTW").Range("U1").Columns.AutoFit
Worksheets("BLANKCOVPOSNONCLINRTW").Range("V1").Columns.AutoFit
Worksheets("BLANKCOVPOSNONCLINRTW").Range("W1").Columns.AutoFit
Worksheets("BLANKCOVPOSNONCLINRTW").Range("X1").Columns.AutoFit
Worksheets("BLANKCOVPOSNONCLINRTW").Range("Y1").Columns.AutoFit
Worksheets("BLANKCOVPOSNONCLINRTW").Range("Z1").Columns.AutoFit
Worksheets("BLANKCOVPOSNONCLINRTW").Range("AA1").Columns.AutoFit
Worksheets("BLANKCOVPOSNONCLINRTW").Range("AB1").Columns.AutoFit
Worksheets("BLANKCOVPOSNONCLINRTW").Range("AC1").Columns.AutoFit
Worksheets("BLANKCOVPOSNONCLINRTW").Range("AD1").Columns.AutoFit
Worksheets("BLANKCOVPOSNONCLINRTW").Range("AE1").Columns.AutoFit
Worksheets("BLANKCOVPOSNONCLINRTW").Range("AF1").Columns.AutoFit
Worksheets("BLANKCOVPOSNONCLINRTW").Range("AG1").Columns.AutoFit
Worksheets("BLANKCOVPOSNONCLINRTW").Range("AH1").Columns.AutoFit
Worksheets("BLANKCOVPOSNONCLINRTW").Range("AI1").Columns.AutoFit
Worksheets("BLANKCOVPOSNONCLINRTW").Range("AJ1").Columns.AutoFit
Worksheets("BLANKCOVPOSNONCLINRTW").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("BLANKCOVPOSNONCLINRTW").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("B50") = numRows - 1
End Sub
Sub BlankCovNegNonClinRTW()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("BLANKCOVNEGNONCLINRTW")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
'a = Worksheets("query").Cells(Rows.Count, 1).End(xlUp).row
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If IsEmpty(rg.Cells(i, 31).Value) = True And rg.Cells(i, 14).Value = "Non-Clinical" And rg.Cells(i, 17).Value = "Negative" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("BLANKCOVNEGNONCLINRTW").Range("A1").Columns.AutoFit
Worksheets("BLANKCOVNEGNONCLINRTW").Range("B1").Columns.AutoFit
Worksheets("BLANKCOVNEGNONCLINRTW").Range("C1").Columns.AutoFit
Worksheets("BLANKCOVNEGNONCLINRTW").Range("D1").Columns.AutoFit
Worksheets("BLANKCOVNEGNONCLINRTW").Range("E1").Columns.AutoFit
Worksheets("BLANKCOVNEGNONCLINRTW").Range("G1").Columns.AutoFit
Worksheets("BLANKCOVNEGNONCLINRTW").Range("H1").Columns.AutoFit
Worksheets("BLANKCOVNEGNONCLINRTW").Range("I1").Columns.AutoFit
Worksheets("BLANKCOVNEGNONCLINRTW").Range("J1").Columns.AutoFit
Worksheets("BLANKCOVNEGNONCLINRTW").Range("K1").Columns.AutoFit
Worksheets("BLANKCOVNEGNONCLINRTW").Range("L1").Columns.AutoFit
Worksheets("BLANKCOVNEGNONCLINRTW").Range("M1").Columns.AutoFit
Worksheets("BLANKCOVNEGNONCLINRTW").Range("N1").Columns.AutoFit
Worksheets("BLANKCOVNEGNONCLINRTW").Range("O1").Columns.AutoFit
Worksheets("BLANKCOVNEGNONCLINRTW").Range("P1").Columns.AutoFit
Worksheets("BLANKCOVNEGNONCLINRTW").Range("Q1").Columns.AutoFit
Worksheets("BLANKCOVNEGNONCLINRTW").Range("R1").Columns.AutoFit
Worksheets("BLANKCOVNEGNONCLINRTW").Range("S1").Columns.AutoFit
Worksheets("BLANKCOVNEGNONCLINRTW").Range("T1").Columns.AutoFit
Worksheets("BLANKCOVNEGNONCLINRTW").Range("U1").Columns.AutoFit
Worksheets("BLANKCOVNEGNONCLINRTW").Range("V1").Columns.AutoFit
Worksheets("BLANKCOVNEGNONCLINRTW").Range("W1").Columns.AutoFit
Worksheets("BLANKCOVNEGNONCLINRTW").Range("X1").Columns.AutoFit
Worksheets("BLANKCOVNEGNONCLINRTW").Range("Y1").Columns.AutoFit
Worksheets("BLANKCOVNEGNONCLINRTW").Range("Z1").Columns.AutoFit
Worksheets("BLANKCOVNEGNONCLINRTW").Range("AA1").Columns.AutoFit
Worksheets("BLANKCOVNEGNONCLINRTW").Range("AB1").Columns.AutoFit
Worksheets("BLANKCOVNEGNONCLINRTW").Range("AC1").Columns.AutoFit
Worksheets("BLANKCOVNEGNONCLINRTW").Range("AD1").Columns.AutoFit
Worksheets("BLANKCOVNEGNONCLINRTW").Range("AE1").Columns.AutoFit
Worksheets("BLANKCOVNEGNONCLINRTW").Range("AF1").Columns.AutoFit
Worksheets("BLANKCOVNEGNONCLINRTW").Range("AG1").Columns.AutoFit
Worksheets("BLANKCOVNEGNONCLINRTW").Range("AH1").Columns.AutoFit
Worksheets("BLANKCOVNEGNONCLINRTW").Range("AI1").Columns.AutoFit
Worksheets("BLANKCOVNEGNONCLINRTW").Range("AJ1").Columns.AutoFit
Worksheets("BLANKCOVNEGNONCLINRTW").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("BLANKCOVNEGNONCLINRTW").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("B53") = numRows - 1
End Sub
Sub BlankCovNegClinRTW()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("BLANKCOVNEGCLINRTW")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
'a = Worksheets("query").Cells(Rows.Count, 1).End(xlUp).row
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If IsEmpty(rg.Cells(i, 31).Value) = True And rg.Cells(i, 14).Value = "Clinical" And rg.Cells(i, 17).Value = "Negative" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("BLANKCOVNEGCLINRTW").Range("A1").Columns.AutoFit
Worksheets("BLANKCOVNEGCLINRTW").Range("B1").Columns.AutoFit
Worksheets("BLANKCOVNEGCLINRTW").Range("C1").Columns.AutoFit
Worksheets("BLANKCOVNEGCLINRTW").Range("D1").Columns.AutoFit
Worksheets("BLANKCOVNEGCLINRTW").Range("E1").Columns.AutoFit
Worksheets("BLANKCOVNEGCLINRTW").Range("G1").Columns.AutoFit
Worksheets("BLANKCOVNEGCLINRTW").Range("H1").Columns.AutoFit
Worksheets("BLANKCOVNEGCLINRTW").Range("I1").Columns.AutoFit
Worksheets("BLANKCOVNEGCLINRTW").Range("J1").Columns.AutoFit
Worksheets("BLANKCOVNEGCLINRTW").Range("K1").Columns.AutoFit
Worksheets("BLANKCOVNEGCLINRTW").Range("L1").Columns.AutoFit
Worksheets("BLANKCOVNEGCLINRTW").Range("M1").Columns.AutoFit
Worksheets("BLANKCOVNEGCLINRTW").Range("N1").Columns.AutoFit
Worksheets("BLANKCOVNEGCLINRTW").Range("O1").Columns.AutoFit
Worksheets("BLANKCOVNEGCLINRTW").Range("P1").Columns.AutoFit
Worksheets("BLANKCOVNEGCLINRTW").Range("Q1").Columns.AutoFit
Worksheets("BLANKCOVNEGCLINRTW").Range("R1").Columns.AutoFit
Worksheets("BLANKCOVNEGCLINRTW").Range("S1").Columns.AutoFit
Worksheets("BLANKCOVNEGCLINRTW").Range("T1").Columns.AutoFit
Worksheets("BLANKCOVNEGCLINRTW").Range("U1").Columns.AutoFit
Worksheets("BLANKCOVNEGCLINRTW").Range("V1").Columns.AutoFit
Worksheets("BLANKCOVNEGCLINRTW").Range("W1").Columns.AutoFit
Worksheets("BLANKCOVNEGCLINRTW").Range("X1").Columns.AutoFit
Worksheets("BLANKCOVNEGCLINRTW").Range("Y1").Columns.AutoFit
Worksheets("BLANKCOVNEGCLINRTW").Range("Z1").Columns.AutoFit
Worksheets("BLANKCOVNEGCLINRTW").Range("AA1").Columns.AutoFit
Worksheets("BLANKCOVNEGCLINRTW").Range("AB1").Columns.AutoFit
Worksheets("BLANKCOVNEGCLINRTW").Range("AC1").Columns.AutoFit
Worksheets("BLANKCOVNEGCLINRTW").Range("AD1").Columns.AutoFit
Worksheets("BLANKCOVNEGCLINRTW").Range("AE1").Columns.AutoFit
Worksheets("BLANKCOVNEGCLINRTW").Range("AF1").Columns.AutoFit
Worksheets("BLANKCOVNEGCLINRTW").Range("AG1").Columns.AutoFit
Worksheets("BLANKCOVNEGCLINRTW").Range("AH1").Columns.AutoFit
Worksheets("BLANKCOVNEGCLINRTW").Range("AI1").Columns.AutoFit
Worksheets("BLANKCOVNEGCLINRTW").Range("AJ1").Columns.AutoFit
Worksheets("BLANKCOVNEGCLINRTW").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("BLANKCOVNEGCLINRTW").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("B52") = numRows - 1
End Sub
Sub BlankRTWPendingResultClin()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("BLANKRTWPENDINGRESULTCLIN")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
'a = Worksheets("query").Cells(Rows.Count, 1).End(xlUp).row
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If IsEmpty(rg.Cells(i, 31).Value) = True And rg.Cells(i, 14).Value = "Clinical" And rg.Cells(i, 17).Value = "Pending Result" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("BLANKRTWPENDINGRESULTCLIN").Range("A1").Columns.AutoFit
Worksheets("BLANKRTWPENDINGRESULTCLIN").Range("B1").Columns.AutoFit
Worksheets("BLANKRTWPENDINGRESULTCLIN").Range("C1").Columns.AutoFit
Worksheets("BLANKRTWPENDINGRESULTCLIN").Range("D1").Columns.AutoFit
Worksheets("BLANKRTWPENDINGRESULTCLIN").Range("E1").Columns.AutoFit
Worksheets("BLANKRTWPENDINGRESULTCLIN").Range("G1").Columns.AutoFit
Worksheets("BLANKRTWPENDINGRESULTCLIN").Range("H1").Columns.AutoFit
Worksheets("BLANKRTWPENDINGRESULTCLIN").Range("I1").Columns.AutoFit
Worksheets("BLANKRTWPENDINGRESULTCLIN").Range("J1").Columns.AutoFit
Worksheets("BLANKRTWPENDINGRESULTCLIN").Range("K1").Columns.AutoFit
Worksheets("BLANKRTWPENDINGRESULTCLIN").Range("L1").Columns.AutoFit
Worksheets("BLANKRTWPENDINGRESULTCLIN").Range("M1").Columns.AutoFit
Worksheets("BLANKRTWPENDINGRESULTCLIN").Range("N1").Columns.AutoFit
Worksheets("BLANKRTWPENDINGRESULTCLIN").Range("O1").Columns.AutoFit
Worksheets("BLANKRTWPENDINGRESULTCLIN").Range("P1").Columns.AutoFit
Worksheets("BLANKRTWPENDINGRESULTCLIN").Range("Q1").Columns.AutoFit
Worksheets("BLANKRTWPENDINGRESULTCLIN").Range("R1").Columns.AutoFit
Worksheets("BLANKRTWPENDINGRESULTCLIN").Range("S1").Columns.AutoFit
Worksheets("BLANKRTWPENDINGRESULTCLIN").Range("T1").Columns.AutoFit
Worksheets("BLANKRTWPENDINGRESULTCLIN").Range("U1").Columns.AutoFit
Worksheets("BLANKRTWPENDINGRESULTCLIN").Range("V1").Columns.AutoFit
Worksheets("BLANKRTWPENDINGRESULTCLIN").Range("W1").Columns.AutoFit
Worksheets("BLANKRTWPENDINGRESULTCLIN").Range("X1").Columns.AutoFit
Worksheets("BLANKRTWPENDINGRESULTCLIN").Range("Y1").Columns.AutoFit
Worksheets("BLANKRTWPENDINGRESULTCLIN").Range("Z1").Columns.AutoFit
Worksheets("BLANKRTWPENDINGRESULTCLIN").Range("AA1").Columns.AutoFit
Worksheets("BLANKRTWPENDINGRESULTCLIN").Range("AB1").Columns.AutoFit
Worksheets("BLANKRTWPENDINGRESULTCLIN").Range("AC1").Columns.AutoFit
Worksheets("BLANKRTWPENDINGRESULTCLIN").Range("AD1").Columns.AutoFit
Worksheets("BLANKRTWPENDINGRESULTCLIN").Range("AE1").Columns.AutoFit
Worksheets("BLANKRTWPENDINGRESULTCLIN").Range("AF1").Columns.AutoFit
Worksheets("BLANKRTWPENDINGRESULTCLIN").Range("AG1").Columns.AutoFit
Worksheets("BLANKRTWPENDINGRESULTCLIN").Range("AH1").Columns.AutoFit
Worksheets("BLANKRTWPENDINGRESULTCLIN").Range("AI1").Columns.AutoFit
Worksheets("BLANKRTWPENDINGRESULTCLIN").Range("AJ1").Columns.AutoFit
Worksheets("BLANKRTWPENDINGRESULTCLIN").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("BLANKRTWPENDINGRESULTCLIN").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("B55") = numRows - 1
End Sub
Sub BlankRTWPendingResultNonClin()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("BLANKRTWPENDINGRESULTNONCLIN")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
'a = Worksheets("query").Cells(Rows.Count, 1).End(xlUp).row
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If IsEmpty(rg.Cells(i, 31).Value) = True And rg.Cells(i, 14).Value = "Non-Clinical" And rg.Cells(i, 17).Value = "Pending Result" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("BLANKRTWPENDINGRESULTNONCLIN").Range("A1").Columns.AutoFit
Worksheets("BLANKRTWPENDINGRESULTNONCLIN").Range("B1").Columns.AutoFit
Worksheets("BLANKRTWPENDINGRESULTNONCLIN").Range("C1").Columns.AutoFit
Worksheets("BLANKRTWPENDINGRESULTNONCLIN").Range("D1").Columns.AutoFit
Worksheets("BLANKRTWPENDINGRESULTNONCLIN").Range("E1").Columns.AutoFit
Worksheets("BLANKRTWPENDINGRESULTNONCLIN").Range("G1").Columns.AutoFit
Worksheets("BLANKRTWPENDINGRESULTNONCLIN").Range("H1").Columns.AutoFit
Worksheets("BLANKRTWPENDINGRESULTNONCLIN").Range("I1").Columns.AutoFit
Worksheets("BLANKRTWPENDINGRESULTNONCLIN").Range("J1").Columns.AutoFit
Worksheets("BLANKRTWPENDINGRESULTNONCLIN").Range("K1").Columns.AutoFit
Worksheets("BLANKRTWPENDINGRESULTNONCLIN").Range("L1").Columns.AutoFit
Worksheets("BLANKRTWPENDINGRESULTNONCLIN").Range("M1").Columns.AutoFit
Worksheets("BLANKRTWPENDINGRESULTNONCLIN").Range("N1").Columns.AutoFit
Worksheets("BLANKRTWPENDINGRESULTNONCLIN").Range("O1").Columns.AutoFit
Worksheets("BLANKRTWPENDINGRESULTNONCLIN").Range("P1").Columns.AutoFit
Worksheets("BLANKRTWPENDINGRESULTNONCLIN").Range("Q1").Columns.AutoFit
Worksheets("BLANKRTWPENDINGRESULTNONCLIN").Range("R1").Columns.AutoFit
Worksheets("BLANKRTWPENDINGRESULTNONCLIN").Range("S1").Columns.AutoFit
Worksheets("BLANKRTWPENDINGRESULTNONCLIN").Range("T1").Columns.AutoFit
Worksheets("BLANKRTWPENDINGRESULTNONCLIN").Range("U1").Columns.AutoFit
Worksheets("BLANKRTWPENDINGRESULTNONCLIN").Range("V1").Columns.AutoFit
Worksheets("BLANKRTWPENDINGRESULTNONCLIN").Range("W1").Columns.AutoFit
Worksheets("BLANKRTWPENDINGRESULTNONCLIN").Range("X1").Columns.AutoFit
Worksheets("BLANKRTWPENDINGRESULTNONCLIN").Range("Y1").Columns.AutoFit
Worksheets("BLANKRTWPENDINGRESULTNONCLIN").Range("Z1").Columns.AutoFit
Worksheets("BLANKRTWPENDINGRESULTNONCLIN").Range("AA1").Columns.AutoFit
Worksheets("BLANKRTWPENDINGRESULTNONCLIN").Range("AB1").Columns.AutoFit
Worksheets("BLANKRTWPENDINGRESULTNONCLIN").Range("AC1").Columns.AutoFit
Worksheets("BLANKRTWPENDINGRESULTNONCLIN").Range("AD1").Columns.AutoFit
Worksheets("BLANKRTWPENDINGRESULTNONCLIN").Range("AE1").Columns.AutoFit
Worksheets("BLANKRTWPENDINGRESULTNONCLIN").Range("AF1").Columns.AutoFit
Worksheets("BLANKRTWPENDINGRESULTNONCLIN").Range("AG1").Columns.AutoFit
Worksheets("BLANKRTWPENDINGRESULTNONCLIN").Range("AH1").Columns.AutoFit
Worksheets("BLANKRTWPENDINGRESULTNONCLIN").Range("AI1").Columns.AutoFit
Worksheets("BLANKRTWPENDINGRESULTNONCLIN").Range("AJ1").Columns.AutoFit
Worksheets("BLANKRTWPENDINGRESULTNONCLIN").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("BLANKRTWPENDINGRESULTNONCLIN").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("B56") = numRows - 1
End Sub
Sub BlankRTWnotTestedSxClin()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("BLANKRTWNOTTESTEDSXCLIN")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If IsEmpty(rg.Cells(i, 31).Value) = True And rg.Cells(i, 14).Value = "Clinical" And rg.Cells(i, 17).Value = "Not Tested" And rg.Cells(i, 19).Value = "Yes" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("BLANKRTWNOTTESTEDSXCLIN").Range("A1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSXCLIN").Range("B1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSXCLIN").Range("C1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSXCLIN").Range("D1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSXCLIN").Range("E1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSXCLIN").Range("G1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSXCLIN").Range("H1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSXCLIN").Range("I1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSXCLIN").Range("J1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSXCLIN").Range("K1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSXCLIN").Range("L1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSXCLIN").Range("M1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSXCLIN").Range("N1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSXCLIN").Range("O1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSXCLIN").Range("P1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSXCLIN").Range("Q1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSXCLIN").Range("R1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSXCLIN").Range("S1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSXCLIN").Range("T1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSXCLIN").Range("U1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSXCLIN").Range("V1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSXCLIN").Range("W1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSXCLIN").Range("X1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSXCLIN").Range("Y1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSXCLIN").Range("Z1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSXCLIN").Range("AA1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSXCLIN").Range("AB1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSXCLIN").Range("AC1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSXCLIN").Range("AD1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSXCLIN").Range("AE1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSXCLIN").Range("AF1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSXCLIN").Range("AG1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSXCLIN").Range("AH1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSXCLIN").Range("AI1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSXCLIN").Range("AJ1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSXCLIN").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("BLANKRTWNOTTESTEDSXCLIN").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("B58") = numRows - 1
End Sub
Sub BlankRTWnotTestedSxNonClin()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("BLANKRTWNOTTESTEDSXNONCLIN")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If IsEmpty(rg.Cells(i, 31).Value) = True And rg.Cells(i, 14).Value = "Non-Clinical" And rg.Cells(i, 17).Value = "Not Tested" And rg.Cells(i, 19).Value = "Yes" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("BLANKRTWNOTTESTEDSXNONCLIN").Range("A1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSXNONCLIN").Range("B1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSXNONCLIN").Range("C1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSXNONCLIN").Range("D1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSXNONCLIN").Range("E1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSXNONCLIN").Range("G1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSXNONCLIN").Range("H1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSXNONCLIN").Range("I1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSXNONCLIN").Range("J1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSXNONCLIN").Range("K1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSXNONCLIN").Range("L1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSXNONCLIN").Range("M1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSXNONCLIN").Range("N1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSXNONCLIN").Range("O1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSXNONCLIN").Range("P1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSXNONCLIN").Range("Q1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSXNONCLIN").Range("R1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSXNONCLIN").Range("S1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSXNONCLIN").Range("T1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSXNONCLIN").Range("U1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSXNONCLIN").Range("V1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSXNONCLIN").Range("W1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSXNONCLIN").Range("X1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSXNONCLIN").Range("Y1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSXNONCLIN").Range("Z1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSXNONCLIN").Range("AA1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSXNONCLIN").Range("AB1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSXNONCLIN").Range("AC1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSXNONCLIN").Range("AD1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSXNONCLIN").Range("AE1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSXNONCLIN").Range("AF1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSXNONCLIN").Range("AG1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSXNONCLIN").Range("AH1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSXNONCLIN").Range("AI1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSXNONCLIN").Range("AJ1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSXNONCLIN").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("BLANKRTWNOTTESTEDSXNONCLIN").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("B59") = numRows - 1
End Sub
Sub BlankRTWtestedSymp()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("BLANKRTWTESTEDSYMP")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If IsEmpty(rg.Cells(i, 31).Value) = True And (rg.Cells(i, 17).Value = "Positive" Or rg.Cells(i, 17).Value = "Negative" Or rg.Cells(i, 17).Value = "Pending Result") And rg.Cells(i, 19).Value = "Yes" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("BLANKRTWTESTEDSYMP").Range("A1").Columns.AutoFit
Worksheets("BLANKRTWTESTEDSYMP").Range("B1").Columns.AutoFit
Worksheets("BLANKRTWTESTEDSYMP").Range("C1").Columns.AutoFit
Worksheets("BLANKRTWTESTEDSYMP").Range("D1").Columns.AutoFit
Worksheets("BLANKRTWTESTEDSYMP").Range("E1").Columns.AutoFit
Worksheets("BLANKRTWTESTEDSYMP").Range("G1").Columns.AutoFit
Worksheets("BLANKRTWTESTEDSYMP").Range("H1").Columns.AutoFit
Worksheets("BLANKRTWTESTEDSYMP").Range("I1").Columns.AutoFit
Worksheets("BLANKRTWTESTEDSYMP").Range("J1").Columns.AutoFit
Worksheets("BLANKRTWTESTEDSYMP").Range("K1").Columns.AutoFit
Worksheets("BLANKRTWTESTEDSYMP").Range("L1").Columns.AutoFit
Worksheets("BLANKRTWTESTEDSYMP").Range("M1").Columns.AutoFit
Worksheets("BLANKRTWTESTEDSYMP").Range("N1").Columns.AutoFit
Worksheets("BLANKRTWTESTEDSYMP").Range("O1").Columns.AutoFit
Worksheets("BLANKRTWTESTEDSYMP").Range("P1").Columns.AutoFit
Worksheets("BLANKRTWTESTEDSYMP").Range("Q1").Columns.AutoFit
Worksheets("BLANKRTWTESTEDSYMP").Range("R1").Columns.AutoFit
Worksheets("BLANKRTWTESTEDSYMP").Range("S1").Columns.AutoFit
Worksheets("BLANKRTWTESTEDSYMP").Range("T1").Columns.AutoFit
Worksheets("BLANKRTWTESTEDSYMP").Range("U1").Columns.AutoFit
Worksheets("BLANKRTWTESTEDSYMP").Range("V1").Columns.AutoFit
Worksheets("BLANKRTWTESTEDSYMP").Range("W1").Columns.AutoFit
Worksheets("BLANKRTWTESTEDSYMP").Range("X1").Columns.AutoFit
Worksheets("BLANKRTWTESTEDSYMP").Range("Y1").Columns.AutoFit
Worksheets("BLANKRTWTESTEDSYMP").Range("Z1").Columns.AutoFit
Worksheets("BLANKRTWTESTEDSYMP").Range("AA1").Columns.AutoFit
Worksheets("BLANKRTWTESTEDSYMP").Range("AB1").Columns.AutoFit
Worksheets("BLANKRTWTESTEDSYMP").Range("AC1").Columns.AutoFit
Worksheets("BLANKRTWTESTEDSYMP").Range("AD1").Columns.AutoFit
Worksheets("BLANKRTWTESTEDSYMP").Range("AE1").Columns.AutoFit
Worksheets("BLANKRTWTESTEDSYMP").Range("AF1").Columns.AutoFit
Worksheets("BLANKRTWTESTEDSYMP").Range("AG1").Columns.AutoFit
Worksheets("BLANKRTWTESTEDSYMP").Range("AH1").Columns.AutoFit
Worksheets("BLANKRTWTESTEDSYMP").Range("AI1").Columns.AutoFit
Worksheets("BLANKRTWTESTEDSYMP").Range("AJ1").Columns.AutoFit
Worksheets("BLANKRTWTESTEDSYMP").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("BLANKRTWTESTEDSYMP").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("B61") = numRows - 1
End Sub
Sub BlankRTWnotTestedSymp()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("BLANKRTWNOTTESTEDSYMP")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If IsEmpty(rg.Cells(i, 31).Value) = True And rg.Cells(i, 17).Value = "Not Tested" And rg.Cells(i, 19).Value = "Yes" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("BLANKRTWNOTTESTEDSYMP").Range("A1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSYMP").Range("B1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSYMP").Range("C1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSYMP").Range("D1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSYMP").Range("E1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSYMP").Range("G1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSYMP").Range("H1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSYMP").Range("I1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSYMP").Range("J1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSYMP").Range("K1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSYMP").Range("L1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSYMP").Range("M1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSYMP").Range("N1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSYMP").Range("O1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSYMP").Range("P1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSYMP").Range("Q1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSYMP").Range("R1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSYMP").Range("S1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSYMP").Range("T1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSYMP").Range("U1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSYMP").Range("V1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSYMP").Range("W1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSYMP").Range("X1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSYMP").Range("Y1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSYMP").Range("Z1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSYMP").Range("AA1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSYMP").Range("AB1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSYMP").Range("AC1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSYMP").Range("AD1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSYMP").Range("AE1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSYMP").Range("AF1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSYMP").Range("AG1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSYMP").Range("AH1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSYMP").Range("AI1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSYMP").Range("AJ1").Columns.AutoFit
Worksheets("BLANKRTWNOTTESTEDSYMP").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("BLANKRTWNOTTESTEDSYMP").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("B62") = numRows - 1
End Sub
Sub CovPosBlankLoc()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("COVPOSBLANKLOC")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If IsEmpty(rg.Cells(i, 18).Value) = True And rg.Cells(i, 17).Value = "Positive" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("COVPOSBLANKLOC").Range("A1").Columns.AutoFit
Worksheets("COVPOSBLANKLOC").Range("B1").Columns.AutoFit
Worksheets("COVPOSBLANKLOC").Range("C1").Columns.AutoFit
Worksheets("COVPOSBLANKLOC").Range("D1").Columns.AutoFit
Worksheets("COVPOSBLANKLOC").Range("E1").Columns.AutoFit
Worksheets("COVPOSBLANKLOC").Range("G1").Columns.AutoFit
Worksheets("COVPOSBLANKLOC").Range("H1").Columns.AutoFit
Worksheets("COVPOSBLANKLOC").Range("I1").Columns.AutoFit
Worksheets("COVPOSBLANKLOC").Range("J1").Columns.AutoFit
Worksheets("COVPOSBLANKLOC").Range("K1").Columns.AutoFit
Worksheets("COVPOSBLANKLOC").Range("L1").Columns.AutoFit
Worksheets("COVPOSBLANKLOC").Range("M1").Columns.AutoFit
Worksheets("COVPOSBLANKLOC").Range("N1").Columns.AutoFit
Worksheets("COVPOSBLANKLOC").Range("O1").Columns.AutoFit
Worksheets("COVPOSBLANKLOC").Range("P1").Columns.AutoFit
Worksheets("COVPOSBLANKLOC").Range("Q1").Columns.AutoFit
Worksheets("COVPOSBLANKLOC").Range("R1").Columns.AutoFit
Worksheets("COVPOSBLANKLOC").Range("S1").Columns.AutoFit
Worksheets("COVPOSBLANKLOC").Range("T1").Columns.AutoFit
Worksheets("COVPOSBLANKLOC").Range("U1").Columns.AutoFit
Worksheets("COVPOSBLANKLOC").Range("V1").Columns.AutoFit
Worksheets("COVPOSBLANKLOC").Range("W1").Columns.AutoFit
Worksheets("COVPOSBLANKLOC").Range("X1").Columns.AutoFit
Worksheets("COVPOSBLANKLOC").Range("Y1").Columns.AutoFit
Worksheets("COVPOSBLANKLOC").Range("Z1").Columns.AutoFit
Worksheets("COVPOSBLANKLOC").Range("AA1").Columns.AutoFit
Worksheets("COVPOSBLANKLOC").Range("AB1").Columns.AutoFit
Worksheets("COVPOSBLANKLOC").Range("AC1").Columns.AutoFit
Worksheets("COVPOSBLANKLOC").Range("AD1").Columns.AutoFit
Worksheets("COVPOSBLANKLOC").Range("AE1").Columns.AutoFit
Worksheets("COVPOSBLANKLOC").Range("AF1").Columns.AutoFit
Worksheets("COVPOSBLANKLOC").Range("AG1").Columns.AutoFit
Worksheets("COVPOSBLANKLOC").Range("AH1").Columns.AutoFit
Worksheets("COVPOSBLANKLOC").Range("AI1").Columns.AutoFit
Worksheets("COVPOSBLANKLOC").Range("AJ1").Columns.AutoFit
Worksheets("COVPOSBLANKLOC").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("COVPOSBLANKLOC").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("E51") = numRows - 1
End Sub
Sub CovNegBlankLoc()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("COVNEGBLANKLOC")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If IsEmpty(rg.Cells(i, 18).Value) = True And rg.Cells(i, 17).Value = "Negative" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("COVNEGBLANKLOC").Range("A1").Columns.AutoFit
Worksheets("COVNEGBLANKLOC").Range("B1").Columns.AutoFit
Worksheets("COVNEGBLANKLOC").Range("C1").Columns.AutoFit
Worksheets("COVNEGBLANKLOC").Range("D1").Columns.AutoFit
Worksheets("COVNEGBLANKLOC").Range("E1").Columns.AutoFit
Worksheets("COVNEGBLANKLOC").Range("G1").Columns.AutoFit
Worksheets("COVNEGBLANKLOC").Range("H1").Columns.AutoFit
Worksheets("COVNEGBLANKLOC").Range("I1").Columns.AutoFit
Worksheets("COVNEGBLANKLOC").Range("J1").Columns.AutoFit
Worksheets("COVNEGBLANKLOC").Range("K1").Columns.AutoFit
Worksheets("COVNEGBLANKLOC").Range("L1").Columns.AutoFit
Worksheets("COVNEGBLANKLOC").Range("M1").Columns.AutoFit
Worksheets("COVNEGBLANKLOC").Range("N1").Columns.AutoFit
Worksheets("COVNEGBLANKLOC").Range("O1").Columns.AutoFit
Worksheets("COVNEGBLANKLOC").Range("P1").Columns.AutoFit
Worksheets("COVNEGBLANKLOC").Range("Q1").Columns.AutoFit
Worksheets("COVNEGBLANKLOC").Range("R1").Columns.AutoFit
Worksheets("COVNEGBLANKLOC").Range("S1").Columns.AutoFit
Worksheets("COVNEGBLANKLOC").Range("T1").Columns.AutoFit
Worksheets("COVNEGBLANKLOC").Range("U1").Columns.AutoFit
Worksheets("COVNEGBLANKLOC").Range("V1").Columns.AutoFit
Worksheets("COVNEGBLANKLOC").Range("W1").Columns.AutoFit
Worksheets("COVNEGBLANKLOC").Range("X1").Columns.AutoFit
Worksheets("COVNEGBLANKLOC").Range("Y1").Columns.AutoFit
Worksheets("COVNEGBLANKLOC").Range("Z1").Columns.AutoFit
Worksheets("COVNEGBLANKLOC").Range("AA1").Columns.AutoFit
Worksheets("COVNEGBLANKLOC").Range("AB1").Columns.AutoFit
Worksheets("COVNEGBLANKLOC").Range("AC1").Columns.AutoFit
Worksheets("COVNEGBLANKLOC").Range("AD1").Columns.AutoFit
Worksheets("COVNEGBLANKLOC").Range("AE1").Columns.AutoFit
Worksheets("COVNEGBLANKLOC").Range("AF1").Columns.AutoFit
Worksheets("COVNEGBLANKLOC").Range("AG1").Columns.AutoFit
Worksheets("COVNEGBLANKLOC").Range("AH1").Columns.AutoFit
Worksheets("COVNEGBLANKLOC").Range("AI1").Columns.AutoFit
Worksheets("COVNEGBLANKLOC").Range("AJ1").Columns.AutoFit
Worksheets("COVNEGBLANKLOC").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("COVNEGBLANKLOC").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("E52") = numRows - 1
End Sub
Sub PendingResultBlankLoc()
Dim a As Long
Dim b As Long
Dim marks, marks1 As String
Dim numRows, numRows1 As Long
Dim shData As Worksheet, shOutput As Worksheet
Set shData = ThisWorkbook.Worksheets("query")
Set shOutput = ThisWorkbook.Worksheets("PENDINGRESULTBLANKLOC")
'Clear any existing data in output sheet
shOutput.Range("A1").CurrentRegion.Offset(1).ClearContents
'Get the range of "query" worksheet
Dim rg As Range
Set rg = shData.Range("A1").CurrentRegion
'The main code
Dim i As Long, row As Long
row = 2
For i = 2 To rg.Rows.Count
If IsEmpty(rg.Cells(i, 18).Value) = True And rg.Cells(i, 17).Value = "Pending Result" Then
'Copy using selections
shOutput.Range("A" & row).Resize(1, rg.Columns.Count).Value = rg.Rows(i).Value
'move to the next output row
row = row + 1
Worksheets("PENDINGRESULTBLANKLOC").Range("A1").Columns.AutoFit
Worksheets("PENDINGRESULTBLANKLOC").Range("B1").Columns.AutoFit
Worksheets("PENDINGRESULTBLANKLOC").Range("C1").Columns.AutoFit
Worksheets("PENDINGRESULTBLANKLOC").Range("D1").Columns.AutoFit
Worksheets("PENDINGRESULTBLANKLOC").Range("E1").Columns.AutoFit
Worksheets("PENDINGRESULTBLANKLOC").Range("G1").Columns.AutoFit
Worksheets("PENDINGRESULTBLANKLOC").Range("H1").Columns.AutoFit
Worksheets("PENDINGRESULTBLANKLOC").Range("I1").Columns.AutoFit
Worksheets("PENDINGRESULTBLANKLOC").Range("J1").Columns.AutoFit
Worksheets("PENDINGRESULTBLANKLOC").Range("K1").Columns.AutoFit
Worksheets("PENDINGRESULTBLANKLOC").Range("L1").Columns.AutoFit
Worksheets("PENDINGRESULTBLANKLOC").Range("M1").Columns.AutoFit
Worksheets("PENDINGRESULTBLANKLOC").Range("N1").Columns.AutoFit
Worksheets("PENDINGRESULTBLANKLOC").Range("O1").Columns.AutoFit
Worksheets("PENDINGRESULTBLANKLOC").Range("P1").Columns.AutoFit
Worksheets("PENDINGRESULTBLANKLOC").Range("Q1").Columns.AutoFit
Worksheets("PENDINGRESULTBLANKLOC").Range("R1").Columns.AutoFit
Worksheets("PENDINGRESULTBLANKLOC").Range("S1").Columns.AutoFit
Worksheets("PENDINGRESULTBLANKLOC").Range("T1").Columns.AutoFit
Worksheets("PENDINGRESULTBLANKLOC").Range("U1").Columns.AutoFit
Worksheets("PENDINGRESULTBLANKLOC").Range("V1").Columns.AutoFit
Worksheets("PENDINGRESULTBLANKLOC").Range("W1").Columns.AutoFit
Worksheets("PENDINGRESULTBLANKLOC").Range("X1").Columns.AutoFit
Worksheets("PENDINGRESULTBLANKLOC").Range("Y1").Columns.AutoFit
Worksheets("PENDINGRESULTBLANKLOC").Range("Z1").Columns.AutoFit
Worksheets("PENDINGRESULTBLANKLOC").Range("AA1").Columns.AutoFit
Worksheets("PENDINGRESULTBLANKLOC").Range("AB1").Columns.AutoFit
Worksheets("PENDINGRESULTBLANKLOC").Range("AC1").Columns.AutoFit
Worksheets("PENDINGRESULTBLANKLOC").Range("AD1").Columns.AutoFit
Worksheets("PENDINGRESULTBLANKLOC").Range("AE1").Columns.AutoFit
Worksheets("PENDINGRESULTBLANKLOC").Range("AF1").Columns.AutoFit
Worksheets("PENDINGRESULTBLANKLOC").Range("AG1").Columns.AutoFit
Worksheets("PENDINGRESULTBLANKLOC").Range("AH1").Columns.AutoFit
Worksheets("PENDINGRESULTBLANKLOC").Range("AI1").Columns.AutoFit
Worksheets("PENDINGRESULTBLANKLOC").Range("AJ1").Columns.AutoFit
Worksheets("PENDINGRESULTBLANKLOC").Range("AK1").Columns.AutoFit
'Range("A2", Range("AK2").End(xlDown)).Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlNo
'MsgBox "The # of rows is " & numRows
End If
Next i
'MsgBox "The value of B2 is " & bb
Application.CutCopyMode = False
Worksheets("PENDINGRESULTBLANKLOC").Activate
With ActiveSheet
numRows = .Cells(.Rows.Count, "A").End(xlUp).row
.Range("AP1").Value = numRows - 1
End With
Worksheets("ExSummary").Activate
Worksheets("ExSummary").Range("E53") = numRows - 1
End Sub