Girilen Miktara Göre Kodla Veri Alma

FerhatCK' Alıntı:

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.

Genişletmek için tıklayın ...

İndirmek için giriş yapmanız gerekmektedir.
(20 satır)

Epakambalaj' Alıntı:

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

Genişletmek için tıklayın ...