Buenas tardes, tengo el siguiente código, pero no sé qué instrucción necesito agregar para que pegue solo los valores de la celda copiada. Ya que me manda error de compilación, de antemano, gracias por la ayuda

Sub FirstVisibleCell()
 With Worksheets("Seguimiento").AutoFilter.Range
       ActiveCell.Value2 = Range("C" & .Offset(1, 0).SpecialCells(xlCellTypeVisible)(1).Row).Value2
       Selection.CurrentRegion.Select
       Selection.SpecialCells(xlCellTypeVisible).Select
      ActiveCell.Copy Destination:=Range("F1").PasteSpecial xlPasteValues
      End With
End Sub

Sube tu archivo

 

Sin entrar a valorar nada más que el error:

Sub FirstVisibleCell()
With Worksheets("Seguimiento").AutoFilter.Range
   ActiveCell.Value2 = Range("C" & .Offset(1, 0).SpecialCells(xlCellTypeVisible)(1).Row).Value2
   Selection.CurrentRegion.Select
   Selection.SpecialCells(xlCellTypeVisible).Select
   ActiveCell.Copy: Range("F1").PasteSpecial xlPasteValues '<--------------
End With
End Sub

 

acias Antoni por pronta respuesta, me funciono de maravilla, saludos

hace 5 horas, JSDJSD dijo:

Sube tu archivo

 

Gracias JSDJSD ya me respondió Antoni