Jump to content

RubenDario

Members
  • Posts

    196
  • Joined

  • Last visited

  • Days Won

    2

RubenDario last won the day on October 4 2019

RubenDario had the most liked content!

About RubenDario

  • Birthday 06/28/1962

Contact Methods

  • Twitter
    smrubendario

Profile information

  • Gender
    Hombre
  • Localización:
    Paraguay

Converted

  • Campos
    ;
  • Mi versión de Excel:
    2

Recent Profile Visitors

1,569 profile views

RubenDario's Achievements

  1. Hola Sergio !! En realidad si, sigo con el mismo problema. Rubén
  2. Hola Sergio Confirmo que me pasa solamente en el foro. Es muy molestoso. Gracias Rubén
  3. Buenos días De nuevo pasa esto. Por lo menos conmigo. Sinceramente no sé que podría ser. Gracias Rubén
  4. Buenas tardes Señor @Antoni Teniendo en cuenta que en cada hoja las columnas a proteger son todas diferentes, sería correcta la solución que escribo a continuación: Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Select Case ActiveSheet.Name Case "Cuadrante" Select Case Target.Column Case 4, 5, 8, 10, 21, 22 ActiveSheet.Protect Password:="MiContraseña", AllowFiltering:=True Case Else ActiveSheet.Unprotect Password:="MiContraseña" End Select Case "Otros datos" Select Case Target.Column Case 14,15,16 ActiveSheet.Protect Password:="MiContraseña", AllowFiltering:=True Case Else ActiveSheet.Unprotect Password:="MiContraseña" End Select Case "Mas datos" Select Case Target.Column Case 10, 20, 22 ActiveSheet.Protect Password:="MiContraseña", AllowFiltering:=True Case Else ActiveSheet.Unprotect Password:="MiContraseña" End Select End Select End Sub Muchas gracias... Rubén
  5. Buenos días a todos: ¿Qué tal Sr. @Antoni? Desués de mucho patalear, creo que he logrado algo. Sólo leyendo y releyendo en Google. ¿Me podrían indicar si la forma en que lo hice conlleva algún error? Private Sub Worksheet_SelectionChange(ByVal Target As Range) Select Case Target.Column Case 4, 5, 8, 10, 14, 15, 16, 20, 21, 22 ActiveSheet.Protect Password:= "MiContraseña", AllowFiltering:= True Case Else ActiveSheet.Unprotect Password:= "MiContraseña" End Select End Sub He agregado "Password" que en realidad no sé si es necesario. ¿Si el libro de Excel tiene otras hojas en los cuales necesito hacer lo mismo, debo declarar la misma rutina en cada una? Estoy atento a todo lo que me puedan enseñar. Gracias. Rubén
  6. Buenas noches Paso imagen de lo que me salta con cada click en AyudaExcel. Rubén
  7. Hola @DiegoPC Está funcionando de maravillas !!! Muchísimas gracias por tu tiempo y respuestas !! Un fuerte abrazo amigo. Dios te bendiga. El tema lo doy por SOLUCIONADO! Rubén
  8. Hola Sr. @Antoni Me está funcionando muy bien sin duda alguna. Podría Ud además indicarme como modificar el código para que me permita utilizar filtros en las columnas protegidas. Yo estuve haciendo mis intentos con la propiedad "allowfiltering" del objeto PROTECTION pero nada me funciona. Evidentemente lo hago mal. Gracias Rubén
  9. Buenas tardes a todos: No se puede trabajar con rangos protegidos y otros no (editables) en las tablas. (O quizás desconozca la forma de hacerlo). Me han dicho en el foro que con las tablas la única forma de hacerlo es a través de VBA. Y por supuesto recibí con satisfacción la forma de hacerlo. Sin embargo se trataba de una tabla sencilla con apenas 5 columnas. Ahora tengo que hacerlo con una tabla de entre 20 y más columnas y se me complica mucho con el condicional IF y todos los operadores lógicos que hay que escribir. ¿Existe otra forma de hacerlo y que además evite la lentitud que crea tantos operadores lógicos? Muchas gracias Rubén RangosProtegidos2.xlsx
  10. Hola @DiegoPC Muchas gracias por la ayuda. Funciona perfectamente y me sirve así como está. Sólo una molestia más: me obliga a cargar primero la columna de EX_GV y luego la de RETENCION. Pero cuando no soy yo el carga la planilla (lo hace otro) y carga primero la columna de RETENCION con un "SI" ó con un "NO" ? Debería permitir cargar un "SI" ó un "NO" si y sólo si la de EX_GV sea diferente a "", algo así supongo. Con eso ya estaría totalmente cubierta esta necesidad. Un abrazo Gracias
  11. Buenas tardes a todos: Para no explayarme mucho con palabras alzo directamente el libro de Excel. Cuando uso la funcion INDIRECTO me da un error. El error que me lanza es "El origen actualmente evalua un error". Gracias Rubén ControlRETENCIONES.xlsx
  12. Buenas tardes: Muchas gracias @DiegoPCpor tu ayuda!! Un abrazo!! Doy por SOLUCIONADO este tema. Muchas gracias a todos Rubén
  13. Buenos días Muchas gracias @DiegoPC! Ahora sí !! Bueno ya que estamos, aprovecho para contar que me pasa algo muy raro con este libro de Excel y no le encuentro explicación. En realidad ya me pasaba antes de que tú me dieras la solución: luego de cerrar este libro de Excel ya no se abren ninguno de los libros de Excel. Tengo que abrir un libro de Excel en blanco con click derecho y "ejecutar como administrador". Una vez hecho esto solo puedo abrirlos desde el libro de Excel en blanco. También, sólo pueden volver a abrirse si reinicio la PC. Todo lo que escribí no fué más que lo siguiente: Option Explicit Private Sub Workbook_Open() Application.Cursor = xlDefault (lo que incluí como nueva línea) MsgBox ("HAS ABIERTO UN LIBRO NUEVO") End Sub Desde ya, muchas gracias. Rubén
  14. Buenas tardes ¿Cuál sería la instrucción en VBA (supongo que se declara al principio siempre) para "eliminar" esto de la "ruedita flotando" esperando alguna acción. De paso, me ayudan a conocer cuál es el nombre correcto de la "ruedita" (yo le digo cursor). Gracias Rubén ProbandoMacros.xlsm
  15. Buenos días @John Jairo V Esto me funciona perfectamente. Muchísimas gracias por tu tiempo y amabilidad. Para mi está SOLUCIONADO. Un abrazo en la distancia. Rubén
×
×
  • Create New...

Important Information

Privacy Policy