mariop222

Ahí esta listo el código corregido Saludos Sheets("Hoja1"). Activate Worksheets("Hoja1").Shapes("info").Select enviar = Selection.Characters.Text Sheets("Hoja3").Activate Worksheets("Hoja3").Range("f30").Value = enviar

Hola Buen día ... Tengo una tabla dinámica necesito saber como hacer la macro para que me seleccione todos los datos de la tabla ya que si están filtrados dos elementes y con la macro automáticamente se ponga en todos ya hecho la prueba con algunos...