Eduardo Palma

Dante Amor respondió: Hay que cargar nuevamente la imagen. Para eso vamos a almacenar la ruta y el nombre del archivo en la columna Q al momento de guardar los datos: 'poner foto arch = Label19.Caption If arch <> "" Then If Dir(arch) <> "" Then Set fotografia =...

Dante Amor respondió: Te anexo el código, completa los campos que faltan en base a los ejemplos que te puse Private Sub btncargar_Click() 'Por.Dante Amoe If TextBox1.Value = "" Or Not IsNumeric(TextBox1.Value) Then MsgBox "Captura un número de informe" TextBox1.SetFocus...

Dante Amor respondió: Tienes que poner todos los datos en una hoja. Puedes cambiar la forma de agregar datos al combo cbodescripcionequipo: Cbodescripcionequipo. AddItem "31-24180-->ACCIONAMIENTO #1 MESA RECEP" Cbodescripcionequipo. AddItem "031-24-180 --> MOTOR. REDUCTOR...

Dante Amor respondió: Código en tu botón "Adjuntar foto", pero antes debes poner un control Image3 y un label19 en tu userform Private Sub botonadjuntar_Click() 'Adjuntar foto 'Por.Dante Amor With Application.FileDialog(msoFileDialogFilePicker) .Title = "Seleccione...

Dante Amor respondió: Tendría que revisar el archivo para ver cómo está el código y las llamadas a los form. Envíame tu archivo para revisarlo

Dante Amor respondió: Dentro de evento initialize pon lo siguiente: Set h = Sheets("BaseDeDatos") ' 'Poner número de informe u = h.Range("A" & Rows.Count).End(xlUp).Row If u = 2 Then numero = 1 Else numero = h.Range("A" & u).Value + 1 End If txtninforme.Enabled = False...

Dante Amor respondió: Revisa que en tu userform "Formulario" tengas un Combobox llamado "cboprogramador", tal vez falta o sobra una letra.

Dante Amor respondió: Puedes poner el código que tienes para pasar los datos a la hoja. También dime cómo se llaman los combos