argosen

patanrisitas respondió: Q+ Argosen, Ve probando con este código: Private Sub Worksheet_Calculate() With Worksheets("Data") If .AutoFilterMode Then With .AutoFilter.Filters(1) If .On Then C1 = .Criteria1 Range("D1").Value = C1 End With End If End With End Sub

patanrisitas respondió: Te recomiendo que utilices filtros Avanzados en lugar de Autofiltro para que tengas más control de los campos a filtrar cuándo las columnas son muchas. También puedes combinar esa opción con códigos de VB para automatizar. Cualquier cosa te puedo...