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()
Muchas gracias por la atención
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.RangeFECHA = 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.SelectRange(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.CalculateMuchas gracias por la atención
Valora esta pregunta
0