Jump to content

Ibrahim Maradey

Members
  • Content Count

    4
  • Joined

  • Last visited

About Ibrahim Maradey

  • Rank
    Newbie

Converted

  • Campos
    ,
  1. Buenas tardes, estoy trabajando con una tabla que tiene 10 columnas y muchas filas. Por estética y para una mejor visualización, quiero ocultar todas las columnas restantes a la derecha de mi tabla. Las selecciono todas y al intentar ocultarlas me da un error que me indica: " No se pueden insertar objetos fuera de la hoja". Que puede estar pasando en este caso? Gracias de antemano por el apoyo que puedan brindar.
  2. Muchas Gracias Antoni. Estaba cerca de la solución... Pero siempre es bueno consultar con los expertos. Gracias....
  3. Además me gustaría que cuando el TextBox6 quede vacío, no inserte comentarios en esa celda.
  4. Buen día, tengo el siguiente problema: Necesito insertar un comentario en una celda de un registro de datos que se va completando a través de un Userform. Uso el siguiente código (En rojo, las líneas que insertan el comentario en la celda): Set TransRowRng = ThisWorkbook.Worksheets("RESUMEN GENERAL").Cells(1, 1).CurrentRegion NewRow = TransRowRng.Rows.Count + 1 With ThisWorkbook.Worksheets("RESUMEN GENERAL") .Cells(NewRow, 1) = CDate(txtFechaUno) .Cells(NewRow, 2) = UCase(TextBox1.Value) .Cells(NewRow, 3) = Format(TextBox3, "00"".""000"".""000""-""0") .Cells(NewRow, 4) = ComboBox1 .Cells(NewRow, 5) = CDbl(TextBox2) .Cells(NewRow, 5).AddComment .Cells(NewRow, 5).Comment.Text Text:=TextBox6.Value .Cells(NewRow, 6) = UCase(TextBox5) .Cells(NewRow, 7) = ComboBox2 .Cells(NewRow, 8) = Val(TextBox4) If .Cells(NewRow, 8).Value = 0 Then .Cells(NewRow, 8).Select Selection.ClearContents End If Sheets("RESUMEN GENERAL").Select Range("a1").End(xlDown).Select End With El problema que se me presenta es cuando dejo vacío el TextBox6 (porque no siempre necesito insertar comentarios en esa celda); me manda a depurar.. Me edad error. Que puedo hacer para eliminar este error?
×
×
  • Create New...

Important Information

Privacy Policy