Kako do velikih začetnic v xls

V XLS imam eno ogroooomnoooo bazo. Na dveh listih celo. Kar pomeni, da je še bolj ogrooomnaaaa.

In zapisi v celicah niso usklajeni. Moti me, da ni velikih začetnic, pa bi jih rada imela.

Torej, kako v XLS narediti avtomatizem za kreiranje velikih začetnic?

Ideje bogato poplačane s pivom ali čokoladno torto!

LpM

P.S. Ustvarjanje velikih začetnic preko kopiranje v word ne pride v poštev zaradi možnosti nastajanja napak!

Potem pa tole ni za mene, ker če jem – sem žejen,
če pijem sem lačen

ti pa ponujaš – ali torta, ali pivo…

hmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm

“in”

Bo to kaj pomagalo ;-))

Aha – bo ja, sam pira ne pijem, kaj pa sedaj ??

No ja tvoj problem, ga boš že še rešila :)))

Rešitev tvojga excela je lahko enostavna z formulo, ali pa
komplexna z macroji, napisal ti bom za začetek formulo, če pa ne
bo šlo, pa macroje, torej (pisal bom bolj počasi, da boš razumela – ti
pa za vsak slučaj beri počasi, če bom prehitro tipkal :)))))

Za urejevanje tekstov poznamo tri (3) različne formule in sicer:

=PROPER() – to je tisto, kar ti potrebuješ
=LOWER() – tega ne rabiš – ampak pišem za vsak slučaj (vse male črke)
=UPPER() – itaq, ne potrebuješ (vse velike črke)

Kako boš rešila problem, je na koncu koncev tvoja izbira, lahko ga
poizkusiš takolele:

Primer:

v celici A2 imaš napisano klemenxx je bimbo

ti bi pa rada imela napisano: Klemenxx Je Bimbo

postavi se v neko novo celico, npr. a10, v njo napiši:

=PROPER(A2)

potem pa tole samo še prekopiraš navzdol, pa je narejeno.

je rešilo tvoj problem in odprlo moj problem :)))

lp

Pa dob’r, če bo ravno torta dobra in če bo cola hladna, še malce
macroja:

Torej kreiraj nov macro z imenom, npr. MarusaVelikeCrke

prekopiraj spodnjo vsebino s pomočjo miškinih tipk:

Dim rng As Range, cell As Range
Set rng = Intersect(ActiveSheet.UsedRange, Selection)
For Each cell In rng
If cell.HasFormula = False Then
cell.Value = StrConv(cell.Value, vbProperCase)
End If
Next cell

Označi vse celice, startaj macro – pa hitro v trgovino in kupi potrebne
dele za torto (ne preveč smetane) ;:))

lp

ps. sem pisal počasi, včasih pa bolj hitro..

Hu huuuuuuu, tole je bilo pa brzinsko. Mal bo sicer trajalo, da jst tole poštudiram v xls, ampak mislim, da bo šlo. Če ne, pa jutri zajamram.

Čokoladna torta z malo smetane in Cola it izzzzzzz 🙂
Lokacija klasična iz starih cajtov?

Čokoladna torta z malo smetane

eeeeeeeeeeeeeee, hujšam

Pa še guna dva vsaj poišči, jaz sem dec, pa ja ne bom vabil, kar lepo
jih prosim povabi..:)))

Mislim, da še vedno oba pijeta pir..

Sub VelikeZacetnice()
‘
‘ VelikeZacetnice Macro
‘ Macro recorded 5.8.2008 by marusa
‘
‘ Keyboard Shortcut: Ctrl+Shift+T
‘Dim rng As Range, cell As Range
Set rng = Intersect(ActiveSheet.UsedRange, Selection)
For Each cell In rng
If cell.HasFormula = False Then
cell.Value = StrConv(cell.Value, vbProperCase)
End If
Next cell
End Sub

A je to to? A vrstici For each cell in rng mi javi debug 424 Object required????

Pravilno je takole:

Sub VelikeZacetnice()
Dim rng As Range, cell As Range
Set rng = Intersect(ActiveSheet.UsedRange, Selection)
For Each cell In rng
If cell.HasFormula = False Then
cell.Value = StrConv(cell.Value, vbProperCase)
End If
Next cell
End Sub

Torej – najbrž si malce po dekliško poklikala,
najbolje je:

– Orodja
– Macro
– Vpiši ime macroja VelikeZacetnice()

Ko klikneš opcijo Kreiraj

se ti bo odprlo novo okno, kjer bo pisalo:

Sub VelikeZacetnice()
End Sub

No in ti vmes med Sub VelikeZacetnice() in End Sub
prekopiraj

Dim rng As Range, cell As Range
Set rng = Intersect(ActiveSheet.UsedRange, Selection)
For Each cell In rng
If cell.HasFormula = False Then
cell.Value = StrConv(cell.Value, vbProperCase)
End If
Next cell

tako da bo vse skupaj izgledalo:

Sub VelikeZacetnice()
Dim rng As Range, cell As Range
Set rng = Intersect(ActiveSheet.UsedRange, Selection)
For Each cell In rng
If cell.HasFormula = False Then
cell.Value = StrConv(cell.Value, vbProperCase)
End If
Next cell
End Sub

Potem pa vse skupaj – poklikaš V redu vredu in v redu

Nato pa označi vse željene celice, pa Orodja
Makroji
izbereš ime tvojega Makroja
klikni Zaženi

Maruša – ne peče torte (še)
je to to? A vrstici For each cell in rng mi javi debug 424 Object required????

Sem šele sedajle videl, torej tvoja napaka, ker:

– nisi označila celic, katere želiš spremniti, kar daj
z miško označi vse celice

Ja sej, če bi malo bolj pogledala, pol bi zdaj pršparala na eni Coli ;-)))

Dela 🙂

Jupi, hvala.

Evo, grem na glavno stran organizirat srečanje 😀

No – le kar organiziraj vse skupaj (kaj pa une smešne
kapice in frulice bodo tudi )

– ja saj mislim, da sem ti to že 1x napisal, pa sem kot izgleda prehitro
pisal in si spregledala..

Frulice znajo biti pokazatelj rezultata prevelike vročine.
Se pa dr.Wega ponavad s kakimi Švedinjami ponuja?