Usuário com melhor resposta
Código VBA que excluí função.

Pergunta
-
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
-
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
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
-
-
-
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