varios en commandbutton

hola, Jorge !

he puesto en practica las lineas que planteas, pero me produce el
siguiente error
"1004" en tiempr de ejecucion: error en el metodo 'Range' de objeto
'_Worksheet'
al depurar es en:
nCols = Range(Base).Count

(segun mis pruebas, no debieras obtener errores -> con los supuestos de la
propuesta-) -?-

1) de la linea que causa el error segun comentas: -> nCols =
Range(Base).Count
a) "nCols" es una variable definida con el tipo de datos Byte (enteros
con alcance de 0 a 255)
b) "Base" es una variable definida como constante: -> Private Const
Base As String = "b1:d1,h1,j1"
c) la instruccion: -> nCols = Range(Base).Count "debiera" devolver el
numero entero 5 (cinco)
como podras ver, el contenido de (Base) es la referencia a tus 5
celdas/columnas [B1, C1, D1, H1, H1]
d) asumo que btnGernerarReporte es un boton de la barra de herramientas
cuadro de controles incrustado en la hoja

2) revisa en el editor de vba, en (menu) herramientas / referencias...
por si hubiera perdida alguna referencia a librerias basicas que diga:
FALTA: xxx o MISSING: xxx

comentas (si hubiera) algun detalle mas significativo ? (que pudiera
interferir con la ejecucion de la macro)
saludos,
hector.

__ las consultas anteriores __

... si hay una alternativa de ceros que me optimice el codigo y me
sirva para aprender... bienvenida...

con base en los datos de tu consulta original:
- insertar las hojas a la derecha de "hoja1"
- pasar del libro base las columnas B,C,D,H y J (la constante de tipo
String para facilidad de modificaciones)
- filtrar columna D (antes la columna H de la hoja en el libro base) por
"Finalizado" y "En Prueba"
- filtrar columna C (antes la columna D) por la fecha del dia del
proceso

prueba con la siguiente propuesta de macro (no uso filtros avanzados
sino autofiltros)

nota: (creo que) te ahorrarias las 3 hojas de reportes ("Final_",
"Prueba_" y "Hoy_")
-> si dejas solamente la hoja "Info_" y utilizas los autofiltros
segun el concepto que necesites imprimir/reportar/... -?-

Private Const Base As String = "b1:d1,h1,j1"
Private Sub btnGernerarReporte_Click()
Application.ScreenUpdating = False
Dim Fecha As String, nCols As Byte, n As Byte, Hojas
Fecha = Format(Date, "ddmmyy")
nCols = Range(Base).Count
Hojas = Array("Hoy_", "Prueba_", "Final_", "Info_")
For n = LBound(Hojas) To UBound(Hojas)
With Worksheets.Add(After:=Worksheets("hoja1"))
.Name = Hojas(n) & Fecha: End With: Next
With Worksheets("Info_" & Fecha)
Workbooks.Open ThisWorkbook.Path & "\base.xls"
Range(Base).EntireColumn.Copy .Range("a1")
ActiveWorkbook.Close False
With .Range("a1").Offset(1, nCols).Resize(1, 1)
.Offset(-1) = "Dias a " & Fecha
.Formula = "=today()-c2": .NumberFormat = "0"
.AutoFill .Resize(Range("a65536").End(xlUp).Row - 1), xlFillDefault
With .Resize(Range("a65536").End(xlUp).Row - 1): .Value = .Value:
End With
End With
With .Range("a1")
.AutoFilter Field:=4, Criteria1:="Finalizado"
.CurrentRegion.SpecialCells(xlCellTypeVisible).Copy _
Worksheets("Final_" & Fecha).Range("a1"): .AutoFilter
.AutoFilter Field:=4, Criteria1:="En Prueba"
.CurrentRegion.SpecialCells(xlCellTypeVisible).Copy _
Worksheets("Prueba_" & Fecha).Range("a1"): .AutoFilter
.AutoFilter Field:=3, Criteria1:Íate(Date)
.CurrentRegion.SpecialCells(xlCellTypeVisible).Copy _
Worksheets("Hoy_" & Fecha).Range("a1"): .AutoFilter
End With
End With
End Sub

... ahora me sale otro error: error definido por la aplicacion o el objeto
al depurar se presenta en:
.AutoFill .Resize(Range("a65536").End(xlUp).Row - 1), xlFillDefault

... ahora me sale otro error: error definido por la aplicacion o el objeto
al depurar se presenta en:
.AutoFill .Resize(Range("a65536").End(xlUp).Row - 1), xlFillDefault

la linea que comentas viene "heredada" de la instruccion:
With .Range("a1").Offset(1, nCols).Resize(1, 1)

donde interviene por primera vez lo que se obtiene de la variable "nCols"
que es donde aparecio el primer error que comentaste (entonces)...

- que paso con el error anterior ?
lo corregiste/arreglaste/depuraste/... ?
como y/o a que se debia ???

(despues de haber probado la propuesta antes de mandarla al foro)...
- hay algo en mis "supuestos" que esta siendo diferente de la realidad ?
(y que/cual/donde/... ?)

- ya revisaste las referencias (solo por si las dudas) ?

necesitas comentar (de ser posible) detalles mas concisos ;)

hola (de nuevo), Jorge !

una posibilidad de error (posterior a lo de la variable "nCols")...
podria ser si no existen celdas que cumplan con el criterio para los
filtros -?-

(por si puedes comentar la situacion en que se presenta el error "definido
por la aplicacion o el objeto")

saludos,
hector.

__ las consultas anteriores __

... ahora me sale otro error: error definido por la aplicacion o el
objeto
al depurar se presenta en:
.AutoFill .Resize(Range("a65536").End(xlUp).Row - 1), xlFillDefault

la linea que comentas viene "heredada" de la instruccion:
With .Range("a1").Offset(1, nCols).Resize(1, 1)

donde interviene por primera vez lo que se obtiene de la variable "nCols"
que es donde aparecio el primer error que comentaste (entonces)...

- que paso con el error anterior ?
lo corregiste/arreglaste/depuraste/... ?
como y/o a que se debia ???

(despues de haber probado la propuesta antes de mandarla al foro)...
- hay algo en mis "supuestos" que esta siendo diferente de la realidad ?
(y que/cual/donde/... ?)

- ya revisaste las referencias (solo por si las dudas) ?

necesitas comentar (de ser posible) detalles mas concisos ;)

estuve iniciando todo nuevamente respecto a este caso y me sigue sacando el error
en el analisis que hago, antes del error se me generan las 4 hojas de calculo
Info_Fecha
Finalizado_Fecha
Prueba_Fecha
y Hoy_Fecha
Según creo, del libro que estoy trayendo la informacion (base.xls), me debe pegar lo seleccionado en Info_Fecha
y de esta nueva hoja filtrar los datos, a las otras tres hojas.
puede ser que por alguna razon no hay nada pegado en Info_Fecha y por lo tanto no puede hacer el filtro para las demas hojas???

podria ser si no existen celdas que cumplan con el criterio para los filtros -?-

(por si puedes comentar la situacion en que se presenta el error "definido por la aplicacion o el objeto")