Joaom Manuel

Con un archivo archivo.ini colocado en la ruta mencionada, este caso es \0\archivo.ini Con esto nadie lo abre SI EL ARCHIVO archivo.ini no esta en esta ruta. La ruta puedes tu dársela en la ventana de ThisWorkbook. Este el código que por cierto...

De Adriel Ortiz Sub Vacio() Por: Adriel Ortiz For Each Control In Controls If TypeName(Control) = "TextBox" Then If Control.Value = "" Then Control.SetFocus 'Devuelve el focu al 1º TextBox que este vacio MsgBox "Inserta los datos en todos TextBox"...

No se si esto te servirá o es lo que estas buscando http://www.elcodigoascii.com.ar/

Dices: (Aunque la imagen no se ve completa en el recuadro, me imagino que por cuestión de dimensiones, Coloca la propiedad del cuadro Imagen1 Picture en 1

¿Ese programa arregla el problema de Excel?

Solo le agregue algo más para que al desmarcar el CheckBox se DEseleccione Private Sub CheckBox1_Click() Dim i As Long If CheckBox1.Value = True Then For i = 0 To ListBox1.ListCount - 1 ListBox1.Selected(i) = True Next Else For i = 0 To...

Sub CopiaFila() 'x Elsamatilde 'copia la fila anterior a la fila activa Range("A65536").End(xlUp).Offset(1, 0).Select Rows(ActiveCell.Row - 1 & ":" & ActiveCell.Row - 1).Copy ActiveCell.EntireRow.PasteSpecial 'copia con formatos y fórmulas Range("A"...

Comenta si te sirve. Macro bajada de la WEB Sub Genera_pdf_1() 'SOLO pide nombre Dim ruta As String, Nuevo_nombre As String ruta = "c:\0\" 'ruta fija donde va a ser guardado. Aqui puedes cambiar carpeta de guardado 'El siguiente te pide nombre para...

Podrías dar formato a las celdas o todas las celdas de la columna, un formato personalizado. Darle el formato 0000 para 4 números. Mientras más ceros le coloques maior es la cantidad de números (sifra 0000 (4 números) 00000000 (8 números)))

Tal vez un tanto tardío pero, me tope con esta pregunta hoy mismo y aclaro algo: Si aun no se resolvió dicho problema, quier oagregar que; Si tienes el So de arquitetura x86, el archivo de librería se coloca en System32. Contrario a que si tienes SO...