soldan ilk 3 hücreye bilgi girmeden 4. hücreye bilgi girememek

[ogoktas]

merhabalar,
benim sorum soldan ilk 3 hücreye bilgi girilmeden sonraki hücreye hiçbirşekilde bilginin girilememesi ile ilgi.

örnegin a1,b1,c1 boş bırakılırsa d1 e bilgi girilmemelidir.

yardımlarınız için tşk.

 

[N.Ziya Hiçdurmaz]

Yanıt

Sayfa kod bölümüne uygulayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1,B1,C1,D1")) Is Nothing Then Exit Sub
Application.EnableEvents = False
If Range("A1,B1,C1") = "" Then
MsgBox "A1,B1,C1 Hücreleri boş olmamalı.", vbInformation
Target = ""
End If
Application.EnableEvents = True
End Sub

 

[ogoktas]

çok tşk ederim.

 

[N.Ziya Hiçdurmaz]

Yanıt

Bişey değil.

 

[seha efecik]

ziya bey peki calışma kitabımızda bir sürü sayfa varsa sayfayı nasıl belirtiriz bende bu gibi bi çalışma içerisindeyim benim giriş ve cıkış diye 2 sayfam var burdan ürün giriş ve cıkışlarını yapıyorum hüçreleri gördüm onları kendi sayfama göre düzenleye bilirim fakat sayfa olayını bi acıklasanızda okonuyuda bi anlasam vereceginiz cevaplardan dolayı şimdiden teşekkürler..

 

[Necdet]

Merhaba,

2. Seçenek : Veri Doğrulama İle yapılmış örnek

D1 veri doğrulama formül :

=BAĞ_DEĞ_DOLU_SAY(A1:C1)=3

 

[malkomxahmet]

valla süpersiniz ya. çok işime yaradı