Tema
Boje
Pismo
Registracija

Novo

Forum kao aplikacija na telefonu

Dodajte forum na početni ekran i koristite ga kao aplikaciju, sa menijem na dnu ekrana.

Kako se dodaje

Zamena početnih znakova u ćeliji - VBA

Odgovori Nova tema
Štampanje RSS teme Kopiraj vezu do teme Podeli na Facebook-u Podeli na X-u (Twitter) Idi na poslednju poruku
  • 4 odgovora
  • 3.191 pregleda

Najnovija ↓

Zamena početnih znakova u ćeliji - VBA 07.12.2009. u 20:27 · pre 205 meseci #1
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....
Re: Zamena početnih znakova u ćeliji - VBA 08.12.2009. u 18:42 · pre 205 meseci #2
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
Potpis
Nije to loše Rembrante, samo što ne bi dodao još malo boje?
Re: Zamena početnih znakova u ćeliji - VBA 09.12.2009. u 18:58 · pre 205 meseci #4
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?
Potpis
Nije to loše Rembrante, samo što ne bi dodao još malo boje?
Odgovori
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme