Coba macronya dibuat seperti ini :
Sub IsiDataPEL()
    Range("B4").Value = Evaluate("=IFERROR(VLOOKUP(B3,IDPEL,2,FALSE),"""")")
    Range("B5").Value = Evaluate("=IFERROR(VLOOKUP(B3,IDPEL,3,FALSE),"""")")
    If Range("B4") = vbNullString Then
        MsgBox "ID Pelanggan yang anda masukkan belum terdaftar", 
vbInformation, "P E S A N "
    End If
End Sub

File terlampir.

Salam,
HK




On Sunday, 1 December 2013, 14:32, Trio Duo <[email protected]> wrote:
 
  
Dear Para Master,
Mohon Pencerahan bagaimana cara menghilangkan #N/A dan memunculkan (MsgBox) 
jika ID Pelanggan yang dimasukkan tidak terdaftar dalam database...
Terimakasih...

Attachment: HK_vlookup+vba.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12

Kirim email ke