makro - excel poišče prvo prazno vrstico

Pomoč pri delu z MS Excelom
Odgovori
vitalin
Prispevkov: 61
Pridružen: Če Mar 08, 2007 10:18 am

makro - excel poišče prvo prazno vrstico

Odgovor Napisal/-a vitalin »

Pozdravljeni,

Vaših nasvetov ne morem prehvaliti, odlični ste. Imam problem.
V excel file imam več listov, prvi list je zbir najpomembnejših podatkov, iz vseh ostalih listov. Rada bi, naredila makro, ki bi mi sam pobral iz listov željene podatke in jih zapisal v prvo prazno vrstico na prvi list.

Lepo prosim, če mi lahko pomagate zapisati ustrezne stavke v VBA-ju.

100 krat hvala že vnaprej.
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Odgovor Napisal/-a admin »

Spodaj imate makro, ki bo naredil to, kar želite:

Koda: Izberi vse

Sub ZapisiArhivo()
  Worksheets("List1").Select  ' tu popravite ime lista
  
  Dim vrstica As Long
  vrstica = Range("A65536").End(xlUp).Row + 1
  
  ' sem prepišite podatke iz drugih listov
  Cells(vrstica, 1) = Worksheets("List2").Range("F10")
  Cells(vrstica, 2) = Worksheets("List3").Range("A4")
  'Cells(vrstica, 3) = ...
  'Cells(vrstica, 4) = ...
  '...
End Sub
Za vaš konkreten problem, v makru popravite sledeče:
  1. Popravite ime lista, kamor želite arhivirati podatke (na vrhu)
  2. Dodajte poljubno mnogo vrstic na koncu makra. Za primer sem vam napisal, kako lahko kopirate celico F10 iz Lista2 in A4 iz lista3...
  3. Cells(vrstica, X) pomeni 'zadnja vrstica, zaporedna kolona X, kjer 1 je A, 2 je B, 3 je C in tako dalje
lp,
Matjaž Prtenjak
Administrator
vitalin
Prispevkov: 61
Pridružen: Če Mar 08, 2007 10:18 am

makro - excel poišče prvo prazno vrstico

Odgovor Napisal/-a vitalin »

Najprej hvala za makro, deluje. Ampak sedaj me pa zanima sledeče. Situacija je takšna, da imam excel datoteko, prvi list je zbir vseh naslednjih. Makro za črpanje podatkov iz ostalih listov imam. Ostali listi dnevno nastajajo. Z makrom želim, da se ustvari najprej nov list, ki je nek obrazec v katerega se vnesejo podatki, ki pa se potem prenesejo že z znanim makrojem.

Torej kako ustvarim z makrojem ta list, ki je prazen obrazec.

Hvala lepa že vnaprej
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Odgovor Napisal/-a admin »

Excelu zaukažete, naj doda list:

Koda: Izberi vse

Sub NovList()
  Sheets.Add
End Sub
lp,
Matjaž Prtenjak
Administrator
BJ
Prispevkov: 170
Pridružen: Sr Okt 26, 2005 5:46 pm

Odgovor Napisal/-a BJ »

Excelov dodatek "WZTEMPLT.xla" je točno to, kar potrebujete
LPB
vitalin
Prispevkov: 61
Pridružen: Če Mar 08, 2007 10:18 am

makro - excel poišče prvo prazno vrstico

Odgovor Napisal/-a vitalin »

kakšen dodatek pa je to? in kaj zmore?
vitalin
Prispevkov: 61
Pridružen: Če Mar 08, 2007 10:18 am

makro - excel poišče prvo prazno vrstico

Odgovor Napisal/-a vitalin »

Najprej hvala za nasvete

Zanima me tudi, kako naj zapišem makro, da bo vedno nov list na koncu, da se bo imenoval npr. List1 in da bo na listu prazen obrazec? Ta prazen obrazec, če bi bilo možno bi imela nekje skrit in bi ga z makrojem kopirala.

Ali je možno liste v excelu skriti?

Iskrena hvala že vanprej za pomoč
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Odgovor Napisal/-a admin »

Odgovori na vsa vaša vprašanja so DA, vendar pa je vprašanj kar nekaj. In na vsa vam niti ne morem odgovoriti, ker ne poznam strukture vaše datoteke.

List skrijete preprosto tako, da ga izberete in nato izberete opcijo Oblika/List/Skrij. S tem boste obrazec skrili. Makro, ki vam bo obrazec kopiral v nov vidni list pa je takšenle:

Koda: Izberi vse

Sub KopirajInPrikaziObrazec()
  Sheets("MojObrazec").Copy Sheets(Sheets.Count)
  ActiveSheet.Visible = True
End Sub
V makru morate spremeniti ime lista, da bo takšno, kot je ime lista vašega obrazca!
lp,
Matjaž Prtenjak
Administrator
vitalin
Prispevkov: 61
Pridružen: Če Mar 08, 2007 10:18 am

makro - excel poišče prvo prazno vrstico

Odgovor Napisal/-a vitalin »

Iskrena hvala za pomoč, makro deluje.
Podatke mi prepiše v prvo zbirno tabelo. Zdaj pa imam še eno težavo. V listih, ki nastajajo, bi rada imela makro, ki bi mi poiskal v celicah, kolone B od B10:B30 ime Radenska in njeno pripadajoče vrednost, ki se nahaja v koloni C od C10:C30. V zbirno prvo tabelo, bi mi pa zapisal samo vrednost za radensko npr. 99, v prvo prazno vrstico


Zelo sem hvaležna za pomoč
BJ
Prispevkov: 170
Pridružen: Sr Okt 26, 2005 5:46 pm

Odgovor Napisal/-a BJ »

WZTEMPLT- ustvari predlogo za vpis novih podatkov ter podatke iz celic, katere določite sami shrani v zbirni tabeli v drugem zvezku. Pri shranjevanju vas vpraša, ali posodobi podatke (če je bil zapis že narejen) ali naredi nov zapis- Kar uporabna zadeva
LPB
kljuka13
Prispevkov: 257
Pridružen: Po Sep 10, 2007 4:29 pm
Kraj: Maribor

Odgovor Napisal/-a kljuka13 »

Poskusite s to kodo :)

Koda: Izberi vse

Sub Prikazi()
    MsgBox Chr(84) & Chr(111) & Chr(32) & Chr(106) & Chr(101) & Chr(32) & Chr(108) & Chr(101) & Chr(32) & Chr(112) & Chr(114) & Chr(118) & Chr(111) & Chr(97) & Chr(112) & Chr(114) & Chr(105) & Chr(115) & Chr(107) & Chr(97) & Chr(32) & Chr(154) & Chr(97) & Chr(108) & Chr(97) & Chr(32) & Chr(58) & Chr(41)
End Sub
[img]http://shrani.si/f/3t/YL/4W2P37B9/office.gif[/img]
[img]http://shrani.si/f/12/aa/1rt1wj6i/1/userbardionaea.gif[/img]
[img]http://shrani.si/f/3D/nN/3RQySBCl/vista-copy.gif[/img]
vitalin
Prispevkov: 61
Pridružen: Če Mar 08, 2007 10:18 am

makro - excel poišče prvo prazno vrstico

Odgovor Napisal/-a vitalin »

Kljuka13, vem da je 1.april in tvoje kode ne jemljem resno, ampak moja prošnja pa ni prvoaprilska potegavščina, zato lepo prosim, če mi lahko kdo pomaga.

Hvala lepa že vanprej
Odgovori