Satır sayısı eşit değilse kaydetmeye izin verme

[ASMET67]

Excel de A sutunundaki verinin B sutundaki satır boşsa dosyayı kaydetmeye izin vermesin
Bu kodu nasıl yazabilirim.

 

[Korhan Ayhan]

Dosyanızda bununla ilgili bir kod bulunuyor.

 

[systran]

Workbook before save olayını denediniz mi?

 

[ASMET67]

Dosyadaki kot eşit olmasada kaydediyor.
Başka bir çözümü varmıdır

 

[Korhan Ayhan]

Örnek verir misiniz?

 

[ASMET67]

Örnek dosya ektedir

 

[Korhan Ayhan]

Buradaki sorun nedir? Ben anlayamadım.

 

[ASMET67]

Kaydet butouna basınca ve CTR+S tuşuna basınca Dosya A sutundaki veri olan satırın b sutunda veri yoksa dosya kaydetmeyi durdursun istiyorum.
Mecvut kodlar katdetmeyi durdurmuyor. Kaydediyor. Dosyayı katıp açtığında kaydettiğini görebilirsiniz

 

[Korhan Ayhan]

Eklediğiniz dosyada A ve B sütunlarında 5 adet veri var. Bu durumda kaydetmesi normal değil mi?

Bütün hücrelerin karşılığında veri var.

 

[ASMET67]

B sutundan birini silince kaydete bastığımda uyarı veriyor ama kaydediyor.
Dosyayı kapatıp açınca silinmiş olarak kaydedilmiş hgeliyor karşımıza

 

[ASMET67]

Korhan bey bakma fırsatınız oldu mu?

 

[Korhan Ayhan]

Aşağıdaki kodları deneyiniz.

Boş bir modüle;

Option Explicit
Public Kaydet As Boolean

Sub Kontrol()
    Dim S1 As Worksheet, Say_A As Long, Say_B As Long

    Set S1 = Sheets("Sheet1")
    Say_A = WorksheetFunction.CountA(S1.Range("A:A"))
    Say_B = WorksheetFunction.CountA(S1.Range("B:B"))
    Kaydet = False
    
    If Say_A <> Say_B Then
        MsgBox "A sütunu ile B sütunu verileri eşit değil!", vbCritical, "DİKKAT"
        Kaydet = True
        Exit Sub
    End If
End Sub

THISWORKBOOK (BUÇALIŞMAKİTABI) bölümüne;

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Call Kontrol
    Cancel = Kaydet
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Call Kontrol
    Cancel = Kaydet
End Sub

 

[systran]

örnek dosyayı inceleyiniz.
A sütununda DEL tuşuna basın,

 

[ASMET67]

Korhan bey cevabını için teşekkürler.
Kodları dediğiniz gibi yapıştırdıım.
Uyarıdan sonra kaydetme işlemi devam ediyor.
ile yapmaya çalıştım Cancel = true bu dosyada hataya düşüyor.
Bunun için referansmı eksik diğer dosyalarımda kapatmayı engellemek için kullanabiliyorum.

 

[ASMET67]

systran hacam dosya için teşekkürler benim istediğim tam olarak bu değil a sutunun sabit kalıp b sutununda eksik veri varsa doldurmaya zormala ve kaydettirmeme.

 

[Korhan Ayhan]

Kodlara küçük bir ilave yaptım. Tekrar deneyiniz.