Adı 2.Adı Soyadı ayırma

[Crazy Drake]

Adı, 2.adı ve soyadı a1 hücresine birleşik yazıldığında adını c1, 2.adını c2, soyadını c3 hücrelerine yazacak bir kod lazım. sitede var ama hücre olarak değil sütun olarak yapılmış onuda düzenleyemedim yardımcı olabilirmisiniz?

ÖRNEK:

A1: MUSTAFA KEMAL ATATÜRK

C1: MUSTAFA
C2: KEMAL
C3: ATATÜRK

 

[Necdet]

Merhaba,

Sadece A1 hücresi için geçerliyse aşağıdaki kodları kullanabilirsiniz.

Sub Ayir()
Dim a() As String
Dim i As Integer
a = Split([A1], " ")
For i = 0 To UBound(a)
    Cells(i + 1, "C") = a(i)
Next i
End Sub

 

[Merhum İdris SERDAR]

Adı, 2.adı ve soyadı a1 hücresine birleşik yazıldığında adını c1, 2.adını c2, soyadını c3 hücrelerine yazacak bir kod lazım. sitede var ama hücre olarak değil sütun olarak yapılmış onuda düzenleyemedim yardımcı olabilirmisiniz?

ÖRNEK:

A1: MUSTAFA KEMAL ATATÜRK

C1: MUSTAFA
C2: KEMAL
C3: ATATÜRK

Örnek dosya ekte.

.

 

[Crazy Drake]

Merhaba,

Sadece A1 hücresi için geçerliyse aşağıdaki kodları kullanabilirsiniz.

birde tek isimli olanlarda soyadı 2. isim kısmına atıyor onu nasıl yapabiliriz

 

[Necdet]

birde tek isimli olanlarda soyadı 2. isim kısmına atıyor onu nasıl yapabiliriz

Böyle durumda kodlarda oynama yapmak gerek. Bu kodları da ilgili sayfanın kod bölümünde çalışacak şekilde verelim.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
Dim a() As String
Range("C1:C3").ClearContents
a = Split([A1], " ")
If UBound(a) = 0 Then
    [C1] = [A1]
ElseIf UBound(a) > 1 Then
    For i = 0 To UBound(a)
        Cells(i + 1, "C") = a(i)
    Next i
Else
    [C1] = a(0)
    [c3] = a(1)
End If
End Sub

 

[exart]

Merhaba, paylaşım için teşekkürler. Bu kodları nereye yazacağız?

 

[Necdet]

Merhaba,

Aşağıdaki linki inceleyiniz.

Sayfaya Ait Kodlar ve Uygulama Yöntemleri (Resimli Anlatım)

Aynı zamanda Sayın Korhan Ayhan beyin yeni başlayan kurs niteliğindeki linki inceleyebilirziniz.

Personel Kayıt Programını hergün izleyebilirsiniz.

 

[erolakyol]

2.isim ve soy ismini d1 ve e1 nasıl atarız