Treba mi pomoc u Excela - hitno

[jazo67]

da li neko moze da mi napise formulu ili da mi da informaciju da napravim ovakav zapis gde ce se menjati srednji broj( koji povacava).Cilj mi je da skratim proceduru upisa
1AB.2001/10
2AB.2002/10
1AB.2003/10
2AB.2004/10
1AB.2005/10
2AB.2006/10
..............

ovo mi hitno treba jer treba da upisem preko 15000 artikala do 5.05.2010
P.S.

moram sve rucno da unosim al bi na ovim brojevima skratio proceduru
Hvala unapred

[MG-RAY]

A da napises Macro? Sada ću ja nešto da ti sastavim...

Evo:

Sub Entry()
'
' Entry Macro
'

'
    Dim startNum As Integer     ' startni broj
    Dim oneOrTwo As Boolean     ' "1" ili "2" na pocetku
    Dim numCells As Integer     ' broj celija za popunjavanje
    
    Dim cContent As String      ' sadrzaj celije
    Dim cCell As String         ' lokacija celije
    
    
    oneOrTwo = True             ' pocinjemo sa jedinicom
    startNum = 2001             ' od broja 2001
    lenght = 15000              ' 15000 celija unapred
    numCells = startNum + lenght    ' racunanje lokacije konacne celije

    For i = 1 To lenght                 ' prolazimo kroz sve celije
    
        cCell = "A" & Trim$(Str$(i))    ' kreiramo lokaciju
            
        If oneOrTwo = True Then         ' biramo 1 ili 2
            cContent = "1"
            oneOrTwo = False
            
            Else
            cContent = "2"
            oneOrTwo = True
            
            
        End If
        
        ' kreiramo sadrzaj celije
        cContent = cContent & "AB."
        cContent = cContent & Trim$(startNum - 1 + i)
        cContent = cContent & "/10"
        
        
        ' selektujemo celiju
        Range(cCell).Select
        
        ' i upisujemo sadrzaj
        ActiveCell.FormulaR1C1 = cContent
    
    Next i
    
End Sub

Nego, nadam se da nisi ozbiljan u vezi ručnog unošenja tih podataka...