pomoć, prebacivanje rezultata u novu tabelu, uvek u novi red

Odgovori Nova tema

2 odgovora
3.574 pregleda

pomoć, prebacivanje rezultata u novu tabelu, uvek u novi red 08.07.2008. u 22:47 · pre 223 meseca #1

Pozdrav dobri ljudi...

Imam jedan problem, i ne znam kako da ga rešim
Naime, imam jednu tabelu sa dnevnim izveštajem koji radim svakog dana.
Hteo bih sada da napravim makro, koji bi klikom na dugme, rezulate tog izveštaja (konkretno 4 ćelije, recimo e1, e2, e3, e4) iskopirao u novi sheet, ali u tabelu tako da uvek novi rezultat iskopira u novi red.

Tako bi hronološki čuvao podatke svakodnevnog izveštaj, pa bi lakše mogao da radim rekapitulacije na mesečnom nivou.

Dajte mi primer u VBA za jednu ćeliju, pa ću se ja valjda snaći nakon toga...

Znači:
danas da kopira polje e1 iz sheeta1 u sheet2 a1.
sutra da kopira polje e1 iz sheeta1 u sheet2 a2.
preksutra da kpira polje e1 iz sheeta1 u sheet2 a3.
Znači uvek u naredni slobodni red..

Nadam se da sam dobro objasnio...

Hvala unapred.

Re: pomoć, prebacivanje rezultata u novu tabelu, uvek u novi red 09.07.2008. u 01:02 · pre 223 meseca #2

Probaj sa sledecim kodom:

Code:

Public Sub KopirajE1()
    Sheets("Sheet2").Activate
    Range("A1").Select
    Do While ActiveCell.Value <> ""
        ActiveCell.Offset(1, 0).Range("A1").Select
    Loop
    ActiveCell.Value = Range("Sheet1!e1").Value
End Sub

Inace umesto Do...Loop krace bi bilo

Code:

Range("A1").End(xldown).Select

ali samo ako barem necega ima u A1 i A2

Pozdrav

Re: pomoć, prebacivanje rezultata u novu tabelu, uvek u novi red 09.07.2008. u 08:22 · pre 222 meseca #3

Citat:

kUjKoJa: Dajte mi primer u VBA za jednu ćeliju, pa ću se ja valjda snaći nakon toga...

pogledaj i ovu temu http://www.elitesecurity.org/t328307

Prijavite se da biste odgovorili u ovoj temi.Prijava Registracija

Forum kao aplikacija na telefonu

Srodne teme