Jump to content

RubenDario

Members
  • Posts

    198
  • Joined

  • Last visited

  • Days Won

    2

Everything posted by RubenDario

  1. Buenos días Pedro Muchas gracias por tu amable respuesta. Me queda probar todo lo que me has dicho. Rubén
  2. Buenos días: El almacenamiento en OneDrive lo uso hace un buen tiempo. Sin embargo ahora se me presenta el caso de que debo compartir achivos y carpetas. 1. La persona debe tener instalado OneDrive en su PC, notebook o móvil ? 2. Si tiene instalada ya la aplicación es suficiente con eso ó debe poseer una cuenta en OneDrive ? 3. Todo esto ha de ser muy sencillo pero estoy muy perdido compartiendo archivos en una dirección de correo por ejemplo. 4. Todas las aclaraciones y sugerencias (aunque no estén solicitadas aquí) me será de suma utilidad. Muchas gracias desde ya. Rubén
  3. Hola Sergio !! En realidad si, sigo con el mismo problema. Rubén
  4. Hola Sergio Confirmo que me pasa solamente en el foro. Es muy molestoso. Gracias Rubén
  5. Buenos días De nuevo pasa esto. Por lo menos conmigo. Sinceramente no sé que podría ser. Gracias Rubén
  6. 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
  7. 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
  8. Buenas noches Paso imagen de lo que me salta con cada click en AyudaExcel. Rubén
  9. 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
  10. 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
  11. 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
  12. 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
  13. 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
  14. Buenas tardes: Muchas gracias @DiegoPCpor tu ayuda!! Un abrazo!! Doy por SOLUCIONADO este tema. Muchas gracias a todos Rubén
  15. 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
  16. 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
  17. 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
  18. Buenos días En una columna tengo las iniciales de las personas y en la columna de al lado los montos que les corresponden. Se repiten las columnas pero las iniciales cambian de fila y tambien los montos. Y son muchas columnas y montos y una suma manual se hace muy tediosa. Adjunto archivo. Desde ya, muchas gracias. Rubén Sumas.xlsx
  19. Buenas tardes Sr @Antoni Su solución es excelente y cubre todas las necesidades. No se imagina en cuántas planillas de Excel lo voy a utilizar porque me soluciona tantas necesidades de hace ya mucho tiempo. Muchísimas gracias por su tiempo y tesón. El tema está SOLUCIONADO. Rubén
  20. Buenas tardes Sr. @Antoni Aquí alzo el archivo nuevamente con algun error que me aparece cuando haco click derecho sobre la columna F pero esta celda de la columna F ya tiene dato generado. Es por prever nada más algun click accidental. Por lo demás todo funciona perfectamente. Muchas gracias Rubén Autonumeración de cheques-Antoni Errores.xlsm
  21. Excelente apreciado Sr. @Antoni!! Que maravilla esta solución suya. Sin embargo se me está presentando algunos problemas. Ya le escribo en la brevedad y le indico. Ruben
  22. Buenas tardes: Teniendo en cuenta de que ya no recibí ninguna respuesta a mi tema y desconociendo el motivo, consulto a quienes corresponda el procedimiento a seguir. Quiero dejar en claro que no es por desinterés de mi parte. Si alguien me puede seguir ayudando, pues estaré muy agradecido. Rubén
  23. Hola de nuevo @tierra_pampa Aqui por fin estoy alzando el archivo. Agregué algo más. Una función que genera un digito verificador. Alguien alguna vez me ayudó en este foro a crearlo. Lo uso siempre con los códigos ó números de cheques. Gracias de nuevo. Rubén NumeracionAutoincrementada con Tabla.xlsm
  24. Hola @tierra_pampa... Terminando tablita Gracias por la paciencia.. Rubén
  25. Hola @tierra_pampa Gracias.... preparando tabla !! Rubén
×
×
  • Create New...

Important Information

Privacy Policy