# Android QuestionNewbie question to save some space

##### Member
i am not a programmer,in fact i am a firefighter and i have made some apps with b4a tutorials and examples THANK YOU B4A!!
I have the below code to calculate area with location.The code works but i would like to save some space but i never learned "for i" and i am pretty sure there a way to save 43000 characters on 400 rows and fix the 34 points limitation
Any help would be greatly appreciated

B4X:
``````If NumberOfRows = 0 Then
ToastMessageShow("3 σημεια και πανω ",True)
End If
If NumberOfRows = 1 Then
ToastMessageShow("3 σημεια και πανω ",True)
End If
If NumberOfRows = 2 Then
ToastMessageShow("3 σημεια και πανω ",True)
End If
If NumberOfRows = 3 Then

area.text =  (GetCell(0, 1) * GetCell(1, 2) - GetCell(0, 2) * GetCell(1, 1)) + (GetCell(1, 1) * GetCell(2, 2) -  GetCell(1, 2) *  GetCell(2, 1)) + ( GetCell(2, 1) * GetCell(0, 2) -  GetCell(2, 2) * GetCell(0, 1))

lastArea

End If

If NumberOfRows = 4 Then

area.text =  (GetCell(0, 1) * GetCell(1, 2) - GetCell(0, 2) * GetCell(1, 1)) + (GetCell(1, 1) * GetCell(2, 2) -  GetCell(1, 2) *  GetCell(2, 1)) + ( GetCell(2, 1) * GetCell(3, 2) -  GetCell(2, 2) * GetCell(3, 1)) + (GetCell(3, 1) * GetCell(0, 2) -  GetCell(3, 2) * GetCell(0, 1))
lastArea

End If

If NumberOfRows = 5 Then

area.text =  (GetCell(0, 1) * GetCell(1, 2) - GetCell(0, 2) * GetCell(1, 1)) + (GetCell(1, 1) * GetCell(2, 2) -  GetCell(1, 2) *  GetCell(2, 1)) + ( GetCell(2, 1) * GetCell(3, 2) -  GetCell(2, 2) * GetCell(3, 1)) + (GetCell(3, 1) * GetCell(4, 2) -  GetCell(3, 2) * GetCell(4, 1)) + (GetCell(4, 1) * GetCell(0, 2) -  GetCell(4, 2) * GetCell(0, 1))

lastArea

End If

'''''''''''''''''''''''''''''''''
If NumberOfRows = 6 Then

area.text =  (GetCell(0, 1) * GetCell(1, 2) - GetCell(0, 2) * GetCell(1, 1)) + (GetCell(1, 1) * GetCell(2, 2) -  GetCell(1, 2) *  GetCell(2, 1)) + ( GetCell(2, 1) * GetCell(3, 2) -  GetCell(2, 2) * GetCell(3, 1)) + (GetCell(3, 1) * GetCell(4, 2) -  GetCell(3, 2) * GetCell(4, 1)) + (GetCell(4, 1) * GetCell(5, 2) -  GetCell(4, 2) * GetCell(5, 1))+ (GetCell(5, 1) * GetCell(0, 2) -  GetCell(5, 2) * GetCell(0, 1))

lastArea

End If

''''''''''''''''''''''''''''''''''''''''
If NumberOfRows = 7 Then

area.text =  (GetCell(0, 1) * GetCell(1, 2) - GetCell(0, 2) * GetCell(1, 1)) + (GetCell(1, 1) * GetCell(2, 2) -  GetCell(1, 2) *  GetCell(2, 1)) + ( GetCell(2, 1) * GetCell(3, 2) -  GetCell(2, 2) * GetCell(3, 1)) + (GetCell(3, 1) * GetCell(4, 2) -  GetCell(3, 2) * GetCell(4, 1)) + (GetCell(4, 1) * GetCell(5, 2) -  GetCell(4, 2) * GetCell(5, 1)) + (GetCell(5, 1) * GetCell(6, 2) -  GetCell(5, 2) * GetCell(6, 1)) + (GetCell(6, 1) * GetCell(0, 2) -  GetCell(6, 2) * GetCell(0, 1))

lastArea

End If

''''''''''''''''''''''''''''''''''''''''
If NumberOfRows = 8 Then

area.text =  (GetCell(0, 1) * GetCell(1, 2) - GetCell(0, 2) * GetCell(1, 1)) + (GetCell(1, 1) * GetCell(2, 2) -  GetCell(1, 2) *  GetCell(2, 1)) + ( GetCell(2, 1) * GetCell(3, 2) -  GetCell(2, 2) * GetCell(3, 1)) + (GetCell(3, 1) * GetCell(4, 2) -  GetCell(3, 2) * GetCell(4, 1)) + (GetCell(4, 1) * GetCell(5, 2) -  GetCell(4, 2) * GetCell(5, 1)) + (GetCell(5, 1) * GetCell(6, 2) -  GetCell(5, 2) * GetCell(6, 1)) + (GetCell(6, 1) * GetCell(7, 2) -  GetCell(6, 2) * GetCell(7, 1)) + (GetCell(7, 1) * GetCell(0, 2) -  GetCell(7, 2) * GetCell(0, 1))

lastArea

End If

''''''''''''''''''''''''''''''''''''''''
If NumberOfRows = 9 Then

area.text =  (GetCell(0, 1) * GetCell(1, 2) - GetCell(0, 2) * GetCell(1, 1)) + (GetCell(1, 1) * GetCell(2, 2) -  GetCell(1, 2) *  GetCell(2, 1)) + ( GetCell(2, 1) * GetCell(3, 2) -  GetCell(2, 2) * GetCell(3, 1)) + (GetCell(3, 1) * GetCell(4, 2) -  GetCell(3, 2) * GetCell(4, 1)) + (GetCell(4, 1) * GetCell(5, 2) -  GetCell(4, 2) * GetCell(5, 1)) + (GetCell(5, 1) * GetCell(6, 2) -  GetCell(5, 2) * GetCell(6, 1)) + (GetCell(6, 1) * GetCell(7, 2) -  GetCell(6, 2) * GetCell(7, 1)) + (GetCell(7, 1) * GetCell(8, 2) -  GetCell(7, 2) * GetCell(8, 1)) + (GetCell(8, 1) * GetCell(0, 2) -  GetCell(8, 2) * GetCell(0, 1))

lastArea

End If

''''''''''''''''''''''''''''''''''''''''
If NumberOfRows = 10 Then

area.text =  (GetCell(0, 1) * GetCell(1, 2) - GetCell(0, 2) * GetCell(1, 1)) + (GetCell(1, 1) * GetCell(2, 2) -  GetCell(1, 2) *  GetCell(2, 1)) + ( GetCell(2, 1) * GetCell(3, 2) -  GetCell(2, 2) * GetCell(3, 1)) + (GetCell(3, 1) * GetCell(4, 2) -  GetCell(3, 2) * GetCell(4, 1)) + (GetCell(4, 1) * GetCell(5, 2) -  GetCell(4, 2) * GetCell(5, 1)) + (GetCell(5, 1) * GetCell(6, 2) -  GetCell(5, 2) * GetCell(6, 1)) + (GetCell(6, 1) * GetCell(7, 2) -  GetCell(6, 2) * GetCell(7, 1)) + (GetCell(7, 1) * GetCell(8, 2) -  GetCell(7, 2) * GetCell(8, 1)) + (GetCell(8, 1) * GetCell(9, 2) -  GetCell(8, 2) * GetCell(9, 1)) + (GetCell(9, 1) * GetCell(0, 2) -  GetCell(9, 2) * GetCell(0, 1))

lastArea

End If

''''''''''''''''''''''''''''''''''''''''

''''''''''''''''''''''''''''''''''''''''
If NumberOfRows = 11 Then

area.text =  (GetCell(0, 1) * GetCell(1, 2) - GetCell(0, 2) * GetCell(1, 1)) + (GetCell(1, 1) * GetCell(2, 2) -  GetCell(1, 2) *  GetCell(2, 1)) + ( GetCell(2, 1) * GetCell(3, 2) -  GetCell(2, 2) * GetCell(3, 1)) + (GetCell(3, 1) * GetCell(4, 2) -  GetCell(3, 2) * GetCell(4, 1)) + (GetCell(4, 1) * GetCell(5, 2) -  GetCell(4, 2) * GetCell(5, 1)) + (GetCell(5, 1) * GetCell(6, 2) -  GetCell(5, 2) * GetCell(6, 1)) + (GetCell(6, 1) * GetCell(7, 2) -  GetCell(6, 2) * GetCell(7, 1)) + (GetCell(7, 1) * GetCell(8, 2) -  GetCell(7, 2) * GetCell(8, 1)) + (GetCell(8, 1) * GetCell(9, 2) -  GetCell(8, 2) * GetCell(9, 1)) + (GetCell(9, 1) * GetCell(10, 2) -  GetCell(9, 2) * GetCell(10, 1)) + (GetCell(10, 1) * GetCell(0, 2) -  GetCell(10, 2) * GetCell(0, 1))

lastArea

End If

''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''
If NumberOfRows = 12 Then

area.text =  (GetCell(0, 1) * GetCell(1, 2) - GetCell(0, 2) * GetCell(1, 1)) + (GetCell(1, 1) * GetCell(2, 2) -  GetCell(1, 2) *  GetCell(2, 1)) + ( GetCell(2, 1) * GetCell(3, 2) -  GetCell(2, 2) * GetCell(3, 1)) + (GetCell(3, 1) * GetCell(4, 2) -  GetCell(3, 2) * GetCell(4, 1)) + (GetCell(4, 1) * GetCell(5, 2) -  GetCell(4, 2) * GetCell(5, 1)) + (GetCell(5, 1) * GetCell(6, 2) -  GetCell(5, 2) * GetCell(6, 1)) + (GetCell(6, 1) * GetCell(7, 2) -  GetCell(6, 2) * GetCell(7, 1)) + (GetCell(7, 1) * GetCell(8, 2) -  GetCell(7, 2) * GetCell(8, 1)) + (GetCell(8, 1) * GetCell(9, 2) -  GetCell(8, 2) * GetCell(9, 1)) + (GetCell(9, 1) * GetCell(10, 2) -  GetCell(9, 2) * GetCell(10, 1)) + (GetCell(10, 1) * GetCell(11, 2) -  GetCell(10, 2) * GetCell(11, 1)) + (GetCell(11, 1) * GetCell(0, 2) -  GetCell(11, 2) * GetCell(0, 1))

lastArea

End If
''''''''''''''''''''''''''''''''''''''''
If NumberOfRows = 13 Then

area.text =  (GetCell(0, 1) * GetCell(1, 2) - GetCell(0, 2) * GetCell(1, 1)) + (GetCell(1, 1) * GetCell(2, 2) -  GetCell(1, 2) *  GetCell(2, 1)) + ( GetCell(2, 1) * GetCell(3, 2) -  GetCell(2, 2) * GetCell(3, 1)) + (GetCell(3, 1) * GetCell(4, 2) -  GetCell(3, 2) * GetCell(4, 1)) + (GetCell(4, 1) * GetCell(5, 2) -  GetCell(4, 2) * GetCell(5, 1)) + (GetCell(5, 1) * GetCell(6, 2) -  GetCell(5, 2) * GetCell(6, 1)) + (GetCell(6, 1) * GetCell(7, 2) -  GetCell(6, 2) * GetCell(7, 1)) + (GetCell(7, 1) * GetCell(8, 2) -  GetCell(7, 2) * GetCell(8, 1)) + (GetCell(8, 1) * GetCell(9, 2) -  GetCell(8, 2) * GetCell(9, 1)) + (GetCell(9, 1) * GetCell(10, 2) -  GetCell(9, 2) * GetCell(10, 1)) + (GetCell(10, 1) * GetCell(11, 2) -  GetCell(10, 2) * GetCell(11, 1)) + (GetCell(11, 1) * GetCell(12, 2) -  GetCell(11, 2) * GetCell(12, 1))+ (GetCell(12, 1) * GetCell(0, 2) -  GetCell(12, 2) * GetCell(0, 1))

lastArea

End If
''''''''''''''''''''''''''''''''''''''''
If NumberOfRows = 14 Then

area.text =  (GetCell(0, 1) * GetCell(1, 2) - GetCell(0, 2) * GetCell(1, 1)) + (GetCell(1, 1) * GetCell(2, 2) -  GetCell(1, 2) *  GetCell(2, 1)) + ( GetCell(2, 1) * GetCell(3, 2) -  GetCell(2, 2) * GetCell(3, 1)) + (GetCell(3, 1) * GetCell(4, 2) -  GetCell(3, 2) * GetCell(4, 1)) + (GetCell(4, 1) * GetCell(5, 2) -  GetCell(4, 2) * GetCell(5, 1)) + (GetCell(5, 1) * GetCell(6, 2) -  GetCell(5, 2) * GetCell(6, 1)) + (GetCell(6, 1) * GetCell(7, 2) -  GetCell(6, 2) * GetCell(7, 1)) + (GetCell(7, 1) * GetCell(8, 2) -  GetCell(7, 2) * GetCell(8, 1)) + (GetCell(8, 1) * GetCell(9, 2) -  GetCell(8, 2) * GetCell(9, 1)) + (GetCell(9, 1) * GetCell(10, 2) -  GetCell(9, 2) * GetCell(10, 1)) + (GetCell(10, 1) * GetCell(11, 2) -  GetCell(10, 2) * GetCell(11, 1)) + (GetCell(11, 1) * GetCell(12, 2) -  GetCell(11, 2) * GetCell(12, 1))+ (GetCell(12, 1) * GetCell(13, 2) -  GetCell(12, 2) * GetCell(13, 1)) + (GetCell(13, 1) * GetCell(0, 2) -  GetCell(13, 2) * GetCell(0, 1))

lastArea

End If
''''''''''''''''''''''''''''''''''''''''
If NumberOfRows = 15 Then

area.text =  (GetCell(0, 1) * GetCell(1, 2) - GetCell(0, 2) * GetCell(1, 1)) + (GetCell(1, 1) * GetCell(2, 2) -  GetCell(1, 2) *  GetCell(2, 1)) + ( GetCell(2, 1) * GetCell(3, 2) -  GetCell(2, 2) * GetCell(3, 1)) + (GetCell(3, 1) * GetCell(4, 2) -  GetCell(3, 2) * GetCell(4, 1)) + (GetCell(4, 1) * GetCell(5, 2) -  GetCell(4, 2) * GetCell(5, 1)) + (GetCell(5, 1) * GetCell(6, 2) -  GetCell(5, 2) * GetCell(6, 1)) + (GetCell(6, 1) * GetCell(7, 2) -  GetCell(6, 2) * GetCell(7, 1)) + (GetCell(7, 1) * GetCell(8, 2) -  GetCell(7, 2) * GetCell(8, 1)) + (GetCell(8, 1) * GetCell(9, 2) -  GetCell(8, 2) * GetCell(9, 1)) + (GetCell(9, 1) * GetCell(10, 2) -  GetCell(9, 2) * GetCell(10, 1)) + (GetCell(10, 1) * GetCell(11, 2) -  GetCell(10, 2) * GetCell(11, 1)) + (GetCell(11, 1) * GetCell(12, 2) -  GetCell(11, 2) * GetCell(12, 1))+ (GetCell(12, 1) * GetCell(13, 2) -  GetCell(12, 2) * GetCell(13, 1)) + (GetCell(13, 1) * GetCell(14, 2) -  GetCell(13, 2) * GetCell(14, 1)) + (GetCell(14, 1) * GetCell(0, 2) -  GetCell(14, 2) * GetCell(0, 1))

lastArea

End If
''''''''''''''''''''''''''''''''''''''''
If NumberOfRows = 16 Then

area.text =  (GetCell(0, 1) * GetCell(1, 2) - GetCell(0, 2) * GetCell(1, 1)) + (GetCell(1, 1) * GetCell(2, 2) -  GetCell(1, 2) *  GetCell(2, 1)) + ( GetCell(2, 1) * GetCell(3, 2) -  GetCell(2, 2) * GetCell(3, 1)) + (GetCell(3, 1) * GetCell(4, 2) -  GetCell(3, 2) * GetCell(4, 1)) + (GetCell(4, 1) * GetCell(5, 2) -  GetCell(4, 2) * GetCell(5, 1)) + (GetCell(5, 1) * GetCell(6, 2) -  GetCell(5, 2) * GetCell(6, 1)) + (GetCell(6, 1) * GetCell(7, 2) -  GetCell(6, 2) * GetCell(7, 1)) + (GetCell(7, 1) * GetCell(8, 2) -  GetCell(7, 2) * GetCell(8, 1)) + (GetCell(8, 1) * GetCell(9, 2) -  GetCell(8, 2) * GetCell(9, 1)) + (GetCell(9, 1) * GetCell(10, 2) -  GetCell(9, 2) * GetCell(10, 1)) + (GetCell(10, 1) * GetCell(11, 2) -  GetCell(10, 2) * GetCell(11, 1)) + (GetCell(11, 1) * GetCell(12, 2) -  GetCell(11, 2) * GetCell(12, 1))+ (GetCell(12, 1) * GetCell(13, 2) -  GetCell(12, 2) * GetCell(13, 1)) + (GetCell(13, 1) * GetCell(14, 2) -  GetCell(13, 2) * GetCell(14, 1)) + (GetCell(14, 1) * GetCell(15, 2) -  GetCell(14, 2) * GetCell(15, 1)) + (GetCell(15, 1) * GetCell(0, 2) -  GetCell(15, 2) * GetCell(0, 1))

lastArea

End If
''''''''''''''''''''''''''''''''''''''''
If NumberOfRows = 17 Then

area.text =  (GetCell(0, 1) * GetCell(1, 2) - GetCell(0, 2) * GetCell(1, 1)) + (GetCell(1, 1) * GetCell(2, 2) -  GetCell(1, 2) *  GetCell(2, 1)) + ( GetCell(2, 1) * GetCell(3, 2) -  GetCell(2, 2) * GetCell(3, 1)) + (GetCell(3, 1) * GetCell(4, 2) -  GetCell(3, 2) * GetCell(4, 1)) + (GetCell(4, 1) * GetCell(5, 2) -  GetCell(4, 2) * GetCell(5, 1)) + (GetCell(5, 1) * GetCell(6, 2) -  GetCell(5, 2) * GetCell(6, 1)) + (GetCell(6, 1) * GetCell(7, 2) -  GetCell(6, 2) * GetCell(7, 1)) + (GetCell(7, 1) * GetCell(8, 2) -  GetCell(7, 2) * GetCell(8, 1)) + (GetCell(8, 1) * GetCell(9, 2) -  GetCell(8, 2) * GetCell(9, 1)) + (GetCell(9, 1) * GetCell(10, 2) -  GetCell(9, 2) * GetCell(10, 1)) + (GetCell(10, 1) * GetCell(11, 2) -  GetCell(10, 2) * GetCell(11, 1)) + (GetCell(11, 1) * GetCell(12, 2) -  GetCell(11, 2) * GetCell(12, 1))+ (GetCell(12, 1) * GetCell(13, 2) -  GetCell(12, 2) * GetCell(13, 1)) + (GetCell(13, 1) * GetCell(14, 2) -  GetCell(13, 2) * GetCell(14, 1)) + (GetCell(14, 1) * GetCell(15, 2) -  GetCell(14, 2) * GetCell(15, 1)) + (GetCell(15, 1) * GetCell(16, 2) -  GetCell(15, 2) * GetCell(16, 1))   + (GetCell(16, 1) * GetCell(0, 2) -  GetCell(16, 2) * GetCell(0, 1))

lastArea

End If
''''''''''''''''''''''''''''''''''''''''
If NumberOfRows = 18 Then

area.text =  (GetCell(0, 1) * GetCell(1, 2) - GetCell(0, 2) * GetCell(1, 1)) + (GetCell(1, 1) * GetCell(2, 2) -  GetCell(1, 2) *  GetCell(2, 1)) + ( GetCell(2, 1) * GetCell(3, 2) -  GetCell(2, 2) * GetCell(3, 1)) + (GetCell(3, 1) * GetCell(4, 2) -  GetCell(3, 2) * GetCell(4, 1)) + (GetCell(4, 1) * GetCell(5, 2) -  GetCell(4, 2) * GetCell(5, 1)) + (GetCell(5, 1) * GetCell(6, 2) -  GetCell(5, 2) * GetCell(6, 1)) + (GetCell(6, 1) * GetCell(7, 2) -  GetCell(6, 2) * GetCell(7, 1)) + (GetCell(7, 1) * GetCell(8, 2) -  GetCell(7, 2) * GetCell(8, 1)) + (GetCell(8, 1) * GetCell(9, 2) -  GetCell(8, 2) * GetCell(9, 1)) + (GetCell(9, 1) * GetCell(10, 2) -  GetCell(9, 2) * GetCell(10, 1)) + (GetCell(10, 1) * GetCell(11, 2) -  GetCell(10, 2) * GetCell(11, 1)) + (GetCell(11, 1) * GetCell(12, 2) -  GetCell(11, 2) * GetCell(12, 1))+ (GetCell(12, 1) * GetCell(13, 2) -  GetCell(12, 2) * GetCell(13, 1)) + (GetCell(13, 1) * GetCell(14, 2) -  GetCell(13, 2) * GetCell(14, 1)) + (GetCell(14, 1) * GetCell(15, 2) -  GetCell(14, 2) * GetCell(15, 1)) + (GetCell(15, 1) * GetCell(16, 2) -  GetCell(15, 2) * GetCell(16, 1))   + (GetCell(16, 1) * GetCell(17, 2) -  GetCell(16, 2) * GetCell(17, 1))  + (GetCell(17, 1) * GetCell(0, 2) -  GetCell(17, 2) * GetCell(0, 1))

lastArea

End If
''''''''''''''''''''''''''''''''''''''''
If NumberOfRows = 19 Then

area.text =  (GetCell(0, 1) * GetCell(1, 2) - GetCell(0, 2) * GetCell(1, 1)) + (GetCell(1, 1) * GetCell(2, 2) -  GetCell(1, 2) *  GetCell(2, 1)) + ( GetCell(2, 1) * GetCell(3, 2) -  GetCell(2, 2) * GetCell(3, 1)) + (GetCell(3, 1) * GetCell(4, 2) -  GetCell(3, 2) * GetCell(4, 1)) + (GetCell(4, 1) * GetCell(5, 2) -  GetCell(4, 2) * GetCell(5, 1)) + (GetCell(5, 1) * GetCell(6, 2) -  GetCell(5, 2) * GetCell(6, 1)) + (GetCell(6, 1) * GetCell(7, 2) -  GetCell(6, 2) * GetCell(7, 1)) + (GetCell(7, 1) * GetCell(8, 2) -  GetCell(7, 2) * GetCell(8, 1)) + (GetCell(8, 1) * GetCell(9, 2) -  GetCell(8, 2) * GetCell(9, 1)) + (GetCell(9, 1) * GetCell(10, 2) -  GetCell(9, 2) * GetCell(10, 1)) + (GetCell(10, 1) * GetCell(11, 2) -  GetCell(10, 2) * GetCell(11, 1)) + (GetCell(11, 1) * GetCell(12, 2) -  GetCell(11, 2) * GetCell(12, 1))+ (GetCell(12, 1) * GetCell(13, 2) -  GetCell(12, 2) * GetCell(13, 1)) + (GetCell(13, 1) * GetCell(14, 2) -  GetCell(13, 2) * GetCell(14, 1)) + (GetCell(14, 1) * GetCell(15, 2) -  GetCell(14, 2) * GetCell(15, 1)) + (GetCell(15, 1) * GetCell(16, 2) -  GetCell(15, 2) * GetCell(16, 1))   + (GetCell(16, 1) * GetCell(17, 2) -  GetCell(16, 2) * GetCell(17, 1))  + (GetCell(17, 1) * GetCell(18, 2) -  GetCell(17, 2) * GetCell(18, 1)) + (GetCell(18, 1) * GetCell(0, 2) -  GetCell(18, 2) * GetCell(0, 1))

lastArea

End If
''''''''''''''''''''''''''''''''''''''''
If NumberOfRows = 20 Then

area.text =  (GetCell(0, 1) * GetCell(1, 2) - GetCell(0, 2) * GetCell(1, 1)) + (GetCell(1, 1) * GetCell(2, 2) -  GetCell(1, 2) *  GetCell(2, 1)) + ( GetCell(2, 1) * GetCell(3, 2) -  GetCell(2, 2) * GetCell(3, 1)) + (GetCell(3, 1) * GetCell(4, 2) -  GetCell(3, 2) * GetCell(4, 1)) + (GetCell(4, 1) * GetCell(5, 2) -  GetCell(4, 2) * GetCell(5, 1)) + (GetCell(5, 1) * GetCell(6, 2) -  GetCell(5, 2) * GetCell(6, 1)) + (GetCell(6, 1) * GetCell(7, 2) -  GetCell(6, 2) * GetCell(7, 1)) + (GetCell(7, 1) * GetCell(8, 2) -  GetCell(7, 2) * GetCell(8, 1)) + (GetCell(8, 1) * GetCell(9, 2) -  GetCell(8, 2) * GetCell(9, 1)) + (GetCell(9, 1) * GetCell(10, 2) -  GetCell(9, 2) * GetCell(10, 1)) + (GetCell(10, 1) * GetCell(11, 2) -  GetCell(10, 2) * GetCell(11, 1)) + (GetCell(11, 1) * GetCell(12, 2) -  GetCell(11, 2) * GetCell(12, 1))+ (GetCell(12, 1) * GetCell(13, 2) -  GetCell(12, 2) * GetCell(13, 1)) + (GetCell(13, 1) * GetCell(14, 2) -  GetCell(13, 2) * GetCell(14, 1)) + (GetCell(14, 1) * GetCell(15, 2) -  GetCell(14, 2) * GetCell(15, 1)) + (GetCell(15, 1) * GetCell(16, 2) -  GetCell(15, 2) * GetCell(16, 1))   + (GetCell(16, 1) * GetCell(17, 2) -  GetCell(16, 2) * GetCell(17, 1))  + (GetCell(17, 1) * GetCell(18, 2) -  GetCell(17, 2) * GetCell(18, 1)) + (GetCell(18, 1) * GetCell(19, 2) -  GetCell(18, 2) * GetCell(19, 1)) + (GetCell(19, 1) * GetCell(0, 2) -  GetCell(19, 2) * GetCell(0, 1))

lastArea

End If
''''''''''''''''''''''''''''''''''''''''
If NumberOfRows = 21 Then

area.text =  (GetCell(0, 1) * GetCell(1, 2) - GetCell(0, 2) * GetCell(1, 1)) + (GetCell(1, 1) * GetCell(2, 2) -  GetCell(1, 2) *  GetCell(2, 1)) + ( GetCell(2, 1) * GetCell(3, 2) -  GetCell(2, 2) * GetCell(3, 1)) + (GetCell(3, 1) * GetCell(4, 2) -  GetCell(3, 2) * GetCell(4, 1)) + (GetCell(4, 1) * GetCell(5, 2) -  GetCell(4, 2) * GetCell(5, 1)) + (GetCell(5, 1) * GetCell(6, 2) -  GetCell(5, 2) * GetCell(6, 1)) + (GetCell(6, 1) * GetCell(7, 2) -  GetCell(6, 2) * GetCell(7, 1)) + (GetCell(7, 1) * GetCell(8, 2) -  GetCell(7, 2) * GetCell(8, 1)) + (GetCell(8, 1) * GetCell(9, 2) -  GetCell(8, 2) * GetCell(9, 1)) + (GetCell(9, 1) * GetCell(10, 2) -  GetCell(9, 2) * GetCell(10, 1)) + (GetCell(10, 1) * GetCell(11, 2) -  GetCell(10, 2) * GetCell(11, 1)) + (GetCell(11, 1) * GetCell(12, 2) -  GetCell(11, 2) * GetCell(12, 1))+ (GetCell(12, 1) * GetCell(13, 2) -  GetCell(12, 2) * GetCell(13, 1)) + (GetCell(13, 1) * GetCell(14, 2) -  GetCell(13, 2) * GetCell(14, 1)) + (GetCell(14, 1) * GetCell(15, 2) -  GetCell(14, 2) * GetCell(15, 1)) + (GetCell(15, 1) * GetCell(16, 2) -  GetCell(15, 2) * GetCell(16, 1))   + (GetCell(16, 1) * GetCell(17, 2) -  GetCell(16, 2) * GetCell(17, 1))  + (GetCell(17, 1) * GetCell(18, 2) -  GetCell(17, 2) * GetCell(18, 1)) + (GetCell(18, 1) * GetCell(19, 2) -  GetCell(18, 2) * GetCell(19, 1)) + (GetCell(19, 1) * GetCell(20, 2) -  GetCell(19, 2) * GetCell(20, 1)) + (GetCell(20, 1) * GetCell(0, 2) -  GetCell(20, 2) * GetCell(0, 1))

lastArea

End If
''''''''''''''''''''''''''''''''''''''''
If NumberOfRows = 22 Then

area.text =  (GetCell(0, 1) * GetCell(1, 2) - GetCell(0, 2) * GetCell(1, 1)) + (GetCell(1, 1) * GetCell(2, 2) -  GetCell(1, 2) *  GetCell(2, 1)) + ( GetCell(2, 1) * GetCell(3, 2) -  GetCell(2, 2) * GetCell(3, 1)) + (GetCell(3, 1) * GetCell(4, 2) -  GetCell(3, 2) * GetCell(4, 1)) + (GetCell(4, 1) * GetCell(5, 2) -  GetCell(4, 2) * GetCell(5, 1)) + (GetCell(5, 1) * GetCell(6, 2) -  GetCell(5, 2) * GetCell(6, 1)) + (GetCell(6, 1) * GetCell(7, 2) -  GetCell(6, 2) * GetCell(7, 1)) + (GetCell(7, 1) * GetCell(8, 2) -  GetCell(7, 2) * GetCell(8, 1)) + (GetCell(8, 1) * GetCell(9, 2) -  GetCell(8, 2) * GetCell(9, 1)) + (GetCell(9, 1) * GetCell(10, 2) -  GetCell(9, 2) * GetCell(10, 1)) + (GetCell(10, 1) * GetCell(11, 2) -  GetCell(10, 2) * GetCell(11, 1)) + (GetCell(11, 1) * GetCell(12, 2) -  GetCell(11, 2) * GetCell(12, 1))+ (GetCell(12, 1) * GetCell(13, 2) -  GetCell(12, 2) * GetCell(13, 1)) + (GetCell(13, 1) * GetCell(14, 2) -  GetCell(13, 2) * GetCell(14, 1)) + (GetCell(14, 1) * GetCell(15, 2) -  GetCell(14, 2) * GetCell(15, 1)) + (GetCell(15, 1) * GetCell(16, 2) -  GetCell(15, 2) * GetCell(16, 1))   + (GetCell(16, 1) * GetCell(17, 2) -  GetCell(16, 2) * GetCell(17, 1))  + (GetCell(17, 1) * GetCell(18, 2) -  GetCell(17, 2) * GetCell(18, 1)) + (GetCell(18, 1) * GetCell(19, 2) -  GetCell(18, 2) * GetCell(19, 1)) + (GetCell(19, 1) * GetCell(20, 2) -  GetCell(19, 2) * GetCell(20, 1)) + (GetCell(20, 1) * GetCell(21, 2) -  GetCell(20, 2) * GetCell(21, 1)) + (GetCell(21, 1) * GetCell(0, 2) -  GetCell(21, 2) * GetCell(0, 1))

lastArea

End If
''''''''''''''''''''''''''''''''''''''''
If NumberOfRows = 23 Then

area.text =  (GetCell(0, 1) * GetCell(1, 2) - GetCell(0, 2) * GetCell(1, 1)) + (GetCell(1, 1) * GetCell(2, 2) -  GetCell(1, 2) *  GetCell(2, 1)) + ( GetCell(2, 1) * GetCell(3, 2) -  GetCell(2, 2) * GetCell(3, 1)) + (GetCell(3, 1) * GetCell(4, 2) -  GetCell(3, 2) * GetCell(4, 1)) + (GetCell(4, 1) * GetCell(5, 2) -  GetCell(4, 2) * GetCell(5, 1)) + (GetCell(5, 1) * GetCell(6, 2) -  GetCell(5, 2) * GetCell(6, 1)) + (GetCell(6, 1) * GetCell(7, 2) -  GetCell(6, 2) * GetCell(7, 1)) + (GetCell(7, 1) * GetCell(8, 2) -  GetCell(7, 2) * GetCell(8, 1)) + (GetCell(8, 1) * GetCell(9, 2) -  GetCell(8, 2) * GetCell(9, 1)) + (GetCell(9, 1) * GetCell(10, 2) -  GetCell(9, 2) * GetCell(10, 1)) + (GetCell(10, 1) * GetCell(11, 2) -  GetCell(10, 2) * GetCell(11, 1)) + (GetCell(11, 1) * GetCell(12, 2) -  GetCell(11, 2) * GetCell(12, 1))+ (GetCell(12, 1) * GetCell(13, 2) -  GetCell(12, 2) * GetCell(13, 1)) + (GetCell(13, 1) * GetCell(14, 2) -  GetCell(13, 2) * GetCell(14, 1)) + (GetCell(14, 1) * GetCell(15, 2) -  GetCell(14, 2) * GetCell(15, 1)) + (GetCell(15, 1) * GetCell(16, 2) -  GetCell(15, 2) * GetCell(16, 1))   + (GetCell(16, 1) * GetCell(17, 2) -  GetCell(16, 2) * GetCell(17, 1))  + (GetCell(17, 1) * GetCell(18, 2) -  GetCell(17, 2) * GetCell(18, 1)) + (GetCell(18, 1) * GetCell(19, 2) -  GetCell(18, 2) * GetCell(19, 1)) + (GetCell(19, 1) * GetCell(20, 2) -  GetCell(19, 2) * GetCell(20, 1)) + (GetCell(20, 1) * GetCell(21, 2) -  GetCell(20, 2) * GetCell(21, 1)) + (GetCell(21, 1) * GetCell(22, 2) -  GetCell(21, 2) * GetCell(22, 1)) + (GetCell(22, 1) * GetCell(0, 2) -  GetCell(22, 2) * GetCell(0, 1))

lastArea

End If
''''''''''''''''''''''''''''''''''''''''
If NumberOfRows = 24 Then

area.text =  (GetCell(0, 1) * GetCell(1, 2) - GetCell(0, 2) * GetCell(1, 1)) + (GetCell(1, 1) * GetCell(2, 2) -  GetCell(1, 2) *  GetCell(2, 1)) + ( GetCell(2, 1) * GetCell(3, 2) -  GetCell(2, 2) * GetCell(3, 1)) + (GetCell(3, 1) * GetCell(4, 2) -  GetCell(3, 2) * GetCell(4, 1)) + (GetCell(4, 1) * GetCell(5, 2) -  GetCell(4, 2) * GetCell(5, 1)) + (GetCell(5, 1) * GetCell(6, 2) -  GetCell(5, 2) * GetCell(6, 1)) + (GetCell(6, 1) * GetCell(7, 2) -  GetCell(6, 2) * GetCell(7, 1)) + (GetCell(7, 1) * GetCell(8, 2) -  GetCell(7, 2) * GetCell(8, 1)) + (GetCell(8, 1) * GetCell(9, 2) -  GetCell(8, 2) * GetCell(9, 1)) + (GetCell(9, 1) * GetCell(10, 2) -  GetCell(9, 2) * GetCell(10, 1)) + (GetCell(10, 1) * GetCell(11, 2) -  GetCell(10, 2) * GetCell(11, 1)) + (GetCell(11, 1) * GetCell(12, 2) -  GetCell(11, 2) * GetCell(12, 1))+ (GetCell(12, 1) * GetCell(13, 2) -  GetCell(12, 2) * GetCell(13, 1)) + (GetCell(13, 1) * GetCell(14, 2) -  GetCell(13, 2) * GetCell(14, 1)) + (GetCell(14, 1) * GetCell(15, 2) -  GetCell(14, 2) * GetCell(15, 1)) + (GetCell(15, 1) * GetCell(16, 2) -  GetCell(15, 2) * GetCell(16, 1))   + (GetCell(16, 1) * GetCell(17, 2) -  GetCell(16, 2) * GetCell(17, 1))  + (GetCell(17, 1) * GetCell(18, 2) -  GetCell(17, 2) * GetCell(18, 1)) + (GetCell(18, 1) * GetCell(19, 2) -  GetCell(18, 2) * GetCell(19, 1)) + (GetCell(19, 1) * GetCell(20, 2) -  GetCell(19, 2) * GetCell(20, 1)) + (GetCell(20, 1) * GetCell(21, 2) -  GetCell(20, 2) * GetCell(21, 1)) + (GetCell(21, 1) * GetCell(22, 2) -  GetCell(21, 2) * GetCell(22, 1)) + (GetCell(22, 1) * GetCell(23, 2) -  GetCell(22, 2) * GetCell(23, 1)) + (GetCell(23, 1) * GetCell(0, 2) -  GetCell(23, 2) * GetCell(0, 1))

lastArea

End If
''''''''''''''''''''''''''''''''''''''''
If NumberOfRows = 25 Then

area.text =  (GetCell(0, 1) * GetCell(1, 2) - GetCell(0, 2) * GetCell(1, 1)) + (GetCell(1, 1) * GetCell(2, 2) -  GetCell(1, 2) *  GetCell(2, 1)) + ( GetCell(2, 1) * GetCell(3, 2) -  GetCell(2, 2) * GetCell(3, 1)) + (GetCell(3, 1) * GetCell(4, 2) -  GetCell(3, 2) * GetCell(4, 1)) + (GetCell(4, 1) * GetCell(5, 2) -  GetCell(4, 2) * GetCell(5, 1)) + (GetCell(5, 1) * GetCell(6, 2) -  GetCell(5, 2) * GetCell(6, 1)) + (GetCell(6, 1) * GetCell(7, 2) -  GetCell(6, 2) * GetCell(7, 1)) + (GetCell(7, 1) * GetCell(8, 2) -  GetCell(7, 2) * GetCell(8, 1)) + (GetCell(8, 1) * GetCell(9, 2) -  GetCell(8, 2) * GetCell(9, 1)) + (GetCell(9, 1) * GetCell(10, 2) -  GetCell(9, 2) * GetCell(10, 1)) + (GetCell(10, 1) * GetCell(11, 2) -  GetCell(10, 2) * GetCell(11, 1)) + (GetCell(11, 1) * GetCell(12, 2) -  GetCell(11, 2) * GetCell(12, 1))+ (GetCell(12, 1) * GetCell(13, 2) -  GetCell(12, 2) * GetCell(13, 1)) + (GetCell(13, 1) * GetCell(14, 2) -  GetCell(13, 2) * GetCell(14, 1)) + (GetCell(14, 1) * GetCell(15, 2) -  GetCell(14, 2) * GetCell(15, 1)) + (GetCell(15, 1) * GetCell(16, 2) -  GetCell(15, 2) * GetCell(16, 1))   + (GetCell(16, 1) * GetCell(17, 2) -  GetCell(16, 2) * GetCell(17, 1))  + (GetCell(17, 1) * GetCell(18, 2) -  GetCell(17, 2) * GetCell(18, 1)) + (GetCell(18, 1) * GetCell(19, 2) -  GetCell(18, 2) * GetCell(19, 1)) + (GetCell(19, 1) * GetCell(20, 2) -  GetCell(19, 2) * GetCell(20, 1)) + (GetCell(20, 1) * GetCell(21, 2) -  GetCell(20, 2) * GetCell(21, 1)) + (GetCell(21, 1) * GetCell(22, 2) -  GetCell(21, 2) * GetCell(22, 1)) + (GetCell(22, 1) * GetCell(23, 2) -  GetCell(22, 2) * GetCell(23, 1)) + (GetCell(23, 1) * GetCell(24, 2) -  GetCell(23, 2) * GetCell(24, 1)) + (GetCell(24, 1) * GetCell(25, 2) -  GetCell(24, 2) * GetCell(25, 1)) + (GetCell(25, 1) * GetCell(0, 2) -  GetCell(25, 2) * GetCell(0, 1))

lastArea

End If
''''''''''''''''''''''''''''''''''''''''
If NumberOfRows = 27 Then

area.text =  (GetCell(0, 1) * GetCell(1, 2) - GetCell(0, 2) * GetCell(1, 1)) + (GetCell(1, 1) * GetCell(2, 2) -  GetCell(1, 2) *  GetCell(2, 1)) + ( GetCell(2, 1) * GetCell(3, 2) -  GetCell(2, 2) * GetCell(3, 1)) + (GetCell(3, 1) * GetCell(4, 2) -  GetCell(3, 2) * GetCell(4, 1)) + (GetCell(4, 1) * GetCell(5, 2) -  GetCell(4, 2) * GetCell(5, 1)) + (GetCell(5, 1) * GetCell(6, 2) -  GetCell(5, 2) * GetCell(6, 1)) + (GetCell(6, 1) * GetCell(7, 2) -  GetCell(6, 2) * GetCell(7, 1)) + (GetCell(7, 1) * GetCell(8, 2) -  GetCell(7, 2) * GetCell(8, 1)) + (GetCell(8, 1) * GetCell(9, 2) -  GetCell(8, 2) * GetCell(9, 1)) + (GetCell(9, 1) * GetCell(10, 2) -  GetCell(9, 2) * GetCell(10, 1)) + (GetCell(10, 1) * GetCell(11, 2) -  GetCell(10, 2) * GetCell(11, 1)) + (GetCell(11, 1) * GetCell(12, 2) -  GetCell(11, 2) * GetCell(12, 1))+ (GetCell(12, 1) * GetCell(13, 2) -  GetCell(12, 2) * GetCell(13, 1)) + (GetCell(13, 1) * GetCell(14, 2) -  GetCell(13, 2) * GetCell(14, 1)) + (GetCell(14, 1) * GetCell(15, 2) -  GetCell(14, 2) * GetCell(15, 1)) + (GetCell(15, 1) * GetCell(16, 2) -  GetCell(15, 2) * GetCell(16, 1))   + (GetCell(16, 1) * GetCell(17, 2) -  GetCell(16, 2) * GetCell(17, 1))  + (GetCell(17, 1) * GetCell(18, 2) -  GetCell(17, 2) * GetCell(18, 1)) + (GetCell(18, 1) * GetCell(19, 2) -  GetCell(18, 2) * GetCell(19, 1)) + (GetCell(19, 1) * GetCell(20, 2) -  GetCell(19, 2) * GetCell(20, 1)) + (GetCell(20, 1) * GetCell(21, 2) -  GetCell(20, 2) * GetCell(21, 1)) + (GetCell(21, 1) * GetCell(22, 2) -  GetCell(21, 2) * GetCell(22, 1)) + (GetCell(22, 1) * GetCell(23, 2) -  GetCell(22, 2) * GetCell(23, 1)) + (GetCell(23, 1) * GetCell(24, 2) -  GetCell(23, 2) * GetCell(24, 1)) + (GetCell(24, 1) * GetCell(25, 2) -  GetCell(24, 2) * GetCell(25, 1)) + (GetCell(25, 1) * GetCell(26, 2) -  GetCell(25, 2) * GetCell(26, 1))+ (GetCell(26, 1) * GetCell(0, 2) -  GetCell(26, 2) * GetCell(0, 1))

lastArea

End If
''''''''''''''''''''''''''''''''''''''''
If NumberOfRows = 28 Then

area.text =  (GetCell(0, 1) * GetCell(1, 2) - GetCell(0, 2) * GetCell(1, 1)) + (GetCell(1, 1) * GetCell(2, 2) -  GetCell(1, 2) *  GetCell(2, 1)) + ( GetCell(2, 1) * GetCell(3, 2) -  GetCell(2, 2) * GetCell(3, 1)) + (GetCell(3, 1) * GetCell(4, 2) -  GetCell(3, 2) * GetCell(4, 1)) + (GetCell(4, 1) * GetCell(5, 2) -  GetCell(4, 2) * GetCell(5, 1)) + (GetCell(5, 1) * GetCell(6, 2) -  GetCell(5, 2) * GetCell(6, 1)) + (GetCell(6, 1) * GetCell(7, 2) -  GetCell(6, 2) * GetCell(7, 1)) + (GetCell(7, 1) * GetCell(8, 2) -  GetCell(7, 2) * GetCell(8, 1)) + (GetCell(8, 1) * GetCell(9, 2) -  GetCell(8, 2) * GetCell(9, 1)) + (GetCell(9, 1) * GetCell(10, 2) -  GetCell(9, 2) * GetCell(10, 1)) + (GetCell(10, 1) * GetCell(11, 2) -  GetCell(10, 2) * GetCell(11, 1)) + (GetCell(11, 1) * GetCell(12, 2) -  GetCell(11, 2) * GetCell(12, 1))+ (GetCell(12, 1) * GetCell(13, 2) -  GetCell(12, 2) * GetCell(13, 1)) + (GetCell(13, 1) * GetCell(14, 2) -  GetCell(13, 2) * GetCell(14, 1)) + (GetCell(14, 1) * GetCell(15, 2) -  GetCell(14, 2) * GetCell(15, 1)) + (GetCell(15, 1) * GetCell(16, 2) -  GetCell(15, 2) * GetCell(16, 1))   + (GetCell(16, 1) * GetCell(17, 2) -  GetCell(16, 2) * GetCell(17, 1))  + (GetCell(17, 1) * GetCell(18, 2) -  GetCell(17, 2) * GetCell(18, 1)) + (GetCell(18, 1) * GetCell(19, 2) -  GetCell(18, 2) * GetCell(19, 1)) + (GetCell(19, 1) * GetCell(20, 2) -  GetCell(19, 2) * GetCell(20, 1)) + (GetCell(20, 1) * GetCell(21, 2) -  GetCell(20, 2) * GetCell(21, 1)) + (GetCell(21, 1) * GetCell(22, 2) -  GetCell(21, 2) * GetCell(22, 1)) + (GetCell(22, 1) * GetCell(23, 2) -  GetCell(22, 2) * GetCell(23, 1)) + (GetCell(23, 1) * GetCell(24, 2) -  GetCell(23, 2) * GetCell(24, 1)) + (GetCell(24, 1) * GetCell(25, 2) -  GetCell(24, 2) * GetCell(25, 1)) + (GetCell(25, 1) * GetCell(26, 2) -  GetCell(25, 2) * GetCell(26, 1))+ (GetCell(26, 1) * GetCell(27, 2) -  GetCell(26, 2) * GetCell(27, 1))+ (GetCell(27, 1) * GetCell(0, 2) -  GetCell(27, 2) * GetCell(0, 1))

lastArea

End If
''''''''''''''''''''''''''''''''''''''''
If NumberOfRows = 29 Then

area.text =  (GetCell(0, 1) * GetCell(1, 2) - GetCell(0, 2) * GetCell(1, 1)) + (GetCell(1, 1) * GetCell(2, 2) -  GetCell(1, 2) *  GetCell(2, 1)) + ( GetCell(2, 1) * GetCell(3, 2) -  GetCell(2, 2) * GetCell(3, 1)) + (GetCell(3, 1) * GetCell(4, 2) -  GetCell(3, 2) * GetCell(4, 1)) + (GetCell(4, 1) * GetCell(5, 2) -  GetCell(4, 2) * GetCell(5, 1)) + (GetCell(5, 1) * GetCell(6, 2) -  GetCell(5, 2) * GetCell(6, 1)) + (GetCell(6, 1) * GetCell(7, 2) -  GetCell(6, 2) * GetCell(7, 1)) + (GetCell(7, 1) * GetCell(8, 2) -  GetCell(7, 2) * GetCell(8, 1)) + (GetCell(8, 1) * GetCell(9, 2) -  GetCell(8, 2) * GetCell(9, 1)) + (GetCell(9, 1) * GetCell(10, 2) -  GetCell(9, 2) * GetCell(10, 1)) + (GetCell(10, 1) * GetCell(11, 2) -  GetCell(10, 2) * GetCell(11, 1)) + (GetCell(11, 1) * GetCell(12, 2) -  GetCell(11, 2) * GetCell(12, 1))+ (GetCell(12, 1) * GetCell(13, 2) -  GetCell(12, 2) * GetCell(13, 1)) + (GetCell(13, 1) * GetCell(14, 2) -  GetCell(13, 2) * GetCell(14, 1)) + (GetCell(14, 1) * GetCell(15, 2) -  GetCell(14, 2) * GetCell(15, 1)) + (GetCell(15, 1) * GetCell(16, 2) -  GetCell(15, 2) * GetCell(16, 1))   + (GetCell(16, 1) * GetCell(17, 2) -  GetCell(16, 2) * GetCell(17, 1))  + (GetCell(17, 1) * GetCell(18, 2) -  GetCell(17, 2) * GetCell(18, 1)) + (GetCell(18, 1) * GetCell(19, 2) -  GetCell(18, 2) * GetCell(19, 1)) + (GetCell(19, 1) * GetCell(20, 2) -  GetCell(19, 2) * GetCell(20, 1)) + (GetCell(20, 1) * GetCell(21, 2) -  GetCell(20, 2) * GetCell(21, 1)) + (GetCell(21, 1) * GetCell(22, 2) -  GetCell(21, 2) * GetCell(22, 1)) + (GetCell(22, 1) * GetCell(23, 2) -  GetCell(22, 2) * GetCell(23, 1)) + (GetCell(23, 1) * GetCell(24, 2) -  GetCell(23, 2) * GetCell(24, 1)) + (GetCell(24, 1) * GetCell(25, 2) -  GetCell(24, 2) * GetCell(25, 1)) + (GetCell(25, 1) * GetCell(26, 2) -  GetCell(25, 2) * GetCell(26, 1)) + (GetCell(26, 1) * GetCell(27, 2) -  GetCell(26, 2) * GetCell(27, 1)) + (GetCell(27, 1) * GetCell(28, 2) -  GetCell(27, 2) * GetCell(28, 1)) + (GetCell(28, 1) * GetCell(0, 2) -  GetCell(28, 2) * GetCell(0, 1))

lastArea

End If
''''''''''''''''''''''''''''''''''''''''

If NumberOfRows = 30 Then

area.text =  (GetCell(0, 1) * GetCell(1, 2) - GetCell(0, 2) * GetCell(1, 1)) + (GetCell(1, 1) * GetCell(2, 2) -  GetCell(1, 2) *  GetCell(2, 1)) + ( GetCell(2, 1) * GetCell(3, 2) -  GetCell(2, 2) * GetCell(3, 1)) + (GetCell(3, 1) * GetCell(4, 2) -  GetCell(3, 2) * GetCell(4, 1)) + (GetCell(4, 1) * GetCell(5, 2) -  GetCell(4, 2) * GetCell(5, 1)) + (GetCell(5, 1) * GetCell(6, 2) -  GetCell(5, 2) * GetCell(6, 1)) + (GetCell(6, 1) * GetCell(7, 2) -  GetCell(6, 2) * GetCell(7, 1)) + (GetCell(7, 1) * GetCell(8, 2) -  GetCell(7, 2) * GetCell(8, 1)) + (GetCell(8, 1) * GetCell(9, 2) -  GetCell(8, 2) * GetCell(9, 1)) + (GetCell(9, 1) * GetCell(10, 2) -  GetCell(9, 2) * GetCell(10, 1)) + (GetCell(10, 1) * GetCell(11, 2) -  GetCell(10, 2) * GetCell(11, 1)) + (GetCell(11, 1) * GetCell(12, 2) -  GetCell(11, 2) * GetCell(12, 1))+ (GetCell(12, 1) * GetCell(13, 2) -  GetCell(12, 2) * GetCell(13, 1)) + (GetCell(13, 1) * GetCell(14, 2) -  GetCell(13, 2) * GetCell(14, 1)) + (GetCell(14, 1) * GetCell(15, 2) -  GetCell(14, 2) * GetCell(15, 1)) + (GetCell(15, 1) * GetCell(16, 2) -  GetCell(15, 2) * GetCell(16, 1))   + (GetCell(16, 1) * GetCell(17, 2) -  GetCell(16, 2) * GetCell(17, 1))  + (GetCell(17, 1) * GetCell(18, 2) -  GetCell(17, 2) * GetCell(18, 1)) + (GetCell(18, 1) * GetCell(19, 2) -  GetCell(18, 2) * GetCell(19, 1)) + (GetCell(19, 1) * GetCell(20, 2) -  GetCell(19, 2) * GetCell(20, 1)) + (GetCell(20, 1) * GetCell(21, 2) -  GetCell(20, 2) * GetCell(21, 1)) + (GetCell(21, 1) * GetCell(22, 2) -  GetCell(21, 2) * GetCell(22, 1)) + (GetCell(22, 1) * GetCell(23, 2) -  GetCell(22, 2) * GetCell(23, 1)) + (GetCell(23, 1) * GetCell(24, 2) -  GetCell(23, 2) * GetCell(24, 1)) + (GetCell(24, 1) * GetCell(25, 2) -  GetCell(24, 2) * GetCell(25, 1)) + (GetCell(25, 1) * GetCell(26, 2) -  GetCell(25, 2) * GetCell(26, 1)) + (GetCell(26, 1) * GetCell(27, 2) -  GetCell(26, 2) * GetCell(27, 1)) + (GetCell(27, 1) * GetCell(28, 2) -  GetCell(27, 2) * GetCell(28, 1)) + (GetCell(28, 1) * GetCell(29, 2) -  GetCell(28, 2) * GetCell(29, 1)) + (GetCell(29, 1) * GetCell(0, 2) -  GetCell(29, 2) * GetCell(0, 1))

lastArea

End If
''''''''''''''''''''''''''''''''''''''''
If NumberOfRows = 31 Then

area.text =  (GetCell(0, 1) * GetCell(1, 2) - GetCell(0, 2) * GetCell(1, 1)) + (GetCell(1, 1) * GetCell(2, 2) -  GetCell(1, 2) *  GetCell(2, 1)) + ( GetCell(2, 1) * GetCell(3, 2) -  GetCell(2, 2) * GetCell(3, 1)) + (GetCell(3, 1) * GetCell(4, 2) -  GetCell(3, 2) * GetCell(4, 1)) + (GetCell(4, 1) * GetCell(5, 2) -  GetCell(4, 2) * GetCell(5, 1)) + (GetCell(5, 1) * GetCell(6, 2) -  GetCell(5, 2) * GetCell(6, 1)) + (GetCell(6, 1) * GetCell(7, 2) -  GetCell(6, 2) * GetCell(7, 1)) + (GetCell(7, 1) * GetCell(8, 2) -  GetCell(7, 2) * GetCell(8, 1)) + (GetCell(8, 1) * GetCell(9, 2) -  GetCell(8, 2) * GetCell(9, 1)) + (GetCell(9, 1) * GetCell(10, 2) -  GetCell(9, 2) * GetCell(10, 1)) + (GetCell(10, 1) * GetCell(11, 2) -  GetCell(10, 2) * GetCell(11, 1)) + (GetCell(11, 1) * GetCell(12, 2) -  GetCell(11, 2) * GetCell(12, 1))+ (GetCell(12, 1) * GetCell(13, 2) -  GetCell(12, 2) * GetCell(13, 1)) + (GetCell(13, 1) * GetCell(14, 2) -  GetCell(13, 2) * GetCell(14, 1)) + (GetCell(14, 1) * GetCell(15, 2) -  GetCell(14, 2) * GetCell(15, 1)) + (GetCell(15, 1) * GetCell(16, 2) -  GetCell(15, 2) * GetCell(16, 1))   + (GetCell(16, 1) * GetCell(17, 2) -  GetCell(16, 2) * GetCell(17, 1))  + (GetCell(17, 1) * GetCell(18, 2) -  GetCell(17, 2) * GetCell(18, 1)) + (GetCell(18, 1) * GetCell(19, 2) -  GetCell(18, 2) * GetCell(19, 1)) + (GetCell(19, 1) * GetCell(20, 2) -  GetCell(19, 2) * GetCell(20, 1)) + (GetCell(20, 1) * GetCell(21, 2) -  GetCell(20, 2) * GetCell(21, 1)) + (GetCell(21, 1) * GetCell(22, 2) -  GetCell(21, 2) * GetCell(22, 1)) + (GetCell(22, 1) * GetCell(23, 2) -  GetCell(22, 2) * GetCell(23, 1)) + (GetCell(23, 1) * GetCell(24, 2) -  GetCell(23, 2) * GetCell(24, 1)) + (GetCell(24, 1) * GetCell(25, 2) -  GetCell(24, 2) * GetCell(25, 1)) + (GetCell(25, 1) * GetCell(26, 2) -  GetCell(25, 2) * GetCell(26, 1)) + (GetCell(26, 1) * GetCell(27, 2) -  GetCell(26, 2) * GetCell(27, 1)) + (GetCell(27, 1) * GetCell(28, 2) -  GetCell(27, 2) * GetCell(28, 1)) + (GetCell(28, 1) * GetCell(29, 2) -  GetCell(28, 2) * GetCell(29, 1)) + (GetCell(29, 1) * GetCell(30, 2) -  GetCell(29, 2) * GetCell(30, 1)) + (GetCell(30, 1) * GetCell(0, 2) -  GetCell(30, 2) * GetCell(0, 1))

lastArea

End If
''''''''''''''''''''''''''''''''''''''''

If NumberOfRows = 32 Then

area.text =  (GetCell(0, 1) * GetCell(1, 2) - GetCell(0, 2) * GetCell(1, 1)) + (GetCell(1, 1) * GetCell(2, 2) -  GetCell(1, 2) *  GetCell(2, 1)) + ( GetCell(2, 1) * GetCell(3, 2) -  GetCell(2, 2) * GetCell(3, 1)) + (GetCell(3, 1) * GetCell(4, 2) -  GetCell(3, 2) * GetCell(4, 1)) + (GetCell(4, 1) * GetCell(5, 2) -  GetCell(4, 2) * GetCell(5, 1)) + (GetCell(5, 1) * GetCell(6, 2) -  GetCell(5, 2) * GetCell(6, 1)) + (GetCell(6, 1) * GetCell(7, 2) -  GetCell(6, 2) * GetCell(7, 1)) + (GetCell(7, 1) * GetCell(8, 2) -  GetCell(7, 2) * GetCell(8, 1)) + (GetCell(8, 1) * GetCell(9, 2) -  GetCell(8, 2) * GetCell(9, 1)) + (GetCell(9, 1) * GetCell(10, 2) -  GetCell(9, 2) * GetCell(10, 1)) + (GetCell(10, 1) * GetCell(11, 2) -  GetCell(10, 2) * GetCell(11, 1)) + (GetCell(11, 1) * GetCell(12, 2) -  GetCell(11, 2) * GetCell(12, 1))+ (GetCell(12, 1) * GetCell(13, 2) -  GetCell(12, 2) * GetCell(13, 1)) + (GetCell(13, 1) * GetCell(14, 2) -  GetCell(13, 2) * GetCell(14, 1)) + (GetCell(14, 1) * GetCell(15, 2) -  GetCell(14, 2) * GetCell(15, 1)) + (GetCell(15, 1) * GetCell(16, 2) -  GetCell(15, 2) * GetCell(16, 1))   + (GetCell(16, 1) * GetCell(17, 2) -  GetCell(16, 2) * GetCell(17, 1))  + (GetCell(17, 1) * GetCell(18, 2) -  GetCell(17, 2) * GetCell(18, 1)) + (GetCell(18, 1) * GetCell(19, 2) -  GetCell(18, 2) * GetCell(19, 1)) + (GetCell(19, 1) * GetCell(20, 2) -  GetCell(19, 2) * GetCell(20, 1)) + (GetCell(20, 1) * GetCell(21, 2) -  GetCell(20, 2) * GetCell(21, 1)) + (GetCell(21, 1) * GetCell(22, 2) -  GetCell(21, 2) * GetCell(22, 1)) + (GetCell(22, 1) * GetCell(23, 2) -  GetCell(22, 2) * GetCell(23, 1)) + (GetCell(23, 1) * GetCell(24, 2) -  GetCell(23, 2) * GetCell(24, 1)) + (GetCell(24, 1) * GetCell(25, 2) -  GetCell(24, 2) * GetCell(25, 1)) + (GetCell(25, 1) * GetCell(26, 2) -  GetCell(25, 2) * GetCell(26, 1)) + (GetCell(26, 1) * GetCell(27, 2) -  GetCell(26, 2) * GetCell(27, 1)) + (GetCell(27, 1) * GetCell(28, 2) -  GetCell(27, 2) * GetCell(28, 1)) + (GetCell(28, 1) * GetCell(29, 2) -  GetCell(28, 2) * GetCell(29, 1)) + (GetCell(29, 1) * GetCell(30, 2) -  GetCell(29, 2) * GetCell(30, 1)) + (GetCell(30, 1) * GetCell(31, 2) -  GetCell(30, 2) * GetCell(31, 1))+ (GetCell(31, 1) * GetCell(0, 2) -  GetCell(31, 2) * GetCell(0, 1))

lastArea

End If
''''''''''''''''''''''''''''''''''''''''
If NumberOfRows = 33 Then

area.text =  (GetCell(0, 1) * GetCell(1, 2) - GetCell(0, 2) * GetCell(1, 1)) + (GetCell(1, 1) * GetCell(2, 2) -  GetCell(1, 2) *  GetCell(2, 1)) + ( GetCell(2, 1) * GetCell(3, 2) -  GetCell(2, 2) * GetCell(3, 1)) + (GetCell(3, 1) * GetCell(4, 2) -  GetCell(3, 2) * GetCell(4, 1)) + (GetCell(4, 1) * GetCell(5, 2) -  GetCell(4, 2) * GetCell(5, 1)) + (GetCell(5, 1) * GetCell(6, 2) -  GetCell(5, 2) * GetCell(6, 1)) + (GetCell(6, 1) * GetCell(7, 2) -  GetCell(6, 2) * GetCell(7, 1)) + (GetCell(7, 1) * GetCell(8, 2) -  GetCell(7, 2) * GetCell(8, 1)) + (GetCell(8, 1) * GetCell(9, 2) -  GetCell(8, 2) * GetCell(9, 1)) + (GetCell(9, 1) * GetCell(10, 2) -  GetCell(9, 2) * GetCell(10, 1)) + (GetCell(10, 1) * GetCell(11, 2) -  GetCell(10, 2) * GetCell(11, 1)) + (GetCell(11, 1) * GetCell(12, 2) -  GetCell(11, 2) * GetCell(12, 1))+ (GetCell(12, 1) * GetCell(13, 2) -  GetCell(12, 2) * GetCell(13, 1)) + (GetCell(13, 1) * GetCell(14, 2) -  GetCell(13, 2) * GetCell(14, 1)) + (GetCell(14, 1) * GetCell(15, 2) -  GetCell(14, 2) * GetCell(15, 1)) + (GetCell(15, 1) * GetCell(16, 2) -  GetCell(15, 2) * GetCell(16, 1))   + (GetCell(16, 1) * GetCell(17, 2) -  GetCell(16, 2) * GetCell(17, 1))  + (GetCell(17, 1) * GetCell(18, 2) -  GetCell(17, 2) * GetCell(18, 1)) + (GetCell(18, 1) * GetCell(19, 2) -  GetCell(18, 2) * GetCell(19, 1)) + (GetCell(19, 1) * GetCell(20, 2) -  GetCell(19, 2) * GetCell(20, 1)) + (GetCell(20, 1) * GetCell(21, 2) -  GetCell(20, 2) * GetCell(21, 1)) + (GetCell(21, 1) * GetCell(22, 2) -  GetCell(21, 2) * GetCell(22, 1)) + (GetCell(22, 1) * GetCell(23, 2) -  GetCell(22, 2) * GetCell(23, 1)) + (GetCell(23, 1) * GetCell(24, 2) -  GetCell(23, 2) * GetCell(24, 1)) + (GetCell(24, 1) * GetCell(25, 2) -  GetCell(24, 2) * GetCell(25, 1)) + (GetCell(25, 1) * GetCell(26, 2) -  GetCell(25, 2) * GetCell(26, 1)) + (GetCell(26, 1) * GetCell(27, 2) -  GetCell(26, 2) * GetCell(27, 1)) + (GetCell(27, 1) * GetCell(28, 2) -  GetCell(27, 2) * GetCell(28, 1)) + (GetCell(28, 1) * GetCell(29, 2) -  GetCell(28, 2) * GetCell(29, 1)) + (GetCell(29, 1) * GetCell(30, 2) -  GetCell(29, 2) * GetCell(30, 1)) + (GetCell(30, 1) * GetCell(31, 2) -  GetCell(30, 2) * GetCell(31, 1))+ (GetCell(31, 1) * GetCell(32, 2) -  GetCell(31, 2) * GetCell(32, 1)) + (GetCell(32, 1) * GetCell(0, 2) -  GetCell(32, 2) * GetCell(0, 1))

lastArea

End If
''''''''''''''''''''''''''''''''''''''''
If NumberOfRows = 34 Then

area.text =  (GetCell(0, 1) * GetCell(1, 2) - GetCell(0, 2) * GetCell(1, 1)) + (GetCell(1, 1) * GetCell(2, 2) -  GetCell(1, 2) *  GetCell(2, 1)) + ( GetCell(2, 1) * GetCell(3, 2) -  GetCell(2, 2) * GetCell(3, 1)) + (GetCell(3, 1) * GetCell(4, 2) -  GetCell(3, 2) * GetCell(4, 1)) + (GetCell(4, 1) * GetCell(5, 2) -  GetCell(4, 2) * GetCell(5, 1)) + (GetCell(5, 1) * GetCell(6, 2) -  GetCell(5, 2) * GetCell(6, 1)) + (GetCell(6, 1) * GetCell(7, 2) -  GetCell(6, 2) * GetCell(7, 1)) + (GetCell(7, 1) * GetCell(8, 2) -  GetCell(7, 2) * GetCell(8, 1)) + (GetCell(8, 1) * GetCell(9, 2) -  GetCell(8, 2) * GetCell(9, 1)) + (GetCell(9, 1) * GetCell(10, 2) -  GetCell(9, 2) * GetCell(10, 1)) + (GetCell(10, 1) * GetCell(11, 2) -  GetCell(10, 2) * GetCell(11, 1)) + (GetCell(11, 1) * GetCell(12, 2) -  GetCell(11, 2) * GetCell(12, 1))+ (GetCell(12, 1) * GetCell(13, 2) -  GetCell(12, 2) * GetCell(13, 1)) + (GetCell(13, 1) * GetCell(14, 2) -  GetCell(13, 2) * GetCell(14, 1)) + (GetCell(14, 1) * GetCell(15, 2) -  GetCell(14, 2) * GetCell(15, 1)) + (GetCell(15, 1) * GetCell(16, 2) -  GetCell(15, 2) * GetCell(16, 1))   + (GetCell(16, 1) * GetCell(17, 2) -  GetCell(16, 2) * GetCell(17, 1))  + (GetCell(17, 1) * GetCell(18, 2) -  GetCell(17, 2) * GetCell(18, 1)) + (GetCell(18, 1) * GetCell(19, 2) -  GetCell(18, 2) * GetCell(19, 1)) + (GetCell(19, 1) * GetCell(20, 2) -  GetCell(19, 2) * GetCell(20, 1)) + (GetCell(20, 1) * GetCell(21, 2) -  GetCell(20, 2) * GetCell(21, 1)) + (GetCell(21, 1) * GetCell(22, 2) -  GetCell(21, 2) * GetCell(22, 1)) + (GetCell(22, 1) * GetCell(23, 2) -  GetCell(22, 2) * GetCell(23, 1)) + (GetCell(23, 1) * GetCell(24, 2) -  GetCell(23, 2) * GetCell(24, 1)) + (GetCell(24, 1) * GetCell(25, 2) -  GetCell(24, 2) * GetCell(25, 1)) + (GetCell(25, 1) * GetCell(26, 2) -  GetCell(25, 2) * GetCell(26, 1)) + (GetCell(26, 1) * GetCell(27, 2) -  GetCell(26, 2) * GetCell(27, 1)) + (GetCell(27, 1) * GetCell(28, 2) -  GetCell(27, 2) * GetCell(28, 1)) + (GetCell(28, 1) * GetCell(29, 2) -  GetCell(28, 2) * GetCell(29, 1)) + (GetCell(29, 1) * GetCell(30, 2) -  GetCell(29, 2) * GetCell(30, 1)) + (GetCell(30, 1) * GetCell(31, 2) -  GetCell(30, 2) * GetCell(31, 1))+ (GetCell(31, 1) * GetCell(32, 2) -  GetCell(31, 2) * GetCell(32, 1)) + (GetCell(32, 1) * GetCell(33, 2) -  GetCell(32, 2) * GetCell(33, 1)) + (GetCell(33, 1) * GetCell(0, 2) -  GetCell(33, 2) * GetCell(0, 1))

lastArea

End If
''''''''''''''''''''''''''''''''''''''''

Else

ToastMessageShow("3 σημεία και πάνω",True)
End If
End Sub``````

Last edited:

#### walt61

##### Active Member
Longtime User
I think you're looking for something like this, Dimitris:
B4X:
``````    Dim result As Double ' Change type 'Double' to whatever is needed

If NumberOfRows < 3 Then
ToastMessageShow("3 σημεια και πανω ",True)
Else If NumberOfRows < 35 Then
result = 0
For i = 0 To (NumberOfRows - 1)
If i < NumberOfRows - 1 Then
result = result + (GetCell(i, 1) * GetCell(i, 2) - GetCell(i, 2) * GetCell(i, 1))
Else
result = result + (GetCell(i, 1) * GetCell(0, 2) - GetCell(i, 2) * GetCell(0, 1))
End If
Next
area.Text = result
lastarea
Else
ToastMessageShow("3 σημεία και πάνω",True)
End If``````

#### teddybear

##### Well-Known Member
it looks like you are using Gauss's area formula to calculate a polygon area, is it? what is the GetCell, is it used to get the x or y coordinate of a specified point on the polygon？

##### Member
Thank you very much for your reply Walt61 ,but i am getting wrong results

Last edited:

##### Member
it looks like you are using Gauss's area formula to calculate a polygon area, is it? what is the GetCell, is it used to get the x or y coordinate of a specified point on the polygon？
x is GetCell(0, 1)
y is GetCell(0, 2)
There is a division after that (result / 2)

#### walt61

##### Active Member
Longtime User
Thank you very much for your reply Walt61 ,but i am getting wrong results

Oops my bad, this should be better (notice the 'i + 1'):

B4X:
``````    Dim result As Double ' Change type 'Double' to whatever is needed

If NumberOfRows < 3 Then
ToastMessageShow("3 σημεια και πανω ",True)
Else If NumberOfRows < 35 Then
result = 0
For i = 0 To (NumberOfRows - 1)
If i < NumberOfRows - 1 Then
result = result + (GetCell(i, 1) * GetCell(i + 1, 2) - GetCell(i, 2) * GetCell(i + 1, 1)) ' "i + 1" used here instead of 'i'
Else
result = result + (GetCell(i, 1) * GetCell(0, 2) - GetCell(i, 2) * GetCell(0, 1))
End If
Next
area.Text = result
lastarea
Else
ToastMessageShow("3 σημεία και πάνω",True)
End If``````

#### RichardN

##### Well-Known Member
Longtime User

Here is a good tip.... If you thing you are writing too much code, then you probably are. There are many ways to process sequential information, using multiple If...Then statements is very labour intensive and good programmers are very lazy people!

Have a look at SELECT CASE. It can be much cleaner and far more useful.

Last edited:

##### Member
Oops my bad, this should be better (notice the 'i + 1'):

B4X:
``````    Dim result As Double ' Change type 'Double' to whatever is needed

If NumberOfRows < 3 Then
ToastMessageShow("3 σημεια και πανω ",True)
Else If NumberOfRows < 35 Then
result = 0
For i = 0 To (NumberOfRows - 1)
If i < NumberOfRows - 1 Then
result = result + (GetCell(i, 1) * GetCell(i + 1, 2) - GetCell(i, 2) * GetCell(i + 1, 1)) ' "i + 1" used here instead of 'i'
Else
result = result + (GetCell(i, 1) * GetCell(0, 2) - GetCell(i, 2) * GetCell(0, 1))
End If
Next
area.Text = result
lastarea
Else
ToastMessageShow("3 σημεία και πάνω",True)
End If``````
Thank you very much Walt61,that working perfect!!

##### Member

Here is a good tip.... If you thing you are writing too much code, then you probably are. There are may ways ways to process sequential information, using multiple If...Then statements is very labour intensive and good programmers are very lazy people!

Have a look at SELECT CASE. It can be much cleaner and far more useful.
I am not a real programmer as I said so...if and Else is the only way

Longtime User

Replies
5
Views
1K
Replies
3
Views
796
Replies
4
Views
22K
Replies
23
Views
32K
Replies
36
Views
107K