PEGAR EN CELDA SEGÚN FECHA

[adriadg]

Hola,

he creado un COMMANDBUTTON y quiero que al clickarlo éste copie un dato (un número) de una celda de un libro externo, y lo pegue en una celda del libro actual. Hasta aquí bien, con el...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

_______________________________________________________________________________

Private Sub CommandButton1_Click()
Do Until CDate(Cells(4, días + 4)) = CDate(Range("C3")): días = días + 1...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[adriadg]

Gracias Antoni, me funcionó perfecto!

una pregunta más, me podrías explicar un poco el procedimiento de la sintaxis que me pones? es por curiosidad, por si lo necesito para otras cosas.

Muchas...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

Simplemente, localizamos la fecha de C3 en la fila 4, y ponemos el valor de B7 del otro libro en la fila 5.

 

[adriadg]

ok entendido. Lo único que no entiendo es lo de CDate(Cells(4, días + 4) y lo de días = días + 1. esto porqué lo pones?

Graciass

 

[Macro Antonio]

.

Días es el nombre de la variable del bucle Do/Loop que recorre la fila 4 a partir de la columna 4, que es donde empiezan las fechas. Se llama Díascomo podría ser cualquier...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Cacho R]

Hola! adriadg (y Antoni). También te puede servir:

Cells(5, WorksheetFunction.Match([c3], [4:4], 0)) = _
Workbooks("LIBRO...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[adriadg]

Hola Antoni,

gracias por todo.

hasta ahora me iba genial, pero a partir de hoy me da el siguiente error: Error 9 en tiempo de ejecucion. Subindice fuera del intervalo.

y me señala lo siguiente...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[adriadg]

Hola Antoni,

gracias por todo.

hasta ahora me iba genial, pero a partir de hoy me da el siguiente error: Error 9 en tiempo de ejecucion. Subindice fuera del intervalo.

y me...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[adriadg]

Hola! adriadg (y Antoni). También te puede servir:

Cells(5, WorksheetFunction.Match([c3], [4:4], 0)) = _
Workbooks("LIBRO...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[adriadg]

Buenas de nuevo,

una última pregunta, si quiero que los datos los copie en una hoja diferente de la que tengo el command button, como lo puedo hacer?

Private Sub CommandButton2_Click()
Do Until...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[adriadg]

Vale ya lo hice, no sé si hay una manera más sencilla pero lo he solucionado jeje

He añadido Sheets ("STOCKS") en todos los comandos:

Private Sub CommandButton1_Click()
Do Until...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí