Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 07-12-2017, 16:00   #11
ASMET67
Altın Üye
 
ASMET67 kullanıcısının avatarı
 
Giriş: 08/06/2007
Şehir: İstanbul / Tuzla
Mesaj: 352
Excel Vers. ve Dili:
Excel 2016
Varsayılan

Korhan bey bakma fırsatınız oldu mu?
ASMET67 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-12-2017, 16:55   #12
Korhan Ayhan
Moderatör
 
Korhan Ayhan kullanıcısının avatarı
 
Giriş: 15/03/2005
Şehir: ANTALYA
Mesaj: 22,748
Excel Vers. ve Dili:
OFFICE 2013-2016 PRO TR
Varsayılan

Aşağıdaki kodları deneyiniz.

Boş bir modüle;

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
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;

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
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
__________________
.
.
.

Soru sormadan önce forumumuzun aşağıdaki
bölümlerini incelediğinizde birçok sorunuza yanıt bulabilirsiniz.


Excel Dersanesi
Uygulamalı Excel Eğitimi
Excel İçin Örnek Uygulamalar
Video Dersane (***Altın Üyelere Özel***)

Lütfen sorularınızın çözümlendiğine dair geri dönüş mesajı yazınız...!
Lütfen yazım ve forum kurallarına uyalım...!
Lütfen sorularımızı açık ve net bir dille ifade edelim...!



FORUM KURALLARI
Korhan Ayhan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-12-2017, 18:40   #13
systran
Destek Ekibi
 
Giriş: 15/12/2007
Mesaj: 1,383
Excel Vers. ve Dili:
2007 [TR]
Varsayılan

örnek dosyayı inceleyiniz.
A sütununda DEL tuşuna basın,
Eklenmiş Dosyalar
Dosya Türü: xlsm entıre row del.xlsm (14.8 KB, 3 Görüntülenme)
systran Çevrimdışı   Alıntı Yaparak Cevapla
Eski 08-12-2017, 08:08   #14
ASMET67
Altın Üye
 
ASMET67 kullanıcısının avatarı
 
Giriş: 08/06/2007
Şehir: İstanbul / Tuzla
Mesaj: 352
Excel Vers. ve Dili:
Excel 2016
Varsayılan

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 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 08-12-2017, 08:10   #15
ASMET67
Altın Üye
 
ASMET67 kullanıcısının avatarı
 
Giriş: 08/06/2007
Şehir: İstanbul / Tuzla
Mesaj: 352
Excel Vers. ve Dili:
Excel 2016
Varsayılan

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.
ASMET67 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 08-12-2017, 12:53   #16
Korhan Ayhan
Moderatör
 
Korhan Ayhan kullanıcısının avatarı
 
Giriş: 15/03/2005
Şehir: ANTALYA
Mesaj: 22,748
Excel Vers. ve Dili:
OFFICE 2013-2016 PRO TR
Varsayılan

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

Soru sormadan önce forumumuzun aşağıdaki
bölümlerini incelediğinizde birçok sorunuza yanıt bulabilirsiniz.


Excel Dersanesi
Uygulamalı Excel Eğitimi
Excel İçin Örnek Uygulamalar
Video Dersane (***Altın Üyelere Özel***)

Lütfen sorularınızın çözümlendiğine dair geri dönüş mesajı yazınız...!
Lütfen yazım ve forum kurallarına uyalım...!
Lütfen sorularımızı açık ve net bir dille ifade edelim...!



FORUM KURALLARI
Korhan Ayhan Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 02:52


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Gebze Emlak- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri- Çorlu Çelik Konstruksiyon- Çorlu Dans- Edirne Serbest Muhasebeci- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden