Excel BeforeDobleClick para selecionar mais de uma célula na mesma linha

[MAOliv]

Pessoal,  sou novo por aqui... 

Seguinte:  preciso selecionar uma célula que contenha uma dado na coluna C e colar o dado em outra aba da mesma pasta de trabalho com um duplo click.  Entretanto  preciso que,  ao selecionar a célula target, "puxe" outras células que estão na mesma linha... vejam se tem sentido o que eu escrevi:

Sub Worksheet_beforeDoubleClick(ByVal as Range, cancel as Boolean)

If target.column <> 3 Or target.count > 1  then Exit Sub

Planilha6.Range("d4").value = target.value

target.offset(,3) = Sheets("destino").cells(6,6)

target.offset(,4) = sheets("destino").cells(5,6)

end if



end sub

 

Não estou conseguindo executar o código... poderiam me ajudar?

 

obrigado...

 

[CasaDoHardware]

Não entendi!

você quer clicar em uma celula de determinada linha e copiar a linha inteira para outra aba é isso?

[MAOliv]

Não, não!  gostaria de clicar em uma determinada célula e,  além dela, copiar outras 2 células que estão na mesma linha, entretanto em colunas diferentes.

[Jimmy 2]

Não sei se é bem isso que você quer, pois não entendi bem sua explicação. Estou fazendo apenas uma tentativa.

 

Fiz uma macro que faz o seguinte:

A) Você seleciona uma célula da Plan1, apenas para indicar em que linha os dados a serem copiados estão.

Você seleciona a planilha Plan2

C) Dá um duplo-click uma única célula da coluna C, na linha para onde quer copiar as informações vindas de Plan1.

D) A macro copia da Plan1, da linha que tem a célula selecionada, os dados das colunas J, M e Y.

E) Copia esses valores para a Plan2, para a linha onde foi dado o duplo-clique, para as colunas E, G e I.

 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    If Target.Column <> 3 Or Target.Count > 1 Then Exit Sub

   

    Sheets("Plan1").Select:  LinOri = ActiveCell.Row 'Linha na planilha ORIgem

    Sheets("Plan2").Select:  LinDes = ActiveCell.Row 'Linha na planilha DEStino

   

    Range("E" & LinDes).Value = Sheets("Plan1").Range("J" & LinOri).Value

    Range("G" & LinDes).Value = Sheets("Plan1").Range("M" & LinOri).Value

    Range("I" & LinDes).Value = Sheets("Plan1").Range("Y" & LinOri).Value

End Sub

 

Escolhi colunas aleatórias. Adapte para a sua necessidade.

 

Jimmy San Juan

[MAOliv]

Funcionou Jimmy!  Muito obrigado!