Saltar al contenido
Te enseño 7 de los trucos que me permitieron trabajar 2 horas menos al día >>>

Macros > Error 1004 al agregar comentarios a celdas

Liizziie

Recommended Posts

Liizziie Principiante

Liizziie

publicado
publicado

Tengo un archivo de excel en el cual contiene botones para ocultar y aparecer filas; sin embargo si agrego comentarios a alguna de las celdas me aparece el siguiente error: "Run-Time error '1004': unable to set the hidden property of the ranges class"

Este error solo me aparece si le agrego comentarios a alguna de las celdas; si remueve el comentario la macro vuelve a funcionar correctamente; agrego información adicional: 

  1. El archivo se encuentra protegido ya que contiene fórmulas que no quisiera que el usuario manipulara. (En otros archivos ya lo he hecho de esta manera y el macro funciona)
  2. Hice algunas pruebas colocando comentarios en las celdas D12, D20, D111 y la macro continuo haciendo su función; sin embargo cuando agrego comentarios en la celda D125 se reproduce el error.
  3. El error aparece cuando se seleccionan los botones "Roll-up" &"Operation"; cuando se selecciona la opción "All" el macro funciona correctamente.
  4. Adjunto archivo excel.

¿Saben a que se debe?

Muchas Gracias!

Dejo el codigo por si es necesario:

Sub Rollup()
Rows("5:15").EntireRow.Hidden = False
Rows("16:17").EntireRow.Hidden = True
Rows("18:19").EntireRow.Hidden = False
Rows("20:23").EntireRow.Hidden = True
Rows("24:25").EntireRow.Hidden = False
Rows("26:27").EntireRow.Hidden = True
Rows("28:29").EntireRow.Hidden = False
Rows("30:35").EntireRow.Hidden = True
Rows("36:40").EntireRow.Hidden = False
Rows("41:87").EntireRow.Hidden = True
Rows("88:91").EntireRow.Hidden = False
Rows("92:100").EntireRow.Hidden = True
Rows("101:102").EntireRow.Hidden = False
Rows("103:108").EntireRow.Hidden = True
Rows("109:112").EntireRow.Hidden = False
Rows("113:149").EntireRow.Hidden = True
Rows("150").EntireRow.Hidden = False
Rows("151:1048576").EntireRow.Hidden = True
End Sub
Sub All()
Rows("5:150").EntireRow.Hidden = False
Rows("16:17").EntireRow.Hidden = True
Rows("94:100").EntireRow.Hidden = True
Rows("151:1048576").EntireRow.Hidden = True
End Sub
Sub Operation()
Rows("5:15").EntireRow.Hidden = False
Rows("16:17").EntireRow.Hidden = True
Rows("18:19").EntireRow.Hidden = False
Rows("20:23").EntireRow.Hidden = True
Rows("24:53").EntireRow.Hidden = False
Rows("54:87").EntireRow.Hidden = True
Rows("88:93").EntireRow.Hidden = False
Rows("94:102").EntireRow.Hidden = True
Rows("103:106").EntireRow.Hidden = True
Rows("107:125").EntireRow.Hidden = False
Rows("126:129").EntireRow.Hidden = True
Rows("130:133").EntireRow.Hidden = False
Rows("134:139").EntireRow.Hidden = True
Rows("140:143").EntireRow.Hidden = False
Rows("144:149").EntireRow.Hidden = True
Rows("150").EntireRow.Hidden = False
Rows("151:1048576").EntireRow.Hidden = True
End Sub

Macros con error.xlsm

Liizziie Principiante

Liizziie

publicado
  • Autor
publicado
Just now, Liizziie said:

Hola, que tal.. 

Que crees que el error persiste cuando selecciono "Roll out" 

 

Untitled.png

 

Untitled2.png

Israel Cassales Mentor

Israel Cassales

publicado
publicado

Es extraño porqué de este lado no me pasa. Más que error es una advertencia que se da cuando algo (texto por ejemplo), sale del límite de la hoja de cálculo y en tus sentencias (imagino que por control tuyo) mantienes ocultas todas las filas sobrantes por debajo de tu diseño.

¿Podrías intentar algo para validar lo que te comento? Así como está tu libro, trata de ocultar el rango de filas que te marque el VBA por ti misma, sin usar la macro a ver si te deja.

Liizziie Principiante

Liizziie

publicado
  • Autor
publicado
5 minutes ago, Israel Cassales said:

Es extraño porqué de este lado no me pasa. Más que error es una advertencia que se da cuando algo (texto por ejemplo), sale del límite de la hoja de cálculo y en tus sentencias (imagino que por control tuyo) mantienes ocultas todas las filas sobrantes por debajo de tu diseño.

¿Podrías intentar algo para validar lo que te comento? Así como está tu libro, trata de ocultar el rango de filas que te marque el VBA por ti misma, sin usar la macro a ver si te deja.

Tienes razón... no me permite ocultar las filas; me aparece el siguiente mensaje.. 

image.png.1527f8ccd9df98062f81edb4f7c09e89.png

Israel Cassales Mentor

Israel Cassales

publicado
publicado

@Antoni En realidad no ha quedado aún, fue como una prueba pero el solicitante aún presenta el inconveniente, estoy en espera de que haga una pequeña prueba porque más que error parece advertencia de pérdida de datos.

Israel Cassales Mentor

Israel Cassales

publicado
publicado

@Liizziie

? mmm... qué extraño.

 

Perdona la molestia, ¿Podrías hacer una prueba más? Así como está tu libro, lo abres y antes de ejecutar cualquiera de las macros muestra todas las filas que tienes ocultas desde la 151 hasta abajo y luego pruebas los botones por favor.

Liizziie Principiante

Liizziie

publicado
  • Autor
publicado
3 hours ago, Israel Cassales said:

@Liizziie

? mmm... qué extraño.

 

Perdona la molestia, ¿Podrías hacer una prueba más? Así como está tu libro, lo abres y antes de ejecutar cualquiera de las macros muestra todas las filas que tienes ocultas desde la 151 hasta abajo y luego pruebas los botones por favor.

Hola, que tal!

Solo para retroalimentar respecto a este issue.. Me fue imposible volver a mostrar las filas ocultas.. cada que lo intentaba terminaba cerrandose el archivo; sin embargo.. opte por entrar a la macro y a las linea donde indicaba ocultar las filas desde la 151 inverti el comando a falso para que el mismo macro hiciera el trabajo.. jeje utilice el boton de "All" que era el unico que me servia y despues de ello.. borre la linea que pide ocultar todas las filas despues de la 151.. Despues de esto al parecer ya funciona correctamente mi archivo.

Muchas Gracias por tomarte el tiempo de contestarme y hacer pruebas con mi file. 

Muchas Gracias nuevamente!! :)

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

Ir al listado de temas

  • 109 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • Sí
      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Mantenimiento de la comunidad
      Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR

  • Archivos

  • Estadísticas de descargas

    • Archivos
      188
    • Comentarios
      98
    • Revisiones
      29
    Más información sobre "Cambios en el Control Horario"
    Última descarga
    Cambios en el Control Horario
    Por pegones1

    3    1

  • Crear macros Excel

  • Mensajes

    • JSDJSD
      Ajuste Selectivo del Tamaño de las Filas

      Por JSDJSD · publicado

      Private Sub Worksheet_SelectionChange(ByVal Target As Range) ' Asegurarnos de que solo ajustamos las filas a partir de la fila 5 If Not Intersect(Target, Me.Rows("5:" & Me.Rows.Count)) Is Nothing Then Me.Rows("5:" & Me.Rows.Count).AutoFit End If End Sub  
    • JSDJSD
      Generador de Códigos

      Por JSDJSD · publicado

      El archivo RCI PRUEBA..xlsm
    • JSDJSD
      Generador de Códigos

      Por JSDJSD · publicado

    • jues
      Generador de Códigos

      Por jues · publicado

      Saludos amigos espero estén bien  En la actualidad utilizo la siguiente macro para generar un código alfanumérico continuo que al guardar los datos se copia en la Celdas “B5” de las Hojas 58 (MATRIZ1) y Hojas59 (MATRIZ2) Private Sub CommandButton3_Click()     If Hoja58.Range("B5").Value < 9999 Then Hoja58.Range("B5").Value Hoja58.Range("B6").Value + 1     Else        Hoja58.Range("B5").Value = 1     End If If Hoja59.Range("B5").Value < 9999 Then Hoja59.Range("B5").Value = Hoja59.Range("B6").Value + 1 Else        Hoja59.Range("B5").Value = 1     End If End Sub El código se genera normalmente sin embargo no se copia inmediatamente en las Celdas “B5” sino que aparece en las Celdas “B6” mientras que las Celdas “B5” siempre permanecen en blanco, actualmente el código consta de tres letras y cuatro dígitos (RCI-0000) pero me interesa poderle concatenar el mes y año en formato mm-yy para que el código finalmente quede expresado de la siguiente forma RCI-0000-00-00 Mucho les sabre agradecer la ayuda que me puedan dar RCI PRUEBA..xlsm
    • jues
      Ajuste Selectivo del Tamaño de las Filas

      Por jues · publicado

      Saludos amigos espero estén bien  En la actualidad  los datos provenientes de los TextBox 5, 6 y 7 se guardan en las Columnas H, I y O de las Hojas 58 (MATRIZ1) y Hojas59 (MATRIZ2) sin embargo cuando el texto es abundante no se visualiza completamente en las celdas correspondientes de allí que necesito que cada fila se ajuste al tamaño de la celda que contenga mayor cantidad de texto para lo cual he probado con la siguiente macro: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells.EntireRow.AutoFit End Sub Sin embargo, dicha macro coloca todas las filas del tamaño del texto que contengan y lo que en realidad necesito es que dicha macro solo se aplique desde la Fila 5 en adelante. Mucho les sabre agradecer la ayuda que me puedan dar RCI PRUEBA..xlsm

  • Visualizado recientemente

    • No hay usuarios registrado para ver esta página.
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.