excelde koşula göre sütundaki numaraları ayırma

quote:

Orijinalden alıntı: Öner

Eğer bir sütunda 2 numara var ve numaralar birbirinden "-" ile ayrılıyorsa "Metni Sütunlara Dönüştür" ile yapabilirsin.

Eğer - ile ayrılmıyorsa formül kullanmak gerekiyor ama bunun için de hücre içini görmem gerek telefon numaraları nasıl yazılmış diye.

quote:

Orijinalden alıntı: Öner

öncelikle hücrede 1 ya da 2 numara olup olmadığını sorgulatmak için =uzunluk() formülünü kullanabilirsin.
=eğer(uzunluk(a1)>7;soldan(7);a1)
formülü ile Eğer A1 hücresindeki değer uzunluk 7 den büyük ise (bir numara 7 rakamdan oluşuyor, büyükse demek ki 2 numara var) soldan 7 karakter al.
Eğer 7 rakamdan küçükse o zaman A1 deki tüm içeriği al

şeklinde bir formül ile işe başlanabilir.

listeyi tam göremediğim için tam bir çözüm veremiyorum.

quote:

Orijinalden alıntı: akcan

şöyle basit bir makro yazdım ancak geliştirilebilir

Function telefon(metin, ilknumara) As String 
  Dim telefonlar() As String 
  ilknumara = Trim(ilknumara) 
  telefonlar = Split(metin, "-") 
  If Left(telefonlar(0), 1) = ilknumara Then 
      telefon = telefonlar(0) 
      Exit Function 
  End If 
  If UBound(telefonlar) = 1 Then 
      If Left(telefonlar(1), 1) = ilknumara Then 
          telefon = telefonlar(1) 
          Exit Function 
      End If 
  End If 
  telefon = "" 
  End Function 
  

makroyu yapıştırmak için
ALT+F11 e basın
menüden inserrt / module tıklayın
açılan pencereye yapıştırın

a1 hücresinde telefon numaraları varsa b1 de cep tlf için
=telefon(A1;5)
yazın
c1 e ev tlf için
=telefon(A1;3)
yazın

quote:

Orijinalden alıntı: akcan

visual basic hiç bilmiyorsanız. anlaşılmadığı için kodları açıklamam hiç işinize yaramayacaktır.
ama yinede açıklamaya çalışayım

Function telefon(metin, ilknumara) As String 
  ' Function komutu ile telefon adında bir excel formülü icat ediyoruz. 
  ' formülün 2 parametresi var bunlar excelde hücrede parantez içinde girdiklerimiz oluyor 
  ' ilki metin adında yani telefon numaralarını alan parametre 
  ' 2.si ilk numarayı belirlemek için ilknumara 
   
   Dim telefonlar() As String 
  'bellekte(RAM) telefonlar adında dizi değişkeni oluşturuluyor 
   
   ilknumara = Trim(ilknumara) 
  'ilknumara parametresine girdiğimiz rakam önünde bir boşluk ile geliyor yani " 5" şeklinde 
  'TRIM komutu öndeki ve sondaki boşlukları siler LTRIM de yeterdi aslında 
   
   telefonlar = Split(metin, "-") 
  'metin ile gelen veriyi "-" karakterinden ayırarak telefonlar dizi değişklenine aktarır 
  'telefonlar(0) "-"nin solunu, telefonlar(1) sağını 
  ' dizi değişkenleri belirtilmezse 0'dan başlar 
   
   If Left(telefonlar(0), 1) = ilknumara Then 
  'IF ile burada mantıksal sınama yapılır. exceldeki EĞER gibi 
  ' eğer telefonlar(0) daki telefon verisinin ilk rakamı 2. parametre ile gelen rakam ile eşitse aşağıdaki 2 satırı yap 
       telefon = telefonlar(0) 
  'telefon değişkenine telefonlar(0)'ın değerini aktar. telefon değişkeni fonksiyon adı olduğu için bu excele formül sonucu olarak döner  
       Exit Function 'fonsiyondan çık. bundan sonrası işlemez (eğer şartı uyarsa tabii) 
   End If 
   
   If UBound(telefonlar) = 1 Then 'eğer telefonlar dizisinin toplam dizi sayısı 1 ise yani 2 tane dizi oluşturduysa. rakamlarda - varsa 2 tane oluşur zaten 
       If Left(telefonlar(1), 1) = ilknumara Then ' eğer telefonlar(1)'in ilk rakamı ilknumraya eşitse alttaki 2 satırı işlet 
           telefon = telefonlar(1) 'telefon değişkenine telefonlar(0)'ın değerini aktar. telefon değişkeni fonksiyon adı olduğu için bu excele formül sonucu olarak döner 
           Exit Function 
       End If 
   End If 
   telefon = "" 
  'yukardaki IF yani eğer şartlarından hiç biri uymadıysa formül dönüşü olarak boş yani hiçbirşey olarak excele gönder 
   End Function

inşallah anlatabilmişimdir :)