postavitev v zadnjo vrstico, ki je večja od nič

Pomoč pri izdelavi makrov
Odgovori
rick
Prispevkov: 216
Pridružen: So Feb 17, 2007 9:18 pm

postavitev v zadnjo vrstico, ki je večja od nič

Odgovor Napisal/-a rick »

pozdravljeni,

kako bi se z makrom postavil v zadnjo vrstico stolpca A, ki ima vrednost večjo on 0.
Dodal bi še, da so v stolpu A formule.
Za odgovor se najlepše zahvaljujem.
lp
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: postavitev v zadnjo vrstico, ki je večja od nič

Odgovor Napisal/-a admin »

Pozdravljeni,

Problem bo rešila spodnja koda:

Koda: Izberi vse

  Dim r As Long
  r = Cells(60000, 1).End(xlUp).Row
  
  While (r > 1) And (Cells(r, 1) <= 0)
    r = r - 1
  Wend
  
  Cells(r, 1).Select
lp,
Matjaž Prtenjak
Administrator
rick
Prispevkov: 216
Pridružen: So Feb 17, 2007 9:18 pm

Re: postavitev v zadnjo vrstico, ki je večja od nič

Odgovor Napisal/-a rick »

Hvala Matjaž ;)...
rick
Prispevkov: 216
Pridružen: So Feb 17, 2007 9:18 pm

Re: postavitev v zadnjo vrstico, ki je večja od nič

Odgovor Napisal/-a rick »

Matjaž, če lahko mal nadaljujem, na tole kodo....

in sicer, najde mi zadnjo vrednost v celici, ki je večja od nič(kot sva rekla), nadalje bi želel,
da mi od tu dalje označi do stolpca "L" in
nato povsem do vrha(vedno), torej do prve vrstice. Mislim Matjaž, da ste razumeli, kaj želim.

Za odgovor se resnično zahvaljujem.
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: postavitev v zadnjo vrstico, ki je večja od nič

Odgovor Napisal/-a admin »

Popraviti morate samo zadnjo vrstico, ki izbira celice in sicer na:

Koda: Izberi vse

  Range(Cells(r, 1), Cells(1, 12)).Select
lp,
Matjaž Prtenjak
Administrator
rick
Prispevkov: 216
Pridružen: So Feb 17, 2007 9:18 pm

Re: postavitev v zadnjo vrstico, ki je večja od nič

Odgovor Napisal/-a rick »

madonca, kako je enostavno......če znaš ;)

še enkrat hvala Matjaž.
rick
Prispevkov: 216
Pridružen: So Feb 17, 2007 9:18 pm

Re: postavitev v zadnjo vrstico, ki je večja od nič

Odgovor Napisal/-a rick »

Pozdravljen Matjaž še enkrat :oops: ,
očitno se vrtim v začaranem krogu....rad bi za območje. ki mi ga vaš makro izbere,
nastavil področje tiskanja....pa niti tega ne uspem...z snemanjem mi ni uspelo,
pisati pa žal ne znam....kako torej določiti področje tiskanja za izbran obseg...
Iskrena hvala.
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: postavitev v zadnjo vrstico, ki je večja od nič

Odgovor Napisal/-a admin »

V zadnjo vrstico zapišite:

Koda: Izberi vse

    ActiveSheet.PageSetup.PrintArea = Selection.Address
lp,
Matjaž Prtenjak
Administrator
rick
Prispevkov: 216
Pridružen: So Feb 17, 2007 9:18 pm

Re: postavitev v zadnjo vrstico, ki je večja od nič

Odgovor Napisal/-a rick »

to je to....
najlepša hvala ;)
Odgovori