Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis

Macro por palabras alfabeticamente

  • Autor del tema Autor del tema lay
  • Fecha de inicio Fecha de inicio

lay

Member
Registrado
6 Nov 2016
Mensajes
89
Tengo una hoja de excel en la cual tengo unas celdas con varios datos de personas numeradas al cual he puesto un control de numeros y he colocado un formato condicional que cuando doy a subir o...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 
Solución
Para que solo se desactive el AutoFiltro cuando los 3 TextBox estén vacíos, sería:
Código:
Private Sub TextBox1_Change()
Activitat = "*" & TextBox1.Value & "*"
Range("C11").AutoFilter field:=2, Criteria1:=Activitat
If TextBox1 = "" And TextBox2 = "" And TextBox3 = "" Then Range("C11").AutoFilter
End Sub
Private Sub TextBox2_Change()
carrer = "*" & TextBox2.Value & "*"
Range("D11").AutoFilter field:=3, Criteria1:=carrer
If TextBox1 = "" And TextBox2 = "" And TextBox3 = "" Then Range("D11").AutoFilter
End Sub
Private Sub TextBox3_Change()
NÚM = "*" & TextBox3.Value & "*"
Range("M11").AutoFilter field:=12, Criteria1:=NÚM
If TextBox1 = "" And TextBox2 = "" And TextBox3 = "" Then Range("M11").AutoFilter
End Sub
Ya...
Antes que nada, elimina el archivo que has subido, borra toda la información sensible, nombres, dni, direcciones, teléfonos y lo vuelves a subir. Como tu jefe vea que has subido este archivo, te...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 

Adjuntos

Última edición:

Adjuntos

Otra consulta, cuando uso el filtro por carrer, en la celda E10 se queda el filtro cojido. Hay alguna manera de que se pongan los filtros a cero cada vez que se borre el texto de busqueda.
 

Adjuntos

  • foto filtro excel.webp
    foto filtro excel.webp
    11,4 KB · Visitas: 0
En el código de la Hoja SUBTOTALES (y/o) AGREGAR:
Código:
Private Sub TextBox1_Change()
Activitat = "*" & TextBox1.Value & "*"
Range("C11").AutoFilter field:=2, Criteria1:=Activitat
If...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 

Adjuntos

Para que solo se desactive el AutoFiltro cuando los 3 TextBox estén vacíos, sería:
Código:
Private Sub TextBox1_Change()
Activitat = "*" & TextBox1.Value & "*"
Range("C11").AutoFilter...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 

Adjuntos

Funciona bien, el problema que me encuentro ahora es que al introducir un cliente nuevo, no le da un numero de registro nuevo y tampoco lo coloca en orden alfabetico en la lista.

Saludos.
 
Buenas tardes,

Una cosa, cuando hago un filtro con Activitat, bajo hasta la celda 30. Despues hago un filtro con (carrer NOU) aqui solo me salen 9 registros y al ser menor que el anterior la...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 

Adjuntos

Con el código del adjunto, al modificar cualquiera de los TextBox de Filtro, la selección del contador va a la primera fila de las filtradas.
No sé si era eso lo que buscas. Si no, lo aclaras...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 

Adjuntos

Volver
Arriba