[ snenad_82 @ 01.08.2012. 12:29 ] @
Potrebna mi je pomoć oko macroa. Napravio sam formu u sheetu1 koju treba popunjavati. Sada želim da svaki put kada neko popuni formu kombinacijom tastera je sačuva u sheet2. To je sve ok. Idem na record macro snimim šta mi treba međutim ne znam kako da editujem macro da mi svaki sledeći put snimi formu ispod postojeće (one koje je prethodni put snimio). Znači treba mi red(ovi) koda koji će da pomeri paste za određeni broj redova npr 55. Ili ako neko zna neko elegantnije rešenje bio bih mu vrlo zahvalan.
Takođe da li neko zna kako da funkciju =WEEKDAY() nateram da piše ćirilicu?
[ FOX028 @ 01.08.2012. 12:33 ] @
Okaci to sto si radio, bice lakse onome ko pokusa da ti pomogne u resavanju problema.
[ 3okc @ 01.08.2012. 12:43 ] @
Ako otvoriš Immediate prozor i otkucaš ?[a65536].end(xlup).offset(1).address dobićeš adresu prve slobodne ćelije u koloni A.

Dakle, odredi sebi referentnu kolonu pa prilagodi gornju komandu da ti izračuna slobodnu ćeliju od koje će se upisivati.

Što se tiče f-je WEEKDAY(), ona ispisuje redne brojeve dana u nedelji.
[ snenad_82 @ 01.08.2012. 14:56 ] @
evo fajla

građevinski dnevnik
[ snenad_82 @ 06.08.2012. 08:05 ] @
Dobijam Run time error 9 Subscript out of range šta trebam da promenim?

Code:
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+w
'
    Range("C2:AA53").Select
    Selection.Copy
    Sheets("Sacuvano").Select
    Range("A1").Select
    Range("A65536").End(xlUp).Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Gradevinski dnevnik").Select
    ActiveWindow.SmallScroll Down:=-18
    Range( _
        "E3:L3,E4:L4,F8,F10,F12,H8,H10,H12,M8:P13,Z4,U8,U10,U12,W8,W10,W12,Y8:AA9,Y10:AA10,Y12:AA12,C16:S17,C19:S20,C22:D50,S22:S50,E44:Q50" _
        ).Select
    Range("E44").Activate
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = ""
    Range("C22").Select
    ActiveCell.FormulaR1C1 = ""
    Range("D22").Select
    ActiveCell.FormulaR1C1 = ""
    Range("F8").Select
    ActiveCell.FormulaR1C1 = ""
    Range("H8").Select
    ActiveCell.FormulaR1C1 = ""
    Range("U8").Select
    ActiveCell.FormulaR1C1 = ""
    Range("Y8:AA9").Select
    ActiveCell.FormulaR1C1 = ""
    Range("C16:E16").Select
    ActiveCell.FormulaR1C1 = ""
    Range("C22").Select
End Sub
[ FOX028 @ 06.08.2012. 09:01 ] @
To je obicno greska o nepostojanju odredjenog Sheet-a, u tvom slucaju je to verovatno Sheet pod nazivom Sacuvano, a takodje proveri da li ti se poklapa naziv Sheet-a Gradjevinski dnevnik sa nazivom tog Sheet-a u kodu.

Na ovom linku imas nesto o proveri postojanja odredjenog Sheet-a, ovo bi ti bilo korisno za u buduce da ne dolazi to takvih gresaka.
http://www.ozgrid.com/forum/showthread.php?t=58548
[ snenad_82 @ 06.08.2012. 12:54 ] @
hvala
u pravu si nije prepoznao đ iz naziva sheeta kad sam prepravio na dj i na jednom i drugom mestu sve funkcioniše