Opravil som to. Ja mám večný bordel v Row a Column. Kedysi to bol problém s Width a Height. Teraz je výsledný kód tento:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ErrorHandler
Application.EnableEvents = False
If Target.Column = 15 Then
Target.Offset(0, 1) = Target.Offset(-1, 0) - Target.Value
End If
If Target.Column = 16 Then
Target.Offset(0, -1) = Target.Offset(-1, -1) - Target.Value
End If
ErrorHandler:
Application.EnableEvents = True
End Sub
Pracuje to správne, len nerozumiem ako použiť Resize. Pozerám aj do helpu, ale nechápem tomu. Ide o to, že naraz zmením viac buniek, že? Dobre, ale ako s tým súvisí Resize? Ako zistí, ktorú bunku mi má vybrať?Edit: Keď zmením viac buniek naraz (kopírovanie a tak, tak sa to vykonať nemusí, ale ako to zariadim? Medzitým som ešte pridal podmienku, že Row musí byť viac ako 3, inak sa to nevykoná.