Veri Doğrulama Yardımı

Mehmet Sait

Altın Üye
Katılım
19 Ekim 2009
Mesajlar
834
Excel Vers. ve Dili
Office 2016 TR
Altın Üyelik Bitiş Tarihi
08-09-2028
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.
 

Ekli dosyalar

Ömer

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,184
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
Merhaba,

İstediğiniz bu mu?
Veri Doğrulama/Liste/Kaynak;
Kod:
=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

Altın Üye
Katılım
19 Ekim 2009
Mesajlar
834
Excel Vers. ve Dili
Office 2016 TR
Altın Üyelik Bitiş Tarihi
08-09-2028
Merhaba,

İstediğiniz bu mu?
Veri Doğrulama/Liste/Kaynak;
Kod:
=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

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,184
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
Silme tetiklemesi için makro kullanılması gerekir. Sorun olur mu?
 

Ömer

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,184
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
Çalışma sayfasının kod bölümüne; (Dosyanıza uyarlarken M6:M8 aralığını güncellersiniz.)
Kod:
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

Altın Üye
Katılım
19 Ekim 2009
Mesajlar
834
Excel Vers. ve Dili
Office 2016 TR
Altın Üyelik Bitiş Tarihi
08-09-2028
Çalışma sayfasının kod bölümüne; (Dosyanıza uyarlarken M6:M8 aralığını güncellersiniz.)
Kod:
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.
 
Üst