Depo çıkış acil yardım pls

[Ugurtan]

arkadaşlar benim çalıştığım lokantada diğer şubelere çıkış yapmamız gerekiyor yanlız ben excelde bunu yaparken devamlı olarak girdiğim ürünlerin kg veya koli bazında birim fiyatlarını yazmam gerekiyor. bunu otomatik bir şekilde yapmam için bana yardımcı olursanız çok sevinirim şimdiden teşekkürler aşağıda bir xls dosyasında örnek gösterdim ....
Önemli Not:fiyatlar otomatik girerken yanlız şu var diyelimki bugün aldığım ürünün fiyat 5 ytl ama bir kaç gün sonra 3 ytl oluyor böyle bir durumda eğer fiyat otomatik girerse diğer kayıtlardaki fiyatlar nasıl kalacak onlarda otomatik olarak değişmemesi gerekiyor. ne girmişsem öyle kalması gerekiyor bunu nasıl yapabilirim.

 

[Ugurtan]

sanırım kimse yardım edemeyecek

 

[Levent Menteşoğlu]

"çıkış yapılan depo" sayfasının kod sayfasına aşağıdaki kodu kopyalayın. B sütununa ürün adını yazdığınızda çalışacaktır. Ürün adını yazmadan önce birimini yazın.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [b:b]) Is Nothing Then Exit Sub
Set s1 = Sheets("ürün fiyat bölümü")
sat = s1.[b1:b65536].Find(Target).Row
sut = 3
If Target.Offset(0, 2) = "koli" Then sut = 4
If Target.Offset(0, 2) = "paket" Then sut = 5
Target.Offset(0, 3) = s1.Cells(sat, sut)
Target.Offset(0, 4) = Target.Offset(0, 3) * Target.Next
Target.Offset(0, 5) = Target.Offset(0, 5) + Target.Offset(0, 4)
End Sub

 

[Ugurtan]

teşekkürler şimdi deniyorum

 

[fikri]

sanırım kimse yardım edemeyecek

Sayın Ugurtan ben excelin bir acemisi ve bu sitenin üyesi olarak bu sözünüze çok kırıldım. Gerçeği söylemeliyim ki bugüne kadar en kısa zamanda ve dürüstce yardımcı olan bu sitedeki üye arkadaşlarımızı gördüm Hepsinden ALLAH razı olsun

 

[Levent Menteşoğlu]

Ekli dosyayı inceleyin.

Sn fikri sizede güzel sözleriniz için teşekkür ederim.

 

[Ugurtan]

Sayın Ugurtan ben excelin bir acemisi ve bu sitenin üyesi olarak bu sözünüze çok kırıldım. Gerçeği söylemeliyim ki bugüne kadar en kısa zamanda ve dürüstce yardımcı olan bu sitedeki üye arkadaşlarımızı gördüm Hepsinden ALLAH razı olsun

kırılmana gerek yok ki dostum levent arkadaş saolsun bana bu konuda özel mesajlarla çok yardımcı oldu ben o kelimeyi espirisine kullandım. dikkat edersen zaten yazdığım konu excele yeni başlayanlar bölümü gidip daha uzman bölüme yansıtmadım çünkü basit bir iş ama ben beceremedim. çünkü tam fonksiyonları bilmediğimden dolayı. sizin kadar bende takip etmeye çalışıyorum butün arkadaşların yardımlarını görüp faydalanıyorum. eğer sözüm yanlış aksetti ise özür dilerim.
söylediğim sözümün ciddi olmadığını cümlemi bitirirken kullandığım gülücükten anlaman gerekirdi neyse önemli değil

 

[Ugurtan]

leventm dosyan için teşekkür ederim sanırım senin sayende bu dosya bir çok arkadaşımada yardımı olacaktır. eminim tekrar teşekkürler