-
GAMEPOD.hu
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
Delila_1
Topikgazda
-
Mutt
aktív tag
válasz Simba86 #19530 üzenetére
Hali,
A3-ban a képlet:
=C3/(1+$C$1)+D3/(1+$D$1)+E3/(1+$E$1)
B3-ban pedig:
=SZUM(C3:E3)-A3A képlet a nettóérték számításhoz nem a szorzásos változatot használja (mivel a szorzószám csak közelítőértékként van többnyire megadva) hanem az osztásost. Az első sorban rögzítve vannak az áfa kulcsok, így a képlet tud rájuk hivatkozni.
A nettóértéket kiszámolva az áfa már könnyen számolható a bruttóból kivonva.Esetleg az A3-ra egy kerekítést dobhatsz.
üdv
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
hallgat
csendes tag
válasz Simba86 #19530 üzenetére
Szia!
Bocsánat, csak trollkodom.
ÁFA számításnál az osztás ad pontosabb eredményt, nem a közelítő értékkel való szorzás.
A bruttó értékből úgy kapod meg a nettót, hogy elosztod 1 egész + ÁFA értéke tizedesekben megadva, azaz 1,27-tel, ha 27%-os az ÁFA kulcs.Ha megnézed lappy válaszát, ugyan ezt csinálja, csak két lépésben, azaz elosztja 127-tel (megkapja az 1%-ot), majd szorozza 100-zal (megvan a 100%).
Én azért választanám Delila megoldását, mert nincs a képletbe "égetve" az ÁFA értéke. Ha változás van, vagy új érték jön be a képbe, csak a listát kell bővíteni/helyesbíteni. Elgépelni sem lehet, mert érvényesítésnél csak a listában szereplő értékeket veheti fel a cella, kisebb a hiba lehetősége.
Persze ez mindenkinek a saját ízlése ;-)
Még egyszer elnézést a belekotyogásért!
Hogy a kérdésedre is legyen némi segítség:
A két bruttó 1000-es cellád alapjainak összegét kiszámoltathatod lappy képletével úgy is, hogy a két képletet (x áfa és y áfa) összeadásjellel egymás mögé fűzöd. Így a képlet kiszámolja az első cella értékéből a nettó értéket, majd hozzáadja második cella értékéből számolt nettó értéket és ezt jeleníti meg.
Az kérdés, hogy egy pénztárkönyvben miért is írnál 2 tételt egy sorba?
De ez már a Te szakterületed.Peace, love r'n'r!
[ Szerkesztve ]
Office 2010 Attól, hogy a verebek alakzatba állnak, az még nem SAS!
-
Simba86
senior tag
válasz Simba86 #26293 üzenetére
Közben sikeresen megoldottam! sztornó
Siemens C35-> Siemens MT50-> Motorola E398-> SE K750i-> Nokia 6220 Classic-> ZTE Blade-> SE Xperia Mini Pro-> Samsung Galaxy S Advance -> Sony Xperia SP -> Huawei P8 Lite -> Xiaomi Redmi Note 4 -> Xiaomi Redmi Note 6 Pro ->Xiaomi Redmi Note 9 -> Xiaomi Redmi Note 11
-
Delila_1
Topikgazda
válasz Simba86 #31027 üzenetére
Az eredeti, ömlesztett adatokat tartalmazó lapnak az Eredeti nevet adtam. A csillagokkal jelzett sorban írd át a nevét.
A makró végig megy az Eredeti lap sorain. Megnézi, van-e a sorban szereplő ÁFA-kód nevű lap. Ha nincs, létrehozza. Az aktuális sor adatait átmásolja a megfelelő lapra.
Sub Szortirozas()
Dim sor As Long, usor As Long, kod, lapnev
With Sheets("Eredeti") '*****
sor = 2
Do While .Cells(sor, "C") <> ""
kod = .Cells(sor, "C") & ""
On Error Resume Next
Set lapnev = Sheets(kod)
If Err.Number <> 0 Then
Sheets.Add Before:=Sheets(Sheets.Count)
ActiveSheet.Name = kod
.Rows(1).Copy Sheets(kod).Range("A1")
.Rows(sor).Copy Sheets(kod).Range("A2")
On Error GoTo 0
Else
usor = Application.WorksheetFunction.CountA(Sheets(kod).Columns(3)) + 1
.Rows(sor).Copy Sheets(kod).Range("A" & usor)
End If
sor = sor + 1
Loop
End With
Beep
MsgBox "Kész van.", vbInformation
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Fferi50
őstag
válasz Simba86 #31027 üzenetére
Szia!
Az Adatok - Speciális szűrővel egyből a másik helyre másolhatod a szűrt adatokat. Az a fontos, hogy arról a munkalapról indítsd, ahová másolni szeretnéd az adatokat. A párbeszéd ablakot értelemszerűen töltsd ki.
Ha makrórögzítővel felveszed, akkor csak a szűrőtartomány megfelelő értékeit kell változtanod, mielőtt elindítod a makrót.Üdv.
Új hozzászólás Aktív témák
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24
- Warhammer Online - Age of Reckoning (DE) Collectors Box (Figurával!)
- Lemezes Retro PC Játékok
- Windows 10/11 Home/Pro , Office OEM/Retail kulcsok
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: Ozeki Kft.
Város: Debrecen