Girilen tutara komisyon oranı hesaplayıp kargo ücreti ekleme

Katılım
19 Kasım 2019
Mesajlar
6
Excel Vers. ve Dili
Bilmiyorum öğrenmek için üye oluyorum.
Merhaba,

Arkadaşlar bu satış platformların da mağazamız var ve o platformlar da satış yapıyoruz. Ve bildiğiniz gibi bunların komisyon ücretleri var. Ben tüm mağazamız olan siteler de ki komisyon oranlarını kategori bazın da çıkardım örneğin;

Beyaz eşya x sitesi % 10 komisyon
Elektronik X sitesi %15 komisyon

gibi, ben 5 tl ye sattığım ürünü X platformun da yüzde 10 komisyon ile kaça koyacağımın hesabını yaptım. Yüzde hesaplama ile fakat benim yapmak istediğim bir şey daha var,

Diyelim ki X mağazasında ki bir ürünü kargo haric satış tutarı 5 tl ye koydum %10 komisyon ile 5.50 tl'ye satmam gerekiyor. Burada ki hesaplamayı yaptım ben bu 5.50 tl ye bir de kargo bedeli olan 7.5 tl yi ekmek istiyorum. Yani öyle bir şey yazmalıyım ki DESİ bazın da ayrım yapmam şart. Misal, 5 tl lik ürünün desi'si 3 diyelim ve kargo firması 3 desilik ürüne 12 tl ücret biçiyor. Ben de satmak istediğim ürünün desisini yazıp kargo bedelini satacağım ürüne otomatik ekleyerek X mağazasın da şu kadar satmalıyımın sonucunu nasıl elde edebilirim Örneğin;

KDV dahil 5 tl lik bir ürünüm var ve bunu X mağazasın da 5 tl ye satacağım. O mağazanın komisyon oranı %10 5.5 tl ye mağazaya yükledim. + desisi 3 ve 12 Tl daha eklemem gerekiyor 5,5+12=17.50 TL. Bu sonuçu ben Fiyat diye yazdığım bir sütuna tutarı yazıp toplam sonucu b sütunun da görmek istiyorum. Toplam 6 mağaza var ve her mağazanın kategori bazın da % lik komisyon oranları farklı ve her desinin de fiyatı farklı. Örnek verebileceğiniz bir kodlama ile tüm mağazalarda ki oranları ve desi sonuclarını hepsine uygulamam lazım.

Sizlerden ricam download olarak vermeyip kodu konuya yazarsanız çok sevinirim. Yaptığım çalışma ile ilgili bir görsel yükledim umarım anlatabilmişimdir.

https://imgyukle.com/i/1.Ryn6eq

Not: mağaza isimlerini söylememem yahut gizlememin nedeni reklam amaçlı bir post olmadığı içindir.

İyi çalışmalar.
 
Katılım
19 Kasım 2019
Mesajlar
6
Excel Vers. ve Dili
Bilmiyorum öğrenmek için üye oluyorum.
Merhaba,

Yardım edebilecek kimse yok mu ?
 
Katılım
25 Haziran 2019
Mesajlar
3
Excel Vers. ve Dili
Excel 2016
Kastettiğiniz şeyi doğru anladım mı bilmiyorum, üstelik çok temiz bir çalışma olmadı biraz kalabalık ve uzun kodlar yer alıyor ama böyle yapabildim


Sub Düğme1_Tıkla()
For i = 2 To 15

If Sayfa1.Cells(i, 11) = "" Then
Sayfa1.Cells(i, 12) = ""
ElseIf Sayfa1.Cells(i, 11) = 0 Then
Sayfa1.Cells(i, 12) = CDbl(7.5)
ElseIf Sayfa1.Cells(i, 11) > 0 And Sayfa1.Cells(i, 11) <= 1 Then
Sayfa1.Cells(i, 12) = CDbl(10)
ElseIf Sayfa1.Cells(i, 11) > 1 And Sayfa1.Cells(i, 11) <= 3 Then
Sayfa1.Cells(i, 12) = CDbl(10)
ElseIf Sayfa1.Cells(i, 11) > 3 And Sayfa1.Cells(i, 11) <= 5 Then
Sayfa1.Cells(i, 12) = CDbl(12)
ElseIf Sayfa1.Cells(i, 11) > 5 And Sayfa1.Cells(i, 11) <= 10 Then
Sayfa1.Cells(i, 12) = CDbl(15)
ElseIf Sayfa1.Cells(i, 11) > 10 And Sayfa1.Cells(i, 11) <= 20 Then
Sayfa1.Cells(i, 12) = CDbl(25)
ElseIf Sayfa1.Cells(i, 11) > 20 And Sayfa1.Cells(i, 11) <= 30 Then
Sayfa1.Cells(i, 12) = CDbl(37)
End If

Next

For k = 2 To 15
Sayfa1.Cells(k, 14) = Sayfa1.Cells(k, 4) + Sayfa1.Cells(k, 12)
Next

For m = 2 To 15
Sayfa1.Cells(m, 15) = Sayfa1.Cells(m, 5) + Sayfa1.Cells(m, 12)
Next

For n = 2 To 15
Sayfa1.Cells(n, 16) = Sayfa1.Cells(n, 6) + Sayfa1.Cells(n, 12)
Next

For o = 2 To 15
Sayfa1.Cells(o, 17) = Sayfa1.Cells(o, 7) + Sayfa1.Cells(o, 12)
Next

For p = 2 To 15
Sayfa1.Cells(p, 18) = Sayfa1.Cells(p, 8) + Sayfa1.Cells(p, 12)
Next

For s = 2 To 15
Sayfa1.Cells(s, 19) = Sayfa1.Cells(s, 9) + Sayfa1.Cells(s, 12)
Next

End Sub
 
Katılım
19 Kasım 2019
Mesajlar
6
Excel Vers. ve Dili
Bilmiyorum öğrenmek için üye oluyorum.
Bu kodları makro ile mi çalıştıracağım ?
 
Katılım
19 Kasım 2019
Mesajlar
6
Excel Vers. ve Dili
Bilmiyorum öğrenmek için üye oluyorum.
ben bu dediğinizi makroya ekledim çalıştır dedim ama. hiç birşey çıkmadı sıfır değer oldu heps.
 

muratgunay48

Altın Üye
Katılım
10 Şubat 2010
Mesajlar
1,182
Excel Vers. ve Dili
Office 365 - Türkçe (64 bit)
Altın Üyelik Bitiş Tarihi
31-01-2025
Merhabalar, eğer doğru anladıysam (benim de iş yerinde bu şekilde kullandığım dosyalar var)
Ayrı bir sayfada değerleri yazsanız ve o değerlere göre sizin fiyat sayfanızda değer gözükse. =(B2/100)*Sayfa1!B2 gibi mesela (çok basit oldu ama)
Anladığım kadarıyla sizin sorununuz matematiksel olarak çözülecek bir sorun. Eğer isimleri değerleri değiştirerek örnek bir dosya atabilirseniz yardımcı olmaya çalışırım. Saygılarımla.
 
Katılım
19 Kasım 2019
Mesajlar
6
Excel Vers. ve Dili
Bilmiyorum öğrenmek için üye oluyorum.

merhaba verdiğin çalışma kitabını inceleyip haber vereceğim teşekkür ederim.

Merhabalar, eğer doğru anladıysam (benim de iş yerinde bu şekilde kullandığım dosyalar var)
Ayrı bir sayfada değerleri yazsanız ve o değerlere göre sizin fiyat sayfanızda değer gözükse. =(B2/100)*Sayfa1!B2 gibi mesela (çok basit oldu ama)
Anladığım kadarıyla sizin sorununuz matematiksel olarak çözülecek bir sorun. Eğer isimleri değerleri değiştirerek örnek bir dosya atabilirseniz yardımcı olmaya çalışırım. Saygılarımla.
Ben bahsettiğiniz değeri yaptım o şekilde var lakin şimdi, A sutünun da kategoriler var B kısmın da fiyat var. Ve ben C kısmına DESİ yazıp D-E-F-G-H ve I sutunlarında ki mağazalarda kaça satacağımı bulmak istiyorum.

B kısmına yazdığım 10 tl lik bir fiyatı C kısmına da Desisi olarak 1 yazdığım zaman D-E-F-G-H-I sutünlarında ki mağaza isimlerinin altına o 10 tl'lik ürünün kargo ve komisyon fiyatı bir olup kaça satacağımı yazmasını istiyorum.

umarım anlatabilmişimdir.
 

muratgunay48

Altın Üye
Katılım
10 Şubat 2010
Mesajlar
1,182
Excel Vers. ve Dili
Office 365 - Türkçe (64 bit)
Altın Üyelik Bitiş Tarihi
31-01-2025
GokhanGok87 Size basit hazırlanmış bir dosya gönderiyorum. Yalnız sizin şemanızı ve neye göre yüzdelendirdiğinizi bilmediğim için. Bu gibi sorularda aslında örnek dosyalar üzerinden gidilirse daha verimli olur diye düşünüyorum. Benim dosyamda kademe olarak yazdım. Göreceğiniz üzere DESİ sayfasından fiyatı KOMİSYON sayfasından komisyonu alıyor üzerine ekliyor. Umarım bu dosya üzerinden gidebiliriz.
Saygılarımla.
 

Ekli dosyalar

Üst