locked
Erro no código RRS feed

  • Pergunta

  • Mais uma vez peço a vossa ajuda:

    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
    domingo, 13 de setembro de 2009 00:45

Todas as Respostas

  • Mande a planilha
    não cosegui simular

    wesley@jacto.com.br

    Wesley
    segunda-feira, 14 de setembro de 2009 14:05