Soru Makroya ilave yapma

[sirkülasyon]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A5:A51")) Is Nothing Then
        Cancel = True
        With Target
            .Font.Name = "Wingdings"
            .Font.Size = 12
            .HorizontalAlignment = xlCenter
        End With
        If Target.Value = "ü" Then
            Target.Value = ""  
        Else
            Target.Value = "ü"
        End If
    End If
End Sub

Yukarıda yer alan kod' a
Sheets(sayfa).Range("I2").Value = Target.Offset(0, 1).Value

ilave olarak eklemek istiyorum. Yardımcı olabilir misiniz?
Teşekkür eder, saygılarımı sunarım

 

[turist]

If Target.Value = "ü" Then
Target.Value = ""
Sheets(sayfa).Range("I2").Value = Target.Offset(0, 1).Value 'Çift tıklama yaptığınızda √ işareti çıktığında istiyorsanız (1)
Else
Target.Value = "ü"
Sheets(sayfa).Range("I2").Value = Target.Offset(0, 1).Value 'Çift tıklama yaptığınızda BOŞ olduğunda istiyorsanız(2)
End If

Tercihinize göre ikisinden birini kullanın, diğer satırı silin.
Eğer her koşulda "I2" yazdırmak isterseniz iki satırda yazılanlar aynen kalsın.

 

[sirkülasyon]

Teşekkür ederim