Excel VBA - Erro em tempo de execução '-2147417848 (80010108)':

Question

Boa tarde pessoal,

Tenho a seguinte linha de VBA em uma planilha Excel para auto preenchimento de duas células (Código e Descrição) onde ao preencher o Código  atualiza a Descrição e ao preencher a Descrição atualiza o código e nem sempre isto funciona e quando não funciona me dá a seguinte mensagem:

Ao depurar o erro ocorrido foi em:             Range("F10").Value = Range("BP10").Value

Existem duas células:

BP10 = Descrição do cliente que faz um Procv do Código do cliente (E10) no cadastro de clientes e joga em F10.=

BO10 = Código do cliente que faz uma Somase da descrição de clientes (F10) no cadastro do cliente e joga em E10

O código é o seguinte:    

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim Linha

    Dim Coluna

    Coluna = Target.Column

    Linha = Target.Row

    'Executa a ação se a celula E10 Cod.Cor estiver sido alterada

    If (Linha = 10 And Coluna = 5) Then

        If Range("E10").Value <> "" Then

            Range("F10").Value = Range("BP10").Value

        ElseIf Range("E10").Value = "" Then

            Range("F10").Value = ""

        End If

    'Executa a ação se a celula F10 Desc.Clinte estiver sido alterada

    ElseIf (Linha = 10 And Coluna = 6) Then

        If Range("F10").Value <> "" Then

            Range("E10").Value = Range("BO10").Value

        End If

End sub

Montei com os IFs para tentar tirar do Looping. Não sei se é forma correta onde se tiver uma mais simples agradeço a orientação, pois, em algumas vezes o excel fica com a mensagem na parte inferior esquerda com a descrição Calcula após a descrição Pronto.

O problema ocorre quando informo um dos campos e já teclo TAB para ir ao campo seguinte onde pode ser que não tenha dado tempo hábil para pesquisar a descrição com o Procv ou o código com o Somase. Neste erro acima foi após informar o Código.

Grato desde já pela ajuda!

Answer 1

O seu código corre risco altíssimo de cair em um laço infinito.

Veja bem: a rotina Worksheet_Change dispara não só quando você altera o valor de uma célula manualmente, mas também por VBA. Com isso, ao fazer a alteração de uma célula por VBA, a rotina Worksheet_Change será chamada de novo, várias (ou indefinidas vezes), causando comportamentos estranhos.

O recomendável é você usar a instrução

Application.EnableEvents = False

no início da sua rotina para desligar os eventos enquanto a rotina roda e

Application.EnableEvents = True

ao final da rotina para ligar novamente.

Atenção: se você desligar os eventos, sua rotina der um erro e você interromper a execução, o Excel se lembrará disso e você terá que executar a linha Application.EnableEvents = True para restabelecer os eventos novamente.

Answer 2

Tecnicamente, você colocou as instruções de código nos lugares certo.

O problema que vejo aqui agora é outro: você lotou de testes condições o evento Change da planilha. Isso não é recomendável, porque cada operação de alteração que você faz na sua planilha, por mais simples que seja, terá um overhead de execução danado.

No entanto, se isso te atende e serve assim, deixe assim mesmo.

Answer 3

Complementando ....

O que percebi é que em parte do código que atualiza células na sequência, ou seja, atualizo a linha 27 coluna 5 o código atualiza a linha 27 coluna 6 e esta atualiza a linha 27 coluna 7 e assim sucessivamente até a coluna 8 a atualização a partir da coluna 6 não atualizou mais automaticamente!

'Rotina de preencher as informações dos processos

    'Executa operação seq 01

    ElseIf (Linha = 27 And Coluna = 5) Then Range("F27").Value = Range("BF27").Value

    ElseIf (Linha = 27 And Coluna = 6) Then Range("G27").Value = Range("BG27").Value

    ElseIf (Linha = 27 And Coluna = 7) Then Range("H27").Value = Range("BH27").Value

    ElseIf (Linha = 27 And Coluna = 8) Then Range("I27").Value = Range("BI27").Value

Eu informo apenas o valor da Celula E27 e preciso atualizar todas as demais na sequencia, onde antes fazia e agora ele preenche apenas a celular F27 ((Linha = 27 And Coluna = 5) não preenchendo a G27((Linha = 27 And Coluna = 6), H27 ((Linha = 27 And Coluna = 7) e I27 ((Linha = 27 And Coluna = 8). 

Grato mais uma vez por sua ajuda e paciência com o leigo aqui! :)

Answer 4

Bom dia Grande Felipe!

Mil desculpas em não ter respondido antes, pois, estava com problemas de saúde!

Mestre desde já gostaria de agradecer muito sua ajuda e pedir desculpas pela minha "burrice", pois, como já destaquei sou novo no assunto e como sempre digo nada melhor para aprender que errando e mais espetacular ainda se existe um Expert para te ajudar a evitar futuros erros.

Sendo assim agradeço mais uma vez sua atenção, paciência, ajuda e expertise para  ajudar este leigo aqui!

Creio que resolvestes um grande problema que realmente estava me gerando algumas situações estranhas, mas para que eu tenha absoluta certeza de que fiz a coisa certa gostaria, se possível for, de abusar do professor mais um pouco assim como de sua paciência e tempo a postar meu código que é ativado quando células de minha planilha são preenchidas e vc dar seu aval se realmente coloquei no local correto o que me orientastes.

Na realidade eu postei inicialmente apenas uma pequena parte do código onde abaixo posto todo ele:

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim Linha   'As Integer

    Dim Coluna  'As Integer

    Coluna = Target.Column

    Linha = Target.Row

    Application.EnableEvents = False

'Ajustar os códigos se modificar a descrição

'----------------------------------------------------------------------------------

'ARTIGO

    'Executa a ação se a celula E7 Cod.Artigo se estiver sido alterada

    If (Linha = 7 And Coluna = 5) Then

        If Range("E7").Value <> "" Then

            Range("F7").Value = Range("BP7").Value

        ElseIf Range("E7").Value = "" Then

            Range("F7").Value = ""

        End If

    'Executa a ação se a celula F7 Desc.Artigo estiver sido alterada

    ElseIf (Linha = 7 And Coluna = 6) Then

        If Range("F7").Value <> "" Then

            Range("E7").Value = Range("BO7").Value

        End If

'-------------------------------------------------------------------------------

'COR

    'Executa a ação se a celula G7 Cod.Cor estiver sido alterada

    ElseIf (Linha = 7 And Coluna = 7) Then

        If Range("G7").Value <> "" Then

            Range("H7").Value = Range("BP8").Value

        ElseIf Range("G7").Value = "" Then

            Range("H7").Value = ""

        End If

    'Executa a ação se a celula H7 Desc.Cor estiver sido alterada

    ElseIf (Linha = 7 And Coluna = 8) Then

        If Range("H7").Value <> "" Then

            Range("G7").Value = Range("BO8").Value

        End If

'-------------------------------------------------------------------------------

'FASE

    'Executa a ação se a celula G7 Desc.Cor estiver sido alterada

    ElseIf (Linha = 7 And Coluna = 11) Then

        If Range("K7").Value <> "" Then

            Range("L7").Value = Range("BP9").Value

        ElseIf Range("K7").Value = "" Then

            Range("L7").Value = ""

        End If

    'Executa a ação se a celula H7 Cod.Cor estiver sido alterada

    ElseIf (Linha = 7 And Coluna = 12) Then

        If Range("L7").Value <> "" Then

            Range("K7").Value = Range("BO9").Value

        End If

'-------------------------------------------------------------------------------

'CLIENTE

    'Executa a ação se a celula E10 Cod.Cor estiver sido alterada

    ElseIf (Linha = 10 And Coluna = 5) Then

        If Range("E10").Value <> "" Then

            Range("F10").Value = Range("BP10").Value

        ElseIf Range("E10").Value = "" Then

            Range("F10").Value = ""

        End If

    'Executa a ação se a celula F10 Desc.Clinte estiver sido alterada

    ElseIf (Linha = 10 And Coluna = 6) Then

        If Range("F10").Value <> "" Then

            Range("E10").Value = Range("BO10").Value

        End If

'-------------------------------------------------------------------------------

'Executa a ação se a celula H10 Espessura Final estiver sido alterada

    ElseIf (Linha = 10 And Coluna = 8) Then

        If Worksheets("Ficha_Tecnica").Cells(2, 64) = 1 And Worksheets("Ficha_Tecnica").Cells(1, 57) = 1 Then

                Call Importar_FT

        ElseIf Worksheets("Ficha_Tecnica").Cells(2, 64) = 2 And Worksheets("Ficha_Tecnica").Cells(1, 57) = 1 Then

                Call Importar_FT

        End If

'-------------------------------------------------------------------------------

'Rotina de preender as informações dos processos

    'Executa operação seq 01

    ElseIf (Linha = 27 And Coluna = 5) Then Range("F27").Value = Range("BF27").Value

    ElseIf (Linha = 27 And Coluna = 6) Then Range("G27").Value = Range("BG27").Value

    ElseIf (Linha = 27 And Coluna = 7) Then Range("H27").Value = Range("BH27").Value

    ElseIf (Linha = 27 And Coluna = 8) Then Range("I27").Value = Range("BI27").Value

    'Executa operação seq 02

    ElseIf (Linha = 28 And Coluna = 5) Then Range("F28").Value = Range("BF28").Value

    ElseIf (Linha = 28 And Coluna = 6) Then Range("G28").Value = Range("BG28").Value

    ElseIf (Linha = 28 And Coluna = 7) Then Range("H28").Value = Range("BH28").Value

    ElseIf (Linha = 28 And Coluna = 8) Then Range("I28").Value = Range("BI28").Value

    'Executa operação seq 03

    ElseIf (Linha = 29 And Coluna = 5) Then Range("F29").Value = Range("BF29").Value

    ElseIf (Linha = 29 And Coluna = 6) Then Range("G29").Value = Range("BG29").Value

    ElseIf (Linha = 29 And Coluna = 7) Then Range("H29").Value = Range("BH29").Value

    ElseIf (Linha = 29 And Coluna = 8) Then Range("I29").Value = Range("BI29").Value

    'Executa operação seq 04

    ElseIf (Linha = 30 And Coluna = 5) Then Range("F30").Value = Range("BF30").Value

    ElseIf (Linha = 30 And Coluna = 6) Then Range("G30").Value = Range("BG30").Value

    ElseIf (Linha = 30 And Coluna = 7) Then Range("H30").Value = Range("BH30").Value

    ElseIf (Linha = 30 And Coluna = 8) Then Range("I30").Value = Range("BI30").Value

    'Executa operação seq 05

    ElseIf (Linha = 31 And Coluna = 5) Then Range("F31").Value = Range("BF31").Value

    ElseIf (Linha = 31 And Coluna = 6) Then Range("G31").Value = Range("BG31").Value

    ElseIf (Linha = 31 And Coluna = 7) Then Range("H31").Value = Range("BH31").Value

    ElseIf (Linha = 31 And Coluna = 8) Then Range("I31").Value = Range("BI31").Value

    'Executa operação seq 06

    ElseIf (Linha = 32 And Coluna = 5) Then Range("F32").Value = Range("BF32").Value

    ElseIf (Linha = 32 And Coluna = 6) Then Range("G32").Value = Range("BG32").Value

    ElseIf (Linha = 32 And Coluna = 7) Then Range("H32").Value = Range("BH32").Value

    ElseIf (Linha = 32 And Coluna = 8) Then Range("I32").Value = Range("BI32").Value

    'Executa operação seq 07

    ElseIf (Linha = 33 And Coluna = 5) Then Range("F33").Value = Range("BF33").Value

    ElseIf (Linha = 33 And Coluna = 6) Then Range("G33").Value = Range("BG33").Value

    ElseIf (Linha = 33 And Coluna = 7) Then Range("H33").Value = Range("BH33").Value

    ElseIf (Linha = 33 And Coluna = 8) Then Range("I33").Value = Range("BI33").Value

    'Executa operação seq 08

    ElseIf (Linha = 34 And Coluna = 5) Then Range("F34").Value = Range("BF34").Value

    ElseIf (Linha = 34 And Coluna = 6) Then Range("G34").Value = Range("BG34").Value

    ElseIf (Linha = 34 And Coluna = 7) Then Range("H34").Value = Range("BH34").Value

    ElseIf (Linha = 34 And Coluna = 8) Then Range("I34").Value = Range("BI34").Value

    'Executa operação seq 09

    ElseIf (Linha = 35 And Coluna = 5) Then Range("F35").Value = Range("BF35").Value

    ElseIf (Linha = 35 And Coluna = 6) Then Range("G35").Value = Range("BG35").Value

    ElseIf (Linha = 35 And Coluna = 7) Then Range("H35").Value = Range("BH35").Value

    ElseIf (Linha = 35 And Coluna = 8) Then Range("I35").Value = Range("BI35").Value

    'Executa operação seq 10

    ElseIf (Linha = 36 And Coluna = 5) Then Range("F36").Value = Range("BF36").Value

    ElseIf (Linha = 36 And Coluna = 6) Then Range("G36").Value = Range("BG36").Value

    ElseIf (Linha = 36 And Coluna = 7) Then Range("H36").Value = Range("BH36").Value

    ElseIf (Linha = 36 And Coluna = 8) Then Range("I36").Value = Range("BI36").Value

    'Executa operação seq 11

    ElseIf (Linha = 37 And Coluna = 5) Then Range("F37").Value = Range("BF37").Value

    ElseIf (Linha = 37 And Coluna = 6) Then Range("G37").Value = Range("BG37").Value

    ElseIf (Linha = 37 And Coluna = 7) Then Range("H37").Value = Range("BH37").Value

    ElseIf (Linha = 37 And Coluna = 8) Then Range("I37").Value = Range("BI37").Value

    'Executa operação seq 12

    ElseIf (Linha = 38 And Coluna = 5) Then Range("F38").Value = Range("BF38").Value

    ElseIf (Linha = 38 And Coluna = 6) Then Range("G38").Value = Range("BG38").Value

    ElseIf (Linha = 38 And Coluna = 7) Then Range("H38").Value = Range("BH38").Value

    ElseIf (Linha = 38 And Coluna = 8) Then Range("I38").Value = Range("BI38").Value

    'Executa operação seq 13

    ElseIf (Linha = 39 And Coluna = 5) Then Range("F39").Value = Range("BF39").Value

    ElseIf (Linha = 39 And Coluna = 6) Then Range("G39").Value = Range("BG39").Value

    ElseIf (Linha = 39 And Coluna = 7) Then Range("H39").Value = Range("BH39").Value

    ElseIf (Linha = 39 And Coluna = 8) Then Range("I39").Value = Range("BI39").Value

    'Executa operação seq 14

    ElseIf (Linha = 40 And Coluna = 5) Then Range("F40").Value = Range("BF40").Value

    ElseIf (Linha = 40 And Coluna = 6) Then Range("G40").Value = Range("BG40").Value

    ElseIf (Linha = 40 And Coluna = 7) Then Range("H40").Value = Range("BH40").Value

    ElseIf (Linha = 40 And Coluna = 8) Then Range("I40").Value = Range("BI40").Value

    'Executa operação seq 15

    ElseIf (Linha = 41 And Coluna = 5) Then Range("F41").Value = Range("BF41").Value

    ElseIf (Linha = 41 And Coluna = 6) Then Range("G41").Value = Range("BG41").Value

    ElseIf (Linha = 41 And Coluna = 7) Then Range("H41").Value = Range("BH41").Value

    ElseIf (Linha = 41 And Coluna = 8) Then Range("I41").Value = Range("BI41").Value

    'Executa operação seq 16

    ElseIf (Linha = 42 And Coluna = 5) Then Range("F42").Value = Range("BF42").Value

    ElseIf (Linha = 42 And Coluna = 6) Then Range("G42").Value = Range("BG42").Value

    ElseIf (Linha = 42 And Coluna = 7) Then Range("H42").Value = Range("BH42").Value

    ElseIf (Linha = 42 And Coluna = 8) Then Range("I42").Value = Range("BI42").Value

    'Executa operação seq 17

    ElseIf (Linha = 43 And Coluna = 5) Then Range("F43").Value = Range("BF43").Value

    ElseIf (Linha = 43 And Coluna = 6) Then Range("G43").Value = Range("BG43").Value

    ElseIf (Linha = 43 And Coluna = 7) Then Range("H43").Value = Range("BH43").Value

    ElseIf (Linha = 43 And Coluna = 8) Then Range("I43").Value = Range("BI43").Value

    'Executa operação seq 18

    ElseIf (Linha = 44 And Coluna = 5) Then Range("F44").Value = Range("BF44").Value

    ElseIf (Linha = 44 And Coluna = 6) Then Range("G44").Value = Range("BG44").Value

    ElseIf (Linha = 44 And Coluna = 7) Then Range("H44").Value = Range("BH44").Value

    ElseIf (Linha = 44 And Coluna = 8) Then Range("I44").Value = Range("BI44").Value

    'Executa operação seq 19

    ElseIf (Linha = 45 And Coluna = 5) Then Range("F45").Value = Range("BF45").Value

    ElseIf (Linha = 45 And Coluna = 6) Then Range("G45").Value = Range("BG45").Value

    ElseIf (Linha = 45 And Coluna = 7) Then Range("H45").Value = Range("BH45").Value

    ElseIf (Linha = 45 And Coluna = 8) Then Range("I45").Value = Range("BI45").Value

    'Executa operação seq 20

    ElseIf (Linha = 46 And Coluna = 5) Then Range("F46").Value = Range("BF46").Value

    ElseIf (Linha = 46 And Coluna = 6) Then Range("G46").Value = Range("BG46").Value

    ElseIf (Linha = 46 And Coluna = 7) Then Range("H46").Value = Range("BH46").Value

    ElseIf (Linha = 46 And Coluna = 8) Then Range("I46").Value = Range("BI46").Value

    'Executa operação seq 21

    ElseIf (Linha = 47 And Coluna = 5) Then Range("F47").Value = Range("BF47").Value

    ElseIf (Linha = 47 And Coluna = 6) Then Range("G47").Value = Range("BG47").Value

    ElseIf (Linha = 47 And Coluna = 7) Then Range("H47").Value = Range("BH47").Value

    ElseIf (Linha = 47 And Coluna = 8) Then Range("I47").Value = Range("BI47").Value

    'Executa operação seq 22

    ElseIf (Linha = 48 And Coluna = 5) Then Range("F48").Value = Range("BF48").Value

    ElseIf (Linha = 48 And Coluna = 6) Then Range("G48").Value = Range("BG48").Value

    ElseIf (Linha = 48 And Coluna = 7) Then Range("H48").Value = Range("BH48").Value

    ElseIf (Linha = 48 And Coluna = 8) Then Range("I48").Value = Range("BI48").Value

    'Executa operação seq 23

    ElseIf (Linha = 49 And Coluna = 5) Then Range("F49").Value = Range("BF49").Value

    ElseIf (Linha = 49 And Coluna = 6) Then Range("G49").Value = Range("BG49").Value

    ElseIf (Linha = 49 And Coluna = 7) Then Range("H49").Value = Range("BH49").Value

    ElseIf (Linha = 49 And Coluna = 8) Then Range("I49").Value = Range("BI49").Value

    'Executa operação seq 24

    ElseIf (Linha = 50 And Coluna = 5) Then Range("F50").Value = Range("BF50").Value

    ElseIf (Linha = 50 And Coluna = 6) Then Range("G50").Value = Range("BG50").Value

    ElseIf (Linha = 50 And Coluna = 7) Then Range("H50").Value = Range("BH50").Value

    ElseIf (Linha = 50 And Coluna = 8) Then Range("I50").Value = Range("BI50").Value

    'Executa operação seq 25

    ElseIf (Linha = 51 And Coluna = 5) Then Range("F51").Value = Range("BF51").Value

    ElseIf (Linha = 51 And Coluna = 6) Then Range("G51").Value = Range("BG51").Value

    ElseIf (Linha = 51 And Coluna = 7) Then Range("H51").Value = Range("BH51").Value

    ElseIf (Linha = 51 And Coluna = 8) Then Range("I51").Value = Range("BI51").Value

    'Executa operação seq 26

    ElseIf (Linha = 52 And Coluna = 5) Then Range("F52").Value = Range("BF52").Value

    ElseIf (Linha = 52 And Coluna = 6) Then Range("G52").Value = Range("BG52").Value

    ElseIf (Linha = 52 And Coluna = 7) Then Range("H52").Value = Range("BH52").Value

    ElseIf (Linha = 52 And Coluna = 8) Then Range("I52").Value = Range("BI52").Value

    'Executa operação seq 27

    ElseIf (Linha = 53 And Coluna = 5) Then Range("F53").Value = Range("BF53").Value

    ElseIf (Linha = 53 And Coluna = 6) Then Range("G53").Value = Range("BG53").Value

    ElseIf (Linha = 53 And Coluna = 7) Then Range("H53").Value = Range("BH53").Value

    ElseIf (Linha = 53 And Coluna = 8) Then Range("I53").Value = Range("BI53").Value

    'Executa operação seq 28

    ElseIf (Linha = 54 And Coluna = 5) Then Range("F54").Value = Range("BF54").Value

    ElseIf (Linha = 54 And Coluna = 6) Then Range("G54").Value = Range("BG54").Value

    ElseIf (Linha = 54 And Coluna = 7) Then Range("H54").Value = Range("BH54").Value

    ElseIf (Linha = 54 And Coluna = 8) Then Range("I54").Value = Range("BI54").Value

    'Executa operação seq 29

    ElseIf (Linha = 55 And Coluna = 5) Then Range("F55").Value = Range("BF55").Value

    ElseIf (Linha = 55 And Coluna = 6) Then Range("G55").Value = Range("BG55").Value

    ElseIf (Linha = 55 And Coluna = 7) Then Range("H55").Value = Range("BH55").Value

    ElseIf (Linha = 55 And Coluna = 8) Then Range("I55").Value = Range("BI55").Value

    'Executa operação seq 30

    ElseIf (Linha = 56 And Coluna = 5) Then Range("F56").Value = Range("BF56").Value

    ElseIf (Linha = 56 And Coluna = 6) Then Range("G56").Value = Range("BG56").Value

    ElseIf (Linha = 56 And Coluna = 7) Then Range("H56").Value = Range("BH56").Value

    ElseIf (Linha = 56 And Coluna = 8) Then Range("I56").Value = Range("BI56").Value

    'Executa operação seq 31

    ElseIf (Linha = 57 And Coluna = 5) Then Range("F57").Value = Range("BF57").Value

    ElseIf (Linha = 57 And Coluna = 6) Then Range("G57").Value = Range("BG57").Value

    ElseIf (Linha = 57 And Coluna = 7) Then Range("H57").Value = Range("BH57").Value

    ElseIf (Linha = 57 And Coluna = 8) Then Range("I57").Value = Range("BI57").Value

    'Executa operação seq 32

    ElseIf (Linha = 58 And Coluna = 5) Then Range("F58").Value = Range("BF58").Value

    ElseIf (Linha = 58 And Coluna = 6) Then Range("G58").Value = Range("BG58").Value

    ElseIf (Linha = 58 And Coluna = 7) Then Range("H58").Value = Range("BH58").Value

    ElseIf (Linha = 58 And Coluna = 8) Then Range("I58").Value = Range("BI58").Value

    'Executa operação seq 33

    ElseIf (Linha = 59 And Coluna = 5) Then Range("F59").Value = Range("BF59").Value

    ElseIf (Linha = 59 And Coluna = 6) Then Range("G59").Value = Range("BG59").Value

    ElseIf (Linha = 59 And Coluna = 7) Then Range("H59").Value = Range("BH59").Value

    ElseIf (Linha = 59 And Coluna = 8) Then Range("I59").Value = Range("BI59").Value

    'Executa operação seq 34

    ElseIf (Linha = 60 And Coluna = 5) Then Range("F60").Value = Range("BF60").Value

    ElseIf (Linha = 60 And Coluna = 6) Then Range("G60").Value = Range("BG60").Value

    ElseIf (Linha = 60 And Coluna = 7) Then Range("H60").Value = Range("BH60").Value

    ElseIf (Linha = 60 And Coluna = 8) Then Range("I60").Value = Range("BI60").Value

    'Executa operação seq 35

    ElseIf (Linha = 61 And Coluna = 5) Then Range("F61").Value = Range("BF61").Value

    ElseIf (Linha = 61 And Coluna = 6) Then Range("G61").Value = Range("BG61").Value

    ElseIf (Linha = 61 And Coluna = 7) Then Range("H61").Value = Range("BH61").Value

    ElseIf (Linha = 61 And Coluna = 8) Then Range("I61").Value = Range("BI61").Value

    'Executa operação seq 36

    ElseIf (Linha = 62 And Coluna = 5) Then Range("F62").Value = Range("BF62").Value

    ElseIf (Linha = 62 And Coluna = 6) Then Range("G62").Value = Range("BG62").Value

    ElseIf (Linha = 62 And Coluna = 7) Then Range("H62").Value = Range("BH62").Value

    ElseIf (Linha = 62 And Coluna = 8) Then Range("I62").Value = Range("BI62").Value

    'Executa operação seq 37

    ElseIf (Linha = 63 And Coluna = 5) Then Range("F63").Value = Range("BF63").Value

    ElseIf (Linha = 63 And Coluna = 6) Then Range("G63").Value = Range("BG63").Value

    ElseIf (Linha = 63 And Coluna = 7) Then Range("H63").Value = Range("BH63").Value

    ElseIf (Linha = 63 And Coluna = 8) Then Range("I63").Value = Range("BI63").Value

    'Executa operação seq 38

    ElseIf (Linha = 64 And Coluna = 5) Then Range("F64").Value = Range("BF64").Value

    ElseIf (Linha = 64 And Coluna = 6) Then Range("G64").Value = Range("BG64").Value

    ElseIf (Linha = 64 And Coluna = 7) Then Range("H64").Value = Range("BH64").Value

    ElseIf (Linha = 64 And Coluna = 8) Then Range("I64").Value = Range("BI64").Value

    'Executa operação seq 39

    ElseIf (Linha = 65 And Coluna = 5) Then Range("F65").Value = Range("BF65").Value

    ElseIf (Linha = 65 And Coluna = 6) Then Range("G65").Value = Range("BG65").Value

    ElseIf (Linha = 65 And Coluna = 7) Then Range("H65").Value = Range("BH65").Value

    ElseIf (Linha = 65 And Coluna = 8) Then Range("I65").Value = Range("BI65").Value

    'Executa operação seq 40

    ElseIf (Linha = 66 And Coluna = 5) Then Range("F66").Value = Range("BF66").Value

    ElseIf (Linha = 66 And Coluna = 6) Then Range("G66").Value = Range("BG66").Value

    ElseIf (Linha = 66 And Coluna = 7) Then Range("H66").Value = Range("BH66").Value

    ElseIf (Linha = 66 And Coluna = 8) Then Range("I66").Value = Range("BI66").Value

    'Executa operação seq 41

    ElseIf (Linha = 67 And Coluna = 5) Then Range("F67").Value = Range("BF67").Value

    ElseIf (Linha = 67 And Coluna = 6) Then Range("G67").Value = Range("BG67").Value

    ElseIf (Linha = 67 And Coluna = 7) Then Range("H67").Value = Range("BH67").Value

    ElseIf (Linha = 67 And Coluna = 8) Then Range("I67").Value = Range("BI67").Value

    'Executa operação seq 42

    ElseIf (Linha = 68 And Coluna = 5) Then Range("F68").Value = Range("BF68").Value

    ElseIf (Linha = 68 And Coluna = 6) Then Range("G68").Value = Range("BG68").Value

    ElseIf (Linha = 68 And Coluna = 7) Then Range("H68").Value = Range("BH68").Value

    ElseIf (Linha = 68 And Coluna = 8) Then Range("I68").Value = Range("BI68").Value

    'Executa operação seq 43

    ElseIf (Linha = 69 And Coluna = 5) Then Range("F69").Value = Range("BF69").Value

    ElseIf (Linha = 69 And Coluna = 6) Then Range("G69").Value = Range("BG69").Value

    ElseIf (Linha = 69 And Coluna = 7) Then Range("H69").Value = Range("BH69").Value

    ElseIf (Linha = 69 And Coluna = 8) Then Range("I69").Value = Range("BI69").Value

    'Executa operação seq 44

    ElseIf (Linha = 70 And Coluna = 5) Then Range("F70").Value = Range("BF70").Value

    ElseIf (Linha = 70 And Coluna = 6) Then Range("G70").Value = Range("BG70").Value

    ElseIf (Linha = 70 And Coluna = 7) Then Range("H70").Value = Range("BH70").Value

    ElseIf (Linha = 70 And Coluna = 8) Then Range("I70").Value = Range("BI70").Value

    'Executa operação seq 45

    ElseIf (Linha = 71 And Coluna = 5) Then Range("F71").Value = Range("BF71").Value

    ElseIf (Linha = 71 And Coluna = 6) Then Range("G71").Value = Range("BG71").Value

    ElseIf (Linha = 71 And Coluna = 7) Then Range("H71").Value = Range("BH71").Value

    ElseIf (Linha = 71 And Coluna = 8) Then Range("I71").Value = Range("BI71").Value

    'Executa operação seq 46

    ElseIf (Linha = 72 And Coluna = 5) Then Range("F72").Value = Range("BF72").Value

    ElseIf (Linha = 72 And Coluna = 6) Then Range("G72").Value = Range("BG72").Value

    ElseIf (Linha = 72 And Coluna = 7) Then Range("H72").Value = Range("BH72").Value

    ElseIf (Linha = 72 And Coluna = 8) Then Range("I72").Value = Range("BI72").Value

    End If

    Application.EnableEvents = True

End Sub

Desde já agradeço e muito sua especial atenção!

Grande abraço!