Juan Carlos González Chavarría

Aquí te dejo una forma sencilla para que la adaptes, me la encontré y creo que te servirá. Solo espero que sepas inglés. Assuming Sheet1 and Sheet2 need to be compared. 1. Copy all of Sheet1. 2. Use "Paste Special" to paste the VALUES into Sheet3,...

No se puede hasta donde yo se.

Deberías hacerle una rutina que verifique si el archivo está abierto o no.

¿Sabes programación VBA?

¿Y dónde pones la Q?

Está un poco complicado el asunto y por ahora no tengo la solución.

Sub Mail_ActiveSheet() Dim strDate As String ActiveSheet.Copy strDate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss") ActiveWorkbook.SaveAs "Part of " & ThisWorkbook.Name _ & " " & strDate & ".xls" ActiveWorkbook.SendMail...

Puedes hacer un Filtro Avanzado que se copie en otra sección de la tabla y luego puedes rellenar el ComboBox con esos Datos.

Dim MiDato As Range Application.ScreenUpdating = False Set MiDato = Range("B9") Hoja1.Select Sheets("Tabla de Datos").Select Cells.Find(What:=MiDato, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _ xlPart, SearchOrder:=xlByRows,...

Eso se me llevaría tiempo de programación y es con lo que no cuento. Pregúntale a ElsaMatilde, posiblemente ella ya tenga algo hecho. Discúlpame.