satırdaki belli boşlukları ve sayıları düzeltmek

[sakaaal]

arkadaşlar hemen derdimi anlatayım çünkü bu dert beni epey bi yordu. elimde 3000 adet telefon numarası bu numaraları düzenlemek istiyorum görüntülü olarak anlatayım elimdeki numaralırın bende ki kayır türü

0245 227 98 17
0747 725 87 23
0345 922 25 32
0948 526 44 83
0547 127 36 99
0842 829 74 88
0246 627 98 89
0148 825 85 79
0547 229 58 91
0944 721 29 87
0345 829 27 66

işte numaralar bende bu şekilde kayıtlı. ama ben her numaranın başındaki 0 ı (sıfırı) silmek ve her satır arasındaki boşluğu silip, her numaranın başına ve sonuna virgül koymak istiyorum yani yukarıdaki numaraları şu şekile sokmak istiyorum

2452279817,7477258723,3459222532,9485264483,5471273699,
8428297488,2466279889,1488258579,5472295891,9447212987


işte 3000 telefon numarasını elimle bu şekilde değiştirmeye kalktım ama gözüm kan çanağına döndü yapamadım bunun için bana yardım edecek arkadaştan allah razı olsun .

 

[Ömer]

Merhaba,

3000 tane veriyi aralara virgül koyarak tek bir satırdamı yazmak istiyorsunuz.

 

[sakaaal]

evet dostum

 

[sakaaal]

sadece virgül koyuğ tek satırda yazmak değil malum her cep numarası 0 ile başlıyor her numaranın başlangıcındaki sıfırı silip aralardaki boş satırı silip yazmak her numaranın arasına virgül koymak istiyorum örnek de olduğu gibi

2452279817,7477258723,3459222532,9485264483,547127 3699,
8428297488,2466279889,1488258579,5472295891,944721 2987

 

[Ömer]

Module kopyalayarak çalıştırın. Verilerin A sütununda olduğu düşünülmüştür.

Sub Deneme()
Dim i As Integer
Application.ScreenUpdating = False
Range("B1").ClearContents
Range("B1").NumberFormat = "@"
[A:A].Replace What:=" ", Replacement:=""
 For i = 1 To [A65536].End(3).Row
    Range("B1") = Range("B1") & "," & Cells(i, "A")
 Next i
Range("B1") = Right(Range("B1"), Len(Range("B1")) - 1)
Application.ScreenUpdating = True
End Sub

Not: Bir hücreye yazacağınız karakter sayısı sınırlıdır. Bunuda göz önünde bulundurun. Sizin örneğe göre 3000 veri 10 karakter uzunluğunda birde virgül eklenirse 11 karakter uzunluğunda olur. Buda 3000*11 = 33000 karakter olur. Hücreye yazabileceğiniz maksimum karakter sayısı 32 bin küsür diye hatırlıyorum. Bu yüzden veriler eksik gelebilir.

 

[sakaaal]

dostum yardımın için çok sağol ama module kopyala yapıştır derken modül nerde ? ben axcel den fazla anlamam kusuruma bakma )

 

[sakaaal]

dostum tamam dediğini aynen yaptım ama güvenlik yüksek olduğundan makro açılamıyor diyor

 

[Ömer]

Önce boş bir excel açarak Araçlar / Makro / Güvenlik ekranından Düşük(önerilmezi) işaretleyerek dosyayı kapatın. Bu işlemi kullandığınız bilgisayarda bir defa uygulamanız yeterlidir.

Bu konunun resimli anlatımı için,

Makroları etkin kılmak.Güvenlik düzeyini düşürmek


Daha sonra aşağıdaki linkteki gibi bir modul oluşturarak kodları çalıştırmanız gerekir. İncelemeniz için bir örnek ekliyorum. Yalnız butona basmadan önce yukarıda anlattığım gibi güvenliği düşürdükten sonra ekteki dosyayı açın ve butona basın.

Detaylı bilgi için;

Modül Ekleme (Resimli Anlatım)

.

 

[sakaaal]

kardeşim eline koluna emeğine sağlık sağolasın varolasın çok makbule geçti işe yaradı sağol kardeşim allah razı olsun

 

[Ömer]

Önemli değil, işinize yaradığına sevindim. İyi çalışmalar..

 

[albino9]

Çok teşekkürler.