EXCELer

Se pretendermos copiar o conteúdo de determinadas células contidas numa linha para outra Sheet e para células diferentes, como no exemplo:



O resultado:



Podemos utilizar a chamada OffSet Property.

Nota1: Para copiar o conteúdo da linha pretendida da Sheet1 para a Sheet2, faz-se um duplo clic na célula da coluna A cuja linha queremos copiar
Nota2: Para colocar o Código VBA, clicar no tabulador da Sheet1 com o botão direito do rato e escolher View Code

O Código:

'---------------------------------------------------------------------------------------
' Procedure : Worksheet_BeforeDoubleClick
' DateTime  : 18-10-2006 15:25
' Author    : JRod
' Purpose   : Copiar conteúdo de células da Sheet1 para células diferentes da Sheet2
'---------------------------------------------------------------------------------------
'
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    Set rng1 = ActiveCell
    Set rng2 = rng1.Offset(0, 1)
    Set rng3 = rng1.Offset(0, 2)
    Set rng4 = rng1.Offset(0, 3)

    rng1.Copy Destination:=Worksheets("Sheet2").Range("D4:E4")
    rng2.Copy Destination:=Worksheets("Sheet2").Range("G4:H4")
    rng3.Copy Destination:=Worksheets("Sheet2").Range("C4")
    rng4.Copy Destination:=Worksheets("Sheet2").Range("C7:D7")

    Range("A1").Select
    
End Sub

Tópicos relacionados

 OffSet Property
 CurrentRegion Property