Ve se isso atende
Marcelo, desse jeito dá certo mas eu preciso que isso seja feito em todas as linhas da tabela, eu escrevi essa condição abaixo mas está dando o erro: "Run-time error '13'type mismatch", quando eu clico em depurar ele seleciona a primeira linha.
Sub Auto_Open()
If ("Tabela1[[#Headers],[% P]]") = 100 Then
    Range("Tabela1[[#Headers],[Progresso]").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
Else
    Range("Tabela1[[#Headers],[Progresso]").Select
    ActiveCell.FormulaR1C1 = "=IF([@Início]<>0,-(R4C11-[@Conclusão]),"""")"
End If
If ("Tabela1[[#Headers],[% M]") = 100 Then
    Range("Tabela1[[#Headers],[Progresso]").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    Else
    Range("Tabela1[[#Headers],[Progresso]").Select
    ActiveCell.FormulaR1C1 = "=IF([@Início]<>0,-(R4C11-[@Conclusão]),"""")"
End If
End Sub
Tem como dar uma olhada pra saber se esse código tem futuro?
KKKKKKK
Desde já muito obrigado pela disposição em ajudar, valeu Marcelo
                                                                                                	                                                
	                                         
                    
                    	
                            Postado : 14/02/2016 9:26 pm