Otomatik Çarpan

[Erhan6161]

Arkadaşlar merhaba
Bir baskı firmasında tezgahtar arkadaşların sürekli olarak yapmış olduğu fiyat verme hatasını en aza indirmek için sizlerden yardım rica ediyorum

ekli tablo da örnekleme yaptım

tezgahtar 1 ila 10 arası bir rakam girince otomatik olarak 1-10 arası adet fiyatından çarpımını yapmasını istiyorum, aynı şekilde 800 baskılık bir iş geldiğinde de adet yerine 800 yazınca 500-1000 arası adet fiyatından yapmasını istiyorum bu konuda yardımcı olursanız çok memnun olucam

 

[TEGCreative]

Benimde eski mesleğim tekstil baskı Bir program yapmıştım seneler evvel eğer depolamalarda bulabilirsem muhakkak size ulaştıracağım. Mutlaka işinize yarayacaktır .

 

[Erhan6161]

şimdiden teşekkür ederim

 

[Murat OSMA]

Merhaba Erhan Bey,

D2 hücresine bu formülü yazıp aşağıya doğru çekiniz.

[SIZE="2"]=[COLOR="Red"]ARA[/COLOR](B2;{0;11;501;1001};{0,25;0,15;0,1})[/SIZE]

 

[Erhan6161]

Merhaba Erhan Bey,

D2 hücresine bu formülü yazıp aşağıya doğru çekiniz.

[SIZE="2"]=[COLOR="Red"]ARA[/COLOR](B2;{0;11;501;1001};{0,25;0,15;0,1})[/SIZE]

İşlem tamamdır çok teşekkür ederim

 

[Murat OSMA]

Rica ederim, iyi günler.​

 

[Erhan6161]

Otomatik çarpan 2

Arkadaşlar merhaba,
Dün yardımcı oldunuz öncelikle çok teşekkür ederim,
Yalnız biraz daha yardıma ihtiyacım var gibi.

Malz. sayfasına bazı veriler girmek istiyorum bir fiyat tablosu

Sayfa1'de de açılır pencerede ürünleri seçip adeti yazınca Malz. sayfasından fiyatı adete göre hesaplamasını yapmak istiyorum..

Dün yardımcı olan arkadaş , adete göre fiyat hesaplaması konusunda yardım olmuştu . onun yaptığı formül tabloda mevcut

 

[Korhan Ayhan]

C2 hücresine;

=EĞERHATA(DÜŞEYARA(A2;MALZ!A:B;2;0);0)

 

[Erhan6161]

C2 hücresine;

=EĞERHATA(DÜŞEYARA(A2;MALZ!A:B;2;0);0)

Öncelikle teşekkürler
yalnız hangi sayfa koyacağım bunu birde diğer formül iptal mi oldu ?

 

[Korhan Ayhan]

Ben sorunuzu yanlış anladım sanırım.

Siz tam olarak hangi sayfaya neredeki fiyatı getirmek istiyorsunuz?

 

[TEGCreative]

Merhaba sayın Erhan6161 ;

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A2:A300]) Is Nothing Then GoTo 10
If Target = "" Then Exit Sub
tablo = Sheets("MALZ").Range("A1:B" & Sheets("MALZ").Cells(Rows.Count, "A").End(3).Row)
Target.Offset(0, 2) = WorksheetFunction.VLookup(Target, tablo, 2, 0)
10:
End Sub

Yukarıdaki kodu Sayfa1 in kod bölümüne yapıştırınız.
Sayfa1 de A sütununu seçip Veri doğrulama yapıp Liste olarak MALZ sayfanızdaki malzeme bölümünü seçin.
Sayfa1 de D sütununa da =B2*C2 derseniz ve aşağı doğru çekerseniz istediğinizi yapacaktır.

Örnek Dosya : Buradan İndirebilirsiniz