Karşılıklı Çalışan Verilerin Kontrolü

[baydeniro]

Merhaba Arkadaşlar,

Sayfada rakam girişi olduğunda kontrol çalışması noktasında tıkandım. Aynı satırda B ve C sütunlarına rakam yazılamaması lazım. Sadece B de veya sadece C de olabilir. Nizami girişte sorun yok ama B de rakam varken C ye de rakam yazıldığında kodda sorun oluyor. Örnek dosya linki.

http://s3.dosya.tc/server18/tn95km/KARSILIKLI_CALISAN_VERILER.xls.html

 

[Muzaffer Ali]

Merhaba.
Şu kodu kullanın.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("B:C")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    If IsNumeric(Target.Text) Then
        If IsNumeric(Cells(Target.Row, "B").Text) And IsNumeric(Cells(Target.Row, "C").Text) Then
            MsgBox ("Hem A hem B için rakam yazılamaz")
            Target = ""
            Cells(Target.Row, "B").Select
        End If
    End If
    Application.EnableEvents = True
End Sub

 

[baydeniro]

dalgalikur üstadım çok teşekkür ediyorum. Ellerin dert görmesin. sağlıcakla kalın.

 

[baydeniro]

dalgalikur üstadım bir konuda daha yardımını rica edebi.lir miyim acaba ! Örneğin B sütununa veri girilmişse yanındaki C sütunu hücresi "seçilemez" yapılması mümkün mü ?

 

[Muzaffer Ali]

Aynı sayfaya aşağıdaki kodları ekleyin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, Range("C:C")) Is Nothing Then Exit Sub
    If Cells(Target.Row, "B").Value <> "" Then Cells(Target.Row, "D").Select
End Sub

Bu durumda ilk yazdığım kodların bir anlamı kalmamış oldu.

 

[baydeniro]

dalgalikur üstadım mükemmel olmuş, çok teşekkür ederim

 

[baydeniro]

üstad bu koda bir de tersini nasıl ekleyebilirim !
** B sütununa giriş yapılınca imleç D sütununa gitmesi !
** B boş iken C sütununa giriş yapıldıktan sonra B sütunu hücresinin seçilememesi !