Prenos podatkov v obrazec

Pomoč pri izdelavi makrov
Odgovori
MP
Prispevkov: 12
Pridružen: Sr Feb 07, 2007 10:46 am

Prenos podatkov v obrazec

Odgovor Napisal/-a MP »

Pozdravljeni

Iz seznama želim prenesti podatke v obrazec. Za prenos podatkov sem oblikovala makro. Ali je možno spodaj navedeni makro napisati bolj enostavno, saj je makro zelo obsežen.


Sub vnos()


i = Worksheets("Obrazec ").Cells(42, 23)
Worksheets("Obrazec").Cells(46, 25) = Worksheets("seznam").Cells(1 + i, 3)
Worksheets("Obrazec").Cells(46, 3) = Worksheets("seznam").Cells(1 + i, 4)
Worksheets("Obrazec").Cells(46, 9) = Worksheets("seznam").Cells(1 + i, 5)
Worksheets("Obrazec").Cells(48, 6) = Worksheets("seznam").Cells(1 + i, 6)
Worksheets("Obrazec").Cells(48, 13) = Worksheets("seznam").Cells(1 + i, 7)
Worksheets("Obrazec").Cells(49, 6) = Worksheets("seznam").Cells(1 + i, 10)
Worksheets("Obrazec").Cells(49, 18) = Worksheets("seznam").Cells(1 + i, 11)
Worksheets("Obrazec").Cells(50, 5) = Worksheets("seznam").Cells(1 + i, 12)
Worksheets("Obrazec").Cells(50, 19) = Worksheets("seznam").Cells(1 + i, 13)
Worksheets("Obrazec").Cells(51, 9) = Worksheets("seznam").Cells(1 + i, 14)
Worksheets("Obrazec").Cells(51, 15) = Worksheets("seznam").Cells(1 + i, 15)
Worksheets("Obrazec").Cells(51, 17) = Worksheets("seznam").Cells(1 + i, 16)
Worksheets("Obrazec").Cells(51, 25) = Worksheets("seznam").Cells(1 + i, 17)
Worksheets("Obrazec").Cells(53, 6) = Worksheets("seznam").Cells(1 + i, 18)
Worksheets("Obrazec").Cells(56, 6) = Worksheets("seznam").Cells(1 + i, 19)
Worksheets("Obrazec").Cells(57, 6) = Worksheets("seznam").Cells(1 + i, 20)
Worksheets("Obrazec").Cells(58, 6) = Worksheets("seznam").Cells(1 + i, 21)
.
.
.
.
Worksheets("Obrazec").Cells(315, 6) = Worksheets("seznam").Cells(1 + i, 240)


End Sub



LP MP
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: Prenos podatkov v obrazec

Odgovor Napisal/-a admin »

Makro lahko poenostavite, ko v njem obstaja neka logika - torej neko pravilo, nek algoritem, ki ga lahko implementirate. V primeru, ki ste ga poslali, na žalost ne vidim nobenega algoritma :(.

Desna stran prirejanj sledi algoritmu, saj vsak podatek vzamete iz naslednje kolone, torej bi lahko to počeli v zanki. Toda desna stranj prirejanj nima nekega vidnega algoritma, saj podatke "mečete" sem ter tja po listu.
lp,
Matjaž Prtenjak
Administrator
MP
Prispevkov: 12
Pridružen: Sr Feb 07, 2007 10:46 am

Re: Prenos podatkov v obrazec

Odgovor Napisal/-a MP »

Pozdravljeni

Hvala za odgovor.

LP MP
Buba
Prispevkov: 85
Pridružen: Sr Mar 12, 2008 11:49 am
Kraj: Maribor

Re: Prenos podatkov v obrazec

Odgovor Napisal/-a Buba »

Pozdravljeni!
Mogoče bi bilo vredno poizkusiti skakšno posredno tabelo.
Ideja je ta:
Koordinate v prirejanjih prepipišite v tabelo.
Sedaj lahko posamezne vrstice (pare koordinat) opremite s komentarji.
Poljubno grupirajte posamezne vrstice. Tako povečate berljivost tabele (v primerjavi z tistim kar je zapisano v kodi).
Lažje je tudi vrinit nove vrstice (koordinate).

Potrebno pa je napisat kodo (makro), ki bo v tej posredni tabeli prečitala kje naj vzame podatek in kam naj ga zalepi.

Pa lep dan!
:D (4:2 za nas)
Buba
Odgovori