Abraham Valencia

[Hola Pues si el Userform no se cierra, al hacer clic a otro botón, ningún otro debería volver a cambiar su color a menos que tú hayas agregado código que lo haga, pero si no lo vemos es bastante complicado saber qué pasa. Sugiero colocar el archivo...

[Hola Coloca tres o cuatro ejemplo de lo que tienes exactamente en esas celdas (además de comentar si son fórmulas o texto) y al lado coloca cómo quieres que quede cada resultado. Saludos] Abraham Valencia

[Hola Me parece que ya te habían ayudado con este problema ¿no te funcionó la solución? En todo caso el dilema debe ser la forma en que insertas en dato en las celdas ¿cómo lo haces? Abraham Valencia

[Hola Prueba así: Private Sub UserForm_Initialize() Dim UltimoValor As String Dim x As Integer UltimoValor = Cells(Rows.Count, 1).End(xlUp).Value x = InStr(UltimoValor, "-") num_consecutiu.Caption = Format(Val(Mid(UltimoValor, 1, x - 1)) + 1, "0000")...

[Hola Para poder entenderte mejor, sería bueno que compartas el archivo con al menos parte de los datos ya que para explicar usas definiciones que no necesariamente todos entendemos. Como el foro no permite adjuntar archivos sugiero usar algún Drive...

[Hola No es conveniente tener varios archivos para un mismo trabajo, pero bueno eso es decisión tuya. Sobre tu dilema, si quieres que el Combobox se llene sin necesidad de abrir el otro libro, debes usar ADO. En el editor de VBA activa las referencia...

[Hola Me parece que el error viene de dar el valor a la siguiente variable: totalArt = Me.list_productes.ListCount ¿Qué tiene que ver ese "List_productes" con tu Tabla? Lo lógico es que tu variable use el número de registros de la tabla, algo así:...

[Hola Quizá sea más fácil brindarte alternativas si das más detalles para poder entenderte. A la espera. Abraham Valencia

[Hola nuevamente Prueba así, ajusta a tus necesidades: Option Explicit Sub ExtraerDatos() Dim IE As Object Dim c As Long, UltimaFila As Long Dim Celda As Range Const OLECMDID_PRINT = 6 Const OLECMDEXECOPT_DONTPROMPTUSER = 2 Const...

[Hola Tienes algunos errores de conceptos, intenta así: Dim q As Long, p As Long q = Application.WorksheetFunction.CountA(Sheet4.Range("B:B")) For p = 0 To Me.Controls.Count - 1 If TypeOf Me.Controls(p) Is MSForms.TextBox Then Me.Controls(p).Value =...