Tek hucre icindeki alt alta yazılmış isimleri pratik duzenlemek

[senerozun]

Excel calışma kitabı 2003 te çalışıyorum. burada ekte gönderdiğim örnekte tek hücre içine yazılmış ad soyad ve baba adları bulunmakta. ben bu hücredeki isimleri kopyalayarak f sutununa kopyalamak istiyorum. ama kopyalamaya kaltığımda ad soyadlar alt alta geliyor. onları elle tek tek alt + enter yaparak düzenlemek ise buyük tablolarda fazla zaman alıyor. bu işlemi daha pratik nasıl yapabiliriz. ekte gönderdiğim örnekte ayrıntılı olarak acıkladım.

BU TABLO ÖRNEGİNDE YAPMAYA ÇALIŞTIĞIM ( J ) SUTUNUNDA TEK HÜCRE İÇİNDE İSİMLER BULUNMAKTA.
BEN BU (J) SUTUNUNDAKİ İSİMLERİ KOPYALAYARAK ( F ) SUTUNUNA YAPIŞTIRMAK İSTİYORUM. YANİ ÇALIŞMA SAYFASI YEŞİL RENKTE Kİ ÖRNEKTE Kİ GİBİ YAPMAK İSTİYORUM. BUYUK TABLOLARDA TEK TEK ELLE ALT ENTER TUŞLARIYLA YAPMAK FAZLA ZAMAN ALIYOR. BUNU DAHA PRATİK NASIL YAPABİLİRİZ.
BİR TÜRLÜ YAPAMADIM . YARDIMCI OLURSANIZ SEVİNİRİM.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub VERİLERİ_DÜZENLE()
    Dim X As Long, Y As Integer, AYIR() As String, SAY As Integer
 
    Application.ScreenUpdating = False
 
    For X = Range("J65536").End(3).Row To 4 Step -2
        If Cells(X, "J") <> "" Then
            If InStr(1, Cells(X, "J"), Chr(10)) > 0 Then
            AYIR = Split(Cells(X, "J"), Chr(10))
            SAY = X
                For Y = 0 To UBound(AYIR)
                    If AYIR(Y) <> "" Then
                        If InStr(1, AYIR(Y), ":") = 0 Then
                            SAY = SAY + 1
                            Rows(SAY).Insert Shift:=xlDown
                            Cells(SAY, "F") = Trim(Replace(AYIR(Y), ",", ""))
                            Cells(SAY, "G") = Trim(Replace(AYIR(Y + 1), ":", ""))
                            Y = Y + 1
                        End If
                    End If
                Next
            End If
        End If
    Next
 
    Application.ScreenUpdating = True
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[ayberk1]

korhan bey tebrikler elinize sağlık