zorunlu olan hücreleri doldurmadan kaydedemesin

[bogazincocugu]

merhabalar,

arkadaslar ekte gönderdiğim dosyada ben iş emri numarası model numarası ve ürün ismini girdikten sonra fasoncu arkadasın atölye fiyat termin gibi bilgileri girmeden kaydedememesini istiyorum.

kod olarak zorunlu olan hücreleri girmeden kaydedememesini nasıl saglayabiliriz?

yardımcı olcak arkadaslara simdiden tesekkür ederim

 

[levo26]

Merhaba,

Aşağıdaki kodları çalışmanıza uyarlaynız.

Sheet1 yerine ilgili sayfa ismini yazarak ThisWorkbook modulune aşağıdakileri yerleştir;

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Sheets("Sheet1").Range("B25") = "" Then
MsgBox "Sheet1 sayfasında B25 hücresini doldurmanız gereklidir!", _
vbCritical, "Dikkat !"
Cancel = True
End If
End Sub

 

[bogazincocugu]

selam,

range("b25") değil üstat benim istedigim ben a,b,c, sütununu doldurduktan sonra aynı satırın ı,j,k,l,m,n,o sütunlarını fasoncunun doldurmasını saglamak.

bu kodu tam olarak nasıl yazacagımı bilmiyorum

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu çalışmanızın ThisWorkbook bölümüne uygulayıp denermisiniz.

Dosyanızı açan fasoncu kendisine ait bir hücreyi bile boş bıraksa dosyayı kapatamayacaktır.

Option Explicit
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim SAYFA As Worksheet, X As Long, SAY As Long
 
    For Each SAYFA In ThisWorkbook.Worksheets
        If SAYFA.Name <> "RAPOR" Then
            For X = 3 To SAYFA.Cells(Rows.Count, 1).End(3).Row
                If WorksheetFunction.CountA(SAYFA.Range("I" & X & ":O" & X)) <> 7 Then
                    SAY = SAY + 1
                    Exit For
                End If
            Next
        End If
        If SAY > 0 Then Exit For
    Next
 
    If SAY > 0 Then
        Cancel = True
        MsgBox "Dosyayı kapatabilmeniz için gerekli bölümleri doldurmalısınız !", vbCritical
    End If
End Sub

 

[bogazincocugu]

tekrar tekrar teşekkürler Korhan Bey,
elinize emeginize saglık

iyi çalışmalar