+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Şartlı Veri Girmek (/konu-sartli-veri-girmek.html)
RE: Şartlı Veri Girmek - feraz - 22/05/2021
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 SubRE: Şartlı Veri Girmek - m_demir - 22/05/2021
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.
RE: Şartlı Veri Girmek - feraz - 22/05/2021
Son yazdığım kodla veri girilmiyor giftede gösterdim abey.Dediğim gibi dosya ekleyip orda açıklayın.
RE: Şartlı Veri Girmek - m_demir - 22/05/2021
Çok, çok teşekkür Hocam ellerinize sağlık.
Hocam konuyu taşıyabilirsiniz. Saygılarımla.
RE: Şartlı Veri Girmek - feraz - 22/05/2021
Rica ederim abey,kolay gelsin.
RE: Şartlı Veri Girmek - m_demir - 23/05/2021
(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.