İsim soyisim arasındaki boslukları alma ve sonuna mail adresi ekleme

[faosfaos]

Arkadaslar soyle bir sorunum var..
Elimde isim ve soyisimden olusan yaklasık 800 adet kayıt var.. Bunları su sekilde duzenlemem gerekiyor..
Orn: adı soyadı
Bu adı soyadını su sekil yapmam gerek
1- aradaki boslugu almam
2- sonlarına da @hotmail.com koymam gerek
yani "adısoyadı@hotmail.com" olaraka duzenlemem gerek
Bunu toplu bir sekilde yapabilmenin bir yolu var mı acaba ?
Tskler...

 

[Orion1]

A1 hücresindeki değeri işler.

=YERİNEKOY(A1;" ";"")&"@hotmail.com"

 

[Necdet]

Merhaba,

Ad ve Soyad tek hücrede mi yoksa ayrı ayrı hücrede mi?

Örnek dosya sorunuzun anlaşılmasını kolaylaştırır. Lütfen sorularınızı örnek dosya ile destekleyiniz.

 

[faosfaos]

İlginiz icin tesekkurler..
Dosya suan bende degil okulda ki PC de kayıtlı..
Ama detayları soyle soyleyeyim
A1 hucresinden asagı dogru 40-50 isim soyisim var...isim ve soyisimler aynı hücrede bu isim ve soyisimler normal olarak ayrı yazılmıs (ad bosluk soyad) ama benim yapmak istedigim hem isim ve soyisim arasındaki boslugu alip hemde sonlarına @hotmail eklemek yani adısoyadı@hotmail.com
Tskler
Umarım anlatabilmisimdir..

 

[Necdet]

Merhaba,

İkinci soruyu da sorayım Türkçe karakterler kullanılacak mı?
mail adreslerinde büyük harf kullanıyor mu?

Düşündükçe sorular çoğalıyor

 

[faosfaos]

evet türkçe karakterler var ve hepsi küçük karakter olucak

(Örn: çiğdemşeker@hotmail.com)

 

[Orion1]

Benim 2 numaralı mesajdaki verdiğim formül olmadımı?

 

[faosfaos]

Benim 2 numaralı mesajdaki verdiğim formül olmadımı?

Üzgünüm ama olmadı

 

[Orion1]

Üzgünüm ama olmadı

Ben denediğimde sorunsuz çalışmıştı.
Neden olmadı hatamı veriyor?

 

[faosfaos]

Evet hata veriyor..
Aslında ben ornek bir dosya yapıp ekleyeyim o zaman daha sorunsuz olur
Hemen ekliyorum

 

[Orion1]

Ben örnek dosya yoladım gayet güzel çalışıyor.İnceleyiniz.

 

[faosfaos]

Örnek bir dosya ekledim

 

[Orion1]

11 nolu mesajda eklediğim dosyaya bakınız.

 

[faosfaos]

Ben örnek dosya yoladım gayet güzel çalışıyor.İnceleyiniz.

Evet simdi oldu ... oncesinden neden olmadı anlamadım..
Sizleri gercekten cok seviyor ve cok tesekkur ediyorum..
Saygılar Sevgiler

 

[Orion1]

Evet simdi oldu ... oncesinden neden olmadı anlamadım..
Sizleri gercekten cok seviyor ve cok tesekkur ediyorum..
Saygılar Sevgiler

Rica ederim.
İyi çalışmalar.

 

[Necdet]

Eeee soru makro bölümünde sorulunca fonksiyonlara hiç bakmamıştım.

Eğer fonksiyonlarla yapmak isterseniz işi garantiye almak için, Sayın Gizlen'in formülüne küçük bir ek yapmak gerekli, küçük harfe çevirmek için, olaki büyük harf varsa tabi

=KÜÇÜKHARF(YERİNEKOY(A1;" ";"")&"@hotmail.com")
=LOWER(SUBSTITUTE(A1;" ";"")&"@hotmail.com")

Makro ile yapılmış örnek :

Sub Duzenle()
Application.ScreenUpdating = False
SonSatır = [A65536].End(3).Row
For i = 1 To SonSatır
    Cells(i, "A") = Evaluate("=LOWER(""" & Cells(i, "A") & """)") & "@hotmail.com"
Next i
Range("A1:A" & SonSatır).Replace What:=" ", Replacement:="" 'Boşluk Karakterlerini Siler
MsgBox "İşlem Tamamdır..."
End Sub

 

[faosfaos]

Ya kusura bakmayın Son birsey daha sorayım.. Bu türkçe karakterleri ingilizce karakterlere cevirebilir miyiz? Türkçe olabilecegini sanmıstım ama arkadasla gorusunce olmayacagını soyledi..
Bunun icinde var mı bir formul ?

 

[Necdet]

boşuna sormadık değil mi?

 

[Necdet]

Merhaba,

Aşağıdaki kodları deneyebilirsiniz.

Sub Macro1()
    Application.ScreenUpdating = False
    SonSatır = [A65536].End(3).Row
    Range("A1:A" & SonSatır).Replace What:="Ç", Replacement:="c"
    Range("A1:A" & SonSatır).Replace What:="ç", Replacement:="c"
    Range("A1:A" & SonSatır).Replace What:="Ğ", Replacement:="g"
    Range("A1:A" & SonSatır).Replace What:="ğ", Replacement:="c"
    Range("A1:A" & SonSatır).Replace What:="İ", Replacement:="i"
    Range("A1:A" & SonSatır).Replace What:="ı", Replacement:="i"
    Range("A1:A" & SonSatır).Replace What:="Ö", Replacement:="o"
    Range("A1:A" & SonSatır).Replace What:="ö", Replacement:="o"
    Range("A1:A" & SonSatır).Replace What:="Ş", Replacement:="s"
    Range("A1:A" & SonSatır).Replace What:="ş", Replacement:="s"
    Range("A1:A" & SonSatır).Replace What:="Ü", Replacement:="u"
    Range("A1:A" & SonSatır).Replace What:="ü", Replacement:="u"
    Range("A1:A" & SonSatır).Replace What:=" ", Replacement:=""
    
    For i = 1 To SonSatır
        Cells(i, "A") = Evaluate("=LOWER(""" & Cells(i, "A") & """)") & "@hotmail.com"
    Next i
End Sub

 

[faosfaos]

Harikasınız Arkadaslar..
Cok ama cok tskler..