Silme ve ekleme işlemleri Hakkında bir soru

[SizinWeb]

Merhaba arkadaşlar elimde bir liste var ve bu liste Yukarıdan aşağı doğru tek tabloda bu listede bulunan
.aaa
.bbb
Alanlarına . (Nokta) dan sonrasını Silmek yada . (Nokta) dan sonrasına Toplu olarak birşeyler eklemem gerek bunu toplu olarak nasıl yaparım . (Nokta) dan Sonrasını nasıl siler ve nasıl yazı ekleyebilirim

ÖRNEK LİSTEM
fjfgj.aaa
fjdfjfdh.aaa
ghjdfjfgjhy.aaa
jfgjhfgjh.aaa
hjfdjfj.aaa
hjdfjhdf.aaa
fgdjfgjfgjh.bbb
fgjhdfjhf.bbb
fjhdfjfhj.bbb
fdjjyhj.bbb
fhjdfjhdf.bbb
dfjdfjfhg.bbb
fjdfjyh.bbb
fjdfjuy.bbb
fjhdfj.bbb
jdfjfh.bbb
hjfgjhfgjh.bbb
hjfjhfgjh.aaa
fjhdjfjh.bbb
kyukjhtgghjdf.aaa
hgjtjteh.aaa
ghstjrt.bbb
fghjytjghnfgh.bbb
dedain.bbb
fgfi.bbb
agfdh.bbb
sgfjhfdhg.bbb
gjtjkujk.bbb
dfhdfg.bbb

 

[Ömer BARAN]

Merhaba, foruma hoşgeldiniz.

Alt taraftan, uygulamayı kullanacağınız sayfanın adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi
seçin, açılan VBA ekranının sağ tarafındaki boş alana aşağıdaki kod'u yapıştırın
ve VBA ekranındayken F5 tuşuna basın.
Kod A sütununda, 1'inci satırdan, A sütunundaki son dolu satıra kadar işlem yapar.

Başka alanda işlem yapmak istiyorsanız;
-- başka sütun için, mavi kısımları sütun adı veya sütun numarasıyla,
-- başka satırdan başlamak için ise kırmızı 1 sayısını istediğiniz başlangıç satır numarasıyla değiştirin.
Kod'daki BİLMEM keimesi yerine, başka brşey yazabilir veya BİLMEM kelimesini silebilirsiniz.
.

[FONT="Arial Narrow"]Sub NOKTADAN_AYIR()
    For satır = [B][COLOR="Red"]1[/COLOR][/B] To [[B][COLOR="Blue"]A[/COLOR][/B]65536].End(3).Row
        If Cells(satır, [B][COLOR="blue"]1[/COLOR][/B]) = "" Then GoTo 10
            If IsNumeric(WorksheetFunction.Search(".", Cells(satır, [B][COLOR="blue"]1[/COLOR][/B]), 1)) = True Then _
            Cells(satır, [B][COLOR="blue"]1[/COLOR][/B]) = Replace(Cells(satır, [B][COLOR="blue"]1[/COLOR][/B]), Mid(Cells(satır, [B][COLOR="blue"]1[/COLOR][/B]), _
        WorksheetFunction.Search(".", Cells(satır, [B][COLOR="blue"]1[/COLOR][/B]), 1) + 1, 255), "BİLMEM")
10  Next
End Sub[/FONT]

 

[SizinWeb]

Teşekkürler hocam hoşbulduk

 

[Ömer BARAN]

Kod'daki +1 kısmını silmeniz yeterli olur.