A1 veri yazınca B1 e veri yazabilmek

[gedavet]

A1 veri yazınca B1 e veri yazabilmek

b1 e veridoğrulama ile a1 de birşey yazılı ise b1 e bir şey yazmaya izin verse

a1 boş ise b1 birşey yazdırmasa

 

[YUSUF44]

Veri doğrulama ile yapamadım. Ancak aşağıdaki kodları ilgili sayfanın kod bölümüne yapıştırırsanız A1 boşken B1'e veri girildiğinde uyarır, B1'i boşaltır ve A1'i seçer:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B1]) Is Nothing Then Exit Sub
If [A1] = "" Then
Application.EnableEvents = False
    MsgBox "A1 hücresi boşken B1 hücresine veri girilemez!", vbCritical
    Target = ""
    [A1].Select
Application.EnableEvents = True
End If
End Sub

 

[gedavet]

ilginiz için teşekkür ederim
aynı konuyu birde veri doğrulama ile yapabilen olurmu

 

[sakman26]

selam,
Veri doğrulama ile yapılan
eki inceleyin..
kolay gelsin..

 

[gedavet]

ilginiz için çok teşekkür ederim

 

[sakman26]

rica ediyorum..
kolay gelsin..

 

[Ömer BARAN]

Merhabalar.

Küçük bir ilave önerim olacak.

Sayın sakman'ın eklediği belge üzerinden belirteyim.

A1 dolu iken B1 hücresine veri yazdıktan sonra (bunda sorun yok),
A1 hücresindeki veriyi silerseniz, veri doğrulamadaki işlemin bir etkisi olmaz ve
A1 boş olmasına rağmen B1 hücresine daha önce yazılan değer aynen kalır.

Bu tür durumlarda B1 hücresi için, mevcut veri doğrulamayı, aşağıdaki seçeneklerden biriyle desteklemenizi öneririm.

-- A1 ve B1 hücresi seçiliyken KOŞULLU BİÇİMLENDİRME -> FORMÜL KULLAN seçeneğine
aşağıdaki formülün kırmızı renklendirdiğim kısmını (başına = işareti ekleyerek) uygulayıp,
kırmızı zemin gibi dikkat çekici bir renk uygularsanız, B1'deki veriyi silmeniz veya A1'i boş bırakmamanız gerektiği vurgulanmış olur,

-- C1 veya uygun başka bir hücreye =EĞER(VE($A$1="";$B$1<>"");"A1 ve B1 hücresine kontrol edin";"")
gibi bir formül uygulayarak bir uyarı metni oluşmasını sağlayabilirsiniz,

-- Ya da kullandığınız sayfadaki diğer formülleri yukarıdaki formülün kırmızı renklenrdiğim kısmını EĞER işlevinin koşulu olarak kullanıp, sayfanızdaki diğer hesaplamaları devre dışı bırakabilirsiniz.
.

 

[sakman26]

selam,
Ömer Bey'in ilavelerine ben de bir ilave yapayım....
A1 boş iken B1 e veri girişi Veri Doğrulama ile engellendi... ( Tek şartla ki, Veriyi siz MANUEL girmek istediğinizde. Fakat başka bir hücreden KOPYA yoluyla bu hücreye veri girişi yapılması mümkün ve Veri Doğrulama bu durumda etkisiz kalır )

Bir diğer olay da, Ömer bey in söylediği
A1 dolu idi. B1 hücresine Veri Girişi yapıldı. Sonra A1 silindi ve BOŞ oldu. B1 hücresinde HALA değer kalacaktır....

 

[datacii]

Merhabalar d1 Hücresinde veriyi değiştirince G2 Hücre'sinin M2,M3,M4,M5 değerlerinden birini almasını istiyorum.Yardımcı Olursanız sevinirim Herkese İyi Çalışmalar örnek dosya linki

 

[YUSUF44]

Aşağıdaki kodları ilgili sayfanın kod bölümüne yapıştırıp deneyiniz. D1: D10 aralığındaki veri değiştiğinde M2:M5 aralığındaki değerlerden birini G2 hücresine getirir:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [D1:D10]) Is Nothing Then Exit Sub
seçim = WorksheetFunction.RandBetween(1, 4)
[G2] = WorksheetFunction.VLookup(seçim, [L2:M5], 2, 0)

End Sub

 

[datacii]

Hocam Kod çalışıyor 1. seçtiğim zaman bunun karşılığı olan 1 i getirmesi.
2.seçtiğimde 2. ,3.seçtiğimde 3. getirmesini istiyorum kod farklı değerleri getiriyor.

 

[YUSUF44]

d1 Hücresinde veriyi değiştirince G2 Hücre'sinin M2,M3,M4,M5 değerlerinden birini almasını istiyorum.

Merhaba. Önceki mesajınızda öyle belirtmediğiniz için ben de rastgele seçim ayarlamıştım. Şu anda cepten baktığımdan, ancak pazartesi bilgisayar başına geçince bakabilirim. Bu arada başka arkadaşlar işinizi görür inşallah.

 

[YUSUF44]

Aşağıdaki dosyada hem makrolu hem de formüllü çözüm uygulanmıştır:

https://drive.google.com/file/d/0B43WMUs21VpfV2t6MXZncFFJSzQ/view?usp=sharing

 

[datacii]

İlgilendiğiniz İçin Teşekürler.