Ayuda con algo muy simple

[HARDCORE]

Pues este es mi primer mensaje en este foro que por lo que veo me va a ser de gran utilidad.

Veamos mis conocimientos de excel son practicamente nulos, y menos aún de el tema de las macros. Os...

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í

 

[ioyama]

Hola HARDCORE

Bienvenido al Foro.

Respecto a tus preguntas:

1ª Cambia en la macro la lí­nea
If Target.Count > 1 Then Exit Sub
por
If Target.VAlue <> 1 Then Exit Sub
Esto hará que...

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í

 

[ioyama]

Hola de nuevo

Al final me ha dado tiempo y .....

Pues eso revisa el adjunto.

Un saludo desde Vitoria y buen fin de semana a todos.

 

[HARDCORE]

Muchisimas gracias por la bienvenida, y muchas más por la macro, la verdad es que funciona perfecta, solo una pregunta más. Si quiero que la fecha aparezca en otra casilla más adelantada, en vez...

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í

 

[ioyama]

Hola HARDCORE

Simplemente habí­a que cambiar

If Cells(fil, col) = "" And Cells(fil + 1, col - 2) = "" Then Cells(fil + 1, col) = ""
por
If Cells(fil, col) = "" And Cells(fil + 1, col - 13) = ""...

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í

 

[HARDCORE]

Perfecto, ahora si funciona como necesitaba, muchisimas gracias por tu tiempo y por aclararme que sucedia.

Ahora tengo otro problema con esta hoja, se supone que todas aquellas celdas que tienen...

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í

 

[ioyama]

Hola HARDCORE

Error por un pelo. Has puesto
=BUSCARV($A9;agenda!$A$3:N4948;15;0)

Deberí­as poner columna O en vez de N, tal que (como yo lo pondrí­a)
=BUSCARV($A9;agenda!$A$3:$O$4948;15;Falso)
y...

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í

 

[HARDCORE]

Impresionante, la verdad es que no lo veí­a. Ahora mirare lo que comentas del ESERROR

Muchisimas gracias por tu ayuda, ahora ya hace lo que necesitaba.

Un saludo.

 

[HARDCORE]

Puffff, sigo teniendo problemas, ahora resulta que al intentar añadir datos nuevos a la base salta un error que pone

error "1004" en tiempo de ejecución y al darle a depurar marca en amarillo...

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í

 

[p@li]

si no me equivoco eso pasa cuando alguno de los valores de las variables de Fila o Columna es 0 o menor a 0.

 

[HARDCORE]

Y en caso de que sea eso que hay que tocar para que no suceda ????

 

[ioyama]

Hola HARDCORE

Prueba a añadir
If col <> 15 Then Exit Sub
La columna 15 es la de las fechas.

tal que la macro te quede al final

.......
If col = 2 Then Exit Sub
If col <> 15 Then Exit Sub...

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í

 

[HARDCORE]

Pues ahora si que funciona, menos mal, porque pensaba que tenia que ir depurando cada vez que introducia algo nuevo.

Gracias de nuevo