Bakım ücretleri (konuyu yeniden açtım)

[manisali_mdr]

arkadaşlar merhaba..
1.sayfada;a sütununda yedek parça isimleri,b sütununda bu parçaların ücretleri var..
2. sayfada ise bu yedek parçalara ait fiyat listesi var..
1. sayfada a sütununa yedek parçanın ismini girdiğimde b sütununa indis formülü yardımıyla bu parçanın fiyatını yazdırabiliyorum..
fakaaaatttt....ileride bu yedek parçanın fiyatı değiştiğinde bütün bu listedeki fiyatlar değişiyor..
sizden istediğim şu : ücretlendirme sayfasındaki yedek parçaya ait fiyat değişse bile kaydettiğim fiyatlar değişmesin..
ekteki dosyamı inceleyebilirsiniz..
şimdiden teşekkürler

 

[Necdet]

Merhaba,

Aşağıdaki kodları "Bakım" sayfasının kod bölümüne kopyalayıp dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
Dim c As Range
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
    Set c = Sheets("Ücretlendirme").Range("a:a").Find(Target.Value, LookIn:=xlValues, LookAt:=xlWhole)
    If Not c Is Nothing Then
        Target.Offset(0, 1) = Sheets("Ücretlendirme").Cells(c.Row, "B")
    Else
        Target.Offset(0, 1) = "Bulamadım"
    End If
Son:
End Sub

 

[manisali_mdr]

üstat teşekkürler...ilgine,bilgine,yüreğine sağlık...yaklaşık 1 haftadır bekliyorum ama beklediğime değdi doğrusu

 

[manisali_mdr]

üstat ufak bir sorun oluştu..buraya koyduğum tablo,örnek tabloydu.orijinal tabloda yedek parça isimleri "Sanayi takip" isimli klasörde,D sütununda,ücretleri ise F sütununda,parçaların ücretleri ise "Ücretlendirme" klasöründe C sütununda,bu klasördeki yedek parça isimleri A sütununda...değişik şekillerde uyguladım olmuyor...kodları nasıl değiştirmeliyim??

 

[manisali_mdr]

orijinali ekliyorum

üstat dosyanın orijinalini ekliyorum

 

[Necdet]

Merhaba,

Dosyayı inceleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
Dim c As Range
If Intersect(Target, [D:D]) Is Nothing Then Exit Sub
    Set c = Sheets("Ücretlendirme").Range("A:A").Find(Target.Value, LookIn:=xlValues, LookAt:=xlWhole)
    If Not c Is Nothing Then
        Target.Offset(0, 2) = Sheets("Ücretlendirme").Cells(c.Row, "B")
    Else
        Target.Offset(0, 2) = "Bulamadım"
    End If
Son:
End Sub