Victor Perdomo

Prueba este código y me cuentas Sub Ejemplo_27() Dim Flow As Single Dim Pressure As Single Flag = 1 Do While (Flag <> 0) Flow = Val(InputBox("Enter Flow (GPM) in 5 multiples", "PDWS")) Flag = Flow Mod 5 Loop Flag = 1 Do While (Flag <> 0) Pressure =...

Hola Ruthless Zerstörer Prueba en el evento terminate del form Private Sub UserForm_Terminate() ThisWorkbook.Close End Sub Si no quieres que te pregunte nada Private Sub UserForm_Terminate() Application.DisplayAlerts = False ThisWorkbook.Close...

¿Puedes compartir las macros? Para tener más claridad acerca de lo que esta pasando

El error se produce por que estas asignandole un valor al combobox que no tiene. Me parece que es redundante esa linea, si ya lo seleccionaste, no me queda claro por que nuevamente le asignas un valor. Pensaría que esa linea te sobra. Otro...

Y si lo pones vacío CommandButton1.Picture = ""

Esto lo puedes hacer con formato condicional: Suponiendo que los datos empiezan en la fila 2 Seleccionala. Ve a Inicio-Formato condicional-nueva regla...-Utilice una formula que determine las celdas para aplicar formato colocas la formula =$I2="I" Y...

reemplaza Archivos por Range("A1").value

Dado que la informacion que manejes en la macro queda almacenada en la ram, no seria posible almacenar este consecutivo, asi que deberias guardarlo en una celda, puedes con la funcion contara y texto para darle los ceros Ya despues en la macro...

No encontré nada extraño en la macro. Solo agregue la función IsFileOpen() Pero supongo tu ya la tienes. En este link lo puedes ver funcionando correctamente http://1drv.ms/1G4TSZI Si tienes alguna pregunta no dudes en hacerla. No se te olvide dar...

¿Puedes compartirme el xml?, ¿Para poder comprender mejor tu duda? [email protected]