Formula Excel calcul tarifar pe tari, greutate si zone

[Kabal-48k]

Salutare,

Am urmatoarea problema :
Am un tabel cu costuri de distributie / colectare din mai multe tari. Calculul ar trebui sa fie in functie de urmatoarele :
1) Tara
2) Zona (cod postal)
3) de grutate bruta fizica sau tarifara (metru cub , metru de podea sau grutatate bruta fizica - valoarea cea mai mare dintre cele 2 )
4) marfa ADR sau nu

Eu am incercat o combinatie intre Index si match insa nu a iesit ceea ce doream. As vrea sa imi faca calculul automata la introducerea datelor din comanda ( Zona,kg brut, kg tarifar, ADR)
Am atasat si un fisier cam cum ar fi acest tabel (pe fiecare tab avem cate o tara )

Va multumesc anticipat pentru ajutor

[Indigo]

Salutare,

Nu se prea intelege ce vrei sa faci.

Calculul ar trebui sa fie in functie de urmatoarele :

Ce trebuie sa faca acel calcul?

In fisierul atasat scrie de mana (fara formule - de care ne vom ocupa noi), functie de ce se iau acele date si de unde se iau.
Unde va fi amplasata acea formula, in ce foaie?, in care celula?

PS Roaga un moderator sa mute topicul la una din variantele de excel (depinde de versiunea de excel in care lucrez).

[Kabal-48k]

Salutare

Acel calcul trebuie sa iti arate vaoarea exacta a transportului din una din tarile alese, am reatasat tabelul
Spre esemplu: daca am 110 kg din Gemania as vrea sa imi afiseze exact valoarea care trebuie achitata. Deasemenea calculul trebuie sa tina seama de cateva aspecte greutatea tarifara poate fi mai mare decat cea fizica si atunci se va calula la tarifar (cea mai mare valoare )
Versiunea de excel in care lucrez este cea din 2016


Multumesc

[csaba1960]

Buna
In atasament ai o solutie.
Este cu VBA, deci trebuie sa permiti sa ruleze macrouri.
Iti calculeza pretul unei expeditii in fct de parametrii(tara, zona, greutate) la care adauga ADR sau nu.
Calculeaza separat Greutate tarifara metri de podea si Greutate tarifara cbm si la aceste doua adauga ADR-ul.

Obs la calcul Greutate tarifara metri de podea se calculeaza conform ultima pozitie de greutate din tabel, nefiind specificat cum se calculeaza peste 900 kg.

Este realizat in Excel 2010.

[Kabal-48k]

Salutare,

Este chiar ok.
Poti sa imi spui exact pasii cu care ai compus aceasta solutie ?

Multumesc mult.

[csaba1960]

Buna

Fara sa intram in prea multe teorii, in general pentru o problema ridicata exista mai multe soluții, mai multe modalități de abordare. In funcție de cunoștințele si de exprienta acumulata a fiecăruia. Nu exista o rețeta standard.
Poate exista o abordare prin formule Excel sau prin VBA, precum si combinația lor.
In cazul de fata, prețul fiind in funcție de tara, zona, greutate am considerat ca soluția prin formule Excel ar fi prea complicata.
Programul VBA - format dintr-o subrutina si o funcție.

Funcția calculează prețul in funcție de greutate si zona.
Pentru alegerea clasei de greutate am folosit o structura Select Case si observând ca este o legătura stransa intre zona exprimata in cifre si rândul care se utilizează pentru calculul apretului al doilea parametru am integrat in functie cu o abordare de gen:

Cod: Selectaţi tot

Cells(c.Cells(2, 2) + 2, x)

unde c - este sheetul Calcul
Cells(2, 2) celula cu zona
Daca zona era exprimata altfel, nu in cifre, situația era puțin mai complicata.

Subrutina calculGreutateBruta dace calculul prețul folosind funcția de mai sus.
Inserez codul cu comentarii pentru o înțelegere mai ușoara.

Cod: Selectaţi tot

Sub calculGreutateBruta()
Dim sheetName As String
sheetName = c.Cells(1, 2): Worksheets(sheetName).Select     ' selectarea sheet in fct de tara
greut = c.Cells(3, 2):

    If c.Cells(8, 2) = "DA" Then    '           pret cu ADR
    c.Cells(12, 2) = pRet(c.Cells(3, 2)) + Cells(16, 2)     '           pret in fct de greutate
    c.Cells(6, 2) = pRet(Cells(15, 2)) * c.Cells(4, 2) + Cells(16, 2)       '           pret Greutate tarifara metri de podea
    c.Cells(7, 2) = pRet(Cells(14, 2)) * c.Cells(5, 2) + Cells(16, 2)    '           pret Greutate tarifara cbm

    Else: c.Cells(12, 2) = pRet(c.Cells(3, 2))      '           pret fara ADR
    c.Cells(6, 2) = pRet(Cells(15, 2)) * c.Cells(4, 2)
    c.Cells(7, 2) = pRet(Cells(14, 2)) * c.Cells(5, 2)
    End If

c.Cells(13, 2) = WorksheetFunction.Max(c.Cells(6, 2), c.Cells(7, 2), c.Cells(12, 2)) '       aleg maximul
c.Select
End Sub

[Kabal-48k]

Salutare Csaba,

Multumesc mult pentru ajutor si informatiile complete

[razvanf19]

Buna seara.
Am si eu o problema de genul asta doar ca a mea e mai simpla, la modul ca vreau sa pot calcula tariful coletelor in functie de greutate.
Problema nu ar trebui sa fie complicata doar ca nu prea am inspiratie si nu prea stiu cum sa incep.
Vreau ca intr-o coloana sa fie introdusa greutatea iar in alta sa imi afiseze pretul, nu e pe zone, pe tari, doar pret pt primele 5 kg apoi pret aditional pe fiecare kg.
Pretul coletelul pana la 5 kg este de 10 lei (sa zicem) iar kg suplimentar sa se tarifeze cu 1 leu.

Ma puteti ajuta cu calculul acesta, va rog?
Multumesc.

[IPP]

Buna ziua

In fisierul atasat gasiti doua variante:
Pret1 (pe coloana C) returneaza valoarea din B1 pentru greutate (masa) <=5 respectiv adauga valoarea obtinuta prin rotunjirea kilogramelor extra in sus. Adica pentru, de exemplu 5,3 kg pretul va fi ca pentru 6 kg (adica 10+1=11)
Pret2 (pe coloana D), ca mai sus dar fara rotunjiri

Formulele au o oarecare parametrizare in sensul in care in valorile din B1 si B2 (preturile pentru <=5kg respectiv pretul pentru fiecare kg extra) le puteti schimba cf. realitatii.

Rotunjiri se pot face si in jos, depinde ce doriti
Am presupus ca in lista dvs. nu vor fi colete cu greutate 0

IP

[razvanf19]

Multumesc mult.
Este perfect.