veri doğrulama

[igultekin2000]

iyi günler;
aynı satırları giriş, çıkış ve düşüm şeklinde seçenekli kullanıyorum, düşüm olarak veri girişi yapacağımda
D2 HÜCRESİ "DÜŞÜM" OLDUĞUNDA
F2 HÜCRESİ, H2 HÜCRESİ BOŞ GEÇEMEZ
J2 HÜCRESİ " - " EKSİ DEĞER OLMALI
şeklinde veri doğrulamada uyarı koymak istiyorum. denedim yapamadım,
Teşekkürler.

 

[Korhan Ayhan]

Merhaba,

Bu işlemi makro ile daha kolay yapabilirsiniz.

Sayfanızın kod bölümüne aşağıdaki kodu uygulayıp deneyiniz.

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error GoTo Son
    Application.EnableEvents = False
    Select Case Cells(Target.Row, "D")
        Case "DÜŞÜM"
        If Cells(Target.Row, "F") = "" Then
            Cells(Target.Row, "F").Select
            MsgBox "Lütfen zorunlu alanlara veri giriş işlemini tamamlanyınız!", vbCritical
            GoTo Son
        ElseIf Cells(Target.Row, "H") = "" Then
            Cells(Target.Row, "H").Select
            MsgBox "Lütfen zorunlu alanlara veri giriş işlemini tamamlanyınız!", vbCritical
            GoTo Son
        ElseIf Cells(Target.Row, "J") > 0 Then
            Cells(Target.Row, "J").Select
            Cells(Target.Row, "J").ClearContents
            MsgBox "Lütfen eksi değer girişi yapınız!", vbCritical
            GoTo Son
        End If
    End Select
Son: Application.EnableEvents = True
End Sub

 

[igultekin2000]

Merhaba,

Bu işlemi makro ile daha kolay yapabilirsiniz.

Sayfanızın kod bölümüne aşağıdaki kodu uygulayıp deneyiniz.

kod bölümünde kayıt için aşağıda kullandığım makro var, iki makroyu birleştirmek olabilir mi, acaba

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

 On Error Resume Next
Static EskiHucre As Range
  If Target.Interior.ColorIndex <> xlColorIndexNone Then
    EskiHucre.Interior.ColorIndex = xlColorIndexNone
    Exit Sub
  ElseIf Not EskiHucre Is Nothing Then
    EskiHucre.Interior.ColorIndex = xlColorIndexNone
  End If
  Target.Interior.ColorIndex = 7
  Set EskiHucre = Target

If Target.Address(0, 0) = "K2" And [D2] = "DÜŞÜM" Then [N2].Activate

If Target.Address(0, 0) = "E2" And [D2] = "İTHALAT" Then [G2].Activate
If Target.Address(0, 0) = "J2" And [D2] = "İTHALAT" Then [L2].Activate

If Target.Address(0, 0) = "L2" And [D2] = "TRANSFER" Then [N2].Activate
If Target.Address(0, 0) = "G2" And [D2] = "TRANSFER" Then [I2].Activate


If Intersect(Target, Range("O1:O2")) Is Nothing Then Exit Sub
islem_kayit
End Sub