- Katılım
- 2 Nisan 2008
- Mesajlar
- 132
- Excel Vers. ve Dili
- 2003 TÜRKÇE
- Altın Üyelik Bitiş Tarihi
- 25.05.2019
Selam Değerli hocalarım
Aşağıdaki kod A Sütunundaki herhangi dolu hücreye tıklayınca yanındaki (B sütunu) hücresine "X" koyuyor.
İsteğim tekrar aynı hücreye tıklanınca koyduğu "X" silinsin..
Teşekkürler
Aşağıdaki kod A Sütunundaki herhangi dolu hücreye tıklayınca yanındaki (B sütunu) hücresine "X" koyuyor.
İsteğim tekrar aynı hücreye tıklanınca koyduğu "X" silinsin..
Teşekkürler
Kod:
Private Sub worksheet_selectionchange(ByVal target As Range)
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("sayfa7")
If Not Intersect(target, ws.Range("a:a")) Is Nothing Then
If target.Value <> "" Then
ws.Cells(target.Row, 2).Value = "x"
End If
End If
End Sub
Son düzenleme: