none
Selecionar células visíveis dentro da macro RRS feed

  • Pergunta

  • Boa tarde a todos.
    Estou com um problema e gostaria de saber se poderiam ajudar?

    Gravei o processo de uma macro e em determinado momento ela precisa copiar uma fórmula e colar especial em células visíveis, porém quando ela começa a fazer isso, da um erro e ela não prossegue mais.

    Alguém poderia ajudar a encontrar uma forma dela prosseguir?
    Eu preciso que ela copie a fórmula e cole especial nas células visíveis, mas não consegui avançar.



    Muito obrigado desde já.

    terça-feira, 10 de maio de 2022 18:21

Todas as Respostas

  • Isto sou apenas eu a pensar...
    Será que alguém vai adivinhar o que pretendes?
    Não seria mais razoável postar a macro que tens para alguém poder verificar onde está o erro?

    Na minha modesta ideia, pode ser por a folha estar protegida, mas ...


    M_A_S_L

    sábado, 14 de maio de 2022 02:21
  • Supondo que seu intervalo completo que contém as células visíveis seja A1:A10 e que a fórmula a ser copiada esteja na célula B1. tente o seguinte:

    Sub CopiaFórmulaEmVisíveis()
      Dim rgVisíveis As Range
      On Error Resume Next
        Set rgVisíveis = [A1:A10].SpecialCells(xlCellTypeVisible)
      On Error GoTo 0
      If Not rgVisíveis Is Nothing Then
        [B1].Copy
        rgVisíveis.PasteSpecial xlPasteFormulas
        Application.CutCopyMode = False
      Else
        MsgBox "Não há células visíveis nesse intervalo"
      End If
    End Sub
    

    quinta-feira, 9 de junho de 2022 15:19