Hücrede boşluk sil makrosu hak.

[akmes]

Merhabalar,

Ekteki excel dosyasında sayfa1 deki bilgileri başka bir programdan yapıştırıyoruz.G sütunundaki verileri istediğimiz şablona getirmek için makro çalıştırıyoruz.Ama yazdığımız makro istediğimiz işlemi gerçekleştirmiyor.

Vergi numaraları 11 haneli G2 hücresindeki veri kopyaladığımız kaynakta başında "0" olduğu halde excel e yapıştırırken başındaki sıfırı kopyalamıyor.Bizde böyle işlemleri elden başına sıfır koyarak sonlandırmak zorunda kalıyoruz.
Yardımınızı rica ediyorum.

 

[ExcelF1]

Şu şekilde bir deneyiniz.

Sub bosluk_sil()
Dim lastrow As Long
Sheets("Sayfa1").Columns("g:g").Replace What:=" ", Replacement:=""
For a = 2 To [G65536].End(xlUp).Row
If Len(Cells(a, 7)) <> 10 Then Cells(a, 7) = "'0" & Cells(a, 7)
Next a
Columns("G:G").HorizontalAlignment = xlRight
End Sub

 

[akmes]

Şu şekilde bir deneyiniz.

Sub bosluk_sil()
Dim lastrow As Long
Sheets("Sayfa1").Columns("g:g").Replace What:=" ", Replacement:=""
For a = 2 To [G65536].End(xlUp).Row
If Len(Cells(a, 7)) <> 10 Then Cells(a, 7) = "'0" & Cells(a, 7)
Next a
Columns("G:G").HorizontalAlignment = xlRight
End Sub

Sn ExcelF1, çok teşekkür ederim.Tam istediğim gibi, emeğinize sağlık.

 

[ExcelF1]

Rica ederim. Kolay gelsin.