error de filtro????
Publicado por Jorge leon (27 intervenciones) el 07/07/2014 23:13:28
Estimados amigos de LWP, estoy trabajando con una aplicación sencilla de vba para excel 2010, la cual consiste en un formulario con varios textbox y varios botones….. y funciona + o -, el probleTma es que genero un filtro que se supone me crea una nueva hoja con las faltas de x mes y me sale el siguiente error:
Microsoft Visual Basic
Se ha producido el error '1004' en tiempo de ejecución
Error en el método AutoFilter de la Clase Range.
Y el código es el siguiente:
Private Sub CommandButton4_click()
'Lista de asistencia
Dim ultlinea, fila ,i As Long
Static Columna As String
Dim duplicados As Boolean
Sheet("EST-JUB-PEN").Select
ultlinea=range("A" & Rows.Count).End(xlUp).Row
Columns("A:A").Select
Slelection.AutoFilter
if mes="JUNIO" then
ActiveSheet.Range("$A$1:$P$309").AutoFilter field:=8, criteria1:="A"
end if
Range("A1:P" & ultlinea).Select
.
.
.
El =”A” es para que me filtre los que tengan una A de asistencia y lo más curioso es que cierro la aplicación sin realizar ningún cambio y vuelvo a ejecutar la aplicación y doy clik en CommandButton4 o el botón que genera la nueva hoja con las Asistencias y funciona correctamente, si me genera la nueva hoja y me filtra los datos de los asistentes??????????? Si me pueden ayudar ya que no encuentro el error…… de antemano gracias Jorge….
Microsoft Visual Basic
Se ha producido el error '1004' en tiempo de ejecución
Error en el método AutoFilter de la Clase Range.
Y el código es el siguiente:
Private Sub CommandButton4_click()
'Lista de asistencia
Dim ultlinea, fila ,i As Long
Static Columna As String
Dim duplicados As Boolean
Sheet("EST-JUB-PEN").Select
ultlinea=range("A" & Rows.Count).End(xlUp).Row
Columns("A:A").Select
Slelection.AutoFilter
if mes="JUNIO" then
ActiveSheet.Range("$A$1:$P$309").AutoFilter field:=8, criteria1:="A"
end if
Range("A1:P" & ultlinea).Select
.
.
.
El =”A” es para que me filtre los que tengan una A de asistencia y lo más curioso es que cierro la aplicación sin realizar ningún cambio y vuelvo a ejecutar la aplicación y doy clik en CommandButton4 o el botón que genera la nueva hoja con las Asistencias y funciona correctamente, si me genera la nueva hoja y me filtra los datos de los asistentes??????????? Si me pueden ayudar ya que no encuentro el error…… de antemano gracias Jorge….
Valora esta pregunta
0
