Fare İle İşaretleme

[hakki83]

Merhaba Hocalarımız,

A sütununda yüzlerce (birkaç bin tane) alt alta isimler var.
Farenin tekerleğini döndürerek (aşağı yukarı kaydırarak) bu isimleri normal olarak görüyorum.
Bu isimlerden bazılarını seçmek istiyorum.

Bundan dolayı o ismin yanına;
yani B sütununda, fareyle boş hücreye tıklayınca X işaretinin gelmesini istiyorum.

Ki daha sonra seçtiğim isimleri (X'leri sıralayıp) kolayca görebileyim.

Bu işi klavyeyle yapmak istemiyorum. Çünkü klavyeyle yukarı aşağı kaydırmalar esnasında gözden kaçırdığım isimler olduğunu fark ettim.

Böyle bir kod oluşturabilir miyiz? Teşekkürler.

 

[hakki83]

Soruyu eksik sorduğumu fark ettim..
Mümkünse fare ile hücreyi doğrudan (tek) tıklamayla olabiliyorsa daha iyi olur.

 

[byfika]

Sayfanın kod bölümüne alttaki kodu yazıp deneyiniz. B sütununu filtre ile filtrelediğinizde sadece B sütununda x olanları görürsünüz.

Private Sub worksheet_selectionchange(ByVal target As Range)
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("sayfa1")
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

 

[hakki83]

Sayfanın kod bölümüne alttaki kodu yazıp deneyiniz. B sütununu filtre ile filtrelediğinizde sadece B sütununda x olanları görürsünüz.

Private Sub worksheet_selectionchange(ByVal target As Range)
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("sayfa1")
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

Teşekkür ederim emeğinize sağlık.