E

Çözüldü Girilen Miktara Göre Kodla Veri Alma

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

Epakambalaj

Normal Üye
Excel Versiyonu
Excel 2010
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Kolay Gelsin Üstadlarım

Örnek Dosyada Belirttiğimiz Şekilde;

Mevcut Kodla, I sütununa veri girdiğimizde;
J sütununa Ölçütü çekiyoruz
P sütununa giriş fiyatını çekiyoruz

İlave olarak;
I sütununa girdiğimiz miktar, BR sütununa eşitse veya büyükse, Koli Miktarını almak istiyoruz, BR sütunundaki miktardan düşükse, Birim Fiyatını almak istiyoruz
Yardımcı olabilir misiniz?

Şimdiden çok teşekkür ederim
 

Ekli dosyalar

Çözüm
Kolay Gelsin Üstadlarım

Örnek Dosyada Belirttiğimiz Şekilde;

Mevcut Kodla, I sütununa veri girdiğimizde;
J sütununa Ölçütü çekiyoruz
P sütununa giriş fiyatını çekiyoruz

İlave olarak;
I sütununa girdiğimiz miktar, BR sütununa eşitse veya büyükse, Koli Miktarını almak istiyoruz, BR sütunundaki miktardan düşükse, Birim Fiyatını almak istiyoruz
Yardımcı olabilir misiniz?

Şimdiden çok teşekkür ederim
Koli miktarı demişsiniz ama ben Koli fiyatı algıladım.
Eğer ki yapılan yanlış ise iki koşulunuza uyan bir örnek doldurun.
Kolay Gelsin Üstadlarım

Örnek Dosyada Belirttiğimiz Şekilde;

Mevcut Kodla, I sütununa veri girdiğimizde;
J sütununa Ölçütü çekiyoruz
P sütununa giriş fiyatını çekiyoruz

İlave olarak;
I sütununa girdiğimiz miktar, BR sütununa eşitse veya büyükse, Koli Miktarını almak istiyoruz, BR sütunundaki miktardan düşükse, Birim Fiyatını almak istiyoruz
Yardımcı olabilir misiniz?

Şimdiden çok teşekkür ederim
Koli miktarı demişsiniz ama ben Koli fiyatı algıladım.
Eğer ki yapılan yanlış ise iki koşulunuza uyan bir örnek doldurun.
 

Ekli dosyalar

Çözüm
Ellerinize sağlık üstadım

"O sütununa çekmek istiyoruz" yazmayı unutmuşum :)

Emeğinize binaen ayarladım
Çok teşekkür ediyorum

son hali şöyle oldu

Public secim

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 9 Then
Application.ScreenUpdating = False
Columns("BQ:BQ").Select
Selection.Find(What:=Target.Offset(0, 2).Value, LookIn:=xlValues).Select
If Target.Value < Range(ActiveCell.Address).Offset(0, 1).Value Then
Target.Cells(1, 1).Offset(0, 1).Value = Range(ActiveCell.Address).Offset(0, 2).Value
Target.Cells(1, 1).Offset(0, 6).Value = Range(ActiveCell.Address).Offset(0, 3).Value
Target.Cells(1, 1).Offset(0, 7).Value = Range(ActiveCell.Address).Offset(0, 5).Value
Target.Offset(0, 0).Select
Else
Target.Cells(1, 1).Offset(0, 1).Value = Range(ActiveCell.Address).Offset(0, 2).Value
Target.Cells(1, 1).Offset(0, 6).Value = Range(ActiveCell.Address).Offset(0, 4).Value
Target.Cells(1, 1).Offset(0, 7).Value = Range(ActiveCell.Address).Offset(0, 5).Value
Target.Offset(0, 0).Select
Application.ScreenUpdating = True
End If
End If

End Sub
Rica ederim kolay gelsin
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst