Prikazi cijelu temu 17.01.2021 17:20
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Lokacija:zagreb


Predmet:VBA zamjena slova
PreuzmiIzvorni kôd (Text):
  1. Dim i As Integer
  2.     Dim zadnjiRed As Single
  3.    
  4.    
  5.     zadnjiRed = 20
  6.    
  7.     AccChars = Array("ÄZ", "Äd", "Ć", "9Ç", "ć", "Ä‘", "9Ý")
  8.     RegChars = Array(" ", "", "", "Å¡", "", "", "Ž")
  9.     Dim rng As Range
  10.    
  11.     For Each cell In Range("H1:H" & zadnjiRed)
  12.         If cell <> "" Then
  13.             For i = 0 To UBound(AccChars)
  14.                 cell.Value = Replace(cell.Value, AccChars(i), RegChars(i))
  15.                
  16.             Next
  17.         End If
  18.     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.