Explicando_cada_Linha

[André Valente]

Bom galera eu tenho algo programado,não fui eu que programei mas eu preciso fazer o manual do que o cara programo...Exemplo a baixo, a parte que vem Sublinhada é o manualzinho do que eu fiz...Bom eu já fiz uma boa parte do Manual.Porém chego uma hora que eu não entendi o que o programdor quiz dizer,Eu vo passa para vocês se vocês puderem me ajudar, em uma linha que seja já estarão me ajudando muito...Obrigado

Private Sub ComboBox3_Change()

Proteger_Desproteger Plan5.Name, 0

If Plan5.Range("E11") = "Analógico" Then ' Plan5 -> na coluna E linha 11 , se estiver selecionado Analógico '

Range("B13:C13").Select ' A coluna B Linha 13 e a Coluna C Linha 13 estarão selecionadas '

Selection.Interior.ColorIndex = 2 ' A colunha B Linha 13 e a Coluna C Linha 13 mudarão a cor para branco quando o analógico estiver selecionado '

Range("E13:F13,H13,J13,L13").Select ' A coluna E Linha 13,Coluna F linha 13,Coluna H Linha 13,Coluna J Linha 13,Coluna L linha 13 estarão selecionados'

Selection.Interior.ColorIndex = 2 ' As colunas e linhas acimas estarão em cores brancas'

Selection.Locked = True ' Elas estarão bloqueadas,não podendo utilizalas pelo motivo do Analógico estar selecionado'

Selection.FormulaHidden = False

ElseIf Plan5.Range("E11") = "Digital" Then ' Plan5 -> Coluna E linha 11, se estiver selecionado Digital '

Range("B13:C13").Select ' A coluna B Linha 13 e a Coluna C Linha 13 estarão selecionadas'

Selection.Interior.ColorIndex = 15 ' A colunha B Linha 13 e a Coluna C Linha 13 mudarão a cor para roxo o quando o Digital estiver selecionado

Range("E13:F13,H13,J13,L13").Select ' A coluna E Linha 13,Coluna F linha 13,Coluna H Linha 13,Coluna J Linha 13,Coluna L linha 13 estarão selecionados'

Selection.Interior.ColorIndex = 35 ' As colunas e linhas acimas estarão em cores roxas'

Selection.Locked = False ' Elas estarão desbloqueadas, podendo serem utilizadas devido ao motivo de estar no Digital '

Selection.FormulaHidden = False

End If

Proteger_Desproteger Plan5.Name, 1

Plan5.Range("G11").Select

End Sub

---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Aqui embaixo está a minha duvida,o que quer dizer cada Linha??Espero q possam me ajuda!!!

Sub Mudanca_Unidade(cel_A, cel_B, cel_Escrever)

unidade_A = Plan5.Range(cel_A)

unidade_B = Plan5.Range(cel_B)

linha = 2

coluna = 2

Do While Plan1.Cells(linha, 1) <> ""

If Plan1.Cells(linha, 1) = unidade_A Then

linha_A = linha

Exit Do

End If

linha = linha + 1

Loop

Do While Plan1.Cells(1, coluna) <> ""

If Plan1.Cells(1, coluna) = unidade_B Then

coluna_B = coluna

Exit Do

End If

coluna = coluna + 1

Loop

Proteger_Desproteger Plan1.Name, 0

Plan1.Range(cel_Escrever) = Plan1.Cells(linha_A, coluna_B)

Proteger_Desproteger Plan1.Name, 1