[ peradetlic2 @ 08.12.2010. 09:03 ] @
Zdravo,

Imam jedan problem: Trebam tekst koji je dat dole u file-u u prilogu da poravnam, tj. da bude u svim ćelijama jednako, da počinje od početka, bez razmaka.
Imam oko 300 stranica ovakvoga teksta, pa mi treba pomoć kako da to odradim automatski.
Hvala unaprijed!

PozZ
[ mirko1949 @ 08.12.2010. 11:17 ] @
Evo ti kod koji ce ti mislim pomoci:
Sub VerticalAlignment()
With Selection
.HorizontalAlignment = xlLeft
End With
Dim oCell As Range
For Each oCell In Selection
oCell = Trim(oCell)
Next
End Sub
Potrebno je da selektujes celije u kojima sredjujes tekst (moze i kolona) i pokrenes makro. U prilogu imas tvoj primer sa dugmetom za pokretanje makroa pa pogledaj.
Pozdrav
[ mirko1949 @ 08.12.2010. 11:22 ] @
Nemoj da te buni moja greska je kod:
Sub VerticalAlignment()
Naslov za makro nije dobar (nesto sam probao pa je ostalo ovako), ali sustinski to nista ne menja. Vrsi se horizontalno poravnanje i izbacivanje praznina na pocetku teksta
Pozdrav
[ peradetlic2 @ 08.12.2010. 15:29 ] @
Ok, hvala na ovom primjeru probaću ga, da vidim kako funkcioniše.

Evo u ovom file-u u prilogu se vidi kako sam ja to uspio uraditi na drugi način!

Hvala u svakom slučaju!

PozZ
[ peradetlic2 @ 08.12.2010. 15:45 ] @
Evo mene opet...

Ovaj tvoj macro radi super je, svaka čast!

Možeš li mi samo objasniti kako i gdje ubacujem onaj kod za macro?
Ja sam se snašao sa gotovim tvojim macroom, al kako ubuduće kada imam samo parče koda? Gdje ga ubacujem, to me zanima, tj. postupak?!

Hvala puno unaprijed!
[ mirko1949 @ 08.12.2010. 16:50 ] @
Alt+F11
Insert Module
Dobices Modul1 i tu u desnom prozoru ubacis (iskopiras) macro
Pozdrav
[ Ivek33 @ 09.12.2010. 01:10 ] @
Citat:
peradetlic2: Možeš li mi samo objasniti kako i gdje ubacujem onaj kod za macro?
Evo slikovito pojašnjenje onoga što je savjetovao Mirko1949

- Kako insertirati Macro u VBE
[ peradetlic2 @ 09.12.2010. 08:20 ] @
Hvala puno, ovo je extra!

SVAKA ČAST momci, samo tako nastavite...


PozZ