Jump to content

Leaderboard

Popular Content

Showing content with the highest reputation on 07/28/2020 in all areas

  1. @viniciusm Te envió un ejemplo para ver si es lo que necesitas, de ser así, lo programamos. Saludos.Informes 1.1.xlsm
    1 point
  2. Hola marcosab Envío en anexo una planilla, la cual solo hace el cambio de la contraseña, esto lo debes adaptar a tus necesidades, e imagino que ya tendras, la macro donde se Logan los usuarios de tu planilla, esto que te envío tiene una hoja "login", alli te fijarás como cambian las contraseñas.. Espero te se útil, no soy ningún experto en esto, esto me lo habian pasado a mi en su oportunidad Contraseñas.xlsm
    1 point
  3. Hola @viniciusm Una opción sería cambiar los relativos de la fórmula, a los absolutos a la columna: =INDICE(Lista!$C3;COINCIDIR($B$8;Lista!$A3;0)) O bien sin absolutos: =INDICE(Lista!C3;COINCIDIR($B$8;Lista!A3;0)) Si optas por hacer via VBA con la fórmula que tienes entonces, puedes usar un ciclo: (te dejo un Ejemplo, sin archivo estoy adivinando) For i = 2 to 20 cells(i,4).Formulalocal = "=INDICE(Lista!C$" & i & ";COINCIDIR($B$8;Lista!A$ & i & ";0))" next i Espero sea de utilidad, Sigo atento.
    1 point
  4. Apreciados Tierra_Pampa y JSDJSD Quiro avisarles nada mas y darles las muchas gracias a los dos por su tiempo, por su ayuda, se imaginarán como nos facilitan la vida, este tema podemos darlo por concluido... Espero contar con Uds., en otras oportunidades, va nuevamente mis agradecimientos a los dos. Saludos
    1 point
  5. Hola @mbriculle Estas son las líneas que realizan el filtro en el correo "de todos los no leídos", modifica estas líneas. No uso Outlook, por restricciones de la empresa, no logre hacer pruebas, pero te dejo este link: https://stackoverflow.com/questions/33261598/display-email-body-of-selected-email-in-outlook-as-a-message-box-in-excel En lo que alguien más atiende la consulta. Espero pueda ser de utilidad.
    1 point
  6. Las carpetas sinconizadas deben estar disponibles en el PC para que los usuarios del grupo tengas las actualizaciones.
    1 point
  7. Debe crear una carpeta en OneDrive y compartir la carpeta, el usuario invitado debe sincronizar la capeta en su propio OneDrive, de esta forma el archivo se le sincroniza completamente en su propio PC. Debe activar la casilla permitir edición.
    1 point
  8. Private Sub Workbook_Open() Application.ScreenUpdating = False Dim hoja As Worksheet For Each hoja In Sheets 'Aquí la parte común a todas las hojas, por ejemplo hoja.Cells.Font.Size = 8 hoja.Range("A1:F1").Interior.Color =VbYellow Select Case hoja.Name Case "Mi hoja1" 'Formatear Mi hoja1 Case "Mi hoja2" 'Formatear Mi hoja2 Case "Mi hoja3" 'Formatear Mi hoja3 '... '... '... End Select Next End Sub
    1 point
  9. Hola No estoy seguro, pero es posible que esos usuarios necesiten instalar la aplicación en su PC En ondrive empresarial es mas simple compartir una carpeta y configurar con quienes se comparte y listo Saludos
    1 point
  10. Hola @paikerr Si no quieres usar el Workbook_Open entonces no te queda más que usar el Activate de cada hoja y para evitar que se ejecute una y otra vez, podrías tener una variable "STATIC" en cada hoja con un flag (true/false) para saber si debes correr la macro o no y que la misma macro haga el cambio de valor de la variable para que no vuelva a ejecutarse. https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/static-statement
    1 point
  11. Buen día Tierra_Pampa Debo disculparme contigo si me exprese de forma equivocada, lastimosamente los textos no tienen sonidos, te pido disculpas por cualquier error que haya cometido, y debo agradecerte por este enorme aporte, funciona y realmente sí que funciona y sí que interpretaste el pedido, desde ya con las disculpas debidas y decirte que lo que más valorar es el tiempo que Uds. nos dedican y nada más volver a contar contigo en caso lo necesito.. Abrazo desde la distancia
    1 point
  12. Descarga el archivo, descomprÍmelo y pon los archivos en este caso en tu escritorio, cambia la ruta por la tuya.... Set rngDestino = Workbooks.Open("C:\Users\JSD\Desktop\PlanillaDestino.xlsm").Worksheets("EGRESOS") _ .Cells(Rows.Count, "a").End(xlUp).Offset(1) debes cambiar lo marcado en color verde, es decir borrar lo que hay y porner el nombre de tu equipo, este cambio debes realizarlo en el botón traspasar. Prueba y comenta. Origen destino.rar
    1 point
  13. Otra opción, asigna esta macro al botón "M": Sub Borrar() If MsgBox("¿Desea borrar las columnas A:C, E:G de la fila de la celda activa?", vbQuestion + vbYesNo) = vbYes Then If MsgBox("¿Está seguro?", vbQuestion + vbYesNo) = vbYes Then Range("A" & ActiveCell.Row).Resize(1, 3).ClearContents Range("E" & ActiveCell.Row).Resize(1, 3).ClearContents Exit Sub End If End If MsgBox "*** Operación de borrado cancelada ***", vbInformation End Sub
    1 point
  14. Hola @Leonardo Briceño Ante todo, agradezco tus comentarios, pero si realmente tú deseas retribuir el tiempo invertido en posibilitar la solución del problema planteado, puedes hacerlo con un click en el corazón que se encuentra en la parte derecha del comentario. Simple , fácil y rápido. Te dejo una nueva propuesta de acuerdo a lo que pides en el posteo #2. Espero que sirva para lo que necesitas. Que tengas una buena jornada! Suerte! ae20200725_post43796_LIMPIAR CELDASv2.xlsm
    1 point
  15. Esto creo que te puede servir de algo.
    1 point
  16. Hola @Leonardo Briceño!!! Te dejo una propuesta. No indicas como te gustaría que fuese el seleccionar filas, por lo que simplemente escribe una "B" o "b" en la columna "I", ejecuta la macro e inmediatamente, se borrará el registro. Por las dudas que el error se ejecute sin querer, se acumula un backup de registros borrados en la siguiente hoja. Si te ayudó la colaboración recibida, puedes agradecerlo con un click en el corazón que se encuentra en la parte inferior derecha del comentario. Suerte! ae20200725_post43796_LIMPIAR CELDAS.xlsm
    1 point


  • Newsletter

    Want to keep up to date with all our latest news and information?
    Sign Up
×
×
  • Create New...

Important Information

Privacy Policy