Sziasztok!

 

 

 

Pár nappal ezelőtt már kaptam itt egy makrót, amit picit átalakítottam, és most egyébként remekül működik. De egy újabb funkciót is jó lenne, ha tudna, de nem tudok rájönni.

 

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

 

If Not Intersect(Target, Range("h8:h157,i8:i157,j8:j157,k8:k157,l8:l157")) Is Nothing Then
Target.Value = Cells(Target.Row, 4).Value

 

For i = 8 To 12
    If Target.Column <> i Then
        Cells(Target.Row, i).ClearContents
    End If
Next i
Cancel = True
End If

 

If Not Intersect(Target, Range("m8:m157,n8:n157,o8:o157,p8:p157,q8:q157")) Is Nothing Then
Target.Value = Cells(Target.Row, 5).Value
For i = 12 To 17
    If Target.Column <> i Then
        Cells(Target.Row, i).ClearContents
    End If
Next i
Cancel = True

 

End If

 

End Sub

 

Ez két különböző cella tartalmát másolja át két különböző helyre. Eddig rendben van.

  

Most azt szeretném, ha duplán kattintok a g8-ba, akkor 2 cella közül (d8 és e8), amelyikben érték van, azt másolja át a G8-ba. De ráadásul, ha a d8-ban van érték, akkor azt mínusz előjellel másolja át.

 

 

 

Előre is köszönöm, ha valaki segít.