Poravnanje teksta u ćelijama

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

Potpis

BojanS

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

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

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

Potpis

BojanS

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!

Potpis

BojanS

Alt+F11
Insert Module
Dobices Modul1 i tu u desnom prozoru ubacis (iskopiras) macro
Pozdrav

Evo slikovito pojašnjenje onoga što je savjetovao Mirko1949

- Kako insertirati Macro u VBE