Sub Obliczanie_etatów()
Dim a, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, b As Byte
Dim c, ed11s As Variant
Dim d1, d2, d3, d4, d5, d6, d7, d8, d9, d10, j1, pj1, qj1, zmienna1, zmienna2, zmienna3, zmienna4  As Single


b = InputBox("Podaj wiek drzewostanu")
a = InputBox("Podaj wiek rębności")
If a < 81 Then
b1 = b / 10
a1 = (a / 10) - 1
a2 = (a / 10) - 2
ActiveSheet.Range("b1").Select
ActiveCell.Offset([a1], [0]).Select



d1 = ActiveCell.Value
ActiveCell.Offset([0], [1]).Select
d2 = ActiveCell.Value

ActiveCell.Offset([1], [-1]).Select
d3 = ActiveCell.Value
ActiveCell.Offset([0], [1]).Select
d4 = ActiveCell.Value

ActiveCell.Offset([1], [-1]).Select
d5 = ActiveCell.Value
ActiveCell.Offset([0], [1]).Select
d6 = ActiveCell.Value

ActiveCell.Offset([1], [-1]).Select
d7 = ActiveCell.Value
ActiveCell.Offset([0], [1]).Select
d8 = ActiveCell.Value

ActiveCell.Offset([1], [-1]).Select
d9 = ActiveCell.Value
ActiveCell.Offset([0], [1]).Select
d10 = ActiveCell.Value

ed11s = d1 + d3 + d5 + d7 + d9
ed11v = d2 + d4 + d6 + d8 + d10

ActiveSheet.Range("b1").Select
ActiveCell.Offset([a2], [0]).Select
d1 = ActiveCell.Value
ActiveCell.Offset([0], [1]).Select
d2 = ActiveCell.Value

ActiveCell.Offset([1], [-1]).Select
d3 = ActiveCell.Value
ActiveCell.Offset([0], [1]).Select
d4 = ActiveCell.Value

ActiveCell.Offset([1], [-1]).Select
d5 = ActiveCell.Value
ActiveCell.Offset([0], [1]).Select
d6 = ActiveCell.Value

ActiveCell.Offset([1], [-1]).Select
d7 = ActiveCell.Value
ActiveCell.Offset([0], [1]).Select
d8 = ActiveCell.Value

ActiveCell.Offset([1], [-1]).Select
d9 = ActiveCell.Value
ActiveCell.Offset([0], [1]).Select
d10 = ActiveCell.Value

ed21s = (d1 + d3 + d5 + d7 + d9) / 2
ed21v = (d2 + d4 + d6 + d8 + d10) / 2

    ActiveSheet.Range("a1").Select
    ActiveCell.Offset([b1], [0]).Select
    j1 = ActiveCell.Value
    ActiveCell.Offset([0], [1]).Select
    pj1 = ActiveCell.Value

    qj1 = pj1 / 1

    zmienna1 = j1 * pj1 * qj1
    If zmienna1 > 0.9 Then
        If zmienna1 < 1.1 Then

            ez = pj1 * qj1
            Else
            Do While zmienna1 < 1.1
            pj1 -0.001
            zmienna1 = j1 * pj1 * qj1
            Loop
            ez = pj1 * qj1
            End If



    Else
     ActiveSheet.Range("a1").Select
    ActiveCell.Offset([b1], [0]).Select
    ActiveCell.Offset([-1], [0]).Select
    j1 = ActiveCell.Value
    ActiveCell.Offset([0], [1]).Select
    pj1 = ActiveCell.Value

    qj1 = pj1 / 1
    zmienna2 = zmienna1 + (j1 * pj1 * qj1)
        If zmienna2 > 0.9 Then
            If zmienna2 < 1.1 Then
             ez = pj1 * qj1
            Else
             Do While zmienna2 < 1.1
            pj1 -0.001
            zmienna2 = zmienna1 + (j1 * pj1 * qj1)
            Loop
            ez = pj1 * qj1
            End If


    Else

     ActiveSheet.Range("a1").Select
    ActiveCell.Offset([b1], [0]).Select
    ActiveCell.Offset([-2], [0]).Select
    j1 = ActiveCell.Value
    ActiveCell.Offset([0], [1]).Select
    pj1 = ActiveCell.Value

    qj1 = pj1 / 1
    zmienna3 = zmienna2 + (j1 * pj1 * qj1)
        If zmienna3 > 0.9 Then
            If zmienna2 < 1.1 Then
             ez = pj1 * qj1
            Else
             Do While zmienna2 < 1.1
            pj1 -0.001
            zmienna3 = zmienna2 + (j1 * pj1 * qj1)
            Loop
            ez = pj1 * qj1
            End If





MsgBox (ed11s & "ha/ha/10l)  " & ed11v & "m3/ha/10l  " & ed21s & "  " & ed21v & ez)

Else




End If















End Sub