Alberto Jimenez Cabrera

Hace un tiempo hice una macro para eso. Te paso el link para ver si te sirve. https://codigoexcel.wordpress.com/2014/07/23/sumar-celdas-del-mismo-color/

ThisWorkbook hace referencia al libro donde esta la macro, no al libro activo, el libro activo es con ActiveWorkbook. Name, supongo que el libro donde tienes la macro es la base por eso te guarda siempre ese libro. ThisWorkbook. SaveCopyAs (FilePath)

El método AutoFill no copia datos si no que auto rellena celdas, es como cuando arrastras una celda para repetir una fórmula o valores en otras celdas consecutivas, el error que te marca es porque los rangos A2:E2 y K2:O2 no son consecutivos. Te dejo...

Hay una función de hace lo que pides que se llama IsDate, te dejo un ejemplo Dim esHora As Boolean esHora = IsDate("14:20:00 p.m.") 'Devuelve True esHora = IsDate("a14:20:00 p.m.") 'Devuelve False

Si quieres cerrar el libro sin preguntar es con Private Sub Workbook_BeforeClose(Cancel As Boolean) ThisWorkbook.Close False End Sub Si quieres cerrar la aplicación sin preguntar es con Private Sub Workbook_BeforeClose(Cancel As Boolean)...

Puedes hacerlo con una macro. Esta macro hace el proceso para cualquier cantidad de números base, pero no hace una validación de los datos, es decir no valida que sean números de un solo dígito, que sean números, etc. SubPascal()...

Excel 2007 y 2010 Clic derecho a tu botón, Clic a tamaño y propiedades Seleccionar la opción "Propiedades" En el área de Posicionamiento del objecto seleccionar "No mover, ni cambiar tamaño con celdas" Excel 2003 Clic derecho a tu botón, Clic a...

Las funciones personalizada se actualizan solas, no tienes que hacer nada. Si no se esta actualizando es porque debes tener deshabilitado el calculo automático de Excel, para activarlo Haz(Excel 2007 o 2010) Clic en el Menú Formulas, en la sección de...

Teniendo en cuenta que solo se ingresa un dato en una sola celda puedes crear una macro en la hoja donde se insertan los datos. Private Sub Worksheet_Change(ByVal Target As Range) Dim RangoOrigen As Excel.Range Dim PosicionFecha As Integer Set...

La macro que grabaste esta bien, solo hay que agregar la fecha actual(date) ActiveSheet.PivotTables("Tabla dinámica3").PivotCache.Refresh ActiveSheet.PivotTables("Tabla dinámica3").PivotFields("Date").CurrentPage = Date La Variable Date es una...