Matjazev.NET

Zdaj pa me še zanima, kako bi lahko to uporabil v praksi? Morda kakšen primer...

VBA ne pozna lastnosti, ki bi ob križcu narisala še gumb za pomanjšanje/povečanje okna. Morda kot zanimivost, ki vas bo verjetno zanimala! Pri brskanju na netu sem našel Excel zvezek, kjer je prikazano in tudi v VBA kodi opisano, kako se dodajajo gumbi za miniziranje, maksimiranje. In še nekaj drug...

Malce sem priredil makro, ki sem ga našel tu: http://www.matjazev.net/forum/viewtopic.php?t=700&highlight=uniquelist vašim potrebam! Sub Razlicni_zapisi() Dim UniqueList() As String Dim x As Long Dim Rng1 As Range Dim c As Range Dim Unique As Boolean Dim y As Long Set Rng1 = ActiveSheet.Range("A1:A5...

Ne vem kaj točno želite? Ali se naj neko besedilo iz neke celice (Excel?), vpiše v nek vnaprej določen textbox, ali pa da določen textbox ob odprtju forme dobi fokus in bi lahko takoj pisali vanj!

Malo sem prebrskal splet in nekako skombiniral tole: If ([a1]) <> Environ("Username") Then [a1] = Environ("Username") Sedaj pa to kodo pripnite ali na odpiranje zvezka (zapisalo se bo na celico A1 zadnjega aktivnega lista, če seveda ne boste v kodi določili, kateri list se naj ob odprtju prikaže) al...

Če bi uporabili možnost "Išči" po forumu...

http://www.matjazev.net/forum/viewtopic ... +%9Atevilo

Moram povedati, da vašega vprašanja ne razumem najbolje. Sem pa skoraj prepričan, da za problem, že obstaja kaka vgrajena rešitev. Če opišete malo podrobneje in daste kakšen kratek primer pa vam bom skušal pomagati, če bom le znal.

Uporabite funkcijo in ne makro, ki jo najprej prekopirajte v osebni (personal) zvezek z makri in funkcijo boste lahko uporabili povsod. V vseh zvezkih in na vseh listih. Našli jo boste med vsemi fukcijami kot "User defined" oz "Uporabnikove funkcije". Nobena telovadba ne bo potrebna.

No tudi funkcijo sem spravil skupaj :D Function Sestej_celice(cellrange As Range) As Double Application.Volatile Dim cell As Range For Each cell In cellrange.Cells If Not (cell.HasFormula) Then If IsNumeric(cell.Value) Then Sestej_celice = Sestej_celice + cell.Value End If End If Next End Function K...

Napisal sem vam makro, ki vam bo seštel vrednosti celic v katerih ni formule: Sub Sestej_vrednosti_celic() On Error Resume Next Dim Cell As Object Dim podrocje As Range Dim x As Double Application.Volatile x = 0 Set podrocje = Selection For Each Cell In podrocje If Cell.HasFormula Then Cell.Font.Col...

Kaj pa z "Najdi [lestvice_alpin_sp_m.xls], preglej formule in zamenjaj z ""?

Razmišljam , morda tako, da popraviš prvo formulo, izbrišeš odvečno in skopiraš navzdol.

Zdravo! Hm, ne vem kaj je zdaj še narobe? No kakorkoli, pošiljam vam še enkrat celo kodo (popravljeno tudi z Matjaževe strani): Sub ZdruziDatoteke() Dim Mapa As String Mapa = "c:\test" Dim NovaDatoteka As Workbook Set NovaDatoteka = Workbooks.Add Dim datoteka datoteka = Dir(Mapa & "\*.xls") Do While...

Pozdravljeni!

Hvala Matjaž, zdaj pa stvar funkcionira od "prve"