Juan Carlos González Chavarría

Prueba insertando esto: Application.DisplayAlerts = False Application.EnableEvents = False [email protected]

Prueba con esta que me encontré: Sub Mail_ActiveSheet() ' Works in Excel 97 through Excel 2007. Dim FileExtStr As String Dim FileFormatNum As Long Dim Sourcewb As Workbook Dim Destwb As Workbook Dim TempFilePath As String Dim TempFileName As String...

Intenta así: Dim AppFile As String AppFile = "Aplicativo.exe" On Error Resume Next AppActivate "Aplicativo" If Err <> 0 Then Err = 0 CalcTaskID = Shell(AppFile, 1) If Err <> 0 Then MsgBox "No se puede iniciar el programa." End If [email protected]

Bueno amigo para eso necesitas una macro. Si no sabes del tema, mándame tu archivo. [email protected]

Si lo que quieres es grabar datos en la Hoja2, entonces incluye este código en el CommandButton: Dim SigFila As Long Sheets("Hoja2").Select SigFila = Application.WorkSheetFunction.CountA(Range("A:A")) + 1 Cells(SigFila, 1) = TextBox1.Value...

Me parece que te ayudo mejor si me mandas tu archivo. [email protected]

Podrías utilizar una macro. Aquí te dejo una que me encontré: Sub MergeAllWorkbooks() Dim MyPath As String, FilesInPath As String Dim MyFiles() As String Dim SourceRcount As Long, FNum As Long Dim mybook As Workbook, BaseWks As Worksheet Dim...

Eso solo es posible en la versión 2007 de Excel. En las versiones anteriores se requiere de una macro. Aquí tienes un enlace para que bajes una herramienta que te puede ayudar en tu trabajo: http://www.xldynamic.com/source/xld.CFPlus.Download.html...

¿Ya utilizaste la función =ContarA(A2A:15000)? [email protected]

Podrías utilizar la función =SumaProducto(). Voy a suponer que los proyectos están en A y las fechas en B, que las fechas las pones en E4 y E5, por último el nombre del proyecto en E3. =SumaProducto((A2:A100=E3)*(B2:B100>=E4)*(B2:B100<=E5))...