1 resposta(s) nesse tópico

[leobh88]

Pessoal, tudo bem? estou com uma dúvida para realizar a seguinte macro....

Copiar determinadas células de determinada linha, em função de seu resultado, e colar na primeira linha disponivel da segunda planilha..

A planilha serve para registrar os motivos da perda de vendas e tem 13 colunas (B:N)... preciso que a pessoa ao clicar duas vezes na coluna N em determinada linha, a macro copie os campos da linha atual, nas colunas B,C,D, I e J e cole na planilha 2, na primeira linha em branco(deve ser sequencialmente, ex:colunas B,C,D,E,F).

Desde já muito obrigado pessoal!

Um abração!


Leandro

[osvaldomp]

Instale o código abaixo no módulo da planilha que contém os dados, assim:
1. copie o código daqui
2. clique com o direito na guia da planilha e escolha 'Exibir código'
3. cole o código na janela em branco que vai se abrir
4. feito! Alt+Q para retornar para a planilha e testar

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 14 Then Exit Sub
Cancel = True
Dim LR As Long
Application.ScreenUpdating = False
Union(Cells(Target.Row, 2).Resize(, 3), Cells(Target.Row, 9).Resize(, 2)).Copy
With Sheets("Plan2")
LR = .Cells(Rows.Count, 2).End(xlUp).Row
.Cells(LR + 1, 2).PasteSpecial
End With
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub