Kaydederken Zorunlu Alanları Doldurma Uyarısı

Excel VBA kodlamaları ile yapılmış örnek dosyaları burdan izleyebilir ve paylaşabilirsiniz.

Kaydederken Zorunlu Alanları Doldurma Uyarısı

İleti#1)  Murat OSMA » 15 Oca 2014 20:23

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.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 04 Arl 2008 22:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 36
İleti: 14412
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

Cevap: Kaydederken Zorunlu Alanları Doldurma Uyarısı

İleti#2)  skapula » 15 Oca 2014 21:06

Hocam elinize sağlık şkşk
Kullanıcı avatarı
skapula
Yeni Başlamış
 
Adı Soyadı:Emre Karakaş
Kayıt: 20 Mar 2010 09:03
Konum: izmir
Meslek: ihracat
Yaş: 42
İleti: 27
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: izmir / ulukent

Cevap: Kaydederken Zorunlu Alanları Doldurma Uyarısı

İleti#3)  alican60 » 15 Oca 2014 21:10

Reis eline sağlık...
Kullanıcı avatarı
alican60
Siteye Alışmış
 
Adı Soyadı:ali can
Kayıt: 14 Ağu 2011 11:18
Konum: Tokat
Meslek: İnşaat Teknikeri
Yaş: 41
İleti: 393
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Eskişehir

Cevap: Kaydederken Zorunlu Alanları Doldurma Uyarısı

İleti#4)  Enes Recep BAĞ » 15 Oca 2014 21:38

Güzel bir çalışma Murat eline, bilgine sağlık. şkşk
Kullanıcı avatarı
Enes Recep BAĞ
Forum Moderatörü
 
Adı Soyadı:Enes Recep BAĞ
Kayıt: 30 Ağu 2010 15:39
Konum: 0 549 808 82 66
Meslek: Bilgi işlem
Yaş: 38
İleti: 8285
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: BURSA

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Kaydederken Zorunlu Alanları Doldurma Uyarısı

İleti#5)  Mahir ÇÜMEN » 15 Oca 2014 22:25

Paylaşım için teşekkürler. şkşk
Türkçenin bir eksiği yok, ya sizin?

Bir yalan, hangi amaç için söylenmiş olursa olsun, her zaman, en kötü gerçekten daha kötüdür.Che Guevara

E-Mail : mahircumen@ gmail.com
Kullanıcı avatarı
Mahir ÇÜMEN
Forum Moderatörü
 
Adı Soyadı:Mahir ÇÜMEN
Kayıt: 31 Arl 2010 13:35
Konum: Excel 2013-Türkçe
Meslek: Memur (MEB)
Yaş: 38
İleti: 1275
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Uşak

Cevap: Kaydederken Zorunlu Alanları Doldurma Uyarısı

İleti#6)  Murat OSMA » 16 Oca 2014 09:57

Sağolun arkadaşlar beğenmenize sevindim. [evet]

Umarım faydalı olur. --)(
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 04 Arl 2008 22:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 36
İleti: 14412
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Kaydederken Zorunlu Alanları Doldurma Uyarısı

İleti#7)  revolation » 07 Oca 2016 11:47

Üstadım eline emeğine sağlık.
Kullanıcı avatarı
revolation
 
Adı Soyadı:OKAN GÜNEŞ
Kayıt: 21 Ağu 2011 03:32
İleti: 2
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul

Cevap: Kaydederken Zorunlu Alanları Doldurma Uyarısı

İleti#8)  isayaman » 16 Eyl 2020 13:30

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.

[TESEKKÜR]
Saygılarımla,
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
isayaman
Yeni Başlamış
 
Adı Soyadı:isa yaman
Kayıt: 28 Nis 2014 07:46
Konum: Ümraniye istanbul
Meslek: Mühendislik satış
Yaş: 39
İleti: 37
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ist

Cevap: Cevap: Kaydederken Zorunlu Alanları Doldurma Uyarısı

İleti#9)  isayaman » 18 Eyl 2020 12:30

isayaman yazdı: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.

[TESEKKÜR]
Saygılarımla,


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

Saygılarımla,
Kullanıcı avatarı
isayaman
Yeni Başlamış
 
Adı Soyadı:isa yaman
Kayıt: 28 Nis 2014 07:46
Konum: Ümraniye istanbul
Meslek: Mühendislik satış
Yaş: 39
İleti: 37
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ist


Forum Örnek Dosyalar

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe