{"id":1622,"date":"2017-02-09T08:35:36","date_gmt":"2017-02-09T16:35:36","guid":{"rendered":"http:\/\/www.auval.com.mx\/notas\/?p=1622"},"modified":"2017-02-09T08:35:36","modified_gmt":"2017-02-09T16:35:36","slug":"como-hacer-una-busqueda-en-una-macro-de-excel-con-vba-visual-basic-for-applications","status":"publish","type":"post","link":"https:\/\/auval.com.mx\/blog\/2017\/02\/09\/como-hacer-una-busqueda-en-una-macro-de-excel-con-vba-visual-basic-for-applications\/","title":{"rendered":"C\u00f3mo hacer una b\u00fasqueda en una macro de Excel con VBA (Visual BASIC for Applications)"},"content":{"rendered":"<p>Hoy recib\u00ed una pregunta interesante de parte de Jes\u00fas Reyes. \u00bfC\u00f3mo puedo hacer un VLOOKUP en VBA?<\/p>\n<p>Aqu\u00ed les anexo el c\u00f3digo. Cuando lo intent\u00e9 por primera vez me volv\u00eda loco porque trataba de usar <strong>Application.Worksheetfunction.Vlookup<\/strong> y si no lo encontraba, el programa tronaba y se iba al editor. La soluci\u00f3n es <strong>usar Application.Vlookup<\/strong> (no importa el idioma en que tengan Excel, se usa VLOOKUP), guardar el resultado en una <strong>variable de tipo variante<\/strong>, y <strong>revisar si hay error<\/strong> antes de procesarlo.<\/p>\n<p>Espero que les sirva. Esto es equivalente a:<\/p>\n<p>=vlookup(buscar, a1:a5, 2, 0)<\/p>\n<pre class=\"lang:default decode:true \">Option Explicit\n\nSub Buscador()\n    Dim Resultado As Variant\n    Dim Buscar As String\n    Buscar = InputBox(\"Buscar\")\n    Resultado = Application.VLookup(Buscar, Range(\"a1:b5\"), 2, 0)\n    If IsError(Resultado) Then\n        MsgBox \"No lo encontr\u00e9\"\n    Else\n        MsgBox Resultado\n    End If\nEnd Sub<\/pre>\n<p>&nbsp;<\/p>\n","protected":false},"excerpt":{"rendered":"<p>Hoy recib\u00ed una pregunta interesante de parte de Jes\u00fas Reyes. \u00bfC\u00f3mo puedo hacer un VLOOKUP en VBA? Aqu\u00ed les anexo el c\u00f3digo. Cuando lo intent\u00e9 por primera vez me volv\u00eda loco porque trataba de usar Application.Worksheetfunction.Vlookup y si no lo &hellip;<\/p>\n<p class=\"read-more\"> <a class=\"more-link\" href=\"https:\/\/auval.com.mx\/blog\/2017\/02\/09\/como-hacer-una-busqueda-en-una-macro-de-excel-con-vba-visual-basic-for-applications\/\"> <span class=\"screen-reader-text\">C\u00f3mo hacer una b\u00fasqueda en una macro de Excel con VBA (Visual BASIC for Applications)<\/span> Leer m\u00e1s \u00bb<\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[2],"tags":[],"class_list":["post-1622","post","type-post","status-publish","format-standard","hentry","category-excel"],"_links":{"self":[{"href":"https:\/\/auval.com.mx\/blog\/wp-json\/wp\/v2\/posts\/1622","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/auval.com.mx\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/auval.com.mx\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/auval.com.mx\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/auval.com.mx\/blog\/wp-json\/wp\/v2\/comments?post=1622"}],"version-history":[{"count":0,"href":"https:\/\/auval.com.mx\/blog\/wp-json\/wp\/v2\/posts\/1622\/revisions"}],"wp:attachment":[{"href":"https:\/\/auval.com.mx\/blog\/wp-json\/wp\/v2\/media?parent=1622"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/auval.com.mx\/blog\/wp-json\/wp\/v2\/categories?post=1622"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/auval.com.mx\/blog\/wp-json\/wp\/v2\/tags?post=1622"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}