Notifications
Clear all

Macro para ao clicar em uma célula o valor seja copiado em o

5 Posts
2 Usuários
0 Reactions
824 Visualizações
(@malusalem)
Posts: 6
Active Member
Topic starter
 

Olá,

Tenho uma planilha semelhante ao modelo anexado. Preciso que quando uma pessoa veja na planilha "Sistema", qual será o sistema utilizado, ao clicar no nome, automaticamente este valor seja copiado na célula D14, da planilha "Sheet1" e que a "Sistema" volte a ficar escondido. Alguém pode me ajudar?

Segue o exemplo da planilha:
https://www.dropbox.com/s/ou30jtvs8y...plo_forum.xlsm

 
Postado : 06/05/2014 6:48 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Tente assim

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Range("A1:F100")) Is Nothing Then Exit Sub
    
    Cancel = True
    
    Worksheets("Sheet1").Range("D4") = Worksheets("Sheet1").Range("D4") & vbCrLf & Target.Value
    
End Sub

Insira esse código dentro do módulo de planilha.

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 06/05/2014 8:43 am
(@malusalem)
Posts: 6
Active Member
Topic starter
 

Muito obrigada pela dica.

Você poderia apenas me explicar a que se refere cada parte do código? Pois a planilha que coloquei era um exemplo, preciso colocar na planilha correta agora.

 
Postado : 06/05/2014 10:11 am
(@malusalem)
Posts: 6
Active Member
Topic starter
 

A solução que encontrei!

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

Application.ScreenUpdating = False

If ActiveCell.Column = 6 Or ActiveCell.Column = 13 Then

Sheets("Sheet1").Range("D14") = ActiveCell.Value

Sheets("Sistemas").Visible = False

End If

Application.ScreenUpdating = True

End Sub

 
Postado : 06/05/2014 1:25 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Conseguiu resolve?

Se sim, obrigado pelo retorno, marque seu tópico como resolvido!

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 06/05/2014 2:23 pm