none
Código VBA que excluí função. RRS feed

  • Pergunta

  • Existe a possibilidade de um código apagar as funções de uma célula e uma coluna? Por exemplo: nas linhas 1,2 e 3 possuo valores e nas linhas seguintes existem funções, um código que verificasse a coluna e apague somente as funções.

    quarta-feira, 11 de outubro de 2017 14:49

Respostas

  • Option Explicit
    
    Sub teste()
    Dim linha As Long
    
    For linha = 1 To 1000
    
    If ThisWorkbook.Sheets("Planilha1").Cells(linha, 3).HasFormula Then
    
    ThisWorkbook.Sheets("Planilha1").Cells(linha, 3).Value = ""
    
    End If
    
    Next linha
    
    
    End Sub
    


    Anderson Diniz

    • Sugerido como Resposta AndersonFDiniz2 quarta-feira, 11 de outubro de 2017 14:58
    • Marcado como Resposta Rhuden Ramos quarta-feira, 11 de outubro de 2017 14:59
    quarta-feira, 11 de outubro de 2017 14:58
  • Option Explicit
    
    Sub teste()
    Dim linha As Long
    
    For linha = 1 To 1000
    If ThisWorkbook.Sheets("Planilha1").Cells(linha, 3).value = "" then
    If ThisWorkbook.Sheets("Planilha1").Cells(linha, 3).HasFormula Then
    
    ThisWorkbook.Sheets("Planilha1").Cells(linha, 3).Value = ""
    
    End If
    end if
    Next linha
    
    
    End Sub


    Anderson Diniz

    • Sugerido como Resposta AndersonFDiniz2 quarta-feira, 11 de outubro de 2017 18:24
    • Marcado como Resposta Rhuden Ramos sexta-feira, 13 de outubro de 2017 13:39
    quarta-feira, 11 de outubro de 2017 18:24

Todas as Respostas

  • Option Explicit
    
    Sub teste()
    Dim linha As Long
    
    For linha = 1 To 1000
    
    If ThisWorkbook.Sheets("Planilha1").Cells(linha, 3).HasFormula Then
    
    ThisWorkbook.Sheets("Planilha1").Cells(linha, 3).Value = ""
    
    End If
    
    Next linha
    
    
    End Sub
    


    Anderson Diniz

    • Sugerido como Resposta AndersonFDiniz2 quarta-feira, 11 de outubro de 2017 14:58
    • Marcado como Resposta Rhuden Ramos quarta-feira, 11 de outubro de 2017 14:59
    quarta-feira, 11 de outubro de 2017 14:58
  • Obrigado

    quarta-feira, 11 de outubro de 2017 14:59
  • Tenho outra dúvida. Por Exemplo: Tenho um PROCV e gostaria que somente as células com a fórmula que não estão sendo usadas (estão em branco) tenham a fórmula apagadas. Isso seria possível?

    quarta-feira, 11 de outubro de 2017 17:24
  • Option Explicit
    
    Sub teste()
    Dim linha As Long
    
    For linha = 1 To 1000
    If ThisWorkbook.Sheets("Planilha1").Cells(linha, 3).value = "" then
    If ThisWorkbook.Sheets("Planilha1").Cells(linha, 3).HasFormula Then
    
    ThisWorkbook.Sheets("Planilha1").Cells(linha, 3).Value = ""
    
    End If
    end if
    Next linha
    
    
    End Sub


    Anderson Diniz

    • Sugerido como Resposta AndersonFDiniz2 quarta-feira, 11 de outubro de 2017 18:24
    • Marcado como Resposta Rhuden Ramos sexta-feira, 13 de outubro de 2017 13:39
    quarta-feira, 11 de outubro de 2017 18:24