Çalışmanıza bir modül ekleyip ve aşağıdaki kodu kaydedin.

Function GetColumn(strProductCode As String, strColumn As String, Separator As String) As String





Dim arCode



Dim strReturn As String



    strReturn = ""



On Error GoTo Sub_Exit



    arCode = Split(strProductCode, Separator)



    Select Case strColumn



        Case "1"



            strReturn = arCode(0)



        Case "2"



            strReturn = arCode(1)



        Case "3"



            strReturn = arCode(2)



        Case "4"



            strReturn = arCode(3)



        Case "5"



            strReturn = arCode(4)

        Case "6"



            strReturn = arCode(5)

        Case "7"



            strReturn = arCode(6)

        Case "8"



            strReturn = arCode(7)

      Case Else



            strReturn = " "



    End Select



Sub_Exit:



GetColumn = strReturn



End Function

Akabinde

SELECT GetColumn([takip],"1"," ") AS [Hasta Adı], GetColumn([takip],"2"," ") AS [Hasta Soyadı], GetColumn([takip],"3"," ") AS Hastalık, GetColumn([takip],"5"," ") AS [Doktor Adı], GetColumn([takip],"6"," ") AS [Doktor Soyadı], GetColumn([takip],"7"," ") AS Karar

FROM Tablo1;

sorgusu ile istediğiniz sonuca ulaşacaksınız.

GetColumn([Alanadı],"1"," ") ifadesinde Alan seçimin yapılacağı alanı, 1 ilk kelimeyi, " " ise ayraç karakteri ifade eder. İster boşluk, ister - veya _ istediğiniz karaktere göre sütunu bölmenize yarar.

Ekli dosyanızda uygulama olarak mevcut inceleyip çalışmanıza uyarlayabilirsiniz.