snaki Fco

Esta confuso el ejercicio que necesitas. Te puedo ayudar pero indicame bien los datos que quieres restar

Este utilizo para abrir archivos que no sean excel Dim RetVal RetVal = Shell("C:\Program Files\Microsoft Office\Office12\WINWORD.EXE C:\Users\Snaki\Documents\codigo acii.doc") ** 1ro se debe indicar el archivo exe de la aplicación, y lugego la...

Estas en lo correcto, la función Sumar. Si, te ayudaría perfectamente para este caso funciona de la siguiente manera: =sumar.si(el rango en donde estan todas las fechas (en este caso la columna en donde estan todos los meses), la fecha que deseas...

Intento lo siguiente Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$B$2" Then Select Case ActiveCell Case Is = "Dato1" Call form1.Show Case Is = "Dato2" Call form2.Show Case Is = "Dato3" Call form3.Show End Select...

A que te refieres con que debes juntarlos.. ¿de qué formas los piensas juntar o de los libros que necesitas juntar?

Intenta poniendo lo siguiente: DtPicker.value = date ' El date es la fecha de tu ordenador por tanto asegurate que este este bien configurado

Podrías ser más especifico con lo que necesitas, la verdad no entendí muy bien lo que necesitas

Disculpa por la demora Aqui va la solucion segun lo que entendi Sub ImprimeGastos() On Error GoTo Problema Application.Dialogs(xlDialogPrinterSetup).Show ActiveSheet.PageSetup.PrintArea = "$k$1:$Q$103" ActiveWindow.SelectedSheets.PrintOut Copies:=1...

Lo que debes hacer para evitar la interrupción una macro o procedimiento Poniendo esto al inicio del macro: Application.EnableCancelKey = xlDisabled y al final para restaurarlo: Application.EnableCancelKey = xlInterrupt No olvides finalizar y puntear

En el evento click del botón has lo siguiente Valor = Range("A1").Value Numero = 0 Total = 0 Numero = InputBox("Ingrese Numero de Suma", "Suma") If IsNumeric(Numero) Then Total = CLng(Valor) + CLng(Numero) Range("A2").Value = Total Else MsgBox "Valor...