Új hozzászólás Aktív témák

• #31029 Fferi50 Topikgazda Simba86 #31027

  Új Válasz 2016-03-16 07:49:39 #31029

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fferi50

  Topikgazda

  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.

• #31028 Delila_1 veterán Simba86 #31027

  Új Válasz 2016-03-16 07:36:54 #31028

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  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 Sub

• #26294 Simba86 senior tag Simba86 #26293

  Új Válasz 2015-03-29 12:35:40 #26294

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Simba86

  senior tag

  válasz Simba86 #26293 üzenetére

  Közben sikeresen megoldottam! sztornó

• #19532 hallgat csendes tag Simba86 #19530

  Új Válasz 2013-11-15 20:25:35 #19532

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  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!

• #19531 Mutt senior tag Simba86 #19530

  Új Válasz 2013-11-15 19:58:54 #19531

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Mutt

  senior 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)-A3

  A 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

• #19529 lappy őstag Simba86 #19527

  Új Válasz 2013-11-15 12:09:54 #19529

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  lappy

  őstag

  válasz Simba86 #19527 üzenetére

  SZia!
  két képlet kell:
  =HA(SZÁM(C2);((C2/105)*100);HA(SZÁM(D2);((D2/118)*100);(E2/127)*100)) az alaphoz
  =HA(SZÁM(C2);((C2/105)*5);HA(SZÁM(D2);((D2/118)*18);(E2/127)*27)) az ÁFA

• #19528 Delila_1 veterán Simba86 #19527

  Új Válasz 2013-11-15 12:04:25 #19528

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Simba86 #19527 üzenetére

  Az egyszerűbb bevitel érdekében a B oszlopba érvényesítést tettem, ebből választhatod ki a 3 féle ÁFÁ-t. Az adatokat a H oszlop tartalmazza.

  

Új hozzászólás Aktív témák