Matjazev.NET

Pozdravljen Matjaž še enkrat ,
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.

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

še enkrat hvala Matjaž.

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 r...

Hvala Matjaž ...

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

Pozdravljeni, v zvezku imam okoli 100 listov. Vsak list v celici "a1" vsebuje neko vrednost. Kako bi z formulo ugotovil, katera je največja vrednost. Torej, ne zanima me ime lista, ki vsebuje največjo vrednost, ampak samo, da mi vrne največjo vrednost. Upam, da sem razumljiv. Za odgovor se iskreno z...

madonca, tega pa nisem vedel...
najlepša hvala Matjaž

pozdravljeni, z makrom bi rad skril liste na način: Sheets(Array("List2", "List3", "List4", "List5", "List6")).Select ActiveWindow.SelectedSheets.Visible=False ....problem nastane, če kliknem še enkrat na gumb, ko so listi že skriti. torej kako dopolniti makro, da naj skrije izbrane liste, v kolikor...

najlepša hvala Matjaž...
lp Rick

pozdravljeni; kako bi v tole kodo: Sub NatisniListe() Dim ws As Worksheet Dim i as integer For i = 1 to 80 set ws = worksheets(i) If (ws.Range("A1") = 12) Then ws.PrintOut End If Next End Sub vnesel še msgbox, ki bi mi samo preštel liste in napisal.... recimo, da ni napiše "natisnilo se bo 42 listov...

sem rešil, najlepša hvala za pomoč
lp Rick

pozdravljeni, aha, to pa nisem razumel.....imam v bistvu 82 listov. eden list se imenuje "leto", drugi pa "mesec"....no potem pa imam še 80 listov, ki se imenujejo "1", "2","3"..............."80". Torej tisti listi ki se imenujejo od 1 do 80 naj se izprintajo, če je v celicah a1>1. Se opravičujem, č...

pozdravljeni,

se vrtim v začaranem krogu....makro se mi ustavlja na: Set ws = Worksheets(i)
nekako mi zmanjkuje idej, kaj pravzaprav delam narobe?
za odgovor se zahvaljujem.
lp Rick

pozdravljeni,

žal se ustavi tukaj:
If (ws.Range("A1") > 0) Then

in napiše: object variable or with block variable not set

za nadaljno pomoč se iskreno zahvaljujem.
lp Rick

pozdravljeni, kako bi nadgradil makro: Sub NatisniListe() Dim ws As Worksheet For Each ws In Workbook If (ws.Range("A1") = 12) Then ws.PrintOut End If Next End Sub ...in sicer, da mi printa liste v obsegu od 1 do 80( torej list; 1,2,3,4,5,6,7.......do 80), v kilikor je vrednost v celici a1=12 za odg...