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