Sub Makro1()
'
' Makro1 Makro
'
kapital = 10000
ilosc_akcji = 0

For i = 17 To 2866
    If Cells(i, 17).Value = "sprzedaj" Then
        kapital = kapital + ilosc_akcji * Cells(i + 1, 3).Value
        ilosc_akcji = 0
        kapital = kapital + ilosc_akcji * Cells(i + 1, 3).Value
    End If

    If Cells(i, 18).Value = "kup" Then
        ilosc_akcji = Int(kapital / Cells(i + 1, 3).Value)
        kapital = kapital - ilosc_akcji * Cells(i + 1, 3).Value
    End If

Next i

If (ilosc_akcji > 0) Then
    kapital = kapital + ilosc_akcji * Cells(i + 1, 6).Value
End If
    Cells(1, 19).Value = kapital
    Cells(i, 20).Value = ilosc_akcji






'
    Range("Q1:R2866").Select
End Sub