[ gatalinka @ 07.12.2009. 19:27 ] @
problem je slijedeći:
radi se o excelu i telefonskim brojevima. Znači, u ćeliji su mi upisani tel. brojevi u različitom formatu (0038598......, +38598....., 38591.....). Treba mi makronaredba koji bi prefisk 00385, +385, 385 zamijenila sa praznim stringom. Ja sam napisala

ActiveSheet.Cells.Replace What:="+385*", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=True

ActiveSheet.Cells.Replace What:="00385*", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=True

ActiveSheet.Cells.Replace What:="385*", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=True

i to radi...ali.....ali...

kad mi se u sredini broja pojavi 385 također ga zamijeni za prazan string... i tu sad molim pomoć....da mi mijenja samo prve lijeve znamenke...muči me ugraditi onaj "left"...

hvala na svakoj sugestiji....
[ Jpeca @ 08.12.2009. 17:42 ] @
Možda nešto ovako. Selektuj oblast u kojoj vršiš zamenu pa startuj makro. Obrati pažnju da sačuvaš negde podatke pre nego što startuješ makro.

Code:

Sub Zamena()
' Brisu se pojavljivanja 385, +385 i 00385 sa pocetka tel. broja
'
' Za elitesecurity.org P.Jovanovic
Dim cl As Range
    For Each cl In Selection
     Select Case Left(cl.Value, 3)
      Case "385"
        cl.Value = Replace(cl.Value, "385", "", 1, 1, vbTextCompare)
      Case "003"
        cl.Value = Replace(cl.Value, "00385", "", 1, 1, vbTextCompare)
      Case "+38"
        cl.Value = Replace(cl.Value, "+385", "", 1, 1, vbTextCompare)
     End Select
    Next cl
End Sub
[ gatalinka @ 09.12.2009. 16:50 ] @
Najprije da zahvalim...
isprobala i briše mi samo 385, a ono ostalo ostaje neobrisano (00385, +385)
[ Jpeca @ 09.12.2009. 17:58 ] @
Ja sam ispobao na primeru koji sam sam napravio i radi mi. Postavi deo svog primera pa da vidimo u čemu je problem
Možda imaš blanko znake ispred telefonskog broja?
[ gatalinka @ 09.12.2009. 18:38 ] @
vjeroajtno je lijeva strana bila pomaknuta za jedan charachter, te je sad nakon toga sve OK...

puno, puno hvala!!!!!!!!