Hücredeki rakamlar arası boşlukların giderilmesi

[i_mar]

Merhaba ;

Benim sorum hücredeki rakamlar arası boşluklarla ilgili.Şirketlerin web sitelerinden "kopyala" "yapıştır" ile excel hücresine almış olduğumuz faks numaralarının arasında boşluk oluyor.Toplu faks gönderme programımız bu boşlukları kabul etmiyor.Dolayısı ile tek tek el yordamıyla rakamlar arası boşlukları silmek zorunda kalıyoruz ki bu çok fazla zaman alıyor.İşte bu boşlukları daha kolay yoldan bir temizleme yöntemi olduğunu düşünüyorum fakat bir türlü bu yöntemi ben bir acemi olarak bulamadım. Birde bu rakamların hepsinin birden önüne "90" eklemek istiyorum.Yrdım edenlerden Allah Razı olsun şimdiden çok büyük yardım olur çözülürse.

Teşekkür ederim.

Yalçın

 

[hamitcan]

Sorunuzu bir örnekle açıklayın

 

[i_mar]

Sorunuzu bir örnekle açıklayın

Örnek liste ekte.Teşekkür ederim.

Ekli dosyayı görüntüle 30031

 

[Erdal]

merhabalar sn. İ mar
Birkaç sorum olacak;
1- sayılarınız hangi formatta yani başında 0 varmı alan kodu varmı gibi ve kaç karakter uzunluğunda
2- Boşluklarınız sadece alan kodu ile telefon numarası arasındamı yoksa herhangi bir yerde de olabiliyormu;

 

[i_mar]

merhabalar sn. İ mar
Birkaç sorum olacak;
1- sayılarınız hangi formatta yani başında 0 varmı alan kodu varmı gibi ve kaç karakter uzunluğunda
2- Boşluklarınız sadece alan kodu ile telefon numarası arasındamı yoksa herhangi bir yerde de olabiliyormu;

Merhaba.Örnek dosya ekte sayın Somer.Teşekkürler.

 

[Seyit Tiken]

Sub Düğme1_Tıklat()
Cells.Replace What:=" ", Replacement:=""
End Sub

Yukarıdaki kodu deneyebilirsiniz.

 

[altanson]

=EĞER(PARÇAAL(C2;1;1)="0";"9"&YERİNEKOY(C2;" ";"");"90"&YERİNEKOY(C2;" ";""))

bu formülü dener misiniz?

 

[i_mar]

Sub Düğme1_Tıklat()
Cells.Replace What:=" ", Replacement:=""
End Sub

Yukarıdaki kodu deneyebilirsiniz.

Teşekkürler Seyit Tiken.Önerdiğiniz yöntemi nasıl kullanabilirim ?Acemiliğimden dolayı tam bilemiyorum da ... :roll:

 

[Seyit Tiken]

Uygulamayı anlatmaya çalışayım. kod onun biraz kısa yoluydu. Düzen > Değiştir > Aranan kısma bir boşluk vererin, Yeni Değere bir şey yazmadan Tümünü Değiştir tuşuna basın.

 

[Erdal]

merhabalar
Bendende formüllü bir cevap VBA'yı daha tam öğrenemedim)
internetten indirdiğiniz verilerinizi c2 ye kopyaladığınızı varsayarak herhangi bir hücreye
=90&YERİNEKOY(C2;" ";"") formülünü yazınız. İyi çalışmalar.

 

[i_mar]

İlginiz için çok teşekkür ederim.Seyit beyin metodu daha işime yarayacak gibi ama o metodda da rakamların başına yine tek tek "90" eklemek zorundayım galiba Eğer bu sorunla ilgili bir çözümü olan varsa lütfen paylaşabilir mi ?teşekkür ederim.

 

[Ali]

rakamların başına yine tek tek "90" eklemek zorundayım galiba Eğer bu sorunla ilgili bir çözümü olan varsa lütfen paylaşabilir mi ?teşekkür ederim.

Verileriniz hangi aralıkta?

 

[i_mar]

Verileriniz hangi aralıkta?

Ali Bey veriler 2000 adet satırdan oluşuyor genelde.Hal böyle olunca düzenelemekte çok zaman alıyor.Teşekkür ederim.

 

[Ali]

C sütunda olduğunu varsayımı ile

Sub boşluksil()
sonsatir = Range("C65536").End(xlUp).Row
For i = 2 To sonsatir
Cells(i, 3) = "90" & Trim(WorksheetFunction.Substitute(Cells(i, 3), " ", ""))
Next
End Sub

 

[i_mar]

C sütunda olduğunu varsayımı ile

Sub boşluksil()
sonsatir = Range("C65536").End(xlUp).Row
For i = 2 To sonsatir
Cells(i, 3) = "90" & Trim(WorksheetFunction.Substitute(Cells(i, 3), " ", ""))
Next
End Sub

Ali bey çok teşekkür ederim ilginiz için.Yalnız ben bu kodları nereye ve nasıl yazmalıyım ? Teşekkür ederim.Saygılar ...

 

[Ali]

Excel dosyanız açık iken ALT+F11 tuşlarına basınız.Insert menüsünden module kısmını seçip bir modül ekleyin ve bu kodları buranın içine yapıştırın.
F5 tuşuna bastığınızda yada Run menüsünden çalıştırdığınızda kodlar çalışacaktır.

 

[i_mar]

Excel dosyanız açık iken ALT+F11 tuşlarına basınız.Insert menüsünden module kısmını seçip bir modül ekleyin ve bu kodları buranın içine yapıştırın.
F5 tuşuna bastığınızda yada Run menüsünden çalıştırdığınızda kodlar çalışacaktır.

Çok teşekkür ederim yardımlarınız için.Büyük işten kurtardınız beni.Saolun.Kolay gelsin herkese.İyi günler diliyorum...