• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

F

faosfaos

Katılım
12 Mayıs 2006
Mesajlar
47
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...
 
A1 hücresindeki değeri işler.:cool:
Kod: 
=YERİNEKOY(A1;" ";"")&"@hotmail.com"
 
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.
 
İ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..
 
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 :)
 
evet türkçe karakterler var ve hepsi küçük karakter olucak

(Örn: çiğdemşeker@hotmail.com)
 
Benim 2 numaralı mesajdaki verdiğim formül olmadımı?:cool:
 
Evet hata veriyor..
Aslında ben ornek bir dosya yapıp ekleyeyim o zaman daha sorunsuz olur
Hemen ekliyorum
 
Ben örnek dosya yoladım gayet güzel çalışıyor.İnceleyiniz.:cool:
 
11 nolu mesajda eklediğim dosyaya bakınız.:cool:
 
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 :)

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

Makro ile yapılmış örnek :

Kod: 
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
 
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 ?
 
:) boşuna sormadık değil mi?
 
Merhaba,

Aşağıdaki kodları deneyebilirsiniz.

Kod: 
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
 
Harikasınız Arkadaslar..
Cok ama cok tskler..
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst