Predmet:VBA zamjena slova
PreuzmiIzvorni kôd (Text):Dim i As Integer
Dim zadnjiRed As Single
zadnjiRed = 20
AccChars = Array("ÄZ", "Äd", "Ć", "9Ç", "ć", "Ä‘", "9Ý")
RegChars = Array("", "", "", "š", "", "", "Ž")
Dim rng As Range
For Each cell In Range("H1:H" & zadnjiRed)
If cell <> "" Then
For i = 0 To UBound(AccChars)
cell.Value = Replace(cell.Value, AccChars(i), RegChars(i))
Next
End If
Next cell
meni ovo ne radi.
Dali se netko bavio problemom kada ucitamo file u excel pa moramo zamijeniti neke znakove u nasa slova?
zivot je moja domovina.