Bienvenido a la mayor comunidad de usuarios EXCEL
Regístrate gratis ahora para ver contenidos y descargas sin restricciones!Regístrate gratis Ingresar
Problema con funcion Cells.Find
- Autor del tema ToniFM
- Fecha de inicio
Macro Antonio
Moderator
- Registrado
- 22 Dic 2009
- Mensajes
- 10.754
Sube tu archivo y pon un ejemplo de lo que quieres.
Gracias Antoni,
Ya comenté que no era un experto, y supongo que es complicado saber lo que quiero conseguir ....
Adjunto la excel:
- tiene 3 hojas: "Datos" (donde se relacionan los cargos o...
Ya comenté que no era un experto, y supongo que es complicado saber lo que quiero conseguir ....
Adjunto la excel:
- tiene 3 hojas: "Datos" (donde se relacionan los cargos o...
Hola de nuevo, alguna idea respecto a mi problema??
Si no hay solución con mi código, al menos un código que permita buscar valores de una hoja en otra bajo el formato de copiar-pegar el valor...
Si no hay solución con mi código, al menos un código que permita buscar valores de una hoja en otra bajo el formato de copiar-pegar el valor...
Cacho R
Moderator
- Registrado
- 23 Jun 2011
- Mensajes
- 14.223
.
Fíjate, Toni, si te sirve lo que...ToniFM dijo:
Macro Antonio
Moderator
- Registrado
- 22 Dic 2009
- Mensajes
- 10.754
He rehecho la macro que lanza los abonos y el principio y final de la macro Abonos.
Revisa el adjunto. Ya contarás que tal ha ido.
Revisa el adjunto. Ya contarás que tal ha ido.
Muchísimas gracias CachoR y muchisimas más gracias a Antoni.
La solución que mejor se me adapta es la de Antoni, peeeero.... todavía tengo un problema que no consigo resolver por mi mismo (lo...
La solución que mejor se me adapta es la de Antoni, peeeero.... todavía tengo un problema que no consigo resolver por mi mismo (lo...
Macro Antonio
Moderator
- Registrado
- 22 Dic 2009
- Mensajes
- 10.754
Sustituye la macro:
Código:
Sub LanzarMacro2()
Application.ScreenUpdating = False
With Sheets("Abonos")
For x = 2 To .Range("G" & Rows.Count).End(xlUp).Row
.Select
.Range("G" &...Ahora no son mil gracias... ahora son 1 MILLON DE GRACIAS Antoni
Funciona a la perfección, un gustazo.
Para dejarlo ya de matrícula de honor, no pensé a comentar que en la columna...
Funciona a la perfección, un gustazo.
Para dejarlo ya de matrícula de honor, no pensé a comentar que en la columna...
Macro Antonio
Moderator
- Registrado
- 22 Dic 2009
- Mensajes
- 10.754
Código:
Sub LanzarMacro2()
Application.ScreenUpdating = False
With Sheets("Abonos")
For x = 2 To .Range("G" & Rows.Count).End(xlUp).Row
If Not Trim(.Range("A" & x)) = "" Then...Ahora si Antoni, para formar una fiesta!!
Perfecto, muchas gracias por vuestra ayuda.... a la que pueda aportar algo al foro (quizas sea en otros apartados) no dudéis en que lo haré.
Un...
Perfecto, muchas gracias por vuestra ayuda.... a la que pueda aportar algo al foro (quizas sea en otros apartados) no dudéis en que lo haré.
Un...
