Ir ao conteúdo
  • Cadastre-se

fórmula se +cont.se em vba


Posts recomendados

Esta macro preenche a sua formula no intervalo T3 até T100 mil. Altere a letra da coluna se necessário.

Sub SuaFormula_()
   Dim SuaFormula As Variant

    With ThisWorkbook.Sheets("plan1")
         SuaFormula = "=SE(CONT.SE(S$3:S$140796;S3)>1;""Valor repetido"";"""")"
        .Range("T3").FormulaLocal = SuaFormula
        .Range("T3:T100000").FillDown ' Celula T3 ate T100 mil
    End With

End Sub

 

  • Curtir 1
Link para o comentário
Compartilhar em outros sites

7 minutos atrás, Basole disse:

Esta macro preenche a sua formula no intervalo T3 até T100 mil. Altere a letra da coluna se necessário.


Sub SuaFormula_()
   Dim SuaFormula As Variant

    With ThisWorkbook.Sheets("plan1")
         SuaFormula = "=SE(CONT.SE(S$3:S$140796;S3)>1;""Valor repetido"";"""")"
        .Range("T3").FormulaLocal = SuaFormula
        .Range("T3:T100000").FillDown ' Celula T3 ate T100 mil
    End With

End Sub

 

Muito bom. Obrigado pela ajuda Basole!! Só mais uma dúvida.Como minha planilha demora para uns 10 minutos para terminar esse processo, se eu mudar essa formula para referencia L1C1, alterando a formula também; poderia  eu ter um ganho na velocidade dessa macro ou não tem nada a ver isso?

Link para o comentário
Compartilhar em outros sites

Não sei se mudar o estilo da formula, vai ter um ganho, mas pode-se acrescentar:

ScreenUpdating = False, EnableEvents = False, Calculation = xlCalculationManual... 

isso pode deixar o processo mais rápido: 

 

Sub SuaFormula_()
   Dim SuaFormula As Variant
   On Error GoTo Erro
   
 Excel.Application.ScreenUpdating = False
 Excel.Application.EnableEvents = False
 Excel.Application.Calculation = xlCalculationManual
 
    With ThisWorkbook.Sheets("plan1")
         SuaFormula = "=SE(CONT.SE(S$3:S$140796;S3)>1;""Valor repetido"";"""")"
        .Range("T3").FormulaLocal = SuaFormula
        .Range("T3:T100000").FillDown ' Celula T3 ate T100 mil
    End With
    
Erro:
  Excel.Application.EnableEvents = True
  Excel.Application.ScreenUpdating = True
  Excel.Application.Calculation = xlCalculationAutomatic
  
End Sub

 

 

  • Curtir 1
Link para o comentário
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...