VBA Code:
Sub testes()
linha = 8 '<----- Linha da folha do excel
linha2 = 9
linha3 = 10
Linha4 = 11
Linha5 = 12
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "PBF" And Cells(linha, 4) = "1" Then '<------------- Condição, variável linha e a respetiva coluna da folha
Cells(linha, 5) = "Microfissuras Superficiais"
Cells(linha2, 5) = "Microfissuras Internas"
Cells(linha3, 5) = "Microporosidades(Internas)"
Cells(Linha4, 5) = "Inclusões"
Cells(Linha5, 5) = "Oxidação"
End If
If Cells(linha, 2) = "Poliméricos" And Cells(linha, 3) = PBF And Cells(linha, 4) = "1" Then
Cells(linha, 5) = "Microfissuras Superficiais"
Cells(linha2, 5) = "Falha de Cura"
Cells(linha3, 5) = "Delaminação"
Cells(Linha4, 5) = "Microporosidades"
Cells(Linha5, 5) = "--------------------"
End If
If Cells(linha, 2) = "Cerâmicos" Then
Cells(linha, 5) = "Microfissuras Superficiais"
Cells(linha2, 5) = "Microfissuras Internas"
Cells(linha3, 5) = "Microporosidades"
Cells(Linha4, 5) = "Densidade"
Cells(Linha5, 5) = "---------------------"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "PBF" And Cells(linha, 4) = "1" Then
Cells(linha, 6) = "DEF 01> PBF > Metal > 1"
Cells(linha, 8) = "DEF 01> PBF > Metal > 1"
Cells(linha, 9) = "DEF 01> PBF > Metal > 1"
Cells(linha, 10) = "DEF 01> PBF > Metal > 1"
Cells(linha, 11) = "DEF 01> PBF > Metal > 1"
Cells(linha, 12) = "DEF 01> PBF > Metal > 1"
Cells(linha, 13) = "DEF 01> PBF > Metal > 1"
Cells(linha, 14) = "DEF 01> PBF > Metal > 1"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "PBF" And Cells(linha, 4) = "1" Then
Cells(linha2, 7) = "DEF 01> PBF > Metal > 1"
Cells(linha2, 8) = "DEF 01> PBF > Metal > 1"
Cells(linha2, 9) = "DEF 01> PBF > Metal > 1"
Cells(linha2, 10) = "DEF 01> PBF > Metal > 1"
Cells(linha2, 11) = "DEF 01> PBF > Metal > 1"
Cells(linha2, 13) = "DEF 01> PBF > Metal > 1"
Cells(linha2, 14) = "DEF 01> PBF > Metal > 1"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "PBF" And Cells(linha, 4) = "1" Then
Cells(linha3, 7) = "DEF 01> PBF > Metal > 1"
Cells(linha3, 8) = "DEF 01> PBF > Metal > 1"
Cells(linha3, 9) = "DEF 01> PBF > Metal > 1"
Cells(linha3, 10) = "DEF 01> PBF > Metal > 1"
Cells(linha3, 11) = "DEF 01> PBF > Metal > 1"
Cells(linha3, 13) = "DEF 01> PBF > Metal > 1"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "PBF" And Cells(linha, 4) = "1" Then
Cells(Linha4, 6) = "DEF 01> PBF > Metal > 1"
Cells(Linha4, 7) = "DEF 01> PBF > Metal > 1"
Cells(Linha4, 8) = "DEF 01> PBF > Metal > 1"
Cells(Linha4, 9) = "DEF 01> PBF > Metal > 1"
Cells(Linha4, 12) = "DEF 01> PBF > Metal > 1"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "PBF" And Cells(linha, 4) = "1" Then
Cells(Linha5, 9) = "DEF 01> PBF > Metal > 1"
Cells(Linha5, 10) = "DEF 01> PBF > Metal > 1"
Cells(Linha5, 11) = "DEF 01> PBF > Metal > 1"
Cells(Linha5, 12) = "DEF 01> PBF > Metal > 1"
End If
'Complexidade 2 - Metálicos
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "PBF" And Cells(linha, 4) = "2" Then '<------------- Condição, variável linha e a respetiva coluna da folha
Cells(linha, 5) = "Microfissuras Superficiais"
Cells(linha2, 5) = "Microfissuras Internas"
Cells(linha3, 5) = "Microporosidades(Internas)"
Cells(Linha4, 5) = "Inclusões"
Cells(Linha5, 5) = "Oxidação"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "PBF" And Cells(linha, 4) = "2" Then
Cells(linha, 6) = "DEF 01> PBF > Metal > 2"
Cells(linha, 8) = "DEF 01> PBF > Metal > 2"
Cells(linha, 9) = "DEF 01> PBF > Metal > 2"
Cells(linha, 10) = "DEF 01> PBF > Metal > 2"
Cells(linha, 11) = "DEF 01> PBF > Metal > 2"
Cells(linha, 12) = "DEF 01> PBF > Metal > 2"
Cells(linha, 13) = "DEF 01> PBF > Metal > 2"
Cells(linha, 14) = "DEF 01> PBF > Metal > 2"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "PBF" And Cells(linha, 4) = "2" Then
Cells(linha2, 7) = "DEF 01> PBF > Metal > 2"
Cells(linha2, 8) = "DEF 01> PBF > Metal > 2"
Cells(linha2, 9) = "DEF 01> PBF > Metal > 2"
Cells(linha2, 10) = "DEF 01> PBF > Metal > 2"
Cells(linha2, 11) = "DEF 01> PBF > Metal > 2"
Cells(linha2, 13) = "DEF 01> PBF > Metal > 2"
Cells(linha2, 14) = "DEF 01> PBF > Metal > 2"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "PBF" And Cells(linha, 4) = "2" Then
Cells(linha3, 7) = "DEF 01> PBF > Metal > 2"
Cells(linha3, 8) = "DEF 01> PBF > Metal > 2"
Cells(linha3, 9) = "DEF 01> PBF > Metal > 2"
Cells(linha3, 10) = "DEF 01> PBF > Metal > 2"
Cells(linha3, 11) = "DEF 01> PBF > Metal > 2"
Cells(linha3, 13) = "DEF 01> PBF > Metal > 2"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "PBF" And Cells(linha, 4) = "2" Then
Cells(Linha4, 6) = "DEF 01> PBF > Metal > 2"
Cells(Linha4, 7) = "DEF 01> PBF > Metal > 2"
Cells(Linha4, 8) = "DEF 01> PBF > Metal > 2"
Cells(Linha4, 9) = "DEF 01> PBF > Metal > 2"
Cells(Linha4, 12) = "DEF 01> PBF > Metal > 2"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "PBF" And Cells(linha, 4) = "2" Then
Cells(Linha5, 9) = "DEF 01> PBF > Metal > 2"
Cells(Linha5, 10) = "DEF 01> PBF > Metal > 2"
Cells(Linha5, 11) = "DEF 01> PBF > Metal > 2"
Cells(Linha5, 12) = "DEF 01> PBF > Metal > 2"
End If
'Fim Da Complexidade 2 - Metálicos
'Complexidade 3 - Metálicos
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "PBF" And Cells(linha, 4) = "3" Then '<------------- Condição, variável linha e a respetiva coluna da folha
Cells(linha, 5) = "Microfissuras Superficiais"
Cells(linha2, 5) = "Microfissuras Internas"
Cells(linha3, 5) = "Microporosidades(Internas)"
Cells(Linha4, 5) = "Inclusões"
Cells(Linha5, 5) = "Oxidação"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "PBF" And Cells(linha, 4) = "3" Then
Cells(linha, 6) = "DEF 01> PBF > Metal > 3"
Cells(linha, 8) = "DEF 01> PBF > Metal > 3"
Cells(linha, 9) = "DEF 01> PBF > Metal > 3"
Cells(linha, 10) = "DEF 01> PBF > Metal > 3"
Cells(linha, 11) = "DEF 01> PBF > Metal > 3"
Cells(linha, 12) = "DEF 01> PBF > Metal > 3"
Cells(linha, 13) = "DEF 01> PBF > Metal > 3"
Cells(linha, 14) = "DEF 01> PBF > Metal > 3"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "PBF" And Cells(linha, 4) = "3" Then
Cells(linha2, 7) = "DEF 01> PBF > Metal > 3"
Cells(linha2, 8) = "DEF 01> PBF > Metal > 3"
Cells(linha2, 9) = "DEF 01> PBF > Metal > 3"
Cells(linha2, 10) = "DEF 01> PBF > Metal > 3"
Cells(linha2, 11) = "DEF 01> PBF > Metal > 3"
Cells(linha2, 13) = "DEF 01> PBF > Metal > 3"
Cells(linha2, 14) = "DEF 01> PBF > Metal > 3"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "PBF" And Cells(linha, 4) = "3" Then
Cells(linha3, 7) = "DEF 01> PBF > Metal > 3"
Cells(linha3, 8) = "DEF 01> PBF > Metal > 3"
Cells(linha3, 9) = "DEF 01> PBF > Metal > 3"
Cells(linha3, 10) = "DEF 01> PBF > Metal > 3"
Cells(linha3, 11) = "DEF 01> PBF > Metal > 3"
Cells(linha3, 13) = "DEF 01> PBF > Metal > 3"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "PBF" And Cells(linha, 4) = "3" Then
Cells(Linha4, 6) = "DEF 01> PBF > Metal > 3"
Cells(Linha4, 7) = "DEF 01> PBF > Metal > 3"
Cells(Linha4, 8) = "DEF 01> PBF > Metal > 3"
Cells(Linha4, 9) = "DEF 01> PBF > Metal > 3"
Cells(Linha4, 12) = "DEF 01> PBF > Metal > 3"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "PBF" And Cells(linha, 4) = "3" Then
Cells(Linha5, 9) = "DEF 01> PBF > Metal > 3"
Cells(Linha5, 10) = "DEF 01> PBF > Metal > 3"
Cells(Linha5, 11) = "DEF 01> PBF > Metal > 3"
Cells(Linha5, 12) = "DEF 01> PBF > Metal > 3"
End If
'Fim Da Complexidade 3 - Metálicos
'Complexidade 4 - Metálicos
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "PBF" And Cells(linha, 4) = "4" Then '<------------- Condição, variável linha e a respetiva coluna da folha
Cells(linha, 5) = "Microfissuras Superficiais"
Cells(linha2, 5) = "Microfissuras Internas"
Cells(linha3, 5) = "Microporosidades(Internas)"
Cells(Linha4, 5) = "Inclusões"
Cells(Linha5, 5) = "Oxidação"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "PBF" And Cells(linha, 4) = "4" Then
Cells(linha, 6) = "DEF 01> PBF > Metal > 4"
Cells(linha, 8) = "DEF 01> PBF > Metal > 4"
Cells(linha, 9) = "DEF 01> PBF > Metal > 4"
Cells(linha, 10) = "DEF 01> PBF > Metal > 4"
Cells(linha, 11) = "DEF 01> PBF > Metal > 4"
Cells(linha, 12) = "DEF 01> PBF > Metal > 4"
Cells(linha, 13) = "DEF 01> PBF > Metal > 4"
Cells(linha, 14) = "DEF 01> PBF > Metal > 4"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "PBF" And Cells(linha, 4) = "4" Then
Cells(linha2, 7) = "DEF 01> PBF > Metal > 4"
Cells(linha2, 8) = "DEF 01> PBF > Metal > 4"
Cells(linha2, 9) = "DEF 01> PBF > Metal > 4"
Cells(linha2, 10) = "DEF 01> PBF > Metal > 4"
Cells(linha2, 11) = "DEF 01> PBF > Metal > 4"
Cells(linha2, 13) = "DEF 01> PBF > Metal > 4"
Cells(linha2, 14) = "DEF 01> PBF > Metal > 4"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "PBF" And Cells(linha, 4) = "4" Then
Cells(linha3, 7) = "DEF 01> PBF > Metal > 4"
Cells(linha3, 8) = "DEF 01> PBF > Metal > 4"
Cells(linha3, 9) = "DEF 01> PBF > Metal > 4"
Cells(linha3, 10) = "DEF 01> PBF > Metal > 4"
Cells(linha3, 11) = "DEF 01> PBF > Metal > 4"
Cells(linha3, 13) = "DEF 01> PBF > Metal > 4"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "PBF" And Cells(linha, 4) = "4" Then
Cells(Linha4, 6) = "DEF 01> PBF > Metal > 4"
Cells(Linha4, 7) = "DEF 01> PBF > Metal > 4"
Cells(Linha4, 8) = "DEF 01> PBF > Metal > 4"
Cells(Linha4, 9) = "DEF 01> PBF > Metal > 4"
Cells(Linha4, 12) = "DEF 01> PBF > Metal > 4"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "PBF" And Cells(linha, 4) = "4" Then
Cells(Linha5, 9) = "DEF 01> PBF > Metal > 4"
Cells(Linha5, 10) = "DEF 01> PBF > Metal > 4"
Cells(Linha5, 11) = "DEF 01> PBF > Metal > 4"
Cells(Linha5, 12) = "DEF 01> PBF > Metal > 4"
End If
'Fim Da Complexidade 4 - Metálicos PBF
'Inicio da Complexidade - Metálicos DED
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "DED" And Cells(linha, 4) = "1" Then
Cells(linha, 6) = "DEF 01> DED > Metal > 1"
Cells(linha, 8) = "DEF 01> DED > Metal > 1"
Cells(linha, 9) = "DEF 01> DED > Metal > 1"
Cells(linha, 10) = "DEF 01> DED > Metal > 1"
Cells(linha, 11) = "DEF 01> DED > Metal > 1"
Cells(linha, 12) = "DEF 01> DED > Metal > 1"
Cells(linha, 13) = "DEF 01> DED > Metal > 1"
Cells(linha, 14) = "DEF 01> DED > Metal > 1"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "DED" And Cells(linha, 4) = "1" Then
Cells(linha2, 7) = "DEF 01> DED > Metal > 1"
Cells(linha2, 8) = "DEF 01> DED > Metal > 1"
Cells(linha2, 9) = "DEF 01> DED > Metal > 1"
Cells(linha2, 10) = "DEF 01> DED > Metal > 1"
Cells(linha2, 11) = "DEF 01> DED > Metal > 1"
Cells(linha2, 13) = "DEF 01> DED > Metal > 1"
Cells(linha2, 14) = "DEF 01> DED > Metal > 1"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "DED" And Cells(linha, 4) = "1" Then
Cells(linha3, 7) = "DEF 01> DED > Metal > 1"
Cells(linha3, 8) = "DEF 01> DED > Metal > 1"
Cells(linha3, 9) = "DEF 01> DED > Metal > 1"
Cells(linha3, 10) = "DEF 01> DED > Metal > 1"
Cells(linha3, 11) = "DEF 01> DED > Metal > 1"
Cells(linha3, 13) = "DEF 01> DED > Metal > 1"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "DED" And Cells(linha, 4) = "1" Then
Cells(Linha4, 6) = "DEF 01> DED > Metal > 1"
Cells(Linha4, 7) = "DEF 01> DED > Metal > 1"
Cells(Linha4, 8) = "DEF 01> DED > Metal > 1"
Cells(Linha4, 9) = "DEF 01> DED > Metal > 1"
Cells(Linha4, 12) = "DEF 01> DED > Metal > 1"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "DED" And Cells(linha, 4) = "1" Then
Cells(Linha5, 9) = "DEF 01> DED > Metal > 1"
Cells(Linha5, 10) = "DEF 01> DED > Metal > 1"
Cells(Linha5, 11) = "DEF 01> DED > Metal > 1"
Cells(Linha5, 12) = "DEF 01> DED > Metal > 1"
End If
'Complexidade 2 - Metálicos
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "DED" And Cells(linha, 4) = "2" Then '<------------- Condição, variável linha e a respetiva coluna da folha
Cells(linha, 5) = "Microfissuras Superficiais"
Cells(linha2, 5) = "Microfissuras Internas"
Cells(linha3, 5) = "Microporosidades(Internas)"
Cells(Linha4, 5) = "Inclusões"
Cells(Linha5, 5) = "Oxidação"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "DED" And Cells(linha, 4) = "2" Then
Cells(linha, 6) = "DEF 01> DED > Metal > 2"
Cells(linha, 8) = "DEF 01> DED > Metal > 2"
Cells(linha, 9) = "DEF 01> DED > Metal > 2"
Cells(linha, 10) = "DEF 01> DED > Metal > 2"
Cells(linha, 11) = "DEF 01> DED > Metal > 2"
Cells(linha, 12) = "DEF 01> DED > Metal > 2"
Cells(linha, 13) = "DEF 01> DED > Metal > 2"
Cells(linha, 14) = "DEF 01> DED > Metal > 2"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "DED" And Cells(linha, 4) = "2" Then
Cells(linha2, 7) = "DEF 01> DED > Metal > 2"
Cells(linha2, 8) = "DEF 01> DED > Metal > 2"
Cells(linha2, 9) = "DEF 01> DED > Metal > 2"
Cells(linha2, 10) = "DEF 01> DED > Metal > 2"
Cells(linha2, 11) = "DEF 01> DED > Metal > 2"
Cells(linha2, 13) = "DEF 01> DED > Metal > 2"
Cells(linha2, 14) = "DEF 01> DED > Metal > 2"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "DED" And Cells(linha, 4) = "2" Then
Cells(linha3, 7) = "DEF 01> DED > Metal > 2"
Cells(linha3, 8) = "DEF 01> DED > Metal > 2"
Cells(linha3, 9) = "DEF 01> DED > Metal > 2"
Cells(linha3, 10) = "DEF 01> DED > Metal > 2"
Cells(linha3, 11) = "DEF 01> DED > Metal > 2"
Cells(linha3, 13) = "DEF 01> DED > Metal > 2"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "DED" And Cells(linha, 4) = "2" Then
Cells(Linha4, 6) = "DEF 01> DED > Metal > 2"
Cells(Linha4, 7) = "DEF 01> DED > Metal > 2"
Cells(Linha4, 8) = "DEF 01> DED > Metal > 2"
Cells(Linha4, 9) = "DEF 01> DED > Metal > 2"
Cells(Linha4, 12) = "DEF 01> DED > Metal > 2"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "DED" And Cells(linha, 4) = "2" Then
Cells(Linha5, 9) = "DEF 01> DED > Metal > 2"
Cells(Linha5, 10) = "DEF 01> DED > Metal > 2"
Cells(Linha5, 11) = "DEF 01> DED > Metal > 2"
Cells(Linha5, 12) = "DEF 01> DED > Metal > 2"
End If
'Fim Da Complexidade 2 - Metálicos
'Complexidade 3 - Metálicos
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "DED" And Cells(linha, 4) = "3" Then '<------------- Condição, variável linha e a respetiva coluna da folha
Cells(linha, 5) = "Microfissuras Superficiais"
Cells(linha2, 5) = "Microfissuras Internas"
Cells(linha3, 5) = "Microporosidades(Internas)"
Cells(Linha4, 5) = "Inclusões"
Cells(Linha5, 5) = "Oxidação"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "DED" And Cells(linha, 4) = "3" Then
Cells(linha, 6) = "DEF 01> DED > Metal > 3"
Cells(linha, 8) = "DEF 01> DED > Metal > 3"
Cells(linha, 9) = "DEF 01> DED > Metal > 3"
Cells(linha, 10) = "DEF 01> DED > Metal > 3"
Cells(linha, 11) = "DEF 01> DED > Metal > 3"
Cells(linha, 12) = "DEF 01> DED > Metal > 3"
Cells(linha, 13) = "DEF 01> DED > Metal > 3"
Cells(linha, 14) = "DEF 01> DED > Metal > 3"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "DED" And Cells(linha, 4) = "3" Then
Cells(linha2, 7) = "X"
Cells(linha2, 8) = "X"
Cells(linha2, 9) = "X"
Cells(linha2, 10) = "X (Perpendiculares)"
Cells(linha2, 11) = "X"
Cells(linha2, 13) = "X (ferromagnéticos)"
Cells(linha2, 14) = "X"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "DED" And Cells(linha, 4) = "3" Then
Cells(linha3, 7) = "X"
Cells(linha3, 8) = "X"
Cells(linha3, 9) = "X"
Cells(linha3, 10) = "X"
Cells(linha3, 11) = "X"
Cells(linha3, 13) = "X (ferromagnéticos)"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "DED" And Cells(linha, 4) = "3" Then
Cells(Linha4, 6) = "X (Externas)"
Cells(Linha4, 7) = "X"
Cells(Linha4, 8) = "X"
Cells(Linha4, 9) = "X"
Cells(Linha4, 12) = "X (Externas)"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "DED" And Cells(linha, 4) = "3" Then
Cells(Linha5, 9) = "X"
Cells(Linha5, 10) = "X"
Cells(Linha5, 11) = "X"
Cells(Linha5, 12) = "X"
End If
'Fim Da Complexidade 3 - Metálicos
'Complexidade 4 - Metálicos
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "DED" And Cells(linha, 4) = "4" Then '<------------- Condição, variável linha e a respetiva coluna da folha
Cells(linha, 5) = "Microfissuras Superficiais"
Cells(linha2, 5) = "Microfissuras Internas"
Cells(linha3, 5) = "Microporosidades(Internas)"
Cells(Linha4, 5) = "Inclusões"
Cells(Linha5, 5) = "Oxidação"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "DED" And Cells(linha, 4) = "4" Then
Cells(linha, 6) = "X"
Cells(linha, 8) = "X"
Cells(linha, 9) = "X"
Cells(linha, 10) = "X (Perpendiculares)"
Cells(linha, 11) = "X"
Cells(linha, 12) = "X"
Cells(linha, 13) = "X (ferromagnéticos)"
Cells(linha, 14) = "X"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "DED" And Cells(linha, 4) = "4" Then
Cells(linha2, 7) = "X"
Cells(linha2, 8) = "X"
Cells(linha2, 9) = "X"
Cells(linha2, 10) = "X (Perpendiculares)"
Cells(linha2, 11) = "X"
Cells(linha2, 13) = "X (ferromagnéticos)"
Cells(linha2, 14) = "X"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "DED" And Cells(linha, 4) = "4" Then
Cells(linha3, 7) = "X"
Cells(linha3, 8) = "X"
Cells(linha3, 9) = "X"
Cells(linha3, 10) = "X"
Cells(linha3, 11) = "X"
Cells(linha3, 13) = "X (ferromagnéticos)"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "DED" And Cells(linha, 4) = "4" Then
Cells(Linha4, 6) = "X (Externas)"
Cells(Linha4, 7) = "X"
Cells(Linha4, 8) = "X"
Cells(Linha4, 9) = "X"
Cells(Linha4, 12) = "X (Externas)"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "DED" And Cells(linha, 4) = "4" Then
Cells(Linha5, 9) = "X"
Cells(Linha5, 10) = "X"
Cells(Linha5, 11) = "X"
Cells(Linha5, 12) = "X"
End If
'Fim da Complexidade - Metálicos DED
'Inicio da Complexidade - Metálicos Binder Jetting
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Binder Jetting" And Cells(linha, 4) = "1" Then
Cells(linha, 6) = "X"
Cells(linha, 8) = "X"
Cells(linha, 9) = "X"
Cells(linha, 10) = "X (Perpendiculares)"
Cells(linha, 11) = "X"
Cells(linha, 12) = "X"
Cells(linha, 13) = "X (ferromagnéticos)"
Cells(linha, 14) = "X"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Binder Jetting" And Cells(linha, 4) = "1" Then
Cells(linha2, 7) = "X"
Cells(linha2, 8) = "X"
Cells(linha2, 9) = "X"
Cells(linha2, 10) = "X (Perpendiculares)"
Cells(linha2, 11) = "X"
Cells(linha2, 13) = "X (ferromagnéticos)"
Cells(linha2, 14) = "X"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Binder Jetting" And Cells(linha, 4) = "1" Then
Cells(linha3, 7) = "X"
Cells(linha3, 8) = "X"
Cells(linha3, 9) = "X"
Cells(linha3, 10) = "X"
Cells(linha3, 11) = "X"
Cells(linha3, 13) = "X (ferromagnéticos)"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Binder Jetting" And Cells(linha, 4) = "1" Then
Cells(Linha4, 6) = "X (Externas)"
Cells(Linha4, 7) = "X"
Cells(Linha4, 8) = "X"
Cells(Linha4, 9) = "X"
Cells(Linha4, 12) = "X (Externas)"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Binder Jetting" And Cells(linha, 4) = "1" Then
Cells(Linha5, 9) = "X"
Cells(Linha5, 10) = "X"
Cells(Linha5, 11) = "X"
Cells(Linha5, 12) = "X"
End If
'Complexidade 2 - Metálicos
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Binder Jetting" And Cells(linha, 4) = "2" Then '<------------- Condição, variável linha e a respetiva coluna da folha
Cells(linha, 5) = "Microfissuras Superficiais"
Cells(linha2, 5) = "Microfissuras Internas"
Cells(linha3, 5) = "Microporosidades(Internas)"
Cells(Linha4, 5) = "Inclusões"
Cells(Linha5, 5) = "Oxidação"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Binder Jetting" And Cells(linha, 4) = "2" Then
Cells(linha, 6) = "X"
Cells(linha, 8) = "X"
Cells(linha, 9) = "X"
Cells(linha, 10) = "X (Perpendiculares)"
Cells(linha, 11) = "X"
Cells(linha, 12) = "X"
Cells(linha, 13) = "X (ferromagnéticos)"
Cells(linha, 14) = "X"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Binder Jetting" And Cells(linha, 4) = "2" Then
Cells(linha2, 7) = "X"
Cells(linha2, 8) = "X"
Cells(linha2, 9) = "X"
Cells(linha2, 10) = "X (Perpendiculares)"
Cells(linha2, 11) = "X"
Cells(linha2, 13) = "X (ferromagnéticos)"
Cells(linha2, 14) = "X"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Binder Jetting" And Cells(linha, 4) = "2" Then
Cells(linha3, 7) = "X"
Cells(linha3, 8) = "X"
Cells(linha3, 9) = "X"
Cells(linha3, 10) = "X"
Cells(linha3, 11) = "X"
Cells(linha3, 13) = "X (ferromagnéticos)"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Binder Jetting" And Cells(linha, 4) = "2" Then
Cells(Linha4, 6) = "X (Externas)"
Cells(Linha4, 7) = "X"
Cells(Linha4, 8) = "X"
Cells(Linha4, 9) = "X"
Cells(Linha4, 12) = "X (Externas)"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Binder Jetting" And Cells(linha, 4) = "2" Then
Cells(Linha5, 9) = "X"
Cells(Linha5, 10) = "X"
Cells(Linha5, 11) = "X"
Cells(Linha5, 12) = "X"
End If
'Fim Da Complexidade 2 - Metálicos
'Complexidade 3 - Metálicos
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Binder Jetting" And Cells(linha, 4) = "3" Then '<------------- Condição, variável linha e a respetiva coluna da folha
Cells(linha, 5) = "Microfissuras Superficiais"
Cells(linha2, 5) = "Microfissuras Internas"
Cells(linha3, 5) = "Microporosidades(Internas)"
Cells(Linha4, 5) = "Inclusões"
Cells(Linha5, 5) = "Oxidação"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Binder Jetting" And Cells(linha, 4) = "3" Then
Cells(linha, 6) = "X"
Cells(linha, 8) = "X"
Cells(linha, 9) = "X"
Cells(linha, 10) = "X (Perpendiculares)"
Cells(linha, 11) = "X"
Cells(linha, 12) = "X"
Cells(linha, 13) = "X (ferromagnéticos)"
Cells(linha, 14) = "X"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Binder Jetting" And Cells(linha, 4) = "3" Then
Cells(linha2, 7) = "X"
Cells(linha2, 8) = "X"
Cells(linha2, 9) = "X"
Cells(linha2, 10) = "X (Perpendiculares)"
Cells(linha2, 11) = "X"
Cells(linha2, 13) = "X (ferromagnéticos)"
Cells(linha2, 14) = "X"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Binder Jetting" And Cells(linha, 4) = "3" Then
Cells(linha3, 7) = "X"
Cells(linha3, 8) = "X"
Cells(linha3, 9) = "X"
Cells(linha3, 10) = "X"
Cells(linha3, 11) = "X"
Cells(linha3, 13) = "X (ferromagnéticos)"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Binder Jetting" And Cells(linha, 4) = "3" Then
Cells(Linha4, 6) = "X (Externas)"
Cells(Linha4, 7) = "X"
Cells(Linha4, 8) = "X"
Cells(Linha4, 9) = "X"
Cells(Linha4, 12) = "X (Externas)"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Binder Jetting" And Cells(linha, 4) = "3" Then
Cells(Linha5, 9) = "X"
Cells(Linha5, 10) = "X"
Cells(Linha5, 11) = "X"
Cells(Linha5, 12) = "X"
End If
'Fim Da Complexidade 3 - Metálicos
'Complexidade 4 - Metálicos
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Binder Jetting" And Cells(linha, 4) = "4" Then '<------------- Condição, variável linha e a respetiva coluna da folha
Cells(linha, 5) = "Microfissuras Superficiais"
Cells(linha2, 5) = "Microfissuras Internas"
Cells(linha3, 5) = "Microporosidades(Internas)"
Cells(Linha4, 5) = "Inclusões"
Cells(Linha5, 5) = "Oxidação"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Binder Jetting" And Cells(linha, 4) = "4" Then
Cells(linha, 6) = "X"
Cells(linha, 8) = "X"
Cells(linha, 9) = "X"
Cells(linha, 10) = "X (Perpendiculares)"
Cells(linha, 11) = "X"
Cells(linha, 12) = "X"
Cells(linha, 13) = "X (ferromagnéticos)"
Cells(linha, 14) = "X"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Binder Jetting" And Cells(linha, 4) = "4" Then
Cells(linha2, 7) = "X"
Cells(linha2, 8) = "X"
Cells(linha2, 9) = "X"
Cells(linha2, 10) = "X (Perpendiculares)"
Cells(linha2, 11) = "X"
Cells(linha2, 13) = "X (ferromagnéticos)"
Cells(linha2, 14) = "X"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Binder Jetting" And Cells(linha, 4) = "4" Then
Cells(linha3, 7) = "X"
Cells(linha3, 8) = "X"
Cells(linha3, 9) = "X"
Cells(linha3, 10) = "X"
Cells(linha3, 11) = "X"
Cells(linha3, 13) = "X (ferromagnéticos)"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Binder Jetting" And Cells(linha, 4) = "4" Then
Cells(Linha4, 6) = "X (Externas)"
Cells(Linha4, 7) = "X"
Cells(Linha4, 8) = "X"
Cells(Linha4, 9) = "X"
Cells(Linha4, 12) = "X (Externas)"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Binder Jetting" And Cells(linha, 4) = "4" Then
Cells(Linha5, 9) = "X"
Cells(Linha5, 10) = "X"
Cells(Linha5, 11) = "X"
Cells(Linha5, 12) = "X"
End If
'Fim da Complexidade - Metálicos Binder Jetting
'Inicio da Complexidade - Metálicos Material Extrusion
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Material Extrusion" And Cells(linha, 4) = "1" Then
Cells(linha, 6) = "X"
Cells(linha, 8) = "X"
Cells(linha, 9) = "X"
Cells(linha, 10) = "X (Perpendiculares)"
Cells(linha, 11) = "X"
Cells(linha, 12) = "X"
Cells(linha, 13) = "X (ferromagnéticos)"
Cells(linha, 14) = "X"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Material Extrusion" And Cells(linha, 4) = "1" Then
Cells(linha2, 7) = "X"
Cells(linha2, 8) = "X"
Cells(linha2, 9) = "X"
Cells(linha2, 10) = "X (Perpendiculares)"
Cells(linha2, 11) = "X"
Cells(linha2, 13) = "X (ferromagnéticos)"
Cells(linha2, 14) = "X"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Material Extrusion" And Cells(linha, 4) = "1" Then
Cells(linha3, 7) = "X"
Cells(linha3, 8) = "X"
Cells(linha3, 9) = "X"
Cells(linha3, 10) = "X"
Cells(linha3, 11) = "X"
Cells(linha3, 13) = "X (ferromagnéticos)"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Material Extrusion" And Cells(linha, 4) = "1" Then
Cells(Linha4, 6) = "X (Externas)"
Cells(Linha4, 7) = "X"
Cells(Linha4, 8) = "X"
Cells(Linha4, 9) = "X"
Cells(Linha4, 12) = "X (Externas)"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Material Extrusion" And Cells(linha, 4) = "1" Then
Cells(Linha5, 9) = "X"
Cells(Linha5, 10) = "X"
Cells(Linha5, 11) = "X"
Cells(Linha5, 12) = "X"
End If
'Complexidade 2 - Metálicos
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Material Extrusion" And Cells(linha, 4) = "2" Then '<------------- Condição, variável linha e a respetiva coluna da folha
Cells(linha, 5) = "Microfissuras Superficiais"
Cells(linha2, 5) = "Microfissuras Internas"
Cells(linha3, 5) = "Microporosidades(Internas)"
Cells(Linha4, 5) = "Inclusões"
Cells(Linha5, 5) = "Oxidação"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Material Extrusion" And Cells(linha, 4) = "2" Then
Cells(linha, 6) = "X"
Cells(linha, 8) = "X"
Cells(linha, 9) = "X"
Cells(linha, 10) = "X (Perpendiculares)"
Cells(linha, 11) = "X"
Cells(linha, 12) = "X"
Cells(linha, 13) = "X (ferromagnéticos)"
Cells(linha, 14) = "X"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Material Extrusion" And Cells(linha, 4) = "2" Then
Cells(linha2, 7) = "X"
Cells(linha2, 8) = "X"
Cells(linha2, 9) = "X"
Cells(linha2, 10) = "X (Perpendiculares)"
Cells(linha2, 11) = "X"
Cells(linha2, 13) = "X (ferromagnéticos)"
Cells(linha2, 14) = "X"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Material Extrusion" And Cells(linha, 4) = "2" Then
Cells(linha3, 7) = "X"
Cells(linha3, 8) = "X"
Cells(linha3, 9) = "X"
Cells(linha3, 10) = "X"
Cells(linha3, 11) = "X"
Cells(linha3, 13) = "X (ferromagnéticos)"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Material Extrusion" And Cells(linha, 4) = "2" Then
Cells(Linha4, 6) = "X (Externas)"
Cells(Linha4, 7) = "X"
Cells(Linha4, 8) = "X"
Cells(Linha4, 9) = "X"
Cells(Linha4, 12) = "X (Externas)"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Material Extrusion" And Cells(linha, 4) = "2" Then
Cells(Linha5, 9) = "X"
Cells(Linha5, 10) = "X"
Cells(Linha5, 11) = "X"
Cells(Linha5, 12) = "X"
End If
'Fim Da Complexidade 2 - Metálicos
'Complexidade 3 - Metálicos
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Material Extrusion" And Cells(linha, 4) = "3" Then '<------------- Condição, variável linha e a respetiva coluna da folha
Cells(linha, 5) = "Microfissuras Superficiais"
Cells(linha2, 5) = "Microfissuras Internas"
Cells(linha3, 5) = "Microporosidades(Internas)"
Cells(Linha4, 5) = "Inclusões"
Cells(Linha5, 5) = "Oxidação"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Material Extrusion" And Cells(linha, 4) = "3" Then
Cells(linha, 6) = "X"
Cells(linha, 8) = "X"
Cells(linha, 9) = "X"
Cells(linha, 10) = "X (Perpendiculares)"
Cells(linha, 11) = "X"
Cells(linha, 12) = "X"
Cells(linha, 13) = "X (ferromagnéticos)"
Cells(linha, 14) = "X"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Material Extrusion" And Cells(linha, 4) = "3" Then
Cells(linha2, 7) = "X"
Cells(linha2, 8) = "X"
Cells(linha2, 9) = "X"
Cells(linha2, 10) = "X (Perpendiculares)"
Cells(linha2, 11) = "X"
Cells(linha2, 13) = "X (ferromagnéticos)"
Cells(linha2, 14) = "X"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Material Extrusion" And Cells(linha, 4) = "3" Then
Cells(linha3, 7) = "X"
Cells(linha3, 8) = "X"
Cells(linha3, 9) = "X"
Cells(linha3, 10) = "X"
Cells(linha3, 11) = "X"
Cells(linha3, 13) = "X (ferromagnéticos)"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Material Extrusion" And Cells(linha, 4) = "3" Then
Cells(Linha4, 6) = "X (Externas)"
Cells(Linha4, 7) = "X"
Cells(Linha4, 8) = "X"
Cells(Linha4, 9) = "X"
Cells(Linha4, 12) = "X (Externas)"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Material Extrusion" And Cells(linha, 4) = "3" Then
Cells(Linha5, 9) = "X"
Cells(Linha5, 10) = "X"
Cells(Linha5, 11) = "X"
Cells(Linha5, 12) = "X"
End If
'Fim Da Complexidade 3 - Metálicos
'Complexidade 4 - Metálicos
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Material Extrusion" And Cells(linha, 4) = "4" Then '<------------- Condição, variável linha e a respetiva coluna da folha
Cells(linha, 5) = "Microfissuras Superficiais"
Cells(linha2, 5) = "Microfissuras Internas"
Cells(linha3, 5) = "Microporosidades(Internas)"
Cells(Linha4, 5) = "Inclusões"
Cells(Linha5, 5) = "Oxidação"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Material Extrusion" And Cells(linha, 4) = "4" Then
Cells(linha, 6) = "X"
Cells(linha, 8) = "X"
Cells(linha, 9) = "X"
Cells(linha, 10) = "X (Perpendiculares)"
Cells(linha, 11) = "X"
Cells(linha, 12) = "X"
Cells(linha, 13) = "X (ferromagnéticos)"
Cells(linha, 14) = "X"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Material Extrusion" And Cells(linha, 4) = "4" Then
Cells(linha2, 7) = "X"
Cells(linha2, 8) = "X"
Cells(linha2, 9) = "X"
Cells(linha2, 10) = "X (Perpendiculares)"
Cells(linha2, 11) = "X"
Cells(linha2, 13) = "X (ferromagnéticos)"
Cells(linha2, 14) = "X"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Material Extrusion" And Cells(linha, 4) = "4" Then
Cells(linha3, 7) = "X"
Cells(linha3, 8) = "X"
Cells(linha3, 9) = "X"
Cells(linha3, 10) = "X"
Cells(linha3, 11) = "X"
Cells(linha3, 13) = "X (ferromagnéticos)"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Material Extrusion" And Cells(linha, 4) = "4" Then
Cells(Linha4, 6) = "X (Externas)"
Cells(Linha4, 7) = "X"
Cells(Linha4, 8) = "X"
Cells(Linha4, 9) = "X"
Cells(Linha4, 12) = "X (Externas)"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Material Extrusion" And Cells(linha, 4) = "4" Then
Cells(Linha5, 9) = "X"
Cells(Linha5, 10) = "X"
Cells(Linha5, 11) = "X"
Cells(Linha5, 12) = "X"
End If
'Fim da Complexidade - Metálicos Binder Jetting
'Inicio da Complexidade - Metálicos Sheet Lamination
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Sheet Lamination" And Cells(linha, 4) = "1" Then
Cells(linha, 6) = "X"
Cells(linha, 8) = "X"
Cells(linha, 9) = "X"
Cells(linha, 10) = "X (Perpendiculares)"
Cells(linha, 11) = "X"
Cells(linha, 12) = "X"
Cells(linha, 13) = "X (ferromagnéticos)"
Cells(linha, 14) = "X"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Sheet Lamination" And Cells(linha, 4) = "1" Then
Cells(linha2, 7) = "X"
Cells(linha2, 8) = "X"
Cells(linha2, 9) = "X"
Cells(linha2, 10) = "X (Perpendiculares)"
Cells(linha2, 11) = "X"
Cells(linha2, 13) = "X (ferromagnéticos)"
Cells(linha2, 14) = "X"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Sheet Lamination" And Cells(linha, 4) = "1" Then
Cells(linha3, 7) = "X"
Cells(linha3, 8) = "X"
Cells(linha3, 9) = "X"
Cells(linha3, 10) = "X"
Cells(linha3, 11) = "X"
Cells(linha3, 13) = "X (ferromagnéticos)"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Sheet Lamination" And Cells(linha, 4) = "1" Then
Cells(Linha4, 6) = "X (Externas)"
Cells(Linha4, 7) = "X"
Cells(Linha4, 8) = "X"
Cells(Linha4, 9) = "X"
Cells(Linha4, 12) = "X (Externas)"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Sheet Lamination" And Cells(linha, 4) = "1" Then
Cells(Linha5, 9) = "X"
Cells(Linha5, 10) = "X"
Cells(Linha5, 11) = "X"
Cells(Linha5, 12) = "X"
End If
'Complexidade 2 - Metálicos
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Sheet Lamination" And Cells(linha, 4) = "2" Then '<------------- Condição, variável linha e a respetiva coluna da folha
Cells(linha, 5) = "Microfissuras Superficiais"
Cells(linha2, 5) = "Microfissuras Internas"
Cells(linha3, 5) = "Microporosidades(Internas)"
Cells(Linha4, 5) = "Inclusões"
Cells(Linha5, 5) = "Oxidação"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Sheet Lamination" And Cells(linha, 4) = "2" Then
Cells(linha, 6) = "X"
Cells(linha, 8) = "X"
Cells(linha, 9) = "X"
Cells(linha, 10) = "X (Perpendiculares)"
Cells(linha, 11) = "X"
Cells(linha, 12) = "X"
Cells(linha, 13) = "X (ferromagnéticos)"
Cells(linha, 14) = "X"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Sheet Lamination" And Cells(linha, 4) = "2" Then
Cells(linha2, 7) = "X"
Cells(linha2, 8) = "X"
Cells(linha2, 9) = "X"
Cells(linha2, 10) = "X (Perpendiculares)"
Cells(linha2, 11) = "X"
Cells(linha2, 13) = "X (ferromagnéticos)"
Cells(linha2, 14) = "X"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Sheet Lamination" And Cells(linha, 4) = "2" Then
Cells(linha3, 7) = "X"
Cells(linha3, 8) = "X"
Cells(linha3, 9) = "X"
Cells(linha3, 10) = "X"
Cells(linha3, 11) = "X"
Cells(linha3, 13) = "X (ferromagnéticos)"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Sheet Lamination" And Cells(linha, 4) = "2" Then
Cells(Linha4, 6) = "X (Externas)"
Cells(Linha4, 7) = "X"
Cells(Linha4, 8) = "X"
Cells(Linha4, 9) = "X"
Cells(Linha4, 12) = "X (Externas)"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Sheet Lamination" And Cells(linha, 4) = "2" Then
Cells(Linha5, 9) = "X"
Cells(Linha5, 10) = "X"
Cells(Linha5, 11) = "X"
Cells(Linha5, 12) = "X"
End If
'Fim Da Complexidade 2 - Metálicos
'Complexidade 3 - Metálicos
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Sheet Lamination" And Cells(linha, 4) = "3" Then '<------------- Condição, variável linha e a respetiva coluna da folha
Cells(linha, 5) = "Microfissuras Superficiais"
Cells(linha2, 5) = "Microfissuras Internas"
Cells(linha3, 5) = "Microporosidades(Internas)"
Cells(Linha4, 5) = "Inclusões"
Cells(Linha5, 5) = "Oxidação"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Sheet Lamination" And Cells(linha, 4) = "3" Then
Cells(linha, 6) = "X"
Cells(linha, 8) = "X"
Cells(linha, 9) = "X"
Cells(linha, 10) = "X (Perpendiculares)"
Cells(linha, 11) = "X"
Cells(linha, 12) = "X"
Cells(linha, 13) = "X (ferromagnéticos)"
Cells(linha, 14) = "X"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Sheet Lamination" And Cells(linha, 4) = "3" Then
Cells(linha2, 7) = "X"
Cells(linha2, 8) = "X"
Cells(linha2, 9) = "X"
Cells(linha2, 10) = "X (Perpendiculares)"
Cells(linha2, 11) = "X"
Cells(linha2, 13) = "X (ferromagnéticos)"
Cells(linha2, 14) = "X"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Sheet Lamination" And Cells(linha, 4) = "3" Then
Cells(linha3, 7) = "X"
Cells(linha3, 8) = "X"
Cells(linha3, 9) = "X"
Cells(linha3, 10) = "X"
Cells(linha3, 11) = "X"
Cells(linha3, 13) = "X (ferromagnéticos)"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Sheet Lamination" And Cells(linha, 4) = "3" Then
Cells(Linha4, 6) = "X (Externas)"
Cells(Linha4, 7) = "X"
Cells(Linha4, 8) = "X"
Cells(Linha4, 9) = "X"
Cells(Linha4, 12) = "X (Externas)"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Sheet Lamination" And Cells(linha, 4) = "3" Then
Cells(Linha5, 9) = "X"
Cells(Linha5, 10) = "X"
Cells(Linha5, 11) = "X"
Cells(Linha5, 12) = "X"
End If
'Fim Da Complexidade 3 - Metálicos
'Complexidade 4 - Metálicos
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Sheet Lamination" And Cells(linha, 4) = "4" Then '<------------- Condição, variável linha e a respetiva coluna da folha
Cells(linha, 5) = "Microfissuras Superficiais"
Cells(linha2, 5) = "Microfissuras Internas"
Cells(linha3, 5) = "Microporosidades(Internas)"
Cells(Linha4, 5) = "Inclusões"
Cells(Linha5, 5) = "Oxidação"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Sheet Lamination" And Cells(linha, 4) = "4" Then
Cells(linha, 6) = "X"
Cells(linha, 8) = "X"
Cells(linha, 9) = "X"
Cells(linha, 10) = "X (Perpendiculares)"
Cells(linha, 11) = "X"
Cells(linha, 12) = "X"
Cells(linha, 13) = "X (ferromagnéticos)"
Cells(linha, 14) = "X"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Sheet Lamination" And Cells(linha, 4) = "4" Then
Cells(linha2, 7) = "X"
Cells(linha2, 8) = "X"
Cells(linha2, 9) = "X"
Cells(linha2, 10) = "X (Perpendiculares)"
Cells(linha2, 11) = "X"
Cells(linha2, 13) = "X (ferromagnéticos)"
Cells(linha2, 14) = "X"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Sheet Lamination" And Cells(linha, 4) = "4" Then
Cells(linha3, 7) = "X"
Cells(linha3, 8) = "X"
Cells(linha3, 9) = "X"
Cells(linha3, 10) = "X"
Cells(linha3, 11) = "X"
Cells(linha3, 13) = "X (ferromagnéticos)"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Sheet Lamination" And Cells(linha, 4) = "4" Then
Cells(Linha4, 6) = "X (Externas)"
Cells(Linha4, 7) = "X"
Cells(Linha4, 8) = "X"
Cells(Linha4, 9) = "X"
Cells(Linha4, 12) = "X (Externas)"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Sheet Lamination" And Cells(linha, 4) = "4" Then
Cells(Linha5, 9) = "X"
Cells(Linha5, 10) = "X"
Cells(Linha5, 11) = "X"
Cells(Linha5, 12) = "X"
End If
'Fim da Complexidade - Metálicos Sheet Lamination
'Inicio da Complexidade - Metálicos Material Jetting
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Material Jetting" And Cells(linha, 4) = "1" Then
Cells(linha, 6) = "X"
Cells(linha, 8) = "X"
Cells(linha, 9) = "X"
Cells(linha, 10) = "X (Perpendiculares)"
Cells(linha, 11) = "X"
Cells(linha, 12) = "X"
Cells(linha, 13) = "X (ferromagnéticos)"
Cells(linha, 14) = "X"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Material Jetting" And Cells(linha, 4) = "1" Then
Cells(linha2, 7) = "X"
Cells(linha2, 8) = "X"
Cells(linha2, 9) = "X"
Cells(linha2, 10) = "X (Perpendiculares)"
Cells(linha2, 11) = "X"
Cells(linha2, 13) = "X (ferromagnéticos)"
Cells(linha2, 14) = "X"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Material Jetting" And Cells(linha, 4) = "1" Then
Cells(linha3, 7) = "X"
Cells(linha3, 8) = "X"
Cells(linha3, 9) = "X"
Cells(linha3, 10) = "X"
Cells(linha3, 11) = "X"
Cells(linha3, 13) = "X (ferromagnéticos)"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Material Jetting" And Cells(linha, 4) = "1" Then
Cells(Linha4, 6) = "X (Externas)"
Cells(Linha4, 7) = "X"
Cells(Linha4, 8) = "X"
Cells(Linha4, 9) = "X"
Cells(Linha4, 12) = "X (Externas)"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Material Jetting" And Cells(linha, 4) = "1" Then
Cells(Linha5, 9) = "X"
Cells(Linha5, 10) = "X"
Cells(Linha5, 11) = "X"
Cells(Linha5, 12) = "X"
End If
'Complexidade 2 - Metálicos
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Material Jetting" And Cells(linha, 4) = "2" Then '<------------- Condição, variável linha e a respetiva coluna da folha
Cells(linha, 5) = "Microfissuras Superficiais"
Cells(linha2, 5) = "Microfissuras Internas"
Cells(linha3, 5) = "Microporosidades(Internas)"
Cells(Linha4, 5) = "Inclusões"
Cells(Linha5, 5) = "Oxidação"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Material Jetting" And Cells(linha, 4) = "2" Then
Cells(linha, 6) = "X"
Cells(linha, 8) = "X"
Cells(linha, 9) = "X"
Cells(linha, 10) = "X (Perpendiculares)"
Cells(linha, 11) = "X"
Cells(linha, 12) = "X"
Cells(linha, 13) = "X (ferromagnéticos)"
Cells(linha, 14) = "X"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Material Jetting" And Cells(linha, 4) = "2" Then
Cells(linha2, 7) = "X"
Cells(linha2, 8) = "X"
Cells(linha2, 9) = "X"
Cells(linha2, 10) = "X (Perpendiculares)"
Cells(linha2, 11) = "X"
Cells(linha2, 13) = "X (ferromagnéticos)"
Cells(linha2, 14) = "X"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Material Jetting" And Cells(linha, 4) = "2" Then
Cells(linha3, 7) = "X"
Cells(linha3, 8) = "X"
Cells(linha3, 9) = "X"
Cells(linha3, 10) = "X"
Cells(linha3, 11) = "X"
Cells(linha3, 13) = "X (ferromagnéticos)"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Material Jetting" And Cells(linha, 4) = "2" Then
Cells(Linha4, 6) = "X (Externas)"
Cells(Linha4, 7) = "X"
Cells(Linha4, 8) = "X"
Cells(Linha4, 9) = "X"
Cells(Linha4, 12) = "X (Externas)"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Material Jetting" And Cells(linha, 4) = "2" Then
Cells(Linha5, 9) = "X"
Cells(Linha5, 10) = "X"
Cells(Linha5, 11) = "X"
Cells(Linha5, 12) = "X"
End If
'Fim Da Complexidade 2 - Metálicos
'Complexidade 3 - Metálicos
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Material Jetting" And Cells(linha, 4) = "3" Then '<------------- Condição, variável linha e a respetiva coluna da folha
Cells(linha, 5) = "Microfissuras Superficiais"
Cells(linha2, 5) = "Microfissuras Internas"
Cells(linha3, 5) = "Microporosidades(Internas)"
Cells(Linha4, 5) = "Inclusões"
Cells(Linha5, 5) = "Oxidação"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Material Jetting" And Cells(linha, 4) = "3" Then
Cells(linha, 6) = "X"
Cells(linha, 8) = "X"
Cells(linha, 9) = "X"
Cells(linha, 10) = "X (Perpendiculares)"
Cells(linha, 11) = "X"
Cells(linha, 12) = "X"
Cells(linha, 13) = "X (ferromagnéticos)"
Cells(linha, 14) = "X"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Material Jetting" And Cells(linha, 4) = "3" Then
Cells(linha2, 7) = "X"
Cells(linha2, 8) = "X"
Cells(linha2, 9) = "X"
Cells(linha2, 10) = "X (Perpendiculares)"
Cells(linha2, 11) = "X"
Cells(linha2, 13) = "X (ferromagnéticos)"
Cells(linha2, 14) = "X"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Material Jetting" And Cells(linha, 4) = "3" Then
Cells(linha3, 7) = "X"
Cells(linha3, 8) = "X"
Cells(linha3, 9) = "X"
Cells(linha3, 10) = "X"
Cells(linha3, 11) = "X"
Cells(linha3, 13) = "X (ferromagnéticos)"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Material Jetting" And Cells(linha, 4) = "3" Then
Cells(Linha4, 6) = "X (Externas)"
Cells(Linha4, 7) = "X"
Cells(Linha4, 8) = "X"
Cells(Linha4, 9) = "X"
Cells(Linha4, 12) = "X (Externas)"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Material Jetting" And Cells(linha, 4) = "3" Then
Cells(Linha5, 9) = "X"
Cells(Linha5, 10) = "X"
Cells(Linha5, 11) = "X"
Cells(Linha5, 12) = "X"
End If
'Fim Da Complexidade 3 - Metálicos
'Complexidade 4 - Metálicos
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Material Jetting" And Cells(linha, 4) = "4" Then '<------------- Condição, variável linha e a respetiva coluna da folha
Cells(linha, 5) = "Microfissuras Superficiais"
Cells(linha2, 5) = "Microfissuras Internas"
Cells(linha3, 5) = "Microporosidades(Internas)"
Cells(Linha4, 5) = "Inclusões"
Cells(Linha5, 5) = "Oxidação"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Material Jetting" And Cells(linha, 4) = "4" Then
Cells(linha, 6) = "X"
Cells(linha, 8) = "X"
Cells(linha, 9) = "X"
Cells(linha, 10) = "X (Perpendiculares)"
Cells(linha, 11) = "X"
Cells(linha, 12) = "X"
Cells(linha, 13) = "X (ferromagnéticos)"
Cells(linha, 14) = "X"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Material Jetting" And Cells(linha, 4) = "4" Then
Cells(linha2, 7) = "X"
Cells(linha2, 8) = "X"
Cells(linha2, 9) = "X"
Cells(linha2, 10) = "X (Perpendiculares)"
Cells(linha2, 11) = "X"
Cells(linha2, 13) = "X (ferromagnéticos)"
Cells(linha2, 14) = "X"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Material Jetting" And Cells(linha, 4) = "4" Then
Cells(linha3, 7) = "X"
Cells(linha3, 8) = "X"
Cells(linha3, 9) = "X"
Cells(linha3, 10) = "X"
Cells(linha3, 11) = "X"
Cells(linha3, 13) = "X (ferromagnéticos)"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Material Jetting" And Cells(linha, 4) = "4" Then
Cells(Linha4, 6) = "X (Externas)"
Cells(Linha4, 7) = "X"
Cells(Linha4, 8) = "X"
Cells(Linha4, 9) = "X"
Cells(Linha4, 12) = "X (Externas)"
End If
If Cells(linha, 2) = "Metálicos" And Cells(linha, 3) = "Material Jetting" And Cells(linha, 4) = "4" Then
Cells(Linha5, 9) = "X"
Cells(Linha5, 10) = "X"
Cells(Linha5, 11) = "X"
Cells(Linha5, 12) = "X"
End If
'Fim da Complexidade - Metálicos Sheet Lamination
'Fim dos Materiais Metálicos
End Sub
Can someone help me getting code shorter or other option?