Telefon numaralarını ayırmak

[prediseguard]

Merhaba. konu ile alakalı değil. ama ben çok acil bir bilgi rica ediyorum sizden. excel sayfasında. 1 hücrede 2 tane telefon numarası var. 0212 212 12 12 / 0530 330 30 30 mesela. ben bu hücredeki ev telefon numarasını silmek istiyorum.sadece 0530 330 30 30 kalacak şekilde. ve 390 bin tane böyle var. numaralar hepsi farklı. ev telefonlarını nasıl silebilirim? kombinasyon veya kod varmı?

 

[Korhan Ayhan]

Merhaba,

Lütfen forum kurallarını okuyunuz.

Alakasız başlıklar altına yazılan mesajlar geri dönüşüm kutusuna taşınır.

Sorunuzun cevabı içinde forumda PARÇAAL ifadesi ile arama yapınız. Birçok örnek çözümleme bulabilirsiniz.

 

[prediseguard]

PARÇA ALMAYI DENEDİM AMA BAŞTAKİ PARÇAYI ALIYOR. :s

 

[asimavi50]

Merhaba. konu ile alakalı değil. ama ben çok acil bir bilgi rica ediyorum sizden. excel sayfasında. 1 hücrede 2 tane telefon numarası var. 0212 212 12 12 / 0530 330 30 30 mesela. ben bu hücredeki ev telefon numarasını silmek istiyorum.sadece 0530 330 30 30 kalacak şekilde. ve 390 bin tane böyle var. numaralar hepsi farklı. ev telefonlarını nasıl silebilirim? kombinasyon veya kod varmı?

=YERİNEKOY(E23;"-"

Kırmızı olan yerler Sütun 'E' Satır 23'Dür.

Yeşil olan kısım ise neyi silmek istediğini gösterir, yani ben tire (-) işaretini silmek için örnek verdim.

 

[ZorBey_]

Merhaba iyi çalışmalar
Ekli dosyayı denermisiniz.
http://s3.dosya.tc/server16/Tkb5cG/TelefonAy_r.rar.html

 

[bzace]

Merhaba,
Alternatif olarak.
İlk önce örnek bir sayfada deneyiniz.
Verilerinizin A sütun'u ve 1. satırdan başladığı var sayılmıştır.

Sub Veri_Böl()
For i = 1 To Cells(Rows.Count, 1).End(3).Row
    Cells(i, 1) = Split(Cells(i, 1), "/")(1)
Next
End Sub