Eduardo Palma

Dante Amor respondió: Revisa cómo estás poniendo las fechas, porque están apareciendo en la celda como textos. Te anexo el código para pasar los datos a la hoja Private Sub CommandButton2_Click() 'Por Dante Amor If ListBox1.ListCount = 0 Then MsgBox "No hay registros"...

Dante Amor respondió: Te anexo la parte para llenar el listbox, cada que cambias un dato en los combos Dim h ' Private Sub ComboBox1_Change() 'Por Dante Amor Call LlenarList End Sub Private Sub ComboBox2_Change() Call LlenarList End Sub Private Sub ComboBox3_Change() Call...

Dante Amor respondió: Para ver cómo están los datos, envíame tu último archivo y me dices qué columna va en cuál combo

Dante Amor respondió: En esta línea se borra la imagen anterior: H2. DrawingObjects("foto1").Delete No le cambies el nombre "foto1" En esta otra línea se pone el nombre "foto1" .Name = "foto1" Tampoco le cambies el nombre "foto1" Y otro detalle la carpeta y el nombre del...

Dante Amor respondió: Te anexo la macro Private Sub btncargar_Click() If TextBox1.Value = "" Or Not IsNumeric(TextBox1.Value) Then MsgBox "Captura un número de informe" TextBox1.SetFocus Exit Sub End If ' num = Val(TextBox1.Value) Set h1 = Sheets("BaseDeDatos") Set h2 =...

Dante Amor respondió: Presiona el botón depurar y dime en qué línea de la macro se detiene. Tienes que observar las variables.

Dante Amor respondió: Hay que borrar la imagen anterior. En tu botón de cargar pon lo siguiente On Error Resume Next h2.DrawingObjects("foto1").Delete On Error GoTo 0 y también esta línea: .Name = "foto1" Revisa bien en qué lugar deben ir las líneas: 'Cargar imagen On...

Dante Amor respondió: Agrega el siguiente evento Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode = 0 Then MsgBox "Sólo se puede cerrar por el botón 'btnsalir'" Cancel = True End If End Sub sal u dos