Soru Telefon numarasını trim'lemek

[seckinb]

0 533 493 29 33
şeklinde yazılmış

kimlik sayfası H1 ve H2 hücrelerindeki veriyi trimlemek istiyorum.

trim fonksiyonu aralardaki boşluğu kaldırmadı.

ne yapabilirim?

teşekkürler.

 

[Haluk]

Replace(Range("H2"), " ", "")

.

 

[seckinb]

Replace(Range("H2"), " ", "")

.

Dim rc As Worksheet
Set rc = ThisWorkbook.Worksheets("kimlik")

Set H1 = rc.Range("h1")


h1'i tam tanımlamak için yazdım, replace'i kabul etmedi.



0 53 4 32 şeklinde yazılmış numarayı 0533432 haline getirmesini istiyorum. şimdi mevcut kod ise baştaki sıfırı silmeye başladı.

Dim rc As Worksheet
Set rc = ThisWorkbook.Worksheets("kimlik")

Set H1 = rc.Range("h1")
Set H2 = rc.Range("h2")

H1.Replace _
What:=" ", Replacement:="", _
SearchOrder:=xlByColumns, MatchCase:=False

H2.Replace _
What:=" ", Replacement:="", _
SearchOrder:=xlByColumns, MatchCase:=False

 

[Tevfik_Kursun]

Merhaba,
İşte örneği.
İyi çalışmalar

 

[Ömer]

0 53 4 32 şeklinde yazılmış numarayı 0533432 haline getirmesini istiyorum. şimdi mevcut kod ise baştaki sıfırı silmeye başladı.

Merhaba

Önce hücreyi metne çevirmeniz gerekir.

Set tanımlamalarından sonra aşağıdaki satırları ekleyin.

H1.Value = "'" & H1.Value
H2.Value = "'" & H2.Value

.