Cara sederhana Membuat macro vlookup berulang bisakah ?

  1. 2 tahun lalu

    Siang
    Ada macro excell sbb,

    1. bisakah dibantu disederhanakan ?
    2. apakah bisa berulang vlookup dilakukan untuk masing2 cell berurutan.

    Terimakasih
    berikut barisnya :

    Private Sub CommandButton1_Click()

    'vlookup range
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet2")
    With ws
    .Range("E2").Formula = "=VLOOKUP(D2,Sheet1!$A:$C,2,false)"
    End With

    'copy & paste dari e2 ke f2
    Worksheets("Sheet2").Range("e2").Copy
    Worksheets("Sheet2").Range("f2").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=False

    'clear formula vlookup
    Sheets("Sheet2").Range("e2").ClearContents

    'delete column
    'Sheets("Sheet2").Range("A:A,C:C,H:H,K:O,Q:U").EntireColumn.Delete
    Sheets("Sheet2").Range("E:E").EntireColumn.Delete

    End Sub

  2. tghfox

    17 Sep 2016 Terverifikasi Bekasi Barat + 436 Poin

    terus terang, ini sy bingung maksudnya terutama untuk yang nomer 2

    Private Sub CommandButton1_Click()
    
    with Sheets("Sheet2")
    
    'vlookup range
    .Range("E2").Formula = "=VLOOKUP(D2,Sheet1!$A:$C,2,false)"
    
    'copy & paste dari e2 ke f2
    .Range("e2").Copy
    .Range("f2").PasteSpecial Paste:=xlValues
    
    'clear formula vlookup
    .Range("e2").ClearContents
    
    'delete column
    .Range("E").EntireColumn.Delete
    
    end with
    
    End Sub

 

atau Mendaftar untuk ikut berdiskusi!