Problema con línea de macro

misssalsa

New Member
Joined
Nov 9, 2022
Messages
4
Office Version
  1. 365
Platform
  1. Windows
Buen día, requiero de su ayuda para encontrar la solución a una macro.
Estoy queriendo crear una macro que me copie y pegue los datos de una fila en específico condicionada.
Es decir, es una base de datos de empleados que cuenta con cierto estatus respecto a si se ha realizado su pago de salarios. Esta columna de estatus contiene una fórmula que si se llega a cierta fecha, cambia automáticamente a cierto número para indicar el estado de su situación.
Vi en youtube un tutorial y con ella me guie para realizarlo, ya que no tengo conocimiento en macros.
Tengo esta línea de código
ultfila = Sheets("Basededatos").Range("A" & Rows.Count).End(x1Up).Row
Al momento de ejecutar la macro, me dice:
1668021095891.png

Al pulsar sobre "depurar", me subraya de amarillo esa línea de código, el nombre de la hoja a la que me refiero está escrito correctamente, y toda la línea la escribí tal cual en el video indicaba, ¿pueden ayudarme?
Desconozco si después de ello, la macro estará bien o tendrá más errores, pero por el momento no me deja avanzar a lo restante de la macro sin antes solucionar esto:(
 

Excel Facts

Quick Sum
Select a range of cells. The total appears in bottom right of Excel screen. Right-click total to add Max, Min, Count, Average.
No hablo espanol, pero esta linea de codigo...
VBA Code:
ultfila = Sheets("Basededatos").Range("A" & Rows.Count).End(x1Up).Row
...debiera ser
VBA Code:
ultfila = Sheets("Basededatos").Range("A" & Rows.Count).End(xlUp).Row
"xlUp" not "x1Up"
 
Upvote 0
Hola misssalsa y bienvenido a MrExcel!

Si utilizas la instrucción Option Explicit al inicio de tu código, al empezar a ejecutar el código te va a enviar el mensaje:

Error de compilación, y te va a señalar en color azul la palabra "x1Up":


1668051349015.png


Eso te dará una pista del problema que tiene la línea, entonces como comenta @Z51 , podrás cambiar el uno (1) a una letra ele (l)

---
Revisa los siguientes vídeos para que veas las ventajas de utilizar Option Explicit y de declarar las variables.


 
Upvote 0
Solution
¡Muchísimas gracias a ambos! Viendo el video la persona indicaba que se escribía un "1" pero no sabía que en realidad no es un 1, sino la letra "l". Ya se solucionó esa línea de código, sin embargo ahora la macro no realiza lo que necesitaba, al parece hay algo mal, pero me tomaré el tiempo para editarla, gracias por el dato sobre la option explicit, sin duda me ayudará muchísimo, lindo día✨
 
Upvote 0
No hablo espanol, pero esta linea de codigo...
VBA Code:
ultfila = Sheets("Basededatos").Range("A" & Rows.Count).End(x1Up).Row
...debiera ser
VBA Code:
ultfila = Sheets("Basededatos").Range("A" & Rows.Count).End(xlUp).Row
"xlUp" not "x1Up"
Thank you so much! It worked, have a nice day!⭐
 
Upvote 0

Forum statistics

Threads
1,224,812
Messages
6,181,104
Members
453,021
Latest member
Justyna P

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top