Private Sub TabOkay_Click()
Sheet5.Cells.Clear
'------------Capacity Table-----------------------------------------------
With Sheet5.Range("A5:I5").Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThick
End With
Sheet5.Range("A5").Value = "Dip(mm)"
Sheet5.Range("D5").Value = "Dip(mm)"
Sheet5.Range("G5").Value = "Dip(mm)"
Sheet5.Range("B5").Value = "Capacity(m^3)"
Sheet5.Range("E5").Value = "Capacity(m^3)"
Sheet5.Range("H5").Value = "Capacity(m^3)"
Sheet5.Range("C5").Value = AddTab.Value
Sheet5.Range("F5").Value = AddTab.Value
Sheet5.Range("I5").Value = AddTab.Value
R = 100
dia_cyvol = 2 * R
number = 2
For number = 1 To CInt(2)
DF = Sheet4.Range("K" & number + 1).Value
DT = Sheet4.Range("L" & number + 1).Value
For h = 0 To dia_cyvol
Sheet5.Cells(h + 6, 1) = h
If h <= DF Then
Sheet5.Cells(h + 6, 2).Value = Sheet3.Cells(h + 2, 12).Value
End If
[U][B] If h > DF And h < DT Then[/B]
[B] For A = DF To DT[/B]
[B] Sheet3.Cells(2 + A, 14).Value = Sheet4.Cells(2, 14).Value * (A - DF)[/B]
[B] Sheet5.Cells(h + 6, 2).Value = Sheet3.Cells(h + 2, 12) + Sheet3.Cells(2 + A, 14)[/B]
[B] Next A[/B]
[B] End If[/B][/U]
If h >= DT Then
If number = 1 Then
Sheet5.Cells(h + 6, 2).Value = Sheet3.Cells(h + 2, 12) + Sheet4.Range("M" & number + 1).Value
'ElseIf number > 1 Then
'Sheet5.Cells(h + 6, 2) = Sheet3.Cells(h + 2, 12) + WorksheetFunction.Sum(Sheet4.Range("M2:M100"))
End If
End If
Next h
Next number
Sheet5.Columns("A:Z").AutoFit
End Sub