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
Prenos podatkov v obrazec
Re: Prenos podatkov v obrazec
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.
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
Matjaž Prtenjak
Administrator
Re: Prenos podatkov v obrazec
Pozdravljeni
Hvala za odgovor.
LP MP
Hvala za odgovor.
LP MP
Re: Prenos podatkov v obrazec
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!
(4:2 za nas)
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!
(4:2 za nas)
Buba