-
Fototrend
Fototrend
Új hozzászólás Aktív témák
-
II.Démonlord
tag
-
Delila_1
veterán
sziasztok
Egy feladat egyik részleténél elakadtam. Konkrét mintával illusztrálom, hogy mire kellene egy képlet.
Adott A oszlop, amelyben nevek szerepelnek. Ebből az oszlopból kell minden nevet egyszer kiválasztva leválogatni a B oszlopba. köszönöm -
II.Démonlord
tag
-
-
szia,
nem müködik, de valószinüleg csak én nem voltam egyértelmü
konkrétan így nézne ki
Az alsó táblázat pedig az összetevőkből adódó szint mutatja.
tehát ha a B oszlopban + C oszlopban legörgetek egy-egy szöveget, akkor a lenti táblázat alapján ad neki a megfelelő D, E, F, G, H oszlopba egy szint.pl. előfordulhat + kritikus, = narancssárga az F oszlopban
thanks
oxox -
Nem látszanak a sor-, és oszlopazonosítóid.
Tegyük fel, hogy a "ritkán" szó a B3 cellában van.Ebben az esetben a D3:D5 cellákat kijelölve a feltételes formátum képlete
=ÉS($B3="ritkán";$C3="enyhe"),az E3:E5-é
=ÉS($B3="gyakran";$C3="enyhe"),
az F3:F5-é=ÉS($B3="gyakran";$C3="súlyos")Ez csak akkor működik majd, ha a B oszlopban a gyakran szó helyett nem gyakra, és nem gykran szerepel.
szia,
nem müködik, de valószinüleg csak én nem voltam egyértelmü
konkrétan így nézne kiAz alsó táblázat pedig az összetevőkből adódó szint mutatja.
tehát ha a B oszlopban + C oszlopban legörgetek egy-egy szöveget, akkor a lenti táblázat alapján ad neki a megfelelő D, E, F, G, H oszlopba egy szint.pl. előfordulhat + kritikus, = narancssárga az F oszlopban
thanks
oxox -
-
Igen, ilyesmire gondoltam. Köszönöm!
Ilyeneket a VS Community-vel tudok csinálni?A hivatalos honlapon a tutorialok jók kezdésnek?Szívesen!
Ha excelben dolgozol, akkor sztem kezd el ezen keresztül megtanulni a VBA-at. Van egy-két jó könyv (magyarul is), és itt fórumon is sokat lehet tanulni.
ALT+F11 és mehet a móka.
üdv.:
P. -
Szia!
Alap excelben én nem tudok olyan megoldásról, amivel a dollárjeleket be lehetne rakni a képletbe. Vannak részmegoldások amit egy sima cserével (CTRL+H) meg lehet csinálni, pl a relatív oszlopot lehet cserélni (pl.: "A"-ról "$A"-ra) és fordítva. De ugyanígy az összes (vagy kijelölt) cellákból ki lehet törölni a dollárjelet. Viszont ha mondjuk az oszlopod fix (legyen "B") és a sorod lefelé változik (1,2,3 stb..), akkor itt soronként kell cserét csinálni, mivel egyszerre az össze számot nem tudod keresett szövegként beadni a cseréhez.
Lehet hogy van rá mezei felhasználóknak is egyszerű megoldás, csak én nem találkoztam vele.
Viszont VBA-val egyszerűen meg lehet csinálni. A linken található fájlban figyeld a kijelölt területet (ami képletet tartalmaz) nyomkodd végig a gombokat, és figyeld a szerkesztőlécen, hogy mi történik a képlettel.
üdv
P.Igen, ilyesmire gondoltam. Köszönöm!
Ilyeneket a VS Community-vel tudok csinálni?A hivatalos honlapon a tutorialok jók kezdésnek? -
Ez így működik is csak, ha a képlettel kapott adatokra máshol van szükség akkor vagyok bajban.
[link]Mondjuk most, hogy így gondolkodok lehet egy
=és kijelölöm a szükséges cellákat megoldaná a problémámat.
Ha lenne esetleg megoldás arra hogy lehet a rögzítést alkalmazni egy már kész oszlopra(vagy sor, stb.) akkor azt továbbra is várom. Illetve egy képleten belül minden cellára, hogy ne kelljen végig menni egyesével. pl
=($B$2*$C$2*$D$2*$E$2) vagy hosszabbaknál, ahol bonyolultabb a képlet esetleg a más munkalapon található cellanevek miatt kevésbé átlátható.
Köszönöm a segítséget! -előre is -
Lehet hogy nem értek valamit?
Ha így írod be:$B2*$C2akkor függőleges irányba tudod húzni a képletet és a sorok száma folyamatosan változni fog, az oszlopod fix marad. Ezt utána miért akarod rögzíteni?
Esetleg rakj fel egy táblát amiben látszik, hogy mit szeretnél pontosan.Üdv.:
P.Ez így működik is csak, ha a képlettel kapott adatokra máshol van szükség akkor vagyok bajban.
[link]Mondjuk most, hogy így gondolkodok lehet egy
=és kijelölöm a szükséges cellákat megoldaná a problémámat.
Ha lenne esetleg megoldás arra hogy lehet a rögzítést alkalmazni egy már kész oszlopra(vagy sor, stb.) akkor azt továbbra is várom. Illetve egy képleten belül minden cellára, hogy ne kelljen végig menni egyesével. pl
=($B$2*$C$2*$D$2*$E$2) vagy hosszabbaknál, ahol bonyolultabb a képlet esetleg a más munkalapon található cellanevek miatt kevésbé átlátható.
Köszönöm a segítséget! -előre is -
És ha mozgatni akarom függőleges irányban is?
Meg az eredeti kérdés arra irányult volna, hogy ne kelljen minden egyes cellánál beírni a rögzítést, hanem valahogy lehúzni vagy alkalmazni egy oszlopra/sorra..Lehet hogy nem értek valamit?
Ha így írod be:$B2*$C2akkor függőleges irányba tudod húzni a képletet és a sorok száma folyamatosan változni fog, az oszlopod fix marad. Ezt utána miért akarod rögzíteni?
Esetleg rakj fel egy táblát amiben látszik, hogy mit szeretnél pontosan.Üdv.:
P. -
Szia!
Elnézést, átsiklottam ezen a részen.
Kicsit átírtam a kódot.üdv
P.Sub Masolas()
Dim ws_from As Worksheet
Dim ws_from_lastcolumn As Long
Dim ws_from_range As Range
Dim ws_to As Worksheet
Dim ws_to_lastrow As Long
Dim ws_to_range As Range
Set ws_from = Worksheets("Munka1")
Set ws_to = Worksheets("Munka2")
ws_from_lastcolumn = ws_from.Cells(2, ws_from.Columns.Count).End(xlToLeft).Column
Set ws_from_range = ws_from.Range("A2:" & Chr(ws_from_lastcolumn + 64) & 2)
ws_to_lastrow = ws_to.Cells(ws_to.Rows.Count, "B").End(xlUp).Offset(1, 0).Row
Set ws_to_range = ws_to.Range("B" & ws_to_lastrow & ":" & Chr(ws_from_lastcolumn + 65) & ws_to_lastrow)
ws_to_range.Value = ws_from_range.Value
End Sub -
-
Szia!
Valami ilyesmire gondoltál?
Sub Masolas()
Dim ws_from As Worksheet
Dim ws_to As Worksheet
Dim ws_to_lastrow As Long
Set ws_from = Worksheets("Munka1")
Set ws_to = Worksheets("Munka2")
ws_to_lastrow = ws_to.Cells(ws_to.Rows.Count, "A").End(xlUp).Offset(1, 0).Row
ws_to.Rows(ws_to_lastrow).EntireRow.Value = ws_from.Rows(2).EntireRow.Value
End Sub -
Sziasztok!
Segítséget szeretnék kérni.
Szeretném makrózni a következő feladatot, munka1 lapon az A2-es sort átszeretném másoltatni a munka 2 lap B2-es sorába. Ez eddig nem is lenne gond, a bonyodalom számomra az lenne, hogy a munka1 lap változni fog, A2-es sorba kerülnének az adatok, a makrónak az lenne ha feladata, hogy a munka2 lapon figyelje az első üres sort és oda illessze be az adatokat.
A2-ből először a B2-be aztán a B3-ba és így tovább.
Ha bonyolultan fogalmaztam elnézést kérek.
Nagyon szépen köszönöm előre is a segítséget. -
sziasztok!
Segítség kellene faanyag vásárláshoz, ehhez hívnám segítségül az excelt
Jelen esetben csak a hosszúságalapján kell számolni.
Adott 3 hosszúságú deszka: 4,5 / 4,8 / 5,1m
És szükségem van 14db más más méretű deszkára!
Azt kéne kiszámolni valahogy hogy mi lenne az ideális darabszám az adott hosszokból hogy a lehető legkevesebb hulló anyag legyen, pl:
kell, 100, 200, 300cm-s deszka, akkor a legideálisabb, 1db 5,1-es és 1db 4,5-es!
1-2 méretél ehhez nem kell semmi extra mert egyszerű megoldani, de 15-20 tételnél már nagyon bonyolult.
Remélem valaki tud segíteni.
KösziP4
ui.: ja és azt jó lenne kideríteni hogy ha a végeredmény 5 - 2 - 4 db az adott hosszokból akkor mely méreteket kell abból kivágni.
-
pentium4
senior tag
sziasztok!
Segítség kellene faanyag vásárláshoz, ehhez hívnám segítségül az excelt
Jelen esetben csak a hosszúságalapján kell számolni.
Adott 3 hosszúságú deszka: 4,5 / 4,8 / 5,1m
És szükségem van 14db más más méretű deszkára!
Azt kéne kiszámolni valahogy hogy mi lenne az ideális darabszám az adott hosszokból hogy a lehető legkevesebb hulló anyag legyen, pl:
kell, 100, 200, 300cm-s deszka, akkor a legideálisabb, 1db 5,1-es és 1db 4,5-es!
1-2 méretél ehhez nem kell semmi extra mert egyszerű megoldani, de 15-20 tételnél már nagyon bonyolult.
Remélem valaki tud segíteni.
KösziP4
ui.: ja és azt jó lenne kideríteni hogy ha a végeredmény 5 - 2 - 4 db az adott hosszokból akkor mely méreteket kell abból kivágni.
-
-
Sziasztok!
Nem boldogulok bizonyos megjelenítéssel/formázással:="szöveg "&F34&" szöveg"itt az F34-es mező tartalmát szeretném =123.456,00 formában megjeleníteni, de nem sikerülItt
="za "&YEAR(NOW())&" godinu, "&"na dan "&TEXT(NOW();"dd.mm.yyyy")
viszont az eredmény amit kapok za 2016 godinu, na dan dd.27.yyyy a 27 az aktuális dátum napja.köszönöm a segítséget
-
Sziasztok!
Szeretnék 2 egyszerű dologra segítséget kérni (legalábbis számotokra egyszerű
).1. Ahol az táblázatban dátum van, ott dátumválasztó legyen.
2. Ahol a lejárat van, akkor változzon más színűre amikor lejár. Akárhogyan próbálom a feltételes formázásnál, sehogy sem sikerül...Előre is köszönöm!
Itt van a képlet. Ha üres a mező akkor ne történjen semmi. Ha a dátum kisebb (régebbi) a mai napnál akkor a Format-ban tudod megadni a betűk/mező színét stb..
-
PeLa87
aktív tag
Sziasztok!
Szeretnék 2 egyszerű dologra segítséget kérni (legalábbis számotokra egyszerű
).1. Ahol az táblázatban dátum van, ott dátumválasztó legyen.
2. Ahol a lejárat van, akkor változzon más színűre amikor lejár. Akárhogyan próbálom a feltételes formázásnál, sehogy sem sikerül...Előre is köszönöm!
-
róland & Fferi50
nagyon klassz a függvény, kiváló : ) ott viszont nekem felteszi a kezeit, amikor azt mondom neki, hogy jobb oldalt is vizsgálja meg, de ott csak kettőt vessen össze. az J2 cella kettő értéket az F2 cella utolsó kettő értékével. nem tudom mi felett siklik el a szemem...
=HA(ÉRTÉK(JOBB(F2;2))=J2;IGAZ;HAMIS)illetve középen tudna vizsgálni a függvény? tehát mondjuk az F2 tíz karakter közül a 6. és 7-et vesse össze egy másik cella kettő értékével.
-
köszönöm szépen, DE
megnyitni nem nyitja meg, nyitva kell lennie, hogy menjen
a mentés részénél error 1004-el megáll, mondván, hogy method 'SaveAs' of object '_Workbook' failed
és debugnál ezt sárgítja:ActiveWorkbook.SaveAs Filename:=utvonal & Range("C3") & ".xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False -
Egy üres füzetben modulba másold be a makrót.
Sub Szetcincalas()
Dim sor As Long, usor As Long
Dim WSF As Worksheet, WSS As Worksheet
Const utvonal = "D:\Tmp\" 'ide jön a saját útvonalad
On Error Resume Next
Workbooks.Open Filename:=utvonal & "Forrás.xlsx"
On Error GoTo 0
On Error Resume Next
Workbooks.Open Filename:=utvonal & "Sablon.xlsb"
On Error GoTo 0
Set WSF = Workbooks("Forrás.xlsx").Sheets(1) 'saját füzeted és lapod neve
Set WSS = Workbooks("Sablon.xlsb").Sheets(1) 'saját füzeted és lapod neve
usor = WSF.Range("F" & Rows.Count).End(xlUp).Row
WSS.Activate
For sor = 2 To usor
Cells(1, "C") = WSF.Cells(sor, "F")
Cells(2, "C") = WSF.Cells(sor, "G")
Cells(3, "C") = WSF.Cells(sor, "L")
Cells(4, "C") = WSF.Cells(sor, "H")
ActiveWorkbook.SaveAs Filename:=utvonal & Range("C3") & ".xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Next
MsgBox "Kész"
End SubÍrd át a 3 jelzett sorban az útvonalat, a fájlneveket, és hogy hányadik lapon vannak az adatok a forrás és a sablon füzetekben. Adj rá mentést, Makrós.xlsm-ként.
A makró megnyitja a sablon és forrás fájlokat, elvégzi a másolást, menti az aktuális C3 néven a fájlt.
-
Smogus
őstag
Sziasztok!
Van egy problémám amit szeretnék megoldni de nem igazán tudom hogyan kellene.
Nem vagyok egy nagyon nagy excel felhasználó, de megpróbálom konyha nyelven megfogalmazni és körülírni mit szeretnék.Adott egy iktatásra szolgáló táblázat, ennek minden sorában van egy-egy cella aminek az érték alapján szeretném annak a teljes sornak a tartalmát átmásolni(megjeleníteni) egy másik munkalapra automatikusan. Tehát az alap iktató táblázatba bekerül egy adatsor és amikor az utolsó adat bekerül ami alapján szortíroznék a teljes sor átkerül egy új munkafüzetbe. Külön jó lenne ha az alap iktató táblázatban a sort utólag módosítom, akkor az esetleg lemódosuljon a szétszortírozott munkalapon is, de ha ez nem megoldható akkor nem halunk bele.
A cél az hogy "A munkatárs" beiktat, és "B munkatárs" a szortírozott munkafüzetekből dolgozik tovább az adatokkal, de "A munkatárs" a szortírozást és "B munkatárs" munkáját nem tudja megcsinálni
-
-
-
sziasztok
fogok kapni egy minimum 10-15000 soros legyűjtést excelben (lehet, hogy ezt szűkíteni, darabolni fogom a könnyebb kezelhetőség érdekében.
ebből a sok sorból kellene majd egy előre elkészített excel sablonnak megfelelően adatokat beszúrni adott cellákba, majd menteni adott cellában található (ez is importálva lesz) tartalom alapján (a tartalom lesz a neve a filenak).
erre kellene valami makró, ami megkönnyíti a munkát
köszönöm előre is
ps: egy sorból egy file lesz
-
Hu, ezt most fejben nem tudom összerakni.
Működik "OR"-ral, de nem értem. Eddig sosem volt gondom a ciklusokkal, de erre rácsodálkoztam.A ciklus egyszerre csak egy ws-t vizsgál és azt nézi, hogy az adott ws-nek mi a neve, ami ha nem egyenlő a megadottal akkor kihagyja, de nem ezt teszti.
OR-nak elvileg akkor lenne értelme, ha egyszerre több munkalap lenne kijelölve és azt vizsgálnám, hogy a kijelöltek közül ha az egyik neve <> munkax és a másik neve <> munkay akkor msgbox.Vagy valamit nem jól látok?
-
Hu, ezt most fejben nem tudom összerakni.
Működik "OR"-ral, de nem értem. Eddig sosem volt gondom a ciklusokkal, de erre rácsodálkoztam.A ciklus egyszerre csak egy ws-t vizsgál és azt nézi, hogy az adott ws-nek mi a neve, ami ha nem egyenlő a megadottal akkor kihagyja, de nem ezt teszti.
OR-nak elvileg akkor lenne értelme, ha egyszerre több munkalap lenne kijelölve és azt vizsgálnám, hogy a kijelöltek közül ha az egyik neve <> munkax és a másik neve <> munkay akkor msgbox.Vagy valamit nem jól látok?
-
-
Tiszteletem Mester!
Nagyon köszönöm az időzítő makrókódot. Jól működik. Sőt még a felesleges munkalaptörlő kódrészletet is töröltem, nekem nincs rá szükségem. Viszont szeretném egy aprósággal kibővíteni a működését a makrónak!
Megoldható-e az, hogy amikor lejár a beállított timer, akkor megjelenjen egy form, rajta egy text box, vagy simán csak címke, tök mindegy, ami egy megadott cellatartomány szummázásának eredményét írja ki? A formon lenne még egy BEZÁR nevű parancsgomb amire ha katt, akkor a munkafüzet tartalm elmentődik, majd a program automatikusan bezár.
-
Tiszteletem Mester!
Nagyon köszönöm az időzítő makrókódot. Jól működik. Sőt még a felesleges munkalaptörlő kódrészletet is töröltem, nekem nincs rá szükségem. Viszont szeretném egy aprósággal kibővíteni a működését a makrónak!
Megoldható-e az, hogy amikor lejár a beállított timer, akkor megjelenjen egy form, rajta egy text box, vagy simán csak címke, tök mindegy, ami egy megadott cellatartomány szummázásának eredményét írja ki? A formon lenne még egy BEZÁR nevű parancsgomb amire ha katt, akkor a munkafüzet tartalm elmentődik, majd a program automatikusan bezár.
-
Sziasztok!
Lenne egy minden bizonnyal egyszerű kérdésem, remélem valaki tud segíteni.
Adott egy számsorozat, 9 elemből áll, nem vészes. Az alatta lévő sorba kéne a fenti sort szummázni, az adott cellának megfelelő felső soros értékkel bezárólag. Továbbá van még egy változó cella is, amely azt adja meg, hogy visszamenőleg hány cella értékét kell összeadni. Van valakinek tippje?
Köszi
A másik topicban sikerült megoldani.
Nem is volt olyan egyszerű.
-
Szia!
Csak egy pillantást tudtam vetni rá, de szerintem a hiba
For Output As #xxlesz.
Ez esetben olvasni nem tudsz a fájlból.Egy lehetőség a sok közül:
For Each mezokod In mezokod_tartomany_1
If mezokod <> "" And mezokod.Offset(0, -6) <> "" Then
Print #xx, mezokod.Value & "=" & mezokod.Offset(0, -6).Value
End If
Next mezokod
Close #xx 'ÚJ SOR!!
Dim LineofText As String
Dim rw As Long
rw = 0
xx = FreeFile() 'ÚJ SOR!!
Open ThisWorkbook.Path & "\" & "1665" & "_" & ido & ".imp" For Input As #xx 'ÚJ SOR!!
Do While Not EOF(xx)
Line Input #xx, LineofText
rw = rw + 1
Loop
MsgBox rw
Close #xxAz 'ÚJ SOR!! részeket kell beírnod a kódba.
Figyelj! Az Open-nél Input van!Remélem műxik majd
-
Szia!
Csak egy pillantást tudtam vetni rá, de szerintem a hiba
For Output As #xxlesz.
Ez esetben olvasni nem tudsz a fájlból.Egy lehetőség a sok közül:
For Each mezokod In mezokod_tartomany_1
If mezokod <> "" And mezokod.Offset(0, -6) <> "" Then
Print #xx, mezokod.Value & "=" & mezokod.Offset(0, -6).Value
End If
Next mezokod
Close #xx 'ÚJ SOR!!
Dim LineofText As String
Dim rw As Long
rw = 0
xx = FreeFile() 'ÚJ SOR!!
Open ThisWorkbook.Path & "\" & "1665" & "_" & ido & ".imp" For Input As #xx 'ÚJ SOR!!
Do While Not EOF(xx)
Line Input #xx, LineofText
rw = rw + 1
Loop
MsgBox rw
Close #xxAz 'ÚJ SOR!! részeket kell beírnod a kódba.
Figyelj! Az Open-nél Input van!Remélem műxik majd
-
Winner_hun
félisten
-
tzimash
őstag
Ha megnyomom a jobbra nyilat a billentyűzeten akkor nem a kijelölt melletti cellára ugrik hanem egy oszlopnyit lapoz az egész dokumentumon. Miért? Néha előjön, csak a gép újraindítása oldja meg a problémát.
-
Winner_hun
félisten
-
Sziasztok
Lehetséges az valahogy hogy az üres excel sorokat teljesen kitörlöjem?
Jelenelg látom 1048576-os sorig tudnék lescrollozni de tök felesleges ha csak 500 soron van adat... Nem tudom ettől nagyobb e file de kevésbé hazsnálható mert a scroll bar jó kicsi... Olyan mitnha végig adatot látna pedig többször töröltem és semmi nincs az 500-ik sor után...
Köszi
Szia!
Sajnos már én is jártam így
Milliószor töröltem a sorokat, mentés, megnyitás, és az excel még mindig baromi sok sort "érzékel"
A megoldás az volt, hogy új munkalap vagy munkafüzet létrehoz, szükséges adatokat tartalmazó terület kijelöl, újba átmásol, ment, régi kidob ÉS
-
Sziasztok
Lehetséges az valahogy hogy az üres excel sorokat teljesen kitörlöjem?
Jelenelg látom 1048576-os sorig tudnék lescrollozni de tök felesleges ha csak 500 soron van adat... Nem tudom ettől nagyobb e file de kevésbé hazsnálható mert a scroll bar jó kicsi... Olyan mitnha végig adatot látna pedig többször töröltem és semmi nincs az 500-ik sor után...
Köszi
-
butch3r
senior tag
Sziasztok
Lehetséges az valahogy hogy az üres excel sorokat teljesen kitörlöjem?
Jelenelg látom 1048576-os sorig tudnék lescrollozni de tök felesleges ha csak 500 soron van adat... Nem tudom ettől nagyobb e file de kevésbé hazsnálható mert a scroll bar jó kicsi... Olyan mitnha végig adatot látna pedig többször töröltem és semmi nincs az 500-ik sor után...
Köszi
-
Szia!
Működnie kell.
Vagy ugyanazt a fájl azonosítót (#filenum) kell használod, amivel először megnyitottad (ez esetben kell aSeek #filenum, 1), vagy újként nyitod újra, más azonosítóval (pl. #filenum2)Üdv.
Szia!
Logikailag értem, csak mégsem. Valamiért mindig nullát dob.
Hova kell a seek, vagy mit kell máshogyan?
üdv
P.Dim LineofText As String
Dim rw As Long
rw = 0
Do While Not EOF(xx)
Line Input #xx, LineofText
rw = rw + 1
Loop
Close #xx
MsgBox rw -
Szia!
Ha nyitott a fájlod, akkor csak az a feladat, hogy az első rekordot/byte-ot megtaláld. Erre szolgál a Seek függvény:
Seek xx, 1
beállítja az xx fileszámmal megnyitott fájl első pozícióját. Utána olvashatod úgy, mintha most nyitottad volna meg.Üdv.
Jó reggel!
Ezzel az infoval így nem tudtam mit kezdeni.
Elvileg így is mennie kellene, gyakorlatilag meg nem.
Dim LineofText As String
Dim rw As Long
rw = 0
Do While Not EOF(xx)
Line Input #xx, LineofText
rw = rw + 1
Loop
Close #xx
MsgBox rwüdv
P. -
Sziasztok!
Megnyitott csv-ben szeretném megszámolni a sorokat, tehát a VBA open valami for input parancs nem jó.
És éppen ez a bajom. Nyitott fájlt hogyan lehet beadni a for input as parancshoz?A lenti kód működik, ha épp nincs megnyitva a fájl, ezt kellene orvosolni valahogyan.
üdv
P.Dim filenum As Integer
Dim count As Long
Dim tmp As String
xx = FreeFile
[B]Open ThisWorkbook.Path & "\" & "1665" & "_" & ido & ".imp" For Input As xx[/B]
Do While Not EOF(xx)
Line Input #xx, tmp$
count = count + 1
Loop
MsgBox count -
Juditta_56
aktív tag
-
Sziasztok!
Olyan képletet keresek, mely tömegre vetített egységárat számol ki bármelyik szükséges adat hiányában.
pl. adott 200g só aminek az eladási ára 600.-Ft és szeretném tudni a kg-ra vetített egységárát a képlettel, de akár úgy is tudja, hogy ha tudom a kg-ra vetített egységárát és az eladási árát, de szeretném megkapni a kiszerelt tömeget (200g-ot)
Vagyis egy cellában "A" lenne pl a tömeg "B" az eladási ár "C" az egységnyi ár.
Utópia nagyon? -
Egy réges-régi fájlt feltöltöttem, kiindulási alapnak jó lesz. Tettem bele kommenteket.
Nézd meg a ThisWorkbook lap makróját is, az indítja az időzítőt.
Hálás köszönetem! Megvizsgálom!
Már csak az kéne bele hogy zárja be a programot is a mentést követően és szerintem ez tökéletes lesz!
-
Sziasztok!
Egy olyan időzítő sablon scriptre lenne szükségem (Excel 2016), amelynek fő feladatai:
- Excel dokumentum megnyitásakor azonnal aktiválódjon a script.
- A script feladata tulajdonképpen egy paraméter formájában megadott időintervallum visszaszámlása vagy akár fordítva tök mindegy. (pl. 10 perc).
- Ha a megadott időpont lejár, akkor végezzen az Excel automatikus mentést. (felülírásos mentés elég!), majd zárja be a programot úgy ahogy van.
- Az időt én tudjam megválasztani a kódban!Nagyon hálás lennék egy ilyennek!
én meg már mindenféle képlettel próbálkoztam 
...és próbálom megfejteni 
Új hozzászólás Aktív témák
- Végre feketében pózol a Noctua legkomolyabb 120 mm-es ventilátora
- Yettel topik
- Microsoft Rewards
- Nyuszit otthonra, kedvencnek!
- Milyen monitort vegyek?
- Kerékpárosok, bringások ide!
- Folyószámla, bankszámla, bankváltás, külföldi kártyahasználat
- Gitáros topic
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Windows 11
- További aktív témák...
- Star Wars The Old Republic Collectors Edition
- PC Game Pass előfizetés
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Eladó jogtiszta, Windows 11/10, Office 2019/2021/2024, Fizikai és Digitális licencek, Számlával.
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Vásárlunk iPhone 12/12 Mini/12 Pro/12 Pro Max
- HIBÁTLAN iPhone 14 128GB Purple -2 ÉV GARANCIA - Kártyafüggetlen, MS5548
- 5G Lenovo ThinkPad P14s Gen 3 Intel Core i7-1280P 16GB 1TB Nvidia T550 4GB 1 év garancia
- Apple iPhone SE 64GB Black Használt, megkímélt állapot 88% akkumulátor
- Akciós Windows 10 pro + Office 2019 professional plus csomag AZONNALI SZÁLLÍTÁS
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest