Excel - buscador con VBA

   
Vista:

buscador con VBA

Publicado por isaac (1 intervención) el 27/03/2015 08:01:23
Hola, buenos días.
Mi nombre es Isaac y escribo para solicitar información sobre como puedo realizar una macro con vba en excel.
Lo que quiero realizar es lo siguiente:
en una hoja excel tengo una serie de fecha, en otra una serie de serviciosweb ( con datos meteorológicos en la nube). Lo que quiero realizar es una macro en la cual cuando yo ponga la fecha que deseo me descarge el servicio web que le corresponder y me lo copie en otra hoja excel por separado.
la macro que he utilizado es la siguiente, pero solo me coge la primera celda, si pongo una fecha diferente no me coje el comando "if"
ub Descargar1()

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
Dim FECHA As Date
Dim wsOrigen As Excel.Worksheet, _
    wsDestino As Excel.Worksheet, _
    rngOrigen As Excel.Range, _
    rngDestino As Excel.Range
 
FECHA = InputBox("Date MM/DD/YYYY: ")
 
'Indicar las hojas de origen y destino
Set wsOrigen = Worksheets("DATE")
Set wsDestino = Worksheets("1_WEBSERVICE")
 
'Indicar la celda de origen y destino
Const celdaOrigen = "A1"
Const celdaDestino = "A1"
 
'Inicializar los rangos de origen y destino
Set rngOrigen = wsOrigen.Range(celdaDestino)
Set rngDestino = wsDestino.Range(celdaDestino)
 
'Seleccionar rango de celdas origen
rngOrigen.Select
Range(Selection, Selection.End(xlDown)).Select
 
'condición en la que decimos que si se encuentra una celda igual al DATE seleccionado actualice esa línea
If rngOrigen = FECHA Then
    rngDestino.Calculate

Muchas gracias por la atención
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder