Hola! anoche estuve revisando, tuve que hacer unos pequeños ajustes en la direccion de la carpeta (en vez de poner la direccion en partes la coloque toda de corrido parecida a como estaba antes) y logramos (vos y yo) que funcione!. Tambien tuve que desactivar la linea de código que bloqueaba la hoja porque sino no estaba dejando que la macro escriba el codigo de la propiedad en la celda, pero eso es lo de menos, supongo que lo puedo solucionar poniendo el bloqueo al final de la macro que creaste o desprotegiendo la celda donde se pone el codigo de propiedad.
Así que doy por supuesto que eso lo voy a poder hacer funcionar por lo que entonces voy a marcar como que ya está solucionado lo que necesitaba.
Agradezco muchisimo tu ayuda porque era sumamente tedioso tener que estar haciendo los recibos de a uno ya que la macro de envio de recibos es medio lenta. Ahora no me importa si tarda mucho, apretaré el boton y le daré todo el tiempo que se quiera tomar mientras yo hago otra cosa.
Gracias nuevamente!!!!
Por
Corvette, · publicado
Hola.
Tengo hecha una macro muy sencilla cuyo objetivo es mostrar en otra hoja aquellas celdas que están en blanco. Este es el código:
Public Sub blancos()
Dim f As Integer
Dim f_max, c_max As Long
ActiveWorkbook.Worksheets("Hoja1").Copy after:=Worksheets("Hoja2")
'Para saber cuantas filas y columnas hay como maximo rellenas
f_max = ActiveSheet.Cells.SpecialCells(xlLastCell).Row
c_max = ActiveSheet.Cells.SpecialCells(xlLastCell).Column
'Para situarse en la celda
Range("AE").Select
'Cells(4, 10).Select
'Rows(4, 10).Select
For f = 4 To f_max
If ActiveCell.Value <> "" Then ActiveCell.EntireRow.Delete
If ActiveCell.Value = "" Then ActiveCell.Offset(1, 0).Select
Next f
ActiveWorkbook.Worksheets(3).Name = "Sin correo"
End Sub
Al ejecutar el código me sale el siguiente error:
Error de compilación:
No se ha definido Sub o Function
Al ejecutarlo paso a paso el error me salta en otro procedimiento que tengo con el código:
Public Sub Workbook_Open()
Call blancos
End Sub
El código del otro procedimiento lo tengo en la hoja1.
Si ejecuto solo el procedimiento de la hoja1 me sale el error:
Se ha producido el error 1004 en tiempo de ejecución:
Error definido por la aplicación o el objeto
Este error se produce en la línea
Range("AE").Select
¿Como puedo solucionar estos errores?
Gracias.