Cristian Lopez Cechini

Joseph Sanchez respondió: Me imagino que los datos estan en el boton de guardar If cbo1.Text = "" Then MsgBox "Falta completar informacion", vbCritical, "Falta informacion" cbo1.Text.SetFocus End If (Unload Me) debe aparcer al final del codigo para que lo ultimo que haga sea...

soria4xse respondió: En caso de alfanumérico solo tienes que encerrar el ultimo parámetro codid entre comilla simple, de esta manera: DSum("[cantidaddepreciacion]","Depreciacion","[codID]='" & [codID] & "'")

Lubbier Alexhander Muñoz respondió: Te aseguro que funciona funciona, además comprueba que la celda contenga texto para el comentario, de lo contrario borra cualquier comentario anterior en la celda y cada que ingreses nuevo texto en la celda el comentario se creará, de este modo no...

Mi sugerencia es agregar otra fila que compare si la fecha de cada celta en la fila 7 es mayor al valor de la celda O34 >>>>>> esto te dará verdadero o falso y agregá esa fila en tu criterio de suma Suponiendo que puse este calculo en la fila 6 la...

Me parece que deberías cerrar el form para que funcione la vista previa Te dejo algo parecido a ver si te sirve "este es el botón" Private Sub imprimirboton_Click() Unload Me Call vistaprevia "esta seria la macro" Sub vistaprevia()...

Fíjate esta línea Sheets(b). Cells.Copy Destination:=Workbooks(mybook). Sheets(c).Cells(4, 1) Tal vez cambiando por Sheets(b). Cells.Copy Destination:=Workbooks(mybook). Sheets(c).Cells(1, 1) Funcione correctamente