Birden fazla hücre seçimi olmasın

[Ziynettin]

Merhaba,
Arkadaşlar yapmak istediğim A sutununda birden fazla hücre seçilirse seçilen alandaki verilerin silinmemesi,
yada;
A sutununda birden fazla hücreyi fare ile seçmeleli bu konusunda yardımcı olan herkese teşekkür ederim.

 

[Ömer]

Merhaba,

Kullandığınız bir koda ilavemi yapacaksnız yoksa yalnız mı kullanacaksınız.

Çalışma sayfasının kod bölümüne kopyalayın.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
    If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
    
    If Target.Count > 1 Then
        MsgBox "Birden Fazla Veri Seçemezsiniz"
        Range("A1").Select
        Exit Sub
    End If
    
End Sub

.

 

[Trilenium]

veya ,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Long, lngAreas, lngRows As Long

lngAreas = Selection.Areas.Count

lngRows = 0

For i = 1 To lngAreas
lngRows = lngRows + Selection.Areas(i).Rows.Count
Next i


If lngRows > 1 Then
MsgBox "1 den fazla seçim yaptınız..Seçiminiz Degiştirildi."
Range("a1").Select
End If
End Sub

 

[Ziynettin]

Merhaba Ömer hocam,
Aynı kodu change yordamında yapmaya çalışmıştım. "HATA"
Selection yordamına yazmayı atlamışım.
Çok tesşekkür ederim.
Hakkınızı helal edin.

 

[Seyit Tiken]

Alternatif : Birden fazla hücre seçimine izin vermez.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveCell.Select
End Sub