VLOOKUP DATA EXCEL 2010

  1. 4 tahun lalu

    Hallo ALL,

    Mohon Bantuannya ,Bagamaina cara Vlookup Case Terlampir

    TESTVLOOKUP .xlsm

  2. @Ferryansyah

    coba skrip berikut :

    Function gabung(criteriarange As Range, criteria As Range, delimiter As String)
    Application.Volatile
    Dim sel As Range
    For Each sel In criteriarange
        If sel = criteria Then
            If Len(gabung) = 0 Then
            gabung = sel.Offset(0, 1)
            Else
            gabung = gabung & delimiter & sel.Offset(0, 1)
            End If
        End If
    Next
    End Function

    kemudian pada E4 :

    =gabung($B$4:$B$8,D4,"|")

    fungsi TEXTJOIN tersedia pada Excel 2019, 365 dan Excel Web, selengkapnya bisa baca di TEXTJOIN function

  3. Dear @manweljs_
    Baik akan saya coba untuk skriptnya

    Terimakasih

  4. Di sunting 4 tahun lalu oleh manweljs_

    @Ferryansyah Terimakasih

    sama-sama

    untuk referensi aja, berikut contoh TEXTJOIN di excel web

    https://1drv.ms/x/s!AiEiY84_lbiKgck5q6fA6vWM2WgDNA?e=9rhLDn

  5. @manweljs_ @Ferryansyah

    coba skrip berikut :

    Function gabung(criteriarange As Range, criteria As Range, delimiter As String)
    Application.Volatile
    Dim sel As Range
    For Each sel In criteriarange
        If sel = criteria Then
            If Len(gabung) = 0 Then
            gabung = sel.Offset(0, 1)
            Else
            gabung = gabung & delimiter & sel.Offset(0, 1)
            End If
        End If
    Next
    End Function

    kemudian pada E4 :

    =gabung($B$4:$B$8,D4,"|")

    fungsi TEXTJOIN tersedia pada Excel 2019, 365 dan Excel Web, selengkapnya bisa baca di TEXTJOIN function

    Dear,@manweljs_
    Kira kira kalau casenya seperti ini ,data yang kita mau ambil kolom ke 2 dari refrensi data
    selain tanpa merubah ofsetnya dimodule
    TESGABUNG.gif

  6. Di sunting 4 tahun lalu oleh manweljs_

    @Ferryansyah

    perintah :

    sel.Offset(0, 1)


    adalah untuk mengambil nilai di kolom sebelah kanan 1 kolom, kalo itu tidak dirubah ya tidak bisa, kecuali UDF nya diedit. misalnya dengan manambahkan referensi range kolom yang ingin diambil.

    Function gabung(criteriarange As Range, criteria As Range, delimiter As String, target As Range)
    Application.Volatile
    Dim sel As Range
    For Each sel In criteriarange
        If sel = criteria Then
            If Len(gabung) = 0 Then
            gabung = target.Cells(sel.Row - target.Row + 1, 1)
            Else
            gabung = gabung & delimiter & target.Cells(sel.Row - target.Row + 1)
            End If
        End If
    Next
    End Function


    kemudian di E4 :

    =gabung($B$9:$B$13,E9,"|",$C$9:$C$13)


    demikian

  7. Dear @manweljs_ Terimakasih atas bantuannya
    SUPER SEKALI

 

atau Mendaftar untuk ikut berdiskusi!