Çözüldü Sütunda tik işaretinden birini silme

[sirkülasyon]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim sayfa As String
If Not Intersect(Target, Range("A3:A34")) Is Nothing Then
sayfa = "MALZEME GİRİŞ"
ElseIf Not Intersect(Target, Range("g3:g11")) Is Nothing Then
sayfa = "Sayfa1"
Else
Exit Sub
End If
Sheets(sayfa).Range("l1").Value = Target.Offset(0, 1).Value
Sheets(sayfa).Range("l2").Value = Target.Offset(0, 2).Value
Sheets(sayfa).Range("l3").Value = Target.Offset(0, 3).Value
Sheets(sayfa).Range("l4").Value = Target.Offset(0, 4).Value
Sheets(sayfa).Range("m1").Value = Target.Offset(0, 5).Value
Cancel = True
With Target
.Font.Name = "Wingdings"
.Font.Size = 11
.HorizontalAlignment = xlCenter
End With
If Target.Value = "ü" Then
Target.Value = ""
Else
Target.Value = "ü"
End If
End Sub

yukarıda yer alan kod da A3:A34 arasında çift tık yapıldığı zaman A3:A34 sütun aralığında başka tik işareti varsa diğerlerini silsin.

Yardımcı olabilir misiniz?

 

[veyselemre]

 If Not Intersect(Target, Range("A3:A34")) Is Nothing Then
        Range("A3:A34").Replace "ü", "" 'Araya Ekleyin
        sayfa = "MALZEME GİRİŞ"

 

[sirkülasyon]

Sayın Veyselemre teşekkür ederim
Saygı ve hürmetlerimle.