düşeyara formülünü makro ile yapmak

[gedavet]

cari sayfasındaki "AK" sütununa "aj" sütunundaki bulunduğu satırda örnek 5. satırdaki ürünün ürünler sayfasından alış fiyatı ile çarpmasını istiyorum makro ile yapmasını

yani kalan adedi ürünler sayfasındaki ürünün alış fiyatı ile çarpması cari sayfasında hangi satırda hangi ürün varsa onun alış fiyatı ile

örnek ak5 de 500 olması lazım şuanda


"AK" sütununa örnek 5. satırda uçlu kalam yazmışım bunun ürünler sayfasındaki birim fiyatı ile kalan adedi çarpmasını istiyorum makro ile

 

[Huseyinkis]

ekteki Kodları denermisin

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("L:O")) Is Nothing Then Exit Sub

If Target.Column = 12 Or Target.Column = 15 Then
Deger = Cells(Target.Row, 36).Value
aranan = Cells(Target.Row, 11).Value
sıra = Target.Row
Application.ScreenUpdating = False
Sheets("ÜRÜNLER").Select
Sheets("ÜRÜNLER").Range("D1:D65536").Select
a = Selection.Find(What:=aranan, LookAt:=xlWhole).Row
Sheets("Cari").Select
Application.ScreenUpdating = True
Cells(sıra, 37).Value = Deger * Sheets("ÜRÜNLER").Cells(a, 5).Value
End If
End Sub

 

[gedavet]

Deger =

ilginiz için teşekkür ederim bu kodda hata veriyor (Deger =)

 

[Huseyinkis]

Deger =

ilginiz için teşekkür ederim bu kodda hata veriyor (Deger =)

Ekteki dosyayı incelermisiniz ben hata ile karşılaşmadım.

 

[gedavet]

ilginiz için teşekkür ederim emeğinize sağlık