pomoć sa macroom i još nešto

pomoć sa macroom i još nešto 01.08.2012. u 13:29 · pre 173 meseca #1

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?

građevinski dnevnik.xlsx74.21k

Re: pomoć sa macroom i još nešto 01.08.2012. u 13:33 · pre 173 meseca #2

Okaci to sto si radio, bice lakse onome ko pokusa da ti pomogne u resavanju problema.

Potpis

[email protected]=

Re: pomoć sa macroom i još nešto 01.08.2012. u 13:43 · pre 173 meseca #3

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.

Potpis

Have you found helpful examples, solutions or ideas-in-work, please consider the
following:
• Citation of *actual page* you are going to using is welcome.
• Have you saw "Value Added" examples you are going to incorporate to your
profitable blog, daily job or any money making venture: How about online donation?
↗Ana & Vlade Divac Foundation
Hvala!

Re: pomoć sa macroom i još nešto 01.08.2012. u 15:56 · pre 173 meseca #4

evo fajla

građevinski dnevnik

Re: pomoć sa macroom i još nešto 06.08.2012. u 09:05 · pre 173 meseca #5

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

Re: pomoć sa macroom i još nešto 06.08.2012. u 10:01 · pre 173 meseca #6

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

Potpis

[email protected]=

Re: pomoć sa macroom i još nešto 06.08.2012. u 13:54 · pre 173 meseca #7

hvala
u pravu si nije prepoznao đ iz naziva sheeta kad sam prepravio na dj i na jednom i drugom mestu sve funkcioniše

Forum kao aplikacija na telefonu

Srodne teme