[Resolvido]Erro Tipo 13: Tipos incompatíveis

Olá, pessoal eu sou nova por aqui, mas já procurei bastante se o que eu estou perguntando já foi respondido por outros e não achei.

Bem, estou tentando fazer um cálculo de método multicritério promethee I para todas as funções de preferência. Ao fazer a da função de critério usual, o vba está me falando "erro de compilação '13':tipos incompatíveis" logo no primeiro If. Esses valores utilizados nos If são indicados antes através de ComboBox em que eu coloquei a lista de opções. Os que são do mesmo critério (ex:ritmo ou tempo ou qualidade...) tem os mesmo valores. Logo, eu não sei como posso resolver isso. Se alguém puder me ajudar ficaria muito feliz.

Obrigada, Gabriela

ps: abaixo está o código que montei

'Macro para Função Preferência ser Critério Usual e ser 2 projetos
Sub MacroCriterioUsualpara2projetos()
'Valores das funções para cada critério
'Projeto 1 em relação ao Projeto 2
If ((UserForm1.caraccusto1) - (UserForm1.caraccusto2)) > 0 Then
UserForm2.fcusto1H2 = 1
Else: UserForm2.fcusto1H2 = 0
End If
If ((UserForm1.caracritmo1) - (UserForm1.caracritmo2)) > 0 Then
UserForm2.fritmo1H2 = 1
Else: UserForm2.fritmo1H2 = 0
End If
If ((UserForm1.caracqualidade1) - (UserForm1.caracqualidade2)) > 0 Then
UserForm2.fqualidade1H2 = 1
Else: UserForm2.fqualidade1H2 = 0
End If
If ((UserForm1.caractempo1) - (UserForm1.caractempo2)) > 0 Then
UserForm2.ftempo1H2 = 1
Else: UserForm2.ftempo1H2 = 0
End If
If ((UserForm1.caracrecursos1) - (UserForm1.caracrecursos2)) > 0 Then
UserForm2.frecursos1H2 = 1
Else: UserForm2.frecursos1H2 = 0
End If
If ((UserForm1.caracfinanceira1) - (UserForm1.caracfinanceira2)) > 0 Then
UserForm2.ffinanceira1H2 = 1
Else: UserForm2.ffinanceira1H2 = 0
End If
'Projeto 2 em relação ao projeto 2
If ((UserForm1.caraccusto2) - (UserForm1.caraccusto1)) > 0 Then
UserForm2.fcusto2H1 = 1
Else: UserForm2.fcusto2H1 = 0
End If
If ((UserForm1.caracritmo2) - (UserForm1.caracritmo1)) > 0 Then
UserForm2.fritmo2H1 = 1
Else: UserForm2.fritmo2H1 = 0
End If
If ((UserForm1.caracqualidade2) - (UserForm1.caracqualidade1)) > 0 Then
UserForm2.fqualidade2H1 = 1
Else: UserForm2.fqualidade2H1 = 0
End If
If ((UserForm1.caractempo2) - (UserForm1.caractempo1)) > 0 Then
UserForm2.ftempo2H1 = 1
Else: UserForm2.ftempo2H1 = 0
End If
If ((UserForm1.caracrecursos2) - (UserForm1.caracrecursos1)) > 0 Then
UserForm2.frecursos2H1 = 1
Else: UserForm2.frecursos2H1 = 0
End If
If ((UserForm1.caracfinanceira2) - (UserForm1.caracfinanceira1)) > 0 Then
UserForm2.ffinanceira2H1 = 1
Else: UserForm2.ffinanceira2H1 = 0
End If
'Graus de Sobreclassificação
'Grau de Sobreclassificação para 1
UserForm2.pi1H2 = (UserForm1.pcustonor * UserForm2.fcusto1H2) + (UserForm1.ptemponor * UserForm2.ftempo1H2) + (UserForm1.pqualidadenor * UserForm2.fqualidade1H2) + (UserForm1.pritmonor * UserForm2.fritmo1H2) + CDec(UserForm1.precursosnor * UserForm2.frecursos1H2) + (UserForm1.pfinanceiranor * UserForm2.ffinanceira1H2)
'Grau de Sobreclassificação para 2
UserForm2.pi2H1 = (UserForm1.pcustonor * UserForm2.fcusto2H1) + (UserForm1.ptemponor * UserForm2.ftempo2H1) + (UserForm1.pqualidadenor * UserForm2.fqualidade2H1) + (UserForm1.pritmonor * UserForm2.fritmo2H1) + CDec(UserForm1.precursosnor * UserForm2.frecursos2H1) + (UserForm1.pfinanceiranor * UserForm2.ffinanceira2H1)

'Fluxos Positivos de saída
'Do Projeto 1
UserForm2.flupos1 = UserForm2.pi1H2
'Do Projeto 2
UserForm2.flupos2 = UserForm2.pi2H1

'Fluxos Negativos de entrada
'Do Projeto 1
UserForm2.fluneg1 = UserForm2.pi2H1
'Do Projeto 2
UserForm2.fluneg2 = UserForm2.pi1H2

'Comparações para saber se há preferência, indiferença ou incomparabilidade
If (UserForm2.flupos1 > UserForm2.flupos2 And UserForm2.fluneg1 <= UserForm2.fluneg2) Or (UserForm2.flupos1 = UserForm2.flupos2 And UserForm2.fluneg1 < UserForm2.fluneg2) Then
UserForm1.MultiPage1.Pages.Item(3).Enabled = True
UserForm1.MultiPage1.Value = 3
UserForm1.MultiPage1.Pages.Item(2).Enabled = False
UserForm1.ListBox1.AddItem "Projeto 1 é preferível ao Projeto 2"
UserForm1.ListBox2.AddItem "Projeto 1 é preferível ao Projeto 2"
End If
If (UserForm2.flupos1 = UserForm2.flupos2 And UserForm2.fluneg1 = UserForm2.fluneg2) Then
UserForm1.MultiPage1.Pages.Item(3).Enabled = True
UserForm1.MultiPage1.Value = 3
UserForm1.MultiPage1.Pages.Item(2).Enabled = False
UserForm1.ListBox1.AddItem "Projeto 1 é indiferente ao Projeto 2"
UserForm1.ListBox2.AddItem "Projeto 1 é indiferente ao Projeto 2"
End If
If (UserForm2.flupos1 > UserForm2.flupos2 And UserForm2.fluneg2 < UserForm2.fluneg1) Or (UserForm2.flupos2 > UserForm2.flupos1 And UserForm2.fluneg1 < UserForm2.fluneg2) Then
UserForm1.MultiPage1.Pages.Item(3).Enabled = True
UserForm1.MultiPage1.Value = 3
UserForm1.MultiPage1.Pages.Item(2).Enabled = False
UserForm1.ListBox1.AddItem "Projeto 1 é incomparável ao Projeto 2"
UserForm1.ListBox2.AddItem "Projeto 1 é incomparável ao Projeto 2"
End If

End Sub

Olá bom dia, seja bem vinda ao fórum....

apenas uma sugestão:

em vez de... if ((UserForm1.caraccusto1) - (UserForm1.caraccusto2)) > 0 Then

utilize...if ((nz(UserForm1.caraccusto1),0) - (nz(UserForm1.caraccusto2),0)) > 0 Then

é apenas uma sugestão...

Olá! Deixa eu te fazer uma pergunta, qual é a funcionalidade do nz??

Bom dia...

a função Nz permite retornar um valor quando uma variante é nulo, ou seja, quando não há nada digitado em uma caixa de texto.

ah, entendi. Porém, nesses casos, os variantes não serão nulos pois eu só permito que passe para esse calculo que eu mostrei no começo se todas as características tiverem sido atribuído alguma valor. Essas características estão combobox e acho que é isso que tá dando problema. Os itens adicionados nos combobox o vba interpreta como texto, não é? Estava agora declarando todas as variáveis bem detalhadamente e acertando que se você escolhido determinado texto o valor será tal...
Por exemplo,
If caraccusto1="1" then
caraccusto=1
End if


e por aí vai...
Pode ser que assim ele permita realizar as operações matemáticas não é?
Eu sou super leiga em programação. Estou tendo que aprender agora, na marra... Então, tem muita coisa que eu não sei.

Utilize a função Val para converter texto em numerico.

If (Val(UserForm1.caraccusto1) - Val(UserForm1.caraccusto2)) > 0 Then

Alerto para o facto de estarmos num fórum de VBA para Ms Access, pelo que vejo isso é Excel.

Não, não é no Excel não. É VBA no Ms Project. Eu não achei nenhum forum do VBA no MsProject e esses foruns, mesmo que sejam para o Access ou Excel, estão me ajudando demais, por isso que eu perguntei. Desculpa.

Já tentei usar Val e não deu certo. Obrigada de toda forma

Não tem problema, só alertei porque a ajuda poderá não ser a mais correcta, porque essa programação é igual ao do Excel e diferente do Ms Access.

Tente utilizar deste modo sem isolar a instrução;

If Val(Nz(UserForm1.caraccusto1.Value, 0)) - Val(Nz(UserForm1.caraccusto2.Value, 0)) > 0 Then

A combobox está com Lista de Valores, certo ?

Sim, as combobox já estão com listas de valores. O meu vba não reconheceu a propriedade Nz

Então teste com o .Value sem o Nz

If Val(UserForm1.caraccusto1.Value) - Val(UserForm1.caraccusto2.Value) > 0 Then

Ele aceitou agora como você falou. Agora, tá dando erro tipo 13:tipos incompatíveis nessa parte:



Sub MacroCriterioUsualpara2projetos()
'Execução da macro referente a comparação das características
Application.Run "MacroValoresCriterioUsualpara2projetos"
'Graus de Sobreclassificação
'Grau de Sobreclassificação para 1
TÁ DANDO ERRO AQUI--->>UserForm1.pi1H2.Value = Val(UserForm1.pcustonor.Value * UserForm1.fcusto1H2.Value) + Val(UserForm1.ptemponor.Value * UserForm1.ftempo1H2.Value) + Val(UserForm1.pqualidadenor.Value * UserForm1.fqualidade1H2.Value) + Val(UserForm1.pritmonor.Value * UserForm1.fritmo1H2.Value) + Val(UserForm1.precursosnor.Value * UserForm1.frecursos1H2.Value) + Val(UserForm1.pfinanceiranor.Value * UserForm1.ffinanceira1H2.Value)
'Grau de Sobreclassificação para 2
UserForm1.pi2H1 = (UserForm1.pcustonor * UserForm1.fcusto2H1) + (UserForm1.ptemponor * UserForm1.ftempo2H1) + (UserForm1.pqualidadenor * UserForm1.fqualidade2H1) + (UserForm1.pritmonor * UserForm1.fritmo2H1) + (UserForm1.precursosnor * UserForm1.frecursos2H1) + (UserForm1.pfinanceiranor * UserForm1.ffinanceira2H1)

'Fluxos Positivos de saída
'Do Projeto 1
UserForm1.flupos1.Value = UserForm1.pi1H2.Value
'Do Projeto 2
UserForm1.flupos2.Value = UserForm1.pi2H1.Value

'Fluxos Negativos de entrada
'Do Projeto 1
UserForm1.fluneg1.Value = UserForm1.pi2H1.Value
'Do Projeto 2
UserForm1.fluneg2.Value = UserForm1.pi1H2.Value

'Comparações para saber se há preferência, indiferença ou incomparabilidade
If (UserForm1.flupos1 > UserForm1.flupos2 And UserForm1.fluneg1 <= UserForm1.fluneg2) Or (UserForm1.flupos1 = UserForm1.flupos2 And UserForm1.fluneg1 < UserForm1.fluneg2) Then
UserForm1.MultiPage1.Pages.Item(3).Enabled = True
UserForm1.MultiPage1.Value = 3
UserForm1.MultiPage1.Pages.Item(2).Enabled = False
UserForm1.ListBox1.AddItem "Projeto 1 é preferível ao Projeto 2"
UserForm1.ListBox2.AddItem "Projeto 1 é preferível ao Projeto 2"
End If
If (UserForm1.flupos1 = UserForm1.flupos2 And UserForm1.fluneg1 = UserForm1.fluneg2) Then
UserForm1.MultiPage1.Pages.Item(3).Enabled = True
UserForm1.MultiPage1.Value = 3
UserForm1.MultiPage1.Pages.Item(2).Enabled = False
UserForm1.ListBox1.AddItem "Projeto 1 é indiferente ao Projeto 2"
UserForm1.ListBox2.AddItem "Projeto 1 é indiferente ao Projeto 2"
End If
If (UserForm1.flupos1 > UserForm1.flupos2 And UserForm1.fluneg2 < UserForm1.fluneg1) Or (UserForm1.flupos2 > UserForm1.flupos1 And UserForm1.fluneg1 < UserForm1.fluneg2) Then
UserForm1.MultiPage1.Pages.Item(3).Enabled = True
UserForm1.MultiPage1.Value = 3
UserForm1.MultiPage1.Pages.Item(2).Enabled = False
UserForm1.ListBox1.AddItem "Projeto 1 é incomparável ao Projeto 2"
UserForm1.ListBox2.AddItem "Projeto 1 é incomparável ao Projeto 2"
End If
End Sub

Pelo que vejo tem de transformar todos campos em Valores com o Val.

Porém, eu já transformei todos em valores :/

UserForm1.pi1H2.Value = (Val(UserForm1.pcustonor.Value) * Val(UserForm1.fcusto1H2.Value)) + (Val(UserForm1.ptemponor.Value) * Val(UserForm1.ftempo1H2.Value)) + (Val(UserForm1.pqualidadenor.Value) * Val(UserForm1.fqualidade1H2.Value)) + (Val(UserForm1.pritmonor.Value) * Val(UserForm1.fritmo1H2.Value)) + (Val(UserForm1.precursosnor.Value) * Val(UserForm1.frecursos1H2.Value)) + (Val(UserForm1.pfinanceiranor.Value) * Val(UserForm1.ffinanceira1H2.Value))

JPaulo, MUITO obrigada! tô conseguindo fazer as coisas da forma como tu falou. Valeu mesmo.

Obrigada pelo retorno o fórum agradece.