Is it possible to get a % of (name)/total using VBA? - vba

Question

I was wondering if anyone knows how to get a % of say dctest/In using VBA excel?
dctest for this example is just some tested perimeter while the In can be considered as the total number of devices set to do the dc test.
I have provided an image for better understanding. Both set of results shown are before and after converting the values into %. What i'm required will be finding the % of all tests except for test1-test6. The denominator will be values of In, ie, dctest/In.
I have tried some coding, but am not very sure of how to get the percentage of the values.
Sub macro1()
Dim testrow As Long, testcell As Range, lastrowval As Long
testrow = 1 'initialise
Do
Set testcell = Sheets("Summary").Cells(testrow, 1)
'To look for any test1-test6, if there is do nothing
If testcell = "test1" Or testcell = "test2" Or testcell = "test3" Or testcell = "test4" Or testcell = "test5" Or testcell = "test6" Then
'Do nothing
Exit Do
End If
testrow = testrow + 1
Loop
Do
Set testcell = Sheets("Summary").Cells(testrow, 1)
If testcell = "Resultant" Then
lastrowval = testrow
Exit Do
End If
testrow = testrow + 1
Loop
End Sub
Do take note that, I'm aware of the use of the fixed formula that excel can do, but at times some of the tests such as ACtest will not be there OR there will be an extra test such as morning test, this will affect the fixed formula.
Do take note also that test1 - test6, sometimes all 6 tests will be present, at times only 1 test will be present.
What my concern is if there is an extra test say test1 added in, the row from dctest..... Resultant will be shifted down by 1 row.
And if there is a test say test6 got removed, the row from dctest.... resultant will be shifted up by 1 row. I'm not very sure what can be done to make sure this issues can be solved.
Follow up

Answer 1

I have taken the same example as shown in the picture. Like your previous question, you can either use a formula or a code.
Formula
In Cell J7, enter this formula and then right click on the cell to format as %age.
=OFFSET(INDIRECT(ADDRESS(INDEX(MATCH(I7,$A$1:$A$11,0),1,0),1,1,1)),0,1)/$B$1
If you need then simply copy the formula down
Code
Sub Sample()
With Range("J7")
.FormulaR1C1 = _
"=OFFSET(INDIRECT(ADDRESS(INDEX(MATCH(RC[-1],R1C1:R11C1,0),1,0),1,1,1)),0,1)/R1C2"
.NumberFormat = "0.00%"
End With
End Sub
OR
Sub Sample()
With Range("J7")
.Formula = _
"=OFFSET(INDIRECT(ADDRESS(INDEX(MATCH(I7,$A$1:$A$11,0),1,0),1,1,1)),0,1)/$B$1"
.NumberFormat = "0.00%"
End With
End Sub
FOLLOWUP
Option Explicit
Sub Sample()
Dim ws As Worksheet
Dim SearchText As String, Excludetext As String
Dim LastRow As Long, i As Long, j As Long
Dim MyArray() As String
Dim boolContinue As Boolean
'~~> Add/Remove the text here which you want to ignore
Excludetext = "In,Test1,Test2,Test3,Test4,Test5,Test6"
MyArray = Split(Excludetext, ",")
Set ws = Sheets("Sheet1")
LastRow = ws.Range("I" & Rows.Count).End(xlUp).Row
For i = 1 To LastRow
boolContinue = True
For j = 0 To UBound(MyArray)
SearchText = Ucase(Trim(MyArray(j)))
If Ucase(Trim(ws.Range("I" & i).Value)) = SearchText Then
boolContinue = False
Exit For
End If
Next j
If boolContinue = True Then
With Range("J" & i)
.Formula = _
"=OFFSET(INDIRECT(ADDRESS(INDEX(MATCH(I" & i & _
",$A$1:$A$11,0),1,0),1,1,1)),0,1)/$B$1"
.NumberFormat = "0.00%"
End With
End If
Next i
End Sub
HTH
Sid

Answer 2

Why don't you just turn it into a percent part/whole=x/100