Veri girilmesi zorunlu alanlar

[hassan26]

Selam arkadaşlar
Belirli bir sütun alanını kriter belirleyip o sütuna sırasıyla veri girilmeden diğer alanlara veri girilmesin sorunumu ekli dosyada anlatmaya çalıştım.
Teşekkür ediyorum Saygılar.

 

[Metin Karaağaç]

veri doğrulama ile yapılabilir sanırım ama örneğiniz yok.

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C7:H65536]) Is Nothing Then Exit Sub
On Error GoTo son
    If Cells(Target.Row - 1, "F").Value = "" Then
        Application.EnableEvents = False
        son = Cells(65536, "F").End(xlUp).Row
        adr = "F" & son + 1
        Target.ClearContents
        Application.EnableEvents = True
        MsgBox adr & " HÜCRESİNE VERİ GİRMEDEN BURAYA VERİ GİREMEZSİNİZ.!!", vbCritical, "UYARI"
        Exit Sub
    End If
son:
Application.EnableEvents = True
End Sub

 

[hassan26]

Özürdilerim arkadaşlar eki düzeltmekle uğraşırken bakmışsınız konuya bu ne hız yaww ne mutlu bu siteye üye olana arkadaşlar birde şimdiki eke bakabilirmisiniz.
Teşekkürler.

 

[Orion1]

Özürdilerim arkadaşlar eki düzeltmekle uğraşırken bakmışsınız konuya bu ne hız yaww ne mutlu bu siteye üye olana arkadaşlar birde şimdiki eke bakabilirmisiniz.
Teşekkürler.

Ben 3 numaralı mesajda cevabı verdim.
Yukarıdaki mesajınızdada Dosya eklememişsiniz.

 

[hassan26]

Sayın Evren Gizlen ilk mesajdaki eki değiştirdim eki düzeltmekten kastım oydu kusuruma bakmayın sizin verdiğiniz kodlar çok güzel bunu iki sütuna uygalamak için "F" yanına ilgili sütun adın yazsam olurmu. sizin bakıp cevapladığınız eki eksik yollamıştımda.

 

[Orion1]

Aşağıdaki kodlar F ve G sütunlarını kontrol eder.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C7:H65536]) Is Nothing Then Exit Sub
On Error GoTo son
    If Cells(Target.Row - 1, "F").Value = "" _
    Or Cells(Target.Row - 1, "G").Value = "" Then
        Application.EnableEvents = False
        son = Cells(65536, "F").End(xlUp).Row
        adr1 = "F" & son + 1
        adr2 = "G" & son + 1
        Target.ClearContents
        Application.EnableEvents = True
        MsgBox adr1 & " HÜCRESİNE VEYA " & adr2 & " HÜCRESİNE VERİ GİRMEDEN BURAYA VERİ GİREMEZSİNİZ.!!", vbCritical, "UYARI"
        Exit Sub
    End If
son:
Application.EnableEvents = True
End Sub

 

[hassan26]

Teşekkür ederim son bi soru [C7:H65536] sizin yazdığınız kodu ben alan tanımlayarak [PL3] yaptım aynı sayfada değişik alanlardada bu yazdığınız kodu kullanmam için bu köşeli parantaz içine ; işaretiyle ayırarak diğer tanımladığım alanlarıda yazabilirmiyim.

 

[Orion1]

Teşekkür ederim son bi soru [C7:H65536] sizin yazdığınız kodu ben alan tanımlayarak [PL3] yaptım aynı sayfada değişik alanlardada bu yazdığınız kodu kullanmam için bu köşeli parantaz içine ; işaretiyle ayırarak diğer tanımladığım alanlarıda yazabilirmiyim.

; değilde , (virgül) kullanınız.