NUMARALARIN BAŞINA rakam EKLEME

[kundura]

Merhaba arkadaşlar,problemimi hemen hemen çözdüm sadece rakam ekleme olayı var,şimdi bizim telefon numaralarının bazılarına 0 eklenmesi lazım,elendikten sonra hepsine birde 9 eklemem lazım dış hat alabilsin diye örnek olarak, 2123332211 olması gereken 902123332211 yani baş kısmına 9 ve 0 ekleme lazım...bunu toplu yapabilmenin bir yolu varmı...

 

[sweet]

bunu nerde nasıl kulanacakasınız hangi prog kullanacaksınız birazdaha detay belirtirmisiniz.

 

[Seyit Tiken]

Var. Hücre Biçimlendir > Genel > "Tür" kutucuğun için silin, yerine "90"0 yazıp enterleyin. Bütün rakamlarınızın başına 90 geldiği görülecektir.

 

[Ali]

A1 ile A100 arasındaki tüm sayıların başına 90 koyar
Sub degistir()
Dim C As Range
For Each C In Range(" A1:A100")
With C
If IsNumeric(.Value) Then
.Value = "90" & .Value
End If
End With
Next
End Sub

 

[kundura]

ayrıntı

Bizim kullanmış olduğumuz santrale müşteri adlarını ve telefonlarını girmek istiyoruz yalnız santral den dışarıyı aramak için 9 dan hat alıyoruz bu yüzden sehir içi veya şehirdışı hangi numara olursa olsun başına 9 koymamız gerekiyor artı birde bazı şehirler arası telefon numaralarının başına 0 konulmamamış bunuda koymam gerekiyor.
yani numaralar şuna benzemeli 90445566363 şehirler arası için
şehiriçi için 98884455 gibi olması lazım.
bendeki numaral ise şöyle görünüyor ;

8525252
212563563
bunun gibi 700 adet telefon var elimde, bana en azından rakamların başına sıfır koymanın yolunu yazabilseler yeterli olur gibi geliyor.

 

[kundura]

teşekkür

Problemi tam anlamıyla çözdüm herkese teşekkürler dilerim

 

[alparslan29]

Var. Hücre Biçimlendir > Genel > "Tür" kutucuğun için silin, yerine "90"0 yazıp enterleyin. Bütün rakamlarınızın başına 90 geldiği görülecektir.

abi dediğini yaptım ama 9 rakamını yazıyo ama 0 ı yazmıyor ... misal
123456

9123456

oluyor ofiice 2007 kullanıyorum )

 

[asi_kral]

abi dediğini yaptım ama 9 rakamını yazıyo ama 0 ı yazmıyor ... misal
123456

9123456

oluyor ofiice 2007 kullanıyorum )

Merhaba
Hücre Biçimlendir - İsteğe Uyarlanmış - Tür bölümüne

090 000 000 00 00

Bunu yazın. ve Tamam deyin. Hücreye rakamları girerken. 000 000 00 00 şeklinde giriş yapın. Sonuçları gözlemleyin.

 

[Necdet]

abi dediğini yaptım ama 9 rakamını yazıyo ama 0 ı yazmıyor ... misal
123456

9123456

oluyor ofiice 2007 kullanıyorum )

90 rakımını çift tırnak içine alarak yapacaksınız. yani Özel rakam biçimi şöyle olacak

"90"000000

Bu durumda 123456 rakamı 90123456 olarak görülecektir.

 

[alparslan29]

90 rakımını çift tırnak içine alarak yapacaksınız. yani Özel rakam biçimi şöyle olacak

"90"000000

Bu durumda 123456 rakamı 90123456 olarak görülecektir.

Eyw Abi Çok Teşekkür Ederim ... )

 

[yenez]

merhaba çok acil yardıma ihtiyacım var 0********** numaralı telefonu 905**.*** ** ** şeklinde yazmam lazım elimde 1400 kayıt var bu nedenle yardıma ihtiyacım var office excel 2007 kullanıyorum kolay bir yolu var mı acaba

 

[Testereci]

="9"&soldan(a1;4)&","&parçaal(a1;5;3)&" "&parçaal(a1;8;2)&" "&parçaal(a1;10;2)

 

[Necdet]

Merhaba,

Özel Hücre Biçimnden

9(0000) 000 00 00

5*********

gibi değeri


9(0***) *** ** **

olarak gösterir

 

[yenez]

="9"&soldan(a1;4)&","&parçaal(a1;5;3)&" "&parçaal(a1;8;2)&" "&parçaal(a1;10;2)

ilginiz için teşekkür ederim

 

[yenez]

Merhaba,

Özel Hücre Biçimnden

9(0000) 000 00 00

5*********

gibi değeri


9(0***) *** ** **

olarak gösterir

Çok teşekkür ederim denedim oldu ellerinize sağlık

 

[balabanow]

merhabalar, dediğiniz gibi yaptım
yaklaşık 9.000 tane telefon kaydım var
başına 0212 eklemem gerekiyordu dediğiniz formül ile ekledim yanlız;
görüntüde 02124444444 şeklinde gözüksede hücrede işlem yapmaya kalktığımızda 0212 yi görmüyor. hücrenin içeriğine müdahale edebiliyormuyuz ?

 

[systran]

şu kodu deneyin. A1:A10000 aralığındaki tüm hücrelerin başına 0212 ekler.

Sub kodilave()
ek = "0212"
Dim cl As Range
For Each cl In Range("A1:A10000")
    If Not (IsEmpty(cl)) Then
        cl.Value = ek & cl.Value
    End If
Next
End Sub

 

[balabanow]

peki bunu nereye ekleyeceğim onuda söylermisiniz

 

[balabanow]

yan hücresine gelip;

=(BİRLEŞTİR("0212";F1))

yaptım ve oldu teşekkürler