Jump to content

Antoni

Members
  • Content Count

    10,222
  • Joined

  • Last visited

  • Days Won

    561

Everything posted by Antoni

  1. Abre el adjunto y pulsa sobre la flecha azul. Inventarios.xlsm
  2. ¡Muy bueno! Pero deberías subirlo a Ideas y aportes. (Pestaña situada en la cinta de la parte superior de la página). 🙂
  3. Sub CopiarA5K5() Application.ScreenUpdating = False For x = 1 To 5 Range("A5:K5").Copy Range("A5").End(xlDown).Offset(1).Insert xlDown Next Range("A5").End(xlDown).Offset(-4).Select End Sub
  4. No me había dad cuenta que hay un directorio con los 9 archivos, pero hay otro problema, todos los archivos dan este error:
  5. Sub CopiarA5K5() Application.ScreenUpdating = False For x = 1 To 5 Range("A5:K5").Copy Range("A6").End(xlDown).Offset(1).Insert xlDown Next End Sub
  6. Sube un archivo Excel con un ejemplo detallado de lo que tienes, de lo que pretendes hacer y en que momento.
  7. Revisa el adjunto. La imágenes no sirven para nada, en tu próxima consulta, sube un archivo Excel. Copiar y pegar múltiple.xlsm
  8. Private Sub Userform_Activate() TextBox1 = Activecell End Sub
  9. ¡Animo! una respuesta más, llegais a las 50 y ¡premio!, este mes consiste en una mascarilla para prevenir la infección del coronavirus. 🤣😘
  10. ¿Y si te molestaras en poner ajedrez en el buscador del foro?
  11. Creo que el coronavirus te ha afectado a la vista, 🤣 está en la arte superior derecha y muestra las hojas del libro. Un abrazo.
  12. Sube un archivo Excel con un ejemplo de lo que quieres.
  13. Aunque no te lo creas, los que contestamos de forma habitual, tenemos una vida fuera del foro. Tenemos trabajo, familia, aficiones, compromisos y tiempo libre, es de ese tiempo libre de donde sacamos una parte de el y lo dedicamos al foro de forma voluntaria y totalmente altruista, es decir, nadie nos paga por ello. Por tanto deberás tener paciencia hasta que alguien tenga a bien revisar tu consulta, que por cierto, tu consulta inicial ya ha sido contestada, lo de aprovecharla para ir colado nuevos requerimientos es algo expresamente prohibido por las normas del foro. Y por último, estamos en fin de semana en el cual puedes aprovechar para revisar las respuestas que ya te han dado para intentar resolver tu ultima consulta por ti mismo y así no estar a expensas de lo que hagan los demás.
  14. Sube un archivo con datos para probar y con las macros tal como las tienes en la actualidad.
  15. If Trim(Target(1, 1) <> "") Then en lugar de: If Trim(Target <> "") Then
  16. Efectivamente, es en el evento Worksheet_Change(): Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("H6:H" & Rows.Count)) Is Nothing Then If Trim(Target <> "") Then Set folio = Columns("H").Find(Target, , , xlWhole) If folio.Row <> Target.Row Then MsgBox "Duplicado en fila " & folio.Row Target.Select End If End If End If End Sub
  17. Pon la propiedad .ShowModel = True/False en ambos formularios.
  18. Prueba: =SI.ERROR(SUMA(AE17:AT17)/CONTAR.SI(AE17:AT17;">-1")*0,45;0)
  19. A veces somos transparentes y no se nos ve. 🤣🤣🤣 😘😘
  20. Te dejo una solución sin código VBA, con un combobox ActiveX. Revisa las propiedades .ColumnCount, .ListFillRange y .LinkedCell. Lista con dos columnas.xlsm
  21. Y a ikanni, que ya te dio la solución en el post #4, y llevamos 23 con este, ni nombrarlo. De desagradecidos está el mundo lleno. ☹️
  22. ¿Sabes cual es el problema JSDJSD?, que tu le estás dando una solución que no es la que quiere, lo que pasa es que no se ha enterado cual es la solución que tu le aportas, ya que la solución es la que ha aportado ikanni, o sea una función de validación del DNI, no una búsqueda en una columna. Pero como no sube una archivo con el textbox, el botón y explicando que es lo que quiere tal como indican las normas del foro, el tema se está eternizando sin ninguna necesidad.
  23. 36907753K, 37640400A, son DNI válidos obtenidos con la función aportada por ikanni ¿Donde está la privacidad de estos DNI si no identifican a nadie?
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png