Otomatik birim fiyat gelmesi hakkında

[Orion1]

Merhaba
Kodu değiştirin

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target.Rows, [C:C]) Is Nothing Then Exit Sub
On Error Resume Next
Set s1 = Sheets("MALZEME")
Set brf = s1.[A:A].Find(Target.Value, LookAt:=xlWhole)
If Not brf Is Nothing Then
Cells(Target.Row, 4).Value = ""
Cells(Target.Row, 6).Value = ""
Cells(Target.Row, 4).Value = Sheets("MALZEME").Cells(brf.Row, 2).Value
Cells(Target.Row, 6).Value = Sheets("MALZEME").Cells(brf.Row, 3).Value
End If
End Sub

Bunu denedim.Olmamıştı.

 

[meslan]

Merhaba Evren Bey
Ben denedim oluyor. Belkide dikkatimden kaçan bir şey vardır. Dosyayı ekledim.
Saygılar.

 

[Orion1]

Merhaba Evren Bey
Ben denedim oluyor. Belkide dikkatimden kaçan bir şey vardır. Dosyayı ekledim.
Saygılar.

Hayret oluyor.Oysa ben denediğmde olmamaıştı.Bana garezi var galiba.