Dante Amor

Con esta opción puedes controlar si no se encontraron datos en el filtro: ActiveSheet.Range("$A:$P").AutoFilter field:=13, Criteria1:="AB" ActiveSheet.Range("$A:$P").AutoFilter field:=4, Criteria1:= _ ">1000000000", Operator:=xlAnd,...

¿Entonces fila 4 se va a llenar con la suma de 4 números? Quieres que eso se pueda cambiar o que siempre haga esa suma (supongo que son las cuentas de resultados). Ya tengo tu archivo, preparo la macro y la pongo en el foro.

Con la siguiente macro resuelves el ejemplo que pusiste. Sub SumaPrimerDigito() 'Por.Dante Amor Range("D17:E19").ClearContents For i = 4 To 15 Select Case Left(Cells(i, "C"), 1) Case "1" Cells(17, "D") = Cells(17, "D") + Cells(i, "D") Cells(17, "E")...

Con la siguiente macro se abre una ventana para que selecciones un archivo de excel, te lo abre y lo asocia al objeto l2 Utiliza el objeto l2 para alimentar tu reporte. Sub abrearchivo() 'Por.Dam Set l1 = ThisWorkbook ruta = l1.Path With...

Con la siguiente macro vinculas todas las casillas con las celdas de la columna B. La casilla1 con la B1 La casilla2 con la B2 Etc. Sub VincularCasillas() 'Por.Dante Amor n = 1 For Each cv In ActiveSheet.DrawingObjects If TypeName(cv) = "CheckBox"...

Te anexo la macro, no mencionaste en qué fila de la hoja "Números de parte solicitados" van a empezar los números. La macro empieza desde la fila 1. Sub CopiarInformacion() 'Por.Dante Amor ruta = ThisWorkbook.Path Set l1 = ThisWorkbook Set h1 =...

Para entender mejor lo que necesitas, podrías poner un ejemplo real de cómo tienes los datos, si puedes poner una imagen en donde se vean las filas y las columnas de excel.

Pon la siguiente macro en tu archivo1 y la ejecutas en el archivo1 en la hoja que quieras comparar. Sub abrearchivo() 'Por.Dante Amor ruta = ThisWorkbook.Path Set l1 = ThisWorkbook Set h1 = l1.ActiveSheet With...

Si quieres que se ejecute cuando abras el libro, pon la siguiente macro en los eventos de ThisWorkbook Private Sub Workbook_Open() 'Por.Dante Amor u = Range("J" & Rows.Count).End(xlUp).Row Range("K2").FormulaR1C1 = _...

Podría ser la siguiente forma: Suponiendo que en tu hoja "POR" tienes tus fechas en la columna "C" Dices que vas a poner tu rango de fechas en las celdas "B1" y "B2" de la hoja "Y". Entra al menú: Fórmulas, Administrador de nombres, Nuevo, en la...