Soru Telefon numaralarını düzenleme

[seckinb]

Merhaba

Bir kod aracılığıyla düzgün yazılmamış tel nolarını düzenlemek istiyorum.

5349332075

5364603028
5071482067
5395176658
0534 305 51 67
0530 700 36 40
5332110875
0535 619 29 34
5308356747
5453925691
5352715078
0
0536 649 79 34
0532 134 56 67
0532 395 99 19
0535 761 361 10
5365756504
5306443255

bu şekilde yazılmışların tamamını
5306443255
şekle getirmek istiyorum.

nasıl bunu "trim"lerim?

 

[ASLAN7410]

Merhaba, aşağıdaki formül işinizi görür mü?

=SAĞDAN(YERİNEKOY(A1;" ";"");10)

 

[seckinb]

Merhaba, aşağıdaki formül işinizi görür mü?

=SAĞDAN(YERİNEKOY(A1;" ";"");10)

telefon numaralarını textbox aracılıyla "C3" hücresine giriyorum. daha çok vba kodu olarak planlamam lazım.

 

[Seyit Tiken]

Örnek kodu kendinize uyarlayarak deneyiniz.

[a1] = WorksheetFunction.Substitute([a1], " ", "")

 

[seckinb]

Sub bosluk_yok()
    Dim w As Range

    For Each w In Selection.Cells
        w = Replace(w, " ", "")
    Next
End Sub

böyle bir kod buldum, şimdi bu özelliği c3, h1, h2 hücrelerine uygulamaya çalışıyorum.

 

[Seyit Tiken]

Bu şekilde deneyebilirsiniz.

[c3,h1,h2] = WorksheetFunction.Substitute([c3,h1,h2], " ", "")

Dim w As Range
For Each w In [c3,h1,h2]
w = Replace(w, " ", "")
Next

 

[seckinb]

Örnek kodu kendinize uyarlayarak deneyiniz.

[a1] = WorksheetFunction.Substitute([a1], " ", "")

Sub bosluk_kaldir()
ActiveWorkbook.Worksheets("kimlik").Select

[h1] = WorksheetFunction.Substitute([h1], " ", "")
[h2] = WorksheetFunction.Substitute([h2], " ", "")
[c5] = WorksheetFunction.Substitute([c5], " ", "")
[c3] = WorksheetFunction.Substitute([c3], " ", "")

ActiveWorkbook.Worksheets("Formlar").Select

End Sub

bu şekilde uyguladım, lakin başındaki 0 harfini kaldıramadım.

 

[Seyit Tiken]

Hücre Biçimlerdir'den GENEL yaparsanız; başında 0(sıfır) gözükmez.