Veri Doğrulama Yardımı

[Mehmet Sait]

Merhabalar,

Ekli örnek dosyada bulunan tabloda ürün ve ihracata göre; ürün koli miktarları tablosunda bulunan miktarları veri doğrulama ile
gelmesini istiyorum.

M 7 boş ise miktarları; ürün koli miktarları tablosunun iç piyasa olan kısımdan,
M 7 Dolu ise miktarları; ürün koli miktarları tablosunun İhracat olan kısımdan getirmek mümkün mü?

Yardımlarınız için teşekkür ederim.

 

[Ömer]

Merhaba,

İstediğiniz bu mu?
Veri Doğrulama/Liste/Kaynak;

=KAYDIR($C$6;EĞER(M6="";6;8)-6;KAÇINCI(K6;$C$5:$H$5;0)-1;EĞER(M6="";2;4))

 

[Mehmet Sait]

Merhaba,

İstediğiniz bu mu?
Veri Doğrulama/Liste/Kaynak;

=KAYDIR($C$6;EĞER(M6="";6;8)-6;KAÇINCI(K6;$C$5:$H$5;0)-1;EĞER(M6="";2;4))

Evet Hocam tam istediğim gibi oldu. Ancak M sutununu silerken, miktar kısmında kalan miktarıda silebilir mi?

 

[Ömer]

Silme tetiklemesi için makro kullanılması gerekir. Sorun olur mu?

 

[Mehmet Sait]

Silme tetiklemesi için makro kullanılması gerekir. Sorun olur mu?

Sorun olmaz hocam. M sutunuıda değişim olunca ( yazılsın ya da silinince )

 

[Ömer]

Çalışma sayfasının kod bölümüne; (Dosyanıza uyarlarken M6:M8 aralığını güncellersiniz.)

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [M6:M8]) Is Nothing Then Exit Sub
    Cells(Target.Row, "N") = ""
End Sub

 

[Mehmet Sait]

Çalışma sayfasının kod bölümüne; (Dosyanıza uyarlarken M6:M8 aralığını güncellersiniz.)

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [M6:M8]) Is Nothing Then Exit Sub
    Cells(Target.Row, "N") = ""
End Sub

Hocam, yardımlarınız için teşekkür ederim. Emeğinize sağlık.