Skip to main content

AccessTr.neT


Şartlı Veri Girmek

Şartlı Veri Girmek

#7
Modül kodlarını ve thisworkbook koduna eklediğim kodu silip sadece sayfa koduna alttakini ekleyiniz.

[Resim: do.php?img=11056]
https://resim.accesstr.net/do.php?img=11056

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If (Target.Column = 2 Or Target.Column = 3 Or Target.Column = 4) And Target.row > 1 Then
        If Cells(Target.row, 1).Value = "" Then
            Cells(Target.row, 1).Select
            MsgBox "hata"
            Exit Sub
        End If
    End If
   
    If (Target.Column = 7 Or Target.Column = 8 Or Target.Column = 9) And Target.row > 1 Then
        If Cells(Target.row, "F").Value = "" Then
            Cells(Target.row, "F").Select
            MsgBox "hata"
            Exit Sub
        End If
    End If
   
End Sub
Cevapla
#8
Hocam A1 hücresine tıklayıp Tab ile A1 hücresinden gıkmak istediğimiz zaman kod çalışıyor. Direk B1 veya D1 hücresine mausla tıkladığımız zaman veri girişine izin veriyor. Maus veya Enter ile hiç bir şekilde izin vermese çok iyi olur. Sizi de uğraştırıyorum kusura bakmayın. Saygılar.
Cevapla
#9
Son yazdığım kodla veri girilmiyor giftede gösterdim abey.Dediğim gibi dosya ekleyip orda açıklayın.
Cevapla
#10
Çok, çok teşekkür Hocam ellerinize sağlık.

Hocam konuyu taşıyabilirsiniz. Saygılarımla.
Cevapla
#11
Rica ederim abey,kolay gelsin.
Cevapla
#12
(22/05/2021, 18:54)feraz yazdı: Modül kodlarını ve thisworkbook koduna eklediğim kodu silip sadece sayfa koduna alttakini ekleyiniz.

[Resim: do.php?img=11056]
https://resim.accesstr.net/do.php?img=11056

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If (Target.Column = 2 Or Target.Column = 3 Or Target.Column = 4) And Target.row > 1 Then
        If Cells(Target.row, 1).Value = "" Then
            Cells(Target.row, 1).Select
            MsgBox "hata"
            Exit Sub
        End If
    End If
   
    If (Target.Column = 7 Or Target.Column = 8 Or Target.Column = 9) And Target.row > 1 Then
        If Cells(Target.row, "F").Value = "" Then
            Cells(Target.row, "F").Select
            MsgBox "hata"
            Exit Sub
        End If
    End If
   
End Sub


Hocam gerçi Konuyu kapattık. Eğer sakıncası yoksa B,D,G,I hücrelerini de zorunlu giriş olarak belirliyebilirmiyiz.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task