Ako znas sa formulom moguće je forumulu upisati pomoću VBA
Forumla u VBA. Ipak u VBA postoji i jednostavniji način
Code:
Option Explicit
Sub RedniBroj()
' Zavisno da li je odgovarajucua celija kolone C (cl) neprazna
' formira se redni broj u koloni A
' pocevsi od nekog zadatog broja
' P.Jovanovic za elitesecurity.org
'
Dim sh As Worksheet
Dim rwEnd As Long ' Poslednji red za koji se formira redni broj
Dim rw As Long ' Brojac redova
Dim RedBr As Long ' Redni broj
Const rwStart As Integer = 8 ' Uslov da se pocinje od 8 reda
Const cl As Integer = 3 ' Kolona C se koristi za uslov
'Unos pocetnog rednog broja
RedBr = Application.InputBox(Prompt:="Unesi pocetni redni broj", Title:="Poèetni broj", Default:=1, Type:=1)
Set sh = ActiveSheet ' List na kojem se radi
rwEnd = sh.Cells(65535, cl).End(xlUp).Row ' Poslednji popunjen red
For rw = rwStart To rwEnd
If Len(Trim(sh.Cells(rw, cl).Text)) > 0 Then ' Da li je æelija popunjena
sh.Cells(rw, 1).Value = RedBr ' Upis rednog broja u kolonu A
RedBr = RedBr + 1 ' Sledeci redni broj
Else
sh.Cells(rw, 1).Value = "" ' Prazna ćelija
End If
Next rw
End Sub
Nije to loše Rembrante, samo što ne bi dodao još malo boje?