AccessTr.neTMicrosoft ExcelExcel Cevaplanmış Soruları

Şartlı Veri Girmek

1 2 3
22/05/2021, 18:54

feraz

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


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
22/05/2021, 19:06

m_demir

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.
22/05/2021, 20:01

feraz

Son yazdığım kodla veri girilmiyor giftede gösterdim abey.Dediğim gibi dosya ekleyip orda açıklayın.
22/05/2021, 20:06

m_demir

Çok, çok teşekkür Hocam ellerinize sağlık.

Hocam konuyu taşıyabilirsiniz. Saygılarımla.
22/05/2021, 20:26

feraz

Rica ederim abey,kolay gelsin.
23/05/2021, 00:53

m_demir

(22/05/2021, 18:54)feraz yazdı: Modül kodlarını ve thisworkbook koduna eklediğim kodu silip sadece sayfa koduna alttakini ekleyiniz.


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.
1 2 3