Excel 2003: menú Datos desactivado
Resuelto
ben
-
KrOmA -
KrOmA -
Hola,
tengo un archivo que no me permite acceder a los comandos del menú Datos porque todo está desactivado => no puedo quitar el filtro, hacer ordenamientos, etc....
mi problema original es recuperar todas las filas cuando ya no quiero filtrar según los criterios, he hecho un script en VBA pero soy demasiado principiante para resolverlo...
el objetivo era clasificar según x criterios colocados en A1:T2, mis datos están justo debajo.
funciona cuando pongo algo en las celdas B2 a T2, pero en cuanto retiro todo de B2:T2 para obtener el conjunto de mis datos, se bloquea y tarda en procesar hasta que interrumpo con CTRL+Break...
aquí está el código que ejecuto cada vez que hago una modificación en la página
a = ActiveCell.Row
b = ActiveCell.Column
num_ligne = Cells(4, 1) + 40
zona = Cells(2, 21)
If zona <> "" Then
Range(Cells(8, 1), Cells(num_ligne, 20)).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("A1:T2"), Unique:=False
Else
ActiveSheet.ShowAllData
End If
lo siento, son 2 preguntas pero tal vez estén relacionadas.
gracias de antemano por su ayuda
lo siento, no puedo enviarles el archivo
Configuración: Windows XP / Internet Explorer 6.0
tengo un archivo que no me permite acceder a los comandos del menú Datos porque todo está desactivado => no puedo quitar el filtro, hacer ordenamientos, etc....
mi problema original es recuperar todas las filas cuando ya no quiero filtrar según los criterios, he hecho un script en VBA pero soy demasiado principiante para resolverlo...
el objetivo era clasificar según x criterios colocados en A1:T2, mis datos están justo debajo.
funciona cuando pongo algo en las celdas B2 a T2, pero en cuanto retiro todo de B2:T2 para obtener el conjunto de mis datos, se bloquea y tarda en procesar hasta que interrumpo con CTRL+Break...
aquí está el código que ejecuto cada vez que hago una modificación en la página
a = ActiveCell.Row
b = ActiveCell.Column
num_ligne = Cells(4, 1) + 40
zona = Cells(2, 21)
If zona <> "" Then
Range(Cells(8, 1), Cells(num_ligne, 20)).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("A1:T2"), Unique:=False
Else
ActiveSheet.ShowAllData
End If
lo siento, son 2 preguntas pero tal vez estén relacionadas.
gracias de antemano por su ayuda
lo siento, no puedo enviarles el archivo
Configuración: Windows XP / Internet Explorer 6.0
si hay una no la encuentro porque esta versión de excel es nueva para mí; en la pestaña de revisión no veo nada que me indique que está protegida...
Resuelto por: clic derecho en la hoja> Desvincular hojas