Gönderen Konu: Hücreye veri girişini zorunlu hale getirme.  (Okunma sayısı 6095 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı FATİH0142

  • Excelce Onbaşı
  • **
  • İleti: 4
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: FATİH SARIBUDAK
  • İl / İlçe: ADANA Seyhan
Hücreye veri girişini zorunlu hale getirme.
« : 04 Mayıs 2010, 20:13:17 »
Herkese selamlar,
Ekte sürekli veri girişi yaptığımız bir dosyamız var.Fakat bazı hücreler doldurulmadan kayıt yapmayı engellemek istiyorum.Bunun için nasıl bir formül yazmalıyım.(Kod da olabir)
Yardımlarınız için şimdiden teşekkürler..


[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

Çevrimdışı Bülent Öztürk

  • Excelce.Net Yönetici
  • *
  • İleti: 1329
  • Puan +19/-0
  • Cinsiyet: Bay
  • Türkçe Konuşup Excelce Yazıyoruz...
    • Bülent Öztürk
  • Ad Soyad: Bülent Öztürk
  • İl / İlçe: İstanbul / Çorlu
  • İşletim Sisteminiz: Win.10
  • Mesleğiniz: Bilgi Teknolojileri
  • Office Versiyonunuz: Office2013/2016
Ynt: Hücreye veri girişini zorunlu hale getirme.
« Yanıtla #1 : 04 Mayıs 2010, 20:48:56 »
Merhaba.

A1 hücresi için;

Kod: [Seç]
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Worksheets("Sayfa1").Range("A1") = Empty Then MsgBox "A1 boş olamaz!", vbCritical, "Hata": Cancel = True: Exit Sub
End Sub
(Ücretli program talepleriniz için iletişime geçebilirsiniz, excelvbprogram@gmail.com)

Çevrimdışı FATİH0142

  • Excelce Onbaşı
  • **
  • İleti: 4
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: FATİH SARIBUDAK
  • İl / İlçe: ADANA Seyhan
Ynt: Hücreye veri girişini zorunlu hale getirme.
« Yanıtla #2 : 04 Mayıs 2010, 22:45:46 »
Hocam selamlar,
B2 hücresinde veri varsa ;
D2 hücresine "KABUL-RED veya BEKLE" yazmazsam, E2 hücresine de  Tarih yazmazsam, kayıt yapmamı engellesin."UYARI VEREBİLİR"
Aynı şekilde B3 hücresinde veri varsa;
D3 hücresine "KABUL-RED veya BEKLE" yazmazsam, E3 hücresine de  Tarih yazmazsam, kayıt yapmamı engellesin."UYARI VEREBİLİR"

Çevrimdışı Bülent Öztürk

  • Excelce.Net Yönetici
  • *
  • İleti: 1329
  • Puan +19/-0
  • Cinsiyet: Bay
  • Türkçe Konuşup Excelce Yazıyoruz...
    • Bülent Öztürk
  • Ad Soyad: Bülent Öztürk
  • İl / İlçe: İstanbul / Çorlu
  • İşletim Sisteminiz: Win.10
  • Mesleğiniz: Bilgi Teknolojileri
  • Office Versiyonunuz: Office2013/2016
Ynt: Hücreye veri girişini zorunlu hale getirme.
« Yanıtla #3 : 04 Mayıs 2010, 23:05:31 »
Aleyküm selam Fatih Bey.
Böyle bir şey işinize yarar mı?

Kod: [Seç]
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If [B2] <> Empty Then
    If [D2] <> "KABUL-RED" And [D2] <> "BEKLE" Then
        If Not IsDate([E2]) Then MsgBox "Eksik veri girdiğiniz için kayıt yapamazsınız!", vbCritical, "Hata:": Cancel = True: Exit Sub
    End If
End If
If [B3] <> Empty Then
    If [D3] <> "KABUL-RED" And [D3] <> "BEKLE" Then
        If Not IsDate([E3]) Then MsgBox "Eksik veri girdiğiniz için kayıt yapamazsınız!", vbCritical, "Hata:": Cancel = True: Exit Sub
    End If
End If
End Sub
(Ücretli program talepleriniz için iletişime geçebilirsiniz, excelvbprogram@gmail.com)

Çevrimdışı FATİH0142

  • Excelce Onbaşı
  • **
  • İleti: 4
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: FATİH SARIBUDAK
  • İl / İlçe: ADANA Seyhan
Ynt: Hücreye veri girişini zorunlu hale getirme.
« Yanıtla #4 : 04 Mayıs 2010, 23:42:59 »
Yardımlarınız için çok teşekkür ederim.
Peki veri girişi aşağıya doğru devam ediyorsa, yani B4 ,B5....B10 şeklinde ise ..

Çevrimdışı Bülent Öztürk

  • Excelce.Net Yönetici
  • *
  • İleti: 1329
  • Puan +19/-0
  • Cinsiyet: Bay
  • Türkçe Konuşup Excelce Yazıyoruz...
    • Bülent Öztürk
  • Ad Soyad: Bülent Öztürk
  • İl / İlçe: İstanbul / Çorlu
  • İşletim Sisteminiz: Win.10
  • Mesleğiniz: Bilgi Teknolojileri
  • Office Versiyonunuz: Office2013/2016
Ynt: Hücreye veri girişini zorunlu hale getirme.
« Yanıtla #5 : 05 Mayıs 2010, 09:13:29 »
Şu şekilde dener misiniz?

Kod: [Seç]
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim excelce_eksik As Range
For Each excelce_eksik In Range("B2:B" & Range("B65530").End(3).Row)
If excelce_eksik <> Empty Then
    If excelce_eksik.Offset(0, 2) <> "KABUL-RED" And excelce_eksik.Offset(0, 2) <> "BEKLE" Then
        If Not IsDate(excelce_eksik.Offset(0, 3)) Then MsgBox "Eksik veri girdiğiniz için kayıt yapamazsınız!", vbCritical, "Hata:": Cancel = True: Exit Sub
    End If
End If
Next excelce_eksik
End Sub
(Ücretli program talepleriniz için iletişime geçebilirsiniz, excelvbprogram@gmail.com)

Çevrimdışı iselcuker

  • Excelce Onbaşı
  • **
  • İleti: 1
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: ismail
  • Doğum Yılınız: 1971
  • İl / İlçe: aksaray
Ynt: Hücreye veri girişini zorunlu hale getirme.
« Yanıtla #6 : 26 Kasım 2019, 00:09:50 »
arkadaşlar TAHMİNİ BÜTÇE adında bir sheet var burdaki b56 hücresinin boş geçilmemesini, geçecek olursada ".... boş geçemezsiniz" şeklinde uyarı vermesini istiyorum. ne yaptıysam olmadı. lütfen yardım....

Çevrimdışı Bülent Öztürk

  • Excelce.Net Yönetici
  • *
  • İleti: 1329
  • Puan +19/-0
  • Cinsiyet: Bay
  • Türkçe Konuşup Excelce Yazıyoruz...
    • Bülent Öztürk
  • Ad Soyad: Bülent Öztürk
  • İl / İlçe: İstanbul / Çorlu
  • İşletim Sisteminiz: Win.10
  • Mesleğiniz: Bilgi Teknolojileri
  • Office Versiyonunuz: Office2013/2016
Ynt: Hücreye veri girişini zorunlu hale getirme.
« Yanıtla #7 : 26 Kasım 2019, 08:26:56 »
arkadaşlar TAHMİNİ BÜTÇE adında bir sheet var burdaki b56 hücresinin boş geçilmemesini, geçecek olursada ".... boş geçemezsiniz" şeklinde uyarı vermesini istiyorum. ne yaptıysam olmadı. lütfen yardım....

Hangi aşamada bu olmalı?
Dosya kaydedilirken mi mesela?
(Ücretli program talepleriniz için iletişime geçebilirsiniz, excelvbprogram@gmail.com)