peh_tj

Dante Amor respondió: De esta manera me funciona: Private Sub Worksheet_Change(ByVal Target As Range) Dim xPTable As PivotTable Dim xPFile As PivotField Dim xStr As String Dim i As Long Dim n As Variant ' Application.ScreenUpdating = False If Intersect(Target,...

Miguel Guzmán Romero respondió: Sí, esto es muy fácil. Se usa el principio del filtro avanzado. En el siguiente ejemplo hay un rango de base de datos que he nombrado "Base_de_datos" y cubre todo el rango A4:D48, he copiado los nombres de campo de la base en la fila 1 le he aplicado...

Dante Amor respondió: Pon la siguiente fórmula en B2: =SI.ERROR(INDICE(A1:A10;COINCIDIR(B1;A2:A100;0));"no existe") Ejemplo:

Programar Excel respondió: Este ejemplo capaz que aporte algo más...

Abraham Valencia respondió: [Hola ¿Todas las tablas dinámicas tienen el campo en cuestión o alguna no? De ser "sí" la respuesta prueba usando esto: Sub ActualizarTD() Dim TD As PivotTable For Each TD In ActiveSheet.PivotTables With TD .PivotFields ("TRAZABILIDAD / LOTE")...

Dante Amor respondió: Primero, en el siguiente evento tienes que poner que el OptionButton1 es verdadero: Private Sub UserForm_Activate() OptionButton1 = True End Sub Después, pon lo siguiente: Private Sub OptionButton1_Click() Label1.Visible = True TextBox1.Visible =...

Andy Machin respondió: Como dato extra, solo para aportar conocimiento para el futuro o para este mismo proyecto en el que estas. Los CommandButtons tienen una propiedad llamada "Default". Por defecto esta en Falsa. Si cambias esa propiedad a True entonces el CommandButton...

Carlos Arrocha respondió: [Hola Ana. Lo mejor es que lo protejas. Eso lo haces en la pestaña vista + Proteger Libro. Salu2 Carlos Arrocha