Ne znam bas da li ce radi sa lupanjem enter-a, posto excel kako god nesto promenis i potvrdis izmenu preracunava sve sheet-ove.
Ovo bi trebalo da ti zavrsi posao. Napravi makro:
nadji Visual Basic Editor (Alt+F11) i dodaj
Code:
Sub Macro1()
'
' Macro1 Macro
' Macro recorded 5/31/2005 by smix
'
Dim i, j
j = 6
For i = 6 To 10000
Range("B" + CStr(i)).Select
If ActiveCell.Text = "" Then
j = i
i = 10001
End If
Next i
ActiveCell.FormulaR1C1 = "=SUM(R[-" & CStr(j - 6) & "]C:R[-1]C)"
' Ovo je generisano pri snimanju MAKRO-a da bi provalili sintaksu ovog cudnog jezika koji me podseca na dane kad je u kutiji bio CPU "Z80"
' Range("B6:B9").Select
' Range("B9").Activate
' ActiveCell.FormulaR1C1 = "=SUM(R[-3]C:R[-1]C)"
' Range("B6:B9").Select
End Sub
Prostije bi ti bilo, cak i preglednije za rad, da se suma nalazi iznad brojeva, tj. da u tom polju upises "=SUM(A5:A100000), a da unosis brojeve od A6 pa na dole.
Pozdrav