-
Fototrend
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
-
Lasersailing
senior tag
válasz
wreakz
#46337
üzenetére
Szia,
B oszlopban lévő képletet látod a C oszlopban:
(Nálam W01-en van két "sz", W02 üres, a többi meg nem létezik, azért ad rá hibát)Ezt megcsinálnám az adott sheeten végig (A oszlop: W01-W52, B oszlopba a képlet amit a C2-ben látsz), majd Szumma B1 : B52 megadja a számot amit keresel. (ill. egy minusz nálam kimaradt)
Üdv.
-
Lasersailing
senior tag
válasz
Cartman023
#46199
üzenetére
Szia,
Van egy olyan tulajdonsága a commandbutton-nak, hogy visible = true / false. Én azzal szoktam játszani, azaz létrehoznék 1-2-3-4-re is commandbuttont, majd az A kiválasztása esetén a 3-4-es
commandbutton.visible=false, míg 1-2-escommandbutton.visible=true, B esetén pedig fordítva. Ez az a) megoldás.b)-t akkor csinálnám esetleg, ha 1-3 és 2-4 választása esetén nagyon hasonló dolgokat kell a programnak csinálnia. Ez esetben meg a caption-ban tudod a user által látott feliratot megváltoztatni, miután kiválasztotta A-t vagy B-t.
-
Lasersailing
senior tag
válasz
Weareus
#46175
üzenetére
Tehát az első szó, kifejezés mindig egybe lesz írva (ha szóköz lenne benne, akkor is)
Nem kötelező egybe írni. A pontosvessző fogja az elválasztást megtenni, ahogyan Lappy írta. (Magyarán minden pontosvessző után kezd egy új oszlopot. Ha egy sorban egy pontosvessző van, akkor két oszlopod lesz excelben.)
-
Lasersailing
senior tag
válasz
tomi_x
#46141
üzenetére
Szia,
Ha a VBA-ban a makrót F8-al indítod el, akkor lépésenként látod, hogy mit csinál (Nem kell "Várj" típusú ellenőrzésekkel vesződni. Ha nagyon hosszú a makró futása, akkor a megfelelő sorra állva F9-el be tudod jelőlni, hogy ott álljon meg a makró futtatása. (piros lesz a kijelőlt sor. (ugyanezt elérheted az ablak bal szélén lévő sávra kattintva is).
(sárgával jelőli, hogy hol tart).Arra figyelj, hogy ha lépésenkénti futás közben pl. a kijelőlést megváltoztatod, akkor ő a változtatás hatásával megy tovább. Futás közben is lehet korlátozásokkal változtatni a makrót, sőt a sárga "csíkot" egérrel át lehet húzni máshova is. (ha pl. rájösz, hogy valami nem jó, akkor átírod, majd újra tudod lépésenként futtatni).
Szerk:
Az alábbi sor egyenlőségjele után kimaradt a ".value". Nem biztos, hogy ez a gond, de én beírnám:If Worksheets(1).Cells(i, 1).Value = Worksheets(1).Cells(kovetkezo_sor, 1).value Then -
Lasersailing
senior tag
Sziasztok,
VBA-ban szeretném egy cella értékét összehasonlítani több másik cella értékével. Valahogyan így:
If Sheets("AP - modified").Cells(AP_sm, 26) = Sheets("65M").Cells(2, 2) Or (Sheets("AP - modified").Cells(AP_sm, 26) = Sheets("65M").Cells(2, 3)) Or (Sheets("AP - modified").Cells(AP_sm, 26) = Sheets("65M").Cells(2, 4)) Or (Sheets("AP - modified").Cells(AP_sm, 26) = Sheets("65M").Cells(2, 5)) Or (Sheets("AP - modified").Cells(AP_sm, 26) = Sheets("65M").Cells(2, 6)) Or (s) Then(azaz az =től balra mindig ugyanaz van, jobbra pedig 6 egymás melletti cella)
Van erre "kultúráltabb" mód? -
-
Lasersailing
senior tag
Szia,
Én épp most futottam bele hasonlóba: 9.5 Mb-ból tudtam 1.1 Mb-ot csinálni:
CTRL+END-del lementem a legutolsó sorra --> CTRL+Balra --> CTRL + SHIFT + Fel --> SHIFT +LE --> SHIFT + SPACE --> jobb klikk delete, majd mentés.Magyarán kitörlöm a látszólag üres, nem használt sorokat. Ezekben lehetnek pl. formázások, amik növelik a file méretét
(Értelemszerűen a fenti csak akkor szabad csinálni, ha így nem törölsz ki nem üres sort, nálam az A oszlopban is biztosan van adat, ha másik oszlopban van).
-
Lasersailing
senior tag
-
Lasersailing
senior tag
Sziasztok,
excel VBA-ból szeretnék a felhasználó által kiválasztott file-t megnyitni. Elvileg sikerülne is, egy gondom van: Az egyik megnyitandó file azonban az alábbi két hibaüzenettel nyílik meg manuális megnyitáskor:
Szerintem e miatt nem tudom megnyitni makróból, az alábbi hibaüzetnetet kapom:
application.displayalerts = false nem segített. Mit lehet ezzel tenni?
(A forrásfile-ban meglévő hibát nem lehet javítani, mert aki a lekérdezést írta már nincs a cégnél)
Köszi előre is a segítséget!
-
Lasersailing
senior tag
válasz
Fferi50
#43346
üzenetére
Köszönöm ez lesz a megoldás! Annyi "gond" van csak vele, ha előbb módosítom a képletet, majd utána a cella típust, akkor nem oldja meg, de ez után F2+enter megoldja. Vagy ha előbb állítom át general-ra majd utána módosítom a képletet...
Nem akarok belegondolni, hogy az elmúlt 10 évben hányszor okozott már ez gondot, de sose kérdeztem meg, helyette cellamásolásokkal szenvedtem!
Nagyon szépen köszönöm!
Hova küldjem a sört?
-
Lasersailing
senior tag
Sziasztok,
Azt miért csinálja az excel, hogy egy képlet módosítása esetén nem számolja ki a képlet értékét?

A képlet értéke a módosítás előtt MAX(0,F4) volt, azaz a "-d4"-et írtam be.
A calculate options automatic-on van.Ha F2-vel belépve a cellába magát a szöveget kijelőlve másolásra az adott excel sheet későbbi oszlopába bemásolom, majd ott módosítom, akkor számol rendesen.
-
Lasersailing
senior tag
válasz
Roland861010
#43150
üzenetére
Szia,
Conditional formatting / feltételes formázás:
Home / Styles / Conditional formatting / New rule / Use a formula to determine which cells to format
=A$1-1>today()
(Feltéve, hogy az A1-ben van a dátum)
Majd a preview ban a format.. kiválasztod a cella színét.
Ha beállítottad, akkor a cella formázását tudod másolni.(elnézést az angol nyelvért, csak angol excelt használok)
-
Lasersailing
senior tag
válasz
torrentwarez
#42962
üzenetére
Ha jól értem a gondod, akkor az F3-as cella értéke 5.30 kellene legyen...
A csv file megnyitásakor ennek az oszlopnak add meg, hogy text formátumú legyen és akkor elvileg jó lesz.
Bocsánat angol excelem van, de remélem megérted így is
1) oszlop kijelől
2) text to columns (szövegből oszlopok)
3) delimited (?)
4) comma (vessző (vagy ami az elválasztó karakter))
5) kiválasztod a problémás oszlopot és beállítos a típusát text (szöveg) nek
6) finish (kész)Ha biztosra akarsz menni, akkor akár az összes oszlopnál be tudod állítani az adat típusát.
Üdv.
-
Lasersailing
senior tag
válasz
Sanyus81
#42924
üzenetére
Nem biztos, hogy jó amire gondolok, de hátha:
Próbáld ki a # jel helyett valami mással helyettesíteni. (pl. "karton") értelemszerűen a tesztelt sheeteken is átírva. Ha ez segít, akkor a # jel zavarja az excelt... (ugye ezt jelzi ki, ha pl. nem fér ki a cellába a kiírandó dátum, azaz ezt különleges karakterként kezeli) -
Lasersailing
senior tag
válasz
allein
#42922
üzenetére
Table array-nél ne sorokat, hanem oszlopokat válassz ki. Az első oszlopban fogja keresni az "A2" cella értékét, és a negyedik oszlopban található értéket fogja visszaadni.
Feltételezem a rendelésszám egyedi azonosító, ha esetleg mégsem mindig az első találatot fogja visszaadni. -
Lasersailing
senior tag
válasz
Lasersailing
#42902
üzenetére
Eszembe jutott a DoEvents (közvetlenül a statusbar frissítés után), úgy tűnik, ez most megoldja a problémát!
-
Lasersailing
senior tag
Sziasztok,
Excel VBA-ban írtam egy programot, aminél 3 ciklus van egymásba ágyazva, így kb 4 percig fut. Szeretném a felhasználóval tudatni, hogy kb. hol tart a futásban, amit legegyszerűbben az első ciklus %-os arányával gondoltam kiiratni a status bar mezőn. Technikailag működik legalábbis 7%-ig elszámol szépen, azonban 7.1%-tól kezdve nem ír ki újabb adatot, helyette gondolkozik, majd 4 perc múlva elkészül.
Soronként nézem a számítási időt, nincs ennél a sornál semmi kiugró érték (minden sorhoz kiírom az aktuális időt, ez alapján 1-2 max. 3 másodperc alatt megvan egy sor).Van ötletetek, hogy hogyan vehetném rá, hogy kiírja ezt a százalékot végig?
screenupdate nincsen kikapcsolvaSegítséget, ötletet előre is köszönöm!
-
Lasersailing
senior tag
válasz
gyulazsolti
#41933
üzenetére
Szia,
Szerintem azért lassú, mert néhány oszlopban képleted van és a képletet rendezés közben néhány milliószor újra kell számolja. Próbáld ki, hogy milyen gyorsan rendez, ha kikapcsolod a képletek frissítését:
Formulas / Calculation / Calculation options / Manual
Rendezés után ne felejtsd el visszakapcsolni automatára! -
Lasersailing
senior tag
válasz
Bacusuz
#41045
üzenetére
F2-vel lépj be egyik cella tartalmába, ami szerinted meg van a másik cellában is.
jelőld ki a teljes cella tartalmat (ha van(nak) space-ek a végén, elején akkor azokat is!)
CTRL+C
átmész a másik sheetre, ahol szerinted meg kellene legyen ez az adat
CTRL+F (keresés menüje)
CTRL+V (szöveg beillesztése)
ENTERígy megtalálta? Ha igen, akkor ugyanez másik irányba --> az a kérdés, hogy betűről betűre megegyezik-e a két cella értéke, a fenti függvények csak akkor találják meg, ha minden betű megegyezik. (sorrend is, spacek száma is, szóval minden számít)
De a legegyszerűbb, ha csinálsz egy tesztet: egy cellát másolj át egy az egyben az egyik munkalapról a másikra, ha azt megtalálja, a többit nem: akkor az a baj, hogy eltérés van a többi cella tartalmában.
Ha nem találja meg, akkor viszont képlethiba van.
Üdv.
-
Lasersailing
senior tag
válasz
Bacusuz
#41029
üzenetére
fkeres függvény nézd meg:
H1-be:
FKERES(G1;Munka2!A:A;1;0)(feltételeztem,hogy Munka2 nevű sheeten az A oszlopban vannak az adatok)
Ha megtalálja, akkor kiírja az értéket, ha nem, akkor "#hiányzik!"-ot ír. Ezt követően leszűrheted a #-re és megvannak a hiányzó címek.Fkeres paraméterei:
1) mit keressen
2) melyik táblázat első oszlopában keressen (fent egy oszlopot adtam meg:A:A)
3) ha megtalálta a táblázat hanyadik oszlopának értékét adja vissza
4) 0 - csak pontos egyezőségre keressen / 1 ha nem találja, akkor a következő sor értéket adja vissza.(Vagy beépíted ezt egy másik függvénybe)
Üdv. -
Lasersailing
senior tag
válasz
JagdPanther
#40957
üzenetére
Szia,
Én (amikor már 100%-ban biztos vagyok abban, hogy a makró megbízhatóan működik), akkor az alábbiak segítségével szoktam felgyorsítani a makró futtatását:
Excel képletek frissítésének kikapcsolása:Application.Calculation = xlManual
majd később visszakapcsolása:Application.Calculation = xlCalculationAutomatic(Értelemszerűen amíg ki van kapcsolva, addig nem kalkulálja újra a képleteket)
Ill. ha sokáig dolgozik magában, azaz mindegy a képernyő tartalma:
Application.ScreenUpdating = False
Majd visszakapcsolni:Application.ScreenUpdating = TrueItt persze azért kell figyelni, mert ha közben megáll a makró, akkor kijelzőn nem fogsz látni semmit, szóval ezt csak akkor, ha nagyon sokáig fut a makró (nagyon sokat gyorsít rajta) és már tutira nem fog lefagyni...
-
Lasersailing
senior tag
válasz
bexinho23
#40793
üzenetére
Szia,
Ha jól értelmezem Neked nem excel gondod van:
Áprilisban 17 db olyan munkanap van, amikor 8 óra 30 percet kell dolgozni és 3 munkanap amikor 6 órát
17*8.5 + 3*6 = 162.5
Te viszont F2, G2 cellák alapján 20 munkanap * 8 órával számolszTehát a Nálatok az "aktuális havi elérhető munkaóra" nem 160 óra, hanem 162 óra 30 perc.
Üdv.
-
Lasersailing
senior tag
válasz
dgyuri50
#40672
üzenetére
Szia,
Nem lehet, hogy valamelyik (vagy akár több) munkafüzeten van egy csomó képlet, ami valójában üres cellákra számol?
(pl. vlookup lehúzva 1 millió sorig, bár adat csak az első 1000 sorban van)
Nyomjál minden munkalapon egy CTRL + END-et (ez leugrik a legutolsó használt sor, legutolsó használt oszlop metszetébe). Ha ez elnavigál az egymilliomodik (üres) cellába, akkor onnan valamit törölni lehet.
Esetleg próbáld meg az automatikus képletfrissítést kikapcsolni (Formulas / Calculation / calculation options / manual). Ha ezután gyorsabban szúr be sort, akkor azért lassú, mert újraszámolja a képleteket.
(De természetesen beszúrás után vissza is kell kapcsolni a képletek frissítését (és ekkor várni), így ez csak hibakeresésre jó vagy egyszerre több sor beszúrása esetén segít kicsit)
-
Lasersailing
senior tag
válasz
Lasersailing
#40587
üzenetére
Bocsánat most nézem, hogy a képlet bemásolása nem sikerült:
=even(row())=row() -
Lasersailing
senior tag
Szia,
Gyakorlatilag azt szeretnéd, hogy pl. a páros excel sorok fehérek legyenek a páratlanok meg szürkék:
=even(row())/row()Ez páros sorokban igaz lesz, páratlan sorokban hamis, feltételes formázásba be tudod tenni, hogy milyen színt akarsz. A páratlan sorokat meg vagy meghagyod fehérre, vagy tagadod a fenti feltételt (not = NEM)
EVEN = PÁROS
ROW = SOR -
Lasersailing
senior tag
válasz
Bocimaster
#40568
üzenetére
Az nem elég, ha leszűröd D oszlopot 00:00-ra majd az F oszlopban végighúzod a képletet, ami összeadja a felette lévő négy cellát?
Ha jól látom mindig 15 percenként van adat, azaz minden egész órában az előtte lévő négy cellát szeretnéd összegezni. (kérdést nem találtam, ez volt a kérdés?)
-
Lasersailing
senior tag
válasz
Ronyman
#40541
üzenetére
Szia,
Beirogattam mindent egy teszt excel munkalapra, ez alapján megértettem, hogy a beosztás sheeten oszlopok jelőlik a dátumokat, míg a jelenléti sheeten sorok.
Nem írtad, de a képletből gondolom a B1-ben van a dolgozó neve. Minden dolgozóra van egy külön jelenléti sheet?
A képlet ami így jó lesz (B4-be):
=VLOOKUP($B$1,beosztás!$A$7:$FH$25,4+(ROW()-4)*5+COLUMN()-2,0)
VLOOKUP = FKERES,
ROW = SOR
COLUMN = OSZLOPEz a képlet másolható C oszlopba is, de a ledolgozott napi idő ("F" oszlopba) már nem lesz jó, ott különbségként számolnám ki.
Nálam a fenti működik, de azt javaslom, hogy gondold át, hogy jó-e Neked, ha az egyik sheeten az oszlopban vannak a dátumok, a másik sheeten sorokban! Engem biztos, hogy megbolondítana!
Így ha változtatsz az egyik tábla struktúráján a másik képleteit újra kell írnod nulláról... -
Lasersailing
senior tag
válasz
Ronyman
#40539
üzenetére
Szia
Az fkeres 3. paraméterét ne fix számként add meg, hanem egy képletként:
3+(oszlop()-x*5)x helyére olyan számot írj, hogy az első dátum esetén 0-t adjál hozzá a 3-hoz
(Oszlop függvény megaddja, hogy melyik oszlopban jársz éppen, így ha ezt beszorzod 5-tel, akkor egy cellával jobbra húzva a képletet "5-öt lépsz" a hivatkozott táblában).
Remélem jól értelmeztem a kérdésed, ha nem, akkor esetleg példát tudnál mutatni?
-
Lasersailing
senior tag
-
-
Lasersailing
senior tag
Sziasztok,
Olyan gondom lenne, hogy van egy makró, ami 1 órával ezelőttig szuperül futott, majd most indításkor hibaüzenet:
"File not found"Ha debug módban F8-at ütök, akkor is, a nélkül, hogy egyáltalán belelépne a makróba! A makrón az utolsó futás óta érdemi változtatást nem csináltam, de szerintem valamit az excelen beállításain babrálhattam el...
Amit változtattam:
átraktam a file-t egy másik mappába (nam használ külső file-okat a makró)
ill. engedélyeztem az összes makró futását excelben, ne kérdezgessenvan ötletetek esetleg?
(Office professional plus 2010)
-->megoldódott, okát nem értem: 5 makró sort inaktívvá tettem, majd egyesével újra aktív és működik

-
Lasersailing
senior tag
válasz
Fferi50
#33353
üzenetére
Szia,
Office 2010-et használok. Válasz:
"Run-time error '438'.
Object doesn't suppor this property or method"
Delila:
igazából a feltételes formázásra is szükségem van. A megoldássoddal egy gondom van. Igazából nem az adott cella értékére, hanem a sor számára lenne szükségem (a sor másik oszlopa tartalmazza a nevet, amire igazából szükségem van).Viszont ezen írás közben rájöttem segítségeddel a megoldásra:
large (<tömb>,8)megadja, hogy mely számnál nagyobbakat kell keressek!
Köszönöm mindkettőtöknek a segítséget!A mostanit és az összess többi, nem is nekem írt megoldásaitokat

Szerk: A 33354-es hozzászólást még nem láttam, amikor írtam, de így már valóban működik az is, köszönöm!
-
Lasersailing
senior tag
Sziasztok,
Makróban kérnék egy kis segítséget:
Makró segítségével kijelőltem a nyolc legnagyobb cellát egy tartományon belül (conditional formattinggal). Ezt követően szeretném azokat a cellákat átmásolni egy másik táblázatba, amelyek a 8 legnagyobb cella feltétel miatt zöldre vannak szinezve. Hogyan lehet ezt megtenni?Az alábbi sorok választják ki 8 legnagyobb cellát:
With Selection.FormatConditions(1)
.TopBottom = xlTop10Top
.Rank = 8
.Percent = False
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399945066682943
End With
Selection.FormatConditions(1).StopIfTrue = False
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With"Step into - F8" alapján az alábbi sor emeli ki ténylegesen:
.ThemeColor = xlThemeColorAccent3De nem tudom ezt if feltétellel kiszedni (az alábbi nem segít):
If ActiveSheet.Cells(sm, 44).FormatConditions(1).Interior.ThemeColor = xlThemeColorAccent3 ThenMeg ez sem:
If ActiveSheet.Cells(sm, 44).FormatConditions(1).Interior.TintAndShade = 0.399945066682943 ThenEz utóbbi logikusabbank tűnt volna, ott soha sem lép be az if-be, az elsőnél meg mindig...
Van valakinek esetleg ötlete?
köszi előre is!
-
Lasersailing
senior tag
Sziasztok,
VBA kódban akadtam el:
hogyan tudom VBA-ban kijelőlni az L20-as cella és a cells(opsm,12) közötti tartományt?(opsm egy változó, 12. oszlop pedig az "L").
Nem tudom mennyire sikerült értelmesen kérdeznem, mondok egy példát:
Ha a makróban az opsm (integer) változó értéke 25, akkor az "L20-L25" tartományt szeretném kijelőlni.Köszönöm előre is a segítségeteket!
-
Lasersailing
senior tag
Sziasztok,
Excel VBA-ból szeretnék e-mailt küldeni. Egyszer régen már írtam ilyen makrót (még előző munkahelyemen), de most nem működik. Olyasmi rémlik, hogy valahol a VBA menüben kellene valamit átállítani, de nem találom, hogy mit...
Makró érintett sora:
Dim level As Outlook.Mailitem ' levélHibaüzenet:
"Compile error: User-defined type not defined"És kijelőli a fenti sort (meg megáll, vagy inkább el sem indul)
Esetleg valaki tud segíteni?
köszi előre is!Szerkesztés:
Bocsánat, megtaláltam a megoldást, ideírom, hátha másnak is kell:
Tools / references --> ki kell jelőlni a "Microsoft Outlook 14.0 Object Library" -t! -
Lasersailing
senior tag
válasz
Lasersailing
#32264
üzenetére
Na szóval a végleges (A vastagonszedést programkód közben nem igazán értelmezte, ami így utólag érthető... Elnézést!):
Sub redharlow()
Dim sor As Integer
Dim oszlop As Integer
Dim ujsor As Integer
Dim sn As String
'program
sor = 1
sn = ActiveSheet.Name
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = "eredmeny"
ujsor = 1
'fejlécet
Sheets("eredmeny").Cells(1, 1) = "Név"
Sheets("eredmeny").Cells(1, 2) = "C oszlop"
Sheets("eredmeny").Cells(1, 3) = "D oszlop"
Sheets("eredmeny").Cells(1, 4) = "E oszlop"
Sheets("eredmeny").Cells(1, 5) = "Dátum"
Sheets("eredmeny").Cells(1, 6) = "Ft"
Do
sor = sor + 1
For oszlop = 7 To 66
If Not (IsEmpty(Sheets(sn).Cells(sor, oszlop))) Then
ujsor = ujsor + 1
Sheets("eredmeny").Cells(ujsor, 1) = Sheets(sn).Cells(sor, 2)
Sheets("eredmeny").Cells(ujsor, 2) = Sheets(sn).Cells(sor, 3)
Sheets("eredmeny").Cells(ujsor, 3) = Sheets(sn).Cells(sor, 4)
Sheets("eredmeny").Cells(ujsor, 4) = Sheets(sn).Cells(sor, 5)
Sheets("eredmeny").Cells(ujsor, 5) = Sheets(sn).Cells(1, oszlop)
Sheets("eredmeny").Cells(ujsor, 6) = Sheets(sn).Cells(sor, oszlop)
End If
Next oszlop
Loop Until IsEmpty(Sheets(sn).Cells(sor, 1))
End Sub -
Lasersailing
senior tag
válasz
RedHarlow
#32262
üzenetére
Szia,
Ha jól értettem a feladatot, akkor az alábbi:
Sub redharlow()
Dim sor As Integer
Dim oszlop As Integer
Dim ujsor As Integer
Dim sn As String
'program
sor = 1
sn = ActiveSheet.Name
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = "eredmeny"
ujsor = 1
'fejlécet
Sheets("eredmeny").Cells(1, 1) = "Név"
Sheets("eredmeny").Cells(1, 2) = "C oszlop"
Sheets("eredmeny").Cells(1, 3) = "D oszlop"
Sheets("eredmeny").Cells(1, 4) = "E oszlop"
[B]Sheets("eredmeny").Cells(1, 5) = "Dátum"[/B]
Sheets("eredmeny").Cells(1, 6) = "Ft"
Do
sor = sor + 1
For oszlop = 7 To 66
If Not (IsEmpty(Sheets(sn).Cells(sor, oszlop))) Then
ujsor = ujsor + 1
Sheets("eredmeny").Cells(ujsor, 1) = Sheets(sn).Cells(sor, 2)
Sheets("eredmeny").Cells(ujsor, 2) = Sheets(sn).Cells(sor, 3)
Sheets("eredmeny").Cells(ujsor, 3) = Sheets(sn).Cells(sor, 4)
Sheets("eredmeny").Cells(ujsor, 4) = Sheets(sn).Cells(sor, 5)
[B] Sheets("eredmeny").Cells(ujsor, 5) = Sheets(sn).Cells(1, oszlop)[/B]
Sheets("eredmeny").Cells(ujsor, 6) = Sheets(sn).Cells(sor, oszlop)
End If
Next oszlop
Loop Until IsEmpty(Sheets(sn).Cells(sor, 1))
End Sub(kérlek jelezz vissza, hogy jól értettem-e és ha van kérdésed még)
(Bocsánat találtam közben egy hibát, azt vastagon szedtem, hogy ki tud javítani)
üdv.
-
Lasersailing
senior tag
Szia,
Vannak elhide-olt sorok a táblázatban? Talán onnan szedi a már nem ott dolgozó neveket?
Próbáld meg az egész táblázatot kijelőlni (aláírásokkal együtt) és leszedni majd újra rárakni tenni az automatikus szűrőt (autofilter). Ez segít?
(Nekem hasonló esetekben ez segített, ha jól értem a problémát).Üdv.
-
Lasersailing
senior tag
válasz
Aladaar
#32203
üzenetére
Szia,
valamit összeraktam, de ezt óvatosan használd, mert csak a "tipikus" esetben működik: 1 bevételt követően sok kiadás jön, majd ismét egy bevétel...
A1-től oszlopok:
Bevétel - csak pozitív számok
Kiadás - csak negatív számok
Egyenleg - =+C2+A3+B3
Dátum
irány - =IF(A3>0,"Bevét","Kiadás")
Utolsó kiadáskori kp - =IF(E4="Kiadás",C4,IF(E3="Kiadás",C3,IF(E2="Kiadás",C2,"KÉPLETHIBA")))
napi MNB
"Historical f/x" - =IF(E3="Kiadás",IF(ABS(B3)>F3,(F3*INDEX($H2:H$3,MATCH(F3,$F2:F$3,0)-1)+(ABS(B3)-F3)*G2)/ABS(B3),H2),G3)
Bevétel - =IF(ISBLANK(A3),0,A3*G3)
Kiadás - =IF(ISBLANK(B3),0,B3*H3)
Egyenleg - =+K2+I3+J3Remélem így érthető lesz, ha nem, akkor írj, addig nem törlöm az excel file-t, amiben csináltam.
Üdv.
-
-
Lasersailing
senior tag
válasz
Aladaar
#32203
üzenetére
Szerintem semmi nem tiltja, hogy év közben változtass számviteli politikát, max. az emberek megszokása...
De persze nem ez volt a kérdésed, hanem excel kérdésed volt.
Közben próbálgattam excelben megoldani, de számomra túl bonyolult FIFO készpénz kezelést lekövetni automatikusan, sajnos nem tudok segíteni.

-
Lasersailing
senior tag
válasz
Aladaar
#32201
üzenetére
Szia,
Miért nem átlagárfolyamon vezetitek a készpénzkészletet? Én átírnám a számviteli politikát és utána egy gonddal kevesebb. Ha ezt választod, akkor már egyszerű: számolsz egy oszlopban átlagárfolyamot, majd egy if-függvény:
- bevétel esetén MNB árfolyam
- kiadás esetén átlagárfolyam használata.Üdv.
Új hozzászólás Aktív témák
- Gyorsjavítást kapott a visszavont, majd újra kiadott GeForce driver
- Pécs és környéke adok-veszek-beszélgetek
- Külföldi prepaid SIM-ek itthon
- Amlogic S905, S912 processzoros készülékek
- Gitáros topic
- One mobilszolgáltatások
- Motorolaj, hajtóműolaj, hűtőfolyadék, adalékok és szűrők topikja
- Motoros topic
- Parfüm topik
- Windows 10
- További aktív témák...
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - 15% AKCIÓ
- MS SQL Server 2016, 2017, 2019
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Autodesk & CorelDRAW - Azonnal - Számlával - Garanciával
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Vírusirtó, Antivirus, VPN kulcsok GARANCIÁVAL!
- Dell Latitude 7210 2-in-1 12" FHD touch, i7 10610U, 16GB RAM, 512GB SSD, jó akku, számla, 6 hó gar
- ÁRGARANCIA! Épített KomPhone i5 12400F 16/32/64GB RAM RTX 5060 8GB GAMER PC termékbeszámítással
- Samsung Galaxy A16 / 4/128GB / Kártyafüggetlen / 12HÓ Garancia
- Samsung Galaxy S24 FE 128GB, Kártyafüggetlen, 1 Év Garanciával
- BESZÁMÍTÁS! ASUS H110M i3 6100T 8GB DDR4 250GB SSD GTX 1050 Ti 4GB Kolink Inspire K2 aRGB 400W
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest






