Listeleme sorunu, araya nokta koyma !!!

[mustafagemici]

Merhaba,
elimde kodlardan oluşan uzun bir listem var, fakat kodların başlarında harf devamında rakam var. Ornek: Olması gereken: H05.441.077 fakat bu listelerde bazılarında ayrılmamış yani : H05441077 olarak gözüküyor ve böyle çok fazla var onların hepsini aynı anda noktalarla nasıl ayırabilirim ? Acil yardımlarınızı rica ediyorum.
H05.441.077
H05441077

 

[Necdet]

Merhaba,

Örnek dosya eklerseniz deneme şansı olabilir.

Verilerin uzunlukları aynı mı?

 

[mustafagemici]

Merhaba,
örnek dosya ekte, ilk sütundaki kodların hepsini noktayla ayırmak istiyorum, şimdiden teşekkürler.

 

[Necdet]

Merhaba,

Aşağıdaki kodları kullanabilirsiniz.

Sub Duzelt()
    Dim i As Long
    Dim Adet As Integer
 
    Application.ScreenUpdating = False
 
    For i = 3 To Cells(Rows.Count, "A").End(3).Row
        If Len(Cells(i, "A")) = 9 Then
            Adet = Adet + 1
            Cells(i, "A") = Left(Cells(i, "A"), 3) & "." & _
                           Mid(Cells(i, "A"), 4, 3) & "." & _
                           Right(Cells(i, "A"), 3)
        End If
    Next i
 
    MsgBox Adet & " Adet Düzeltme Yapıldı....", vbInformation, "N. YEŞERTENER - [URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]"
 
End Sub

Fonksiyonla Yapmak isterseniz Boş bir hücreye aşağıdaki fonksiyonu kullanabilirsiniz.

=EĞER(UZUNLUK(A3)=9;SOLDAN(A3;3) & "." & PARÇAAL(A3;4;3)&"."&SAĞDAN(A3;3);A3)

 

[mustafagemici]

NEcdet Bey çok teşekkür ederim, çok yardımcı oldunuz.
Kuzenim de Exel dersi almak istiyor, ders veriyor musunuz acaba?
Çarkçı Turizm
Mustafa GEMİCİ
0216 446 07 08

 

[Necdet]

NEcdet Bey çok teşekkür ederim, çok yardımcı oldunuz.
Kuzenim de Exel dersi almak istiyor, ders veriyor musunuz acaba?
Çarkçı Turizm
Mustafa GEMİCİ
0216 446 07 08

Güle güle kullanınız.

İlk mesajımda dosyayı yeniledim Fonksiyonlarla yapmak isterseniz diye.

Malesef ders vermiyorum, ders vermek ayrı bir yetenek gerektiriyor.

Forumu izlemesini söyleyiniz kuzenine baya yararlı olacaktır.

 

[mustafagemici]

Teşekkürler takip edeceğiz.