Çözüldü belirlenen satırda sadece bir hücre seçilmesine izin verme

[sirkülasyon]

Es Selamün Aleyküm

Değerli Kardeşlerim
AC6 : AN162 arasında bir satırda sadece bir hücreye giriş yapabilsin. Diğer hücrelere giriş yapacağı zaman bir önceki giriş yapılan hücreyi boşaltsın.

Böyle bir kod için yardımcı olabilir misiniz?

Teşekkürler

 

[Korhan Ayhan]

Aleyküm Selam,

Sayfanızın kod bölümüne uygulayıp deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Alan As Range
    On Error GoTo Son
    Set Alan = Range("AC6:AN162")
    If Intersect(Target, Alan) Is Nothing Then Exit Sub
    If Target.Value <> "" Then
        If WorksheetFunction.CountA(Alan) > 1 Then
            Application.EnableEvents = False
            Veri = Target.Value
            Alan.ClearContents
            Target.Value = Veri
        End If
    End If
Son: Application.EnableEvents = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, Range("AC6:AN162")) Is Nothing Then Exit Sub
    If Selection.Cells.Count > 1 Then Target.Cells(1, 1).Select
End Sub

 

[sirkülasyon]

Korhan abi
Teşekkür ederim. Sağ olasın.