Jump to content

JSDJSD

Members
  • Posts

    1,551
  • Joined

  • Last visited

  • Days Won

    124

Reputation Activity

  1. Like
    JSDJSD reacted to Antoni in Dividir un Proyecto en varios.   
    Empieza por eliminar todas la imágenes innecesarias de hojas y formularios.
    Sube el archivo y le echaré un vistazo a ver que se puede reducir.
    Recuerda, el proyecto VBA sin contraseña, el libro desprotegido y las macro Workbook_Open() en ThisWorkbook, puenteada o comentada.
  2. Like
    JSDJSD got a reaction from pinoji in Problema con Abrir un Libro por Password vencido.   
    No es necesario cambiar la fecha al sistema
  3. Thanks
    JSDJSD got a reaction from Abraham Valencia in hacer una tarea repetitva con bucle   
    Cierra el tema en este foro si has decidido continuar la consulta en el otro y sigue el consejo del Maestro Abraham Valencia para conseguir la mayor ayuda posible, un saludo.
    ** Es una sugerencia, en ningún momento quiero que se malinterprete  ** 
  4. Thanks
    JSDJSD got a reaction from pinoji in Solucionar el Error 91 en tiempo de ej.....   
    Lo sé, yo solo te mande el aviso para que intentaras tú mismo solucionarlo, pero el Maestro Antoni te dio la solución un saludo a ambos.
  5. Like
    JSDJSD reacted to xdanielhf01 in hacer una tarea repetitva con bucle   
    Buenas tardes, eso estaba buscando ayer, pero no  lo encontre; ya se puede cerrar el tema, gracias.
  6. Like
    JSDJSD reacted to Antoni in Solucionar el Error 91 en tiempo de ej.....   
    Prueba así a ver si te vale:
    Private Sub CargarLista() Dim x As Long, Nombre As Range CmbID.Clear For x = 28 To Hoja4.Range("E28").End(xlDown).Row CmbID.AddItem Hoja4.Range("E" & x) Set Nombre = Hoja2.Columns("A").Find(Hoja4.Range("E" & x), , , xlWhole) If Not Nombre Is Nothing Then CmbID.List(CmbID.ListCount - 1, 1) = UCase(Nombre.Offset(, 1)) '<------ CmbID.List(CmbID.ListCount - 1, 2) = Hoja4.Range("F" & x).Text Next TxtTotalR.Text = FormatNumber(Hoja4.Range("F26"), 2) For x = 0 To CmbID.ListCount - 1 If CmbID.List(x, 2) = "" Then CmbID.ListIndex = x Exit For End If Next End Sub  
  7. Thanks
    JSDJSD got a reaction from pinoji in Solucionar el Error 91 en tiempo de ej.....   
    EL error que te da es porque tanto la cuenta 4600030018 como la 4600050018 no las tienes en la hoja auxiliar por lo que no es posible asignarle  su nombre, añade dichas cuentas y prueba.
  8. Like
    JSDJSD got a reaction from Antoni in Solucionar el Error 91 en tiempo de ej.....   
    EL error que te da es porque tanto la cuenta 4600030018 como la 4600050018 no las tienes en la hoja auxiliar por lo que no es posible asignarle  su nombre, añade dichas cuentas y prueba.
  9. Thanks
    JSDJSD got a reaction from pinoji in Repetir Registro y Modificar un Campo...   
    No tienes que pedir disculpas, simplemente son consejos para que puedas recibir ayuda a tus consultas.
  10. Thanks
    JSDJSD got a reaction from pinoji in Repetir Registro y Modificar un Campo...   
    Y por supuesto debes seguir los consejos que te da el Maestro Antoni.
  11. ¡Excelente!
    JSDJSD got a reaction from pinoji in Repetir Registro y Modificar un Campo...   
    Bueno, a ver si he atinado a tu consulta, para repetir debes dar doble click en  tu listbox como tu tenías planteado eliges el nuevo operario y guardas. Prueba y comenta
    Ordenes v4.3.1.xlsm
  12. Thanks
    JSDJSD got a reaction from sdelpin in Segun el valor de una celda excel abrir un userform o mensaje (msgbox)   
    Prueba y comenta
    Sub ibiza() If ActiveSheet.DrawingObjects("Lista1").Value = 7 Then resultado = MsgBox("¿El Código Postal corresponde a Ibiza?", vbYesNo + vbQuestion, "ATENCION") Select Case resultado Case vbYes: Hoja1.Cells(2, 7) = 10 Case vbNo: Exit Sub End Select End If End Sub  
  13. Like
    JSDJSD got a reaction from Antoni in Repetir Registro y Modificar un Campo...   
    Y por supuesto debes seguir los consejos que te da el Maestro Antoni.
  14. Like
    JSDJSD reacted to Antoni in Repetir Registro y Modificar un Campo...   
    En el archivo que has subido no hay datos, por lo que el ejemplo que has puesto es imposible de analizar.
    Tampoco especificas cual es el formulario en el que hay que actuar.
    A veces el exceso de explicaciones solo deriva en la perdida de interés en la persona que podría ayudarte y si además no especificamos claramente cuales son los elementos que intervienen en el problema, las posibilidades de ayuda se reducen enormemente.
    Por último, debes facilitar las cosas a quien te quiera ayudar, en el adjunto, debes eliminar el control de acceso al abrir el archivo y debes quitar la contraseña al proyecto VBA.
  15. Like
    JSDJSD got a reaction from JasallBcn in Buenas, alguien me podría ayudar con mi código?   
    Uffff  me despisté tienes toda la razón del mundo, pido disculpas....🥴
  16. Confused
    JSDJSD got a reaction from JasallBcn in Buenas, alguien me podría ayudar con mi código?   
  17. ¡Excelente!
    JSDJSD got a reaction from pinoji in Información definida por meses.   
    Algo parecido a esto es lo que necesitas ?
  18. Thanks
    JSDJSD got a reaction from pinoji in Información definida por meses.   
    Aquí lo tienes
    Prueba.xlsm
  19. ¡Excelente!
    JSDJSD got a reaction from pinoji in Información definida por meses.   
    Cuando llegue a casa te lo mando, quedan cosas por pulir que las dejos en tus manos.
  20. Confused
    JSDJSD got a reaction from DiegoPC in Buenas, alguien me podría ayudar con mi código?   
  21. Like
    JSDJSD got a reaction from Abraham Valencia in Macro para imprimir varias hojas   
    Sin archivo nada que hacer
  22. Like
    JSDJSD reacted to Antoni in sintaxis de código fuente   
    El nombre de los parámetros de cualquier método de un objeto es opcional y puede ser sustituido por comas, en el ejemplo que pones la sintaxis de set dato =.cells.find(nombre, xlwhole) es incorrecta, ya que xlwhole correspondería al segundo parámetro y no al cuarto que es el correcto, así pues la forma correcta sería:
    set dato =.cells.find(nombre, , , xlwhole).
    Y por último, este método, como todos, si se codifica correctamente, funciona en cualquier versión de Excel, sea de 32 bits o 64 bits
    La sintaxis del método Find es:
       .Find (What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte, SearchFormat)
  23. Like
    JSDJSD got a reaction from Benito Bartolomé in Convertir pdf a Excel   
    Dale un vistazo a esto:
    Como Convertir uno o varios archivos de PDF a Excel con MACROS // SIN PROGRAMAS GRATIS y CONVERTIDORES - Aprende y Enseña Excel (xn--aprendeyenseaexcel-y0b.com)
  24. Like
    JSDJSD got a reaction from Abraham Valencia in Formulario   
    Pues sin archivo creo que nadie podrá darte una solución 
  25. Like
    JSDJSD got a reaction from roa30 in OPTIMIZAR BUSQUEDA DE ARCHIVOS CON MACRO (Cambio de For each)   
    Solo quería mostrar mi admiración hacia ti, pero si tu lo quieres así pues cambio la palabra Maestro por GRAN ENTUSIASTA DE EXCEL (con mayúsculas), un saludo.
×
×
  • Create New...

Important Information

Privacy Policy