buscarV desde archivo cargado en un cuadro de texto (control activeX)
Publicado por Emiliano (9 intervenciones) el 06/07/2017 00:16:44
buenas tardes
estoy creando una macro donde cargo un archivo en un mensage de texto (control activeX) y quiero extraer informacion con la formula buscar V
este es mi codigo:
espero puedan ayudarme
estoy creando una macro donde cargo un archivo en un mensage de texto (control activeX) y quiero extraer informacion con la formula buscar V
este es mi codigo:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub BusvarV()
Range("A1").Select
Total = Range(Selection, Selection.End(xlDown)).Count
'MsgBox Total
For contar = 2 To Total 'Depende las filas
ntotal = WorksheetFunction.CountA(Workbooks("MACRO MENU ACCIONES.xlsm").Sheets("Formato").Range("B:B"))
value = Range("C" & contar).value 'Celda con el valor que buscamos
Set lookupRange = Workbooks("Conciliacion CJ Grand Shopping 04.07.17_.xlsx").Sheets("Ventas").Range("D1:D" & ntotal) 'Rango donde buscar
'Queremos el producto
lookupvalue = Application.VLookup(value, lookupRange, 1, False) 'BuscarV(Valor,Rango,ColumnaEncontada)
'Si no encuentra valor
If IsError(lookupvalue) Then
Range("C" & contar).value = " no encontrado "
'Si lo encuentra lo devuelve
Else
Range("C" & contar).value = lookupvalue
End If
Next contar
End Sub
espero puedan ayudarme
Valora esta pregunta
0