snaki Fco

Si deseas acertlo hasta el final de la columna, Cambia el While por un for, Ej: Dim NumeroPoliza As Variant Range("B5").Select NumeroPoliza = ActiveCell.Value for i = 0 to 65536 ' o 1048576 en Excel 2007 If NumeroPoliza = ActiveCell.Value And...

Te envío lo que necesitas, solo debes cambiar el nombre de la hoja y el rango de la celda en donde se encuentra el consecutivo que mencionas Sub hoja_autoincremental() ' Agregamos la nueva Hoja Sheets.Add ' Tomamos el Nombre actual de la Hoja...

Pon lo siguiente en la vb de la hoja en donde deseas utilizar la macro Private Sub Worksheet_Change(ByVal Target As Range) Dim celda If Target.Column = 1 Then celda = Target.Address If celda >= "$A$2" Or celda <= "$A$1000" Then Range("$A$1001:" &...

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...

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

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