Jump to content

Antoni

Members
  • Posts

    11,126
  • Joined

  • Last visited

  • Days Won

    748

Everything posted by Antoni

  1. Se me olvidaba, habría que añadir el optionbutton1 al archivo original, ¡Cuidado! dibujarlo de nuevo, no copiar el control de un formulario a otro.
  2. No creo que sea la versión, a mi me ha pasado varias veces con distintas versiones, de hecho estoy con Excel 365 actualizado al día y tampoco me funciona. La parte corrompida del formulario es la correspondiente al archivo .frm, por lo que se me ocurre que copiando el código VBA del archivo de JSDJSD y pegándolo sobre el código VBA del archivo inicial, debería funcionar.😎
  3. JSDJSD: Me pasa lo mismo con tu archivo original. Intuyo que el formulario está corrupto. Alguna vez me ha pasado y nunca he podido saber el porqué y tampoco he podido arreglarlo. 😒
  4. Sub ImprimirTicket() Sheets("Hoja2").Range("O2:R10").PrintOut End Sub Pon la macro donde quieras.
  5. El problema María, es que no se entiende lo que pretendes hacer, porqué aunque tu lo creas, nunca has planteado desde cero cual es el problema. Empieza otra vez, define el problema, explica que información tienes y que es lo que quieres obtener y deja que sean las personas que te puedan ayudar quienes decidan si se necesita un filtro, una macro, una fórmula o cualquier otro procedimiento para resolverlo. 🙂
  6. A la primera pregunta: Label1.BackColor = &O731232 Label1.BackColor = 731232 Label1.BackColor = RGB(73, 12, 32) A la segunda: No, una solución es utilizar un label transparente con una imagen.
  7. Prueba así Workbooks(Olb).Sheets(1).Copy After:=Workbooks(2).Sheets(3) o así ActiveWorkbook.Sheets(1).Copy After:=Workbooks(2).Sheets(3) Y si no te funciona, sube tu archivo con la macro.
  8. Acostúmbrate a convertir a Date antes de operar con fechas desde celdas. Sub compara_fechas() With Worksheets("Hoja1") For i = 2 To .UsedRange.Rows.Count If CDate(Cells(i, "A")) < CDate(Cells(i, "B")) Then Cells(i, "C").Value = "menor" Else Cells(i, "C").Value = "mayor" End If Next End With End Sub
  9. Y de paso explica cuales son las columnas a comparar para emparejar las filas.
  10. Suponiendo que el correlativo empiece en A2: If Range("A2") = "" Then Range("A2") = "REG-0001" Else Range("A" & Range("A" & Rows.Count).End(xlUp).Row + 1) = _ "REG-" & Format(Right(Range("A" & Rows.Count).End(xlUp), 4) + 1, "0000") End If Otra vía podría ser usando el formato de la celda: With Range("A" & Range("A" & Rows.Count).End(xlUp).Row + 1) .Value = WorksheetFunction.Max(Columns("A")) + 1 .NumberFormat = """REG-"" 0000" End With
  11. Workbooks(1).Sheets(1).Copy After:=Workbooks(2).Sheets(2) Vale para cualquiera que sean los libros.
  12. No está claro como quieres el resultado y donde. Vuelve a subir el archivo con un ejemplo del resultado.
  13. Todo muy bonito, pero, ¿Y el archivo?, con imágenes y videos, no vamos a ninguna parte.
  14. Ya me he hecho un lio, ¿Qué tiene que ver el formulario del zip3 con el video de la petición? Los archivos se corrompen de 1 en 1, por lo que si tienes alguna copia anterior, lo más probable es que funcione.
  15. Vamos por partes. La opción 1 no funciona, ni siquiera me deja importar el formulario. Está claro que el archivo .frx está mal. El código VBA se puede recuperar sin problemas porqué el archivo .frm se deja abrir. La opción 2 no tiene problemas, pero eso ya te lo había dicho yo, quitando el formulario no hay problema. La opción 3 funciona ¿Y? ¿Y ahora qué? ¿No dispones de alguna copia de seguridad anterior a la última versión de la que puedas exportar el formulario?
  16. Solo tienes que añadir el nombre del userform seguido de un punto. Por ejemplo : Userform1.TextBox2 ó Userform2.TextBox2
  17. Si no te contesta nadie esta noche, mañana intentaré solucionártelo.
  18. Private Sub TextBox1_Change() On Error Resume Next if CDbl(TextBox1) < 0 then TextBox1=0 End Sub
  19. 'Desde Userform1 Private Sub CommandButton29_Click() With UserForm2 .TextBox2 = .TextBox2 - 1 Unload Me End With End Sub 'Desde Userform2 Private Sub CommandButton29_Click() With UserForm1 .TextBox2 = .TextBox2 - 1 Unload Me End With End Sub
  20. Exporta el formulario, elimínalo y sube por separado el archivo Excel, y los archivos .frm y .frx del formulario, la BD no es necesario.
  21. Como no subas tu archivo (normas del foro) y pongas un ejemplo, es difícil que alguien te ayude.
  22. Definitivamente, el formulario frm_Cobros está corrupto, lo eliminas y todo se soluciona. Último intento, exporta el formulario y súbelo.
×
×
  • Create New...

Important Information

Privacy Policy