Problema buscando una celda de otro archivo
Tengo un problema cuando busco el valor de una celda en otro archivo.
Tengo lo siguiente:
Dim xlApp As Excel.Application
Dim xlLibro As Excel.Workbook
Dim xlHoja As Excel.Worksheet
Set xlApp = New Excel.Application
direccion = "C:\Documents and Settings\Jouse\Escritorio\CONTADORES.xls"
Set xlLibro = xlApp.Workbooks.Open _
(direccion, True, True, , "")
Set xlHoja = xlApp.Worksheets("Hoja1")
Dim resulta As Object
Dim Quebusco As Date
Quebusco = Format(Cells(2, 2), "dd/mm/yy")
xlHoja.Select
Set resulta = Range("A1:H1").Find(Quebusco, LookIn:=xlValues, LookAt:=xlWhole)
En la celda 2,2 tengo la fecha del día que quiero.
No se cómo hacer el Set resulta para que funcione. Siempre encuentra Nothing.
Lo he probado con algo que no sea una fecha por si acaso y tampoco
Muchas gracias.
Tengo lo siguiente:
Dim xlApp As Excel.Application
Dim xlLibro As Excel.Workbook
Dim xlHoja As Excel.Worksheet
Set xlApp = New Excel.Application
direccion = "C:\Documents and Settings\Jouse\Escritorio\CONTADORES.xls"
Set xlLibro = xlApp.Workbooks.Open _
(direccion, True, True, , "")
Set xlHoja = xlApp.Worksheets("Hoja1")
Dim resulta As Object
Dim Quebusco As Date
Quebusco = Format(Cells(2, 2), "dd/mm/yy")
xlHoja.Select
Set resulta = Range("A1:H1").Find(Quebusco, LookIn:=xlValues, LookAt:=xlWhole)
En la celda 2,2 tengo la fecha del día que quiero.
No se cómo hacer el Set resulta para que funcione. Siempre encuentra Nothing.
Lo he probado con algo que no sea una fecha por si acaso y tampoco
Muchas gracias.
1 Respuesta
Respuesta de Isaac Reyes
1