Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
A better way to browse. Learn more.
A full-screen app on your home screen with push notifications, badges and more.
Este tema está ahora archivado y está cerrado a más respuestas.
Les dejo como está diseñado el textbox de busqueda para filtrar (éste funciona bien, le faltaría lo de darle a entre y que me posicione en C12):
Private Sub TextBox1_Change()
Application.ScreenUpdating = False
ActiveSheet.PivotTables("Tabla dinámica6").PivotFields("Nombre"). _
ClearAllFilters
ActiveSheet.PivotTables("Tabla dinámica6").PivotFields("Nombre").PivotFilters. _
Add Type:=xlCaptionContains, Value1:=TextBox1.Text
Application.ScreenUpdating = True
End Sub
y el boton de limpiar (éste es el que quiero que además de limpiar el textbox, posicione el cursor dentro de él):
Private Sub CommandButton1_Click()
TextBox1 = Empty
End Sub
Saludos Jose