Text'ten Excel'e Atma (Sütün Bilgilerine Göre Ayrı Ayrı Sheetlere)

[shiva]

Merhabalar,

Elimde 65bin satırdan fazla olan bir txt dosyası var. Bu dosyada yer alan B sütününda 9 farklı isim bulunmakta. Bu text dosyasını excele atarken B sütününda yer alan 9 farklı isimi baz alarak ayrı ayrı sheetlere atmasını istiyorum.

Örnek codelar aşağıdaki gibi sanırım bu codelara ekleme yapmak yeterli olacak.

Sub GetTxtData2()
'Raider ®
    Dim MyFile As String
    MyFile = "C:\Test.txt"
    j = 0
    Set NewSh = Worksheets.Add
    j = j + 1
    NewSh.Name = "TextSheet-150" & j
    Open MyFile For Input As #1
        Do While Not EOF(1)
            i = i + 1
                Line Input #1, InputData
                    Cells(i, 1) = InputData
                        If i > 65535 Then
                            Set NewSh = Worksheets.Add
                            j = j + 1
                            NewSh.Name = "TextSheet-150" & j
                            i = 0
                        End If
        Loop
    Close #1
    Set NewSh = Nothing
End Sub