hebereca

csarxex fmv respondió: Donde dice ActiveWorkbook. Sabe Debería decir ActiveWorkbook. Save ¿Correcto?

Lucas Rios respondió: Lo podemos hacer. Te consulto. ¿Tu idea es crear un botón y que guarde la hoja con su nombre cada una por separado o bien quieres un botón que guarde las 300 hojas de un solo saque?

Luis Mondelo respondió: Te mando mi solución con el siguiente ejemplo: Con esta macro hago lo que pides guardando los pdf en la carpeta provisional de mi escritorio. Tendrás que cambiar el destino de la carpeta para tu ordenador Sub ejemplo() For Each hoja In...

calvuch respondió: Te esta tomando solo uno pues en ambos casos esta filtrando solo por el "campo 1" fijate que en ambas sentencias filtermode tienes "Field:=1" Si deseas filtrar por más de un campo no deberían ser idénticos los "Field" Si fltraras por col a y b...

Eduard Caballero respondió: Prueba esto http://www.ayudaexcel.com/autofiltro-con-mas-de-dos-condiciones/ Sino consulta nuevamente

calvuch respondió: Así funciona muy bien With Worksheets("FILTROS") Dim Criterio As Date Criterio = Sheets("FILTROS").Range("E7") Sheets("B. NOTAS").Select [c1].Select Selection.AutoFilter ActiveSheet.Range("$C$1:$C$1322").AutoFilter Field:=1, Criteria1:=Criterio End With

calvuch respondió: Mmm, veamos, he utilizado otro filtro Sheets("BASE DE DATOS").Range("A1:C10000").AutoFilter Field:=1, Criteria1:= _ ">=" & Trim(FechaIni), Operator:=xlAnd, Criteria2:="<=" & Trim((Mid(FechaFin, 4, 2) & "-" & Mid(FechaFin, 1, 2) & "-" & Mid(FechaFin,...

Anónimo respondió: Me olvidaba proba con esta macro, graba una, y luego reemplázala con esta, supongo que te funcionara, sino enviame el archivo a [email protected]. Sub Numero_1() ' ' Numero_1 Macro ' With ActiveSheet.PageSetup .PrintArea = "" .Orientation =...