[COLOR=blue]Private Sub[/COLOR] Worksheet_BeforeDoubleClick([COLOR=blue]ByVal[/COLOR] Target [COLOR=blue]As[/COLOR] Range, Cancel [COLOR=blue]As Boolean[/COLOR])
[COLOR=blue]If[/COLOR] Intersect(Target, Range(Cells(3, 2), Cells(3, Cells(3, Columns.Count).End(xlToLeft).Column))) [COLOR=blue]Is Nothing Then Exit Sub[/COLOR]
Cancel = [COLOR=blue]True[/COLOR]
[COLOR=blue]Dim[/COLOR] f [COLOR=blue]As[/COLOR] Worksheet, Col%, i&, Tablo(), Tablo2()
[COLOR=blue]ReDim[/COLOR] Tablo(1 [COLOR=blue]To[/COLOR] Sheets.Count - 1, 1 [COLOR=blue]To[/COLOR] 3)
[COLOR=blue]ReDim[/COLOR] Tablo2(1 [COLOR=blue]To[/COLOR] Sheets.Count - 1, 1 [COLOR=blue]To[/COLOR] 2)
Col = Target.Column: i = 0
[COLOR=blue]For Each[/COLOR] f [COLOR=blue]In[/COLOR] Worksheets
[COLOR=blue]If[/COLOR] f.Name <> "Graph. TF" [COLOR=blue]Then[/COLOR]
i = i + 1
Tablo(i, 1) = f.Cells(69, Col)
Tablo(i, 2) = f.Cells(70, Col)
Tablo(i, 3) = f.Cells(71, Col)
Tablo2(i, 1) = f.Name
[COLOR=blue]End If[/COLOR]
[COLOR=blue]Next[/COLOR] f
[COLOR=blue]With[/COLOR] Sheets("Graph. TF")
.Range("A5").Resize([COLOR=blue]UBound[/COLOR](Tablo2, 1), 1) = Tablo2
.Range("C5").Resize([COLOR=blue]UBound[/COLOR](Tablo, 1), [COLOR=blue]UBound[/COLOR](Tablo, 2)) = Tablo
.Activate
[COLOR=blue]End With[/COLOR]
[COLOR=blue]End Sub[/COLOR]