Evo dokle sam ja stigao, medjutim, makro radi samo ako je polje formatirano kao Text, ili ako na kraju dodas neki karakter (pa celo polje tretira kao text):
Sub dajnulu()
Dim r As Range
With Selection
For Each r In Selection
If Len(r.Value) > 2 Then
r.Value = "0" & r.Value
End If
Next
End With
End Sub
Znaci moze i: r.Value = "0" & r.Value & "nesto". Nakon ovoga znas, selektujes, pa run macro. Verovantno nije od pomoci, ali moze te navesti na pravi put.
Mislio sam da ce Iteration da resi stvar, medjutim neznam zasto izbacuje nulu, i tu ima veze broj/text izgleda.
|