Telefon numaralarını ayırmak? ev-cep şeklinde?

[qbert1903]

Merhaba arkadaşlar

excel dosyamda tek sütun üzerinde telefon numaraları mevcut

5359998877
2124445566

şeklinde bir sıra mevcut. ev ve cep no ları karışık yani. bunları nasıl 2 sütuna ev-cep sütunlarına ayırabiliriz.

aslında şu mantığı kurdum ben.

ilk numara 5 ile başlıyorsa onları olduğu sütunda bırakacak.
5 haricinde olanları ise yandaki sütuna atıcak.

makro ile nasıl yapabiliriz acaba?

 

[Necdet]

Merhaba,

Makro şart mı?

 

[qbert1903]

hayır makro şart değil. herhangi bir yöntem de olabilir.

 

[Necdet]

Merhaba,

Telefonların A sütununda olduğunu varsayarak ve ;
B sütununa Ev/İş, C sütununa da Cep telefonlarını ayırmak istersek :

Kod :

Sub TelefonAyir()
   Dim i As Long
 
   For i = 2 To [A65536].End(3).Row
      If Left(Cells(i, "A"), 1) = 5 Then
         Cells(i, "C") = Cells(i, "A")
      Else
         Cells(i, "B") = Cells(i, "A")
      End If
   Next i
 
   Columns("B:B").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
   Columns("C:C").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
 
End Sub

Formül ile :

B2 :

=EĞER(SOLDAN(A2;1)+0<>5;A2;"")

C2 :

=EĞER(SOLDAN(A2;1)+0=5;A2;"")

 

[manisali61]

Necdet hocam..güzel bir çalışma..şöyle bir isteğim olabilir mi? listeyi yazıp "telefon ayır" butonuna bastığımızda değil de telefon numarasını A sütununa girip ENTER tuşuna bastığımızda ayırmasını sağlayabilir miyiz??

 

[qbert1903]

teşekkür ederim ancak formülü şu şekilde sokabilir miyiz? çünkü benim sütunları sabit yani her sütunda ne yazdığı bellidir.

G sütununda karışık telefon no ları mevcut. Ben buradan sadece 5 ile başlamayanları F sütununa almak istiyorum. yani kısacası bu.

 

[polis-53]

merhabalar Telefon Numaralarını hangi sutunda belirteceksen o sutunu seçili duruma getir hücre biçimlendirmeden isteğe uyarlanmış seçeneğinden tür bölümüne ### ### ## ## şeklinde yazarsanın istediğiniz olacaktır iyi çalışmalar.

 

[1Al2Ver]

teşekkür ederim ancak formülü şu şekilde sokabilir miyiz? çünkü benim sütunları sabit yani her sütunda ne yazdığı bellidir.

G sütununda karışık telefon no ları mevcut. Ben buradan sadece 5 ile başlamayanları F sütununa almak istiyorum. yani kısacası bu.

Merhaba,

Sayın Necdet Yeşertener'in formülündeki A'ları G yaparsanız sonuç alabilirsiniz, formülü F sütununa yazınız,

=EĞER(SOLDAN(G2;1)+0<>5;G2;"")

 

[qbert1903]

yok arkadaşlar yapamadım. size ben en iyisi örnek excel dosyamı göstereyim.

1. dosyada ilk hali.

2. dosyada ise olmasını istediğim hali.

kısaca F sütununda 5 ile başlayan sayıları aynen yanındaki sütuna almak istiyorum.