Estou a criar um projecto no qual coloco o código abaixo:
Private Sub Worksheet_Change(ByVal Target As Range) 'Testar se foi introduzido um valor na coluna E If Target.Column = 5 Then 'Testar se o valor inserido é uma data If IsNumeric(Target.Value) Then 'Determinar a linha da planilha Base2 que receberá as informações de Base1 InsertRow = Folha2.Cells(Rows.Count, 1).End(xlUp).Row + 1 'Mover o intervalo da coluna A até a coluna E de Base1 para a primeira 'célula vazia da coluna A de Base2 Range(Cells(Target.Row, 1), Cells(Target.Row, 5)).Copy Folha2.Cells(InsertRow, 1) End If End If 'Testar se foi introduzido um valor na coluna J If Target.Column = 10 Then 'Testar se o valor inserido é uma data If IsNumeric(Target.Value) Then 'Determinar a linha da planilha Base3 que receberá as informações de Base1 InsertRow = Folha3.Cells(Rows.Count, 1).End(xlUp).Row + 1 'Mover o intervalo da coluna F até a coluna J de Base1 para a primeira 'célula vazia da coluna A de Base3 Range(Cells(Target.Row, 6), Cells(Target.Row, 10)).Copy Folha3.Cells(InsertRow, 1) End If End If 'Testar se foi introduzido um valor na coluna O If Target.Column = 15 Then 'Testar se o valor inserido é uma data If IsNumeric(Target.Value) Then 'Determinar a linha da planilha Base4 que receberá as informações de Base1 InsertRow = Folha4.Cells(Rows.Count, 1).End(xlUp).Row + 1 'Mover o intervalo da coluna K até a coluna O de Base1 para a primeira 'célula vazia da coluna A de Base4 Range(Cells(Target.Row, 11), Cells(Target.Row, 15)).Copy Folha4.Cells(InsertRow, 1) End If End If 'Testar se foi introduzido um valor na coluna W If Target.Column = 23 Then 'Testar se o valor inserido é uma data If IsDate(Target.Value) Then 'Determinar a linha da planilha Base5 que receberá as informações de Base1 InsertRow = Folha5.Cells(Rows.Count, 1).End(xlUp).Row + 1 'Mover o intervalo da coluna P até a coluna W de Base1 para a primeira 'célula vazia da coluna A de Base5 Range(Cells(Target.Row, 16), Cells(Target.Row, 23)).Copy Folha5.Cells(InsertRow, 1) End If End If End Sub
O que acontece é que o último procedimento ñ faz a cópia dos valores. Todos os outros funionam perfeitamente. O Último ñ entendo porque ñ funciona. Alguém me pode ajudar a corrigir o erro ? Obrigado. []s