[es] - Zamena početnih znakova u ćeliji

gatalinka

Član broj: 201383
Poruke: 53
*.adsl.net.t-com.hr.

Profil

Zamena početnih znakova u ćeliji - VBA

^{07.12.2009. u 19:27 - pre 175 meseci}

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....

Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2268
*.3dnet.rs.

Sajt: www.gowi.rs

+109 Profil

Re: Zamena početnih znakova u ćeliji - VBA

^{08.12.2009. u 17:42 - pre 175 meseci}

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

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Odgovor na temu

gatalinka

Član broj: 201383
Poruke: 53
*.adsl.net.t-com.hr.

Profil

Re: Zamena početnih znakova u ćeliji - VBA

^{09.12.2009. u 16:50 - pre 175 meseci}

Najprije da zahvalim...
isprobala i briše mi samo 385, a ono ostalo ostaje neobrisano (00385, +385)

Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2268
*.3dnet.co.yu.

Sajt: www.gowi.rs

+109 Profil

Re: Zamena početnih znakova u ćeliji - VBA

^{09.12.2009. u 17:58 - pre 175 meseci}

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?

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Odgovor na temu

gatalinka

Član broj: 201383
Poruke: 53
*.adsl.net.t-com.hr.

Profil

Re: Zamena početnih znakova u ćeliji - VBA

^{09.12.2009. u 18:38 - pre 175 meseci}

vjeroajtno je lijeva strana bila pomaknuta za jedan charachter, te je sad nakon toga sve OK...

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

Odgovor na temu