ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[Murat OSMA]

Doldurulması gereken zorunlu alanlarınız olduğunda, bu alanları doldurmadan kaydetmesini istemiyorsanız ya da uyarı versin istiyorsanız bu kodları kullanabilirsiniz;

Kodları, ThisWorkbook(BuÇalışmaKitabı) kod sayfasına yazın.

Kod: Tümünü seç

Const Alan As String = "B3:B6,D8,E3:E4"
Const Sayfa As String = "Sayfa1"
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim Syf As Worksheet, Mesaj$, Ayır() As String
    Dim Hücre As Range, i%, a%
    Set Syf = Sheets(Sayfa)
    Ayır = Split(Alan, ",")
    For i = LBound(Ayır) To UBound(Ayır)
        Set Hücre = Syf.Range(Ayır(i))
        With Hücre
            For a = 1 To .Cells.Count
                If Len(Trim(.Cells(a).Value)) = 0 Then
                    Mesaj = "Doldurulması gerekli olan " & .Cells(a).Address(0, 0) & _
                          " hücresi doldurulmamıştır." & vbCr & _
                          "Dosyayı Kaydetmek İstiyor musunuz ? " _
                          & vbCr & vbCr & "Veri Girişini Tamamlamak İçin No'ya Basın."
                    Cancel = Not MsgBox(Mesaj, vbQuestion + vbYesNo + vbDefaultButton2, _
                             "Eksik Veri Girişi") = vbYes
                    .Cells(a).Select
                    Exit Sub
                End If
            Next a
        End With
    Next i
    i = Empty: a = Empty: Set Hücre = Nothing: Erase Ayır: Mesaj = "": Set Syf = Nothing
End Sub

Örnek dosya ek'tedir.

[skapula]

Hocam elinize sağlık

[alican60]

Reis eline sağlık...

[Enes Recep BAĞ]

Güzel bir çalışma Murat eline, bilgine sağlık.

[Mahir ÇÜMEN]

Paylaşım için teşekkürler.

[Murat OSMA]

Sağolun arkadaşlar beğenmenize sevindim.

Umarım faydalı olur.

[revolation]

Üstadım eline emeğine sağlık.

[isayaman]

Merhaba Hocalarım,

Sizden çok şeyler öğrendim. Teşekkürler,

Bir konuda yardım istiyorum. Benim için zor ama sizin için çok kolay

Ekte hazırlamış olduğum bir Form bulunuyor. Formda zorunlu alanları belirledim fakat şöyle bir sıkıntım var.

1- Sayfa 3 adında bir sayfa oluşturdum ve Sayfa 1 ve Sayfa 2 'ye köprüledim. Amaç sevkiyat şekline göre formları doldurmalarıdır.

Sayfa 1'de sıkıntı yok, zorunlu alanlar seçilmeden kayıt etmiyor. (Sadece seçenek olan kısmı zorunlu yapamadım)
Sayfa 2'ye geldiğimde kaydetmek istediğimde "Range sınıfının Select yönetimi başarısız" hatasını alıyorum.

Bu konuda yardımcı olacak arkadaş varsa çok sevinirim.


Saygılarımla,

[isayaman]

Merhaba Hocalarım,

Sizden çok şeyler öğrendim. Teşekkürler,

Bir konuda yardım istiyorum. Benim için zor ama sizin için çok kolay

Ekte hazırlamış olduğum bir Form bulunuyor. Formda zorunlu alanları belirledim fakat şöyle bir sıkıntım var.

1- Sayfa 3 adında bir sayfa oluşturdum ve Sayfa 1 ve Sayfa 2 'ye köprüledim. Amaç sevkiyat şekline göre formları doldurmalarıdır.

Sayfa 1'de sıkıntı yok, zorunlu alanlar seçilmeden kayıt etmiyor. (Sadece seçenek olan kısmı zorunlu yapamadım)
Sayfa 2'ye geldiğimde kaydetmek istediğimde "Range sınıfının Select yönetimi başarısız" hatasını alıyorum.

Bu konuda yardımcı olacak arkadaş varsa çok sevinirim.


Saygılarımla,

Merhaba Hocalarım,
Bu konuda yardımcı olacak kimse yok galiba

Saygılarımla,