-
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
-
Delila_1
veterán
válasz
Gabcsika
#21699
üzenetére
Másol, kinyomtatja az első átmásolt mennyiséget, törli a Sheet2 lap tartalmát, másolja és nyomtatja a következőt. Ezt addig folytatja, míg a Sheet1 lapon talál adatot
Az utolsó adagot az én hibám miatt nem nyomtatja. Az eredeti makró Loop sora alá másold be:
If Sheets("Sheet2").Range("A1") > "" Then
Sheets("Sheet2").Select
ActiveWindow.ActiveSheet.PrintOut Copies:=1, Collate:=True
Cells.ClearContents
Sheets("Sheet1").Select
End If -
Delila_1
veterán
válasz
Gabcsika
#21692
üzenetére
Próbáld meg ezzel a makróval.
Sub Nyomtat()
Dim sor1 As Long, sor2 As Long
Sheets("Sheet1").Select
sor1 = 2: sor2 = 1
Do While Cells(sor1, "A") <> ""
Range("A" & sor1 & ":C" & sor1 + 4).Copy
Sheets("Sheet2").Range("A" & sor2).PasteSpecial Paste:=xlPasteValues, Transpose:=True
sor1 = sor1 + 5
If sor2 >= 63 Then
Sheets("Sheet2").Select
ActiveWindow.ActiveSheet.PrintOut Copies:=1, Collate:=True
Cells.ClearContents
Sheets("Sheet1").Select
sor2 = 1
Else: sor2 = sor2 + 3
End If
Loop
End Sub -
Gabcsika
tag
Sziasztok!
Na most aztán...
Elakadtam.
Sheet1-en van egy listám 3 oszlopban.
A sheet2-őn van egy nyomtatási elrendezésem.
Felosztva a sheet2 65 téglalapra (illetve van ott egy 65 db-os téglalap).
Egy téglalapban három sor van.
Első sornak tartalmaznia kell a sheet1 első oszlopát,
a második sornak a másodikat és a harmadiknak a harmadikat.Azért, hogy ne kézzel kelljen átmásolgatni az adatokat,
lehetne valami fgv vagy valami, ami egymás után átmásolja ezeket
sheet2-be a fenti elrendezésben, de persze 65-önként ugyanonnan kell folytassa, mert
mikor 65 sor a sheet1-ről átkerül a megfelelő elrendezésben sheet2-re, ki kell printelnem, aztán 66-tól
130-ig, 131-től 196-ig, stb.Köszi!
-
-
David888
tag
Sziasztok! Hatalmas segítséget szeretnék kérni. Tök homály nekem ez a feladat:
A vezető munkalap A17 cellájába írd be „Legidősebb vezető”! Az A18-as cellába írasd ki a születési dátumok alapján a legidősebb vezető kódját!
ez lenne a táblázat: http://www46.zippyshare.com/v/87617771/file.html
Nagyon megköszönném a segítséget! PLS help!!
-
Delila_1
veterán
válasz
alfa20
#21675
üzenetére
A Page2 azonos a beillesztett képpel, csak az objektumok neve más.
Private Sub CommandButton1_Click()
If OptionButton1_1 Then
OB1_1
ElseIf OptionButton1_2 Then OB1_2
Else: MsgBox "Mi lesz?"
End If
End Sub
Private Sub CommandButton2_Click()
If OptionButton2_1 Then
OB2_1
ElseIf OptionButton2_2 Then OB2_2
Else: MsgBox "Mi lesz?"
End If
End Sub
Sub OB1_1()
MsgBox "OB1_1"
End Sub
Sub OB1_2()
MsgBox "OB1_2"
End Sub
Sub OB2_1()
MsgBox "OB2_1"
End Sub
Sub OB2_2()
MsgBox "OB2_2"
End Sub -
madd dogg
senior tag
Sziasztok.
Van "A" táblázatom, ami egy nagy adathalmaz, néhány cellája pedig hivatkozást is tartalmaz. Van mellette "B" összesítő táblázat, ami az adatok egy részét "A" táblázatból importálja, olyan cellákat is, melyek hivatkozást tartalmaznak. A hivatkozás azonban "B" táblázatban nem jelenik meg, pedig sokat segítene.
Van erre megoldás? (Office 2007)
-
alfa20
senior tag
válasz
Delila_1
#21674
üzenetére
köszi!
és ha azt szeretném, hogy a start gomb atollfüggően indítson el egy makrót, hogy melyik fül (page) az aktív azt hogy tudom beállítani?
eddig így indult a program:
Private Sub Btn8_indít_Click()
If OptionButton1.Value = True Then
kp_rnd
ElseIf OptionButton2.Value = True Then
ksz_nev
Else
MsgBox "Kérlek válaszd ki a rendelés típusát"
End If
End SubMivel ketté szedném, több szelekciós váltózó miatt így jobb lenne külön fülekre tenni a választási lehetőségeket, csak nem tudom, hogy indítsam el ha a 'Page1' vagy a 'Page2'-re vannak be/kitöltve az adatok.
-
#21671
kőbaltazár
tag
kőbaltazár
tag
Sziasztok!
Elkezdünk beírni valamit egy cellába, az excel rögtön felajánlja az automatikus kitöltést,hogyha az oszlopban egyértelműen szerepel már előtte ilyen.
Megoldható valahogy az, hogy ne az oszlopban előtte levő cellákat, hanem egy másik munkalap adott oszlopában levő adatokat figyelje? -
TheWich
csendes tag
Sziasztok!
Függvény / makró keresési kérdésem lenne, amihez keresem a megfelelőt.
Egy cellában lévő, szóközök nélküli karakterek, melyek értéke meghaladja a meghatározott értéket (pl. 500 karakter), de egyes karakterek között ismétlődő elem van („:”). Ezeknél szeretném az egy cellában lévő halmazt szétválasztani.
Tovább bonyolítja a helyzetet, hogy nem minden ismétlődő elemnél szeretném ezt megtenni. Hanem mondjuk minden 5. elem esetében.
Megoldás, ötlet, javaslat? -
alfa20
senior tag
válasz
Tikakukac
#21664
üzenetére
nem biztos, hogy jól értelek de olyat lehet, hogy egy legördítő listát készítesz abban kiválasztasz egy típust és az Excel meg hozzá keresi egy másik cellában pl: mellette lévőbe a megfelelő értéket.
ehhez nem kell sok minden csak egy tábla ami tartalmazza az adatokat meg mondjuk egy FKERES függvény. -
#21661
lappy
őstag
marchello1
#21658
lappy
őstag
válasz
marchello1
#21658
üzenetére
Szerintem link alapján nem fogunk rájönni a hibára ott vmit be kell állítani hogy ne dobalja egymásra
-
Tikakukac
titán
Juhuhuu, na van ilyen topik is, remek.
Tud Excel olyat, hogy egy táblázat bizonyos cellájába bemásolja egy sima rákattintással mondjuk egy másik oszlop tetszőleges celláját?
Konkrétan arra kéne, hogy én kigyűjteném az általunk használt CPU és GPU-kat, és mikor adattáblát kell csinálni akkor csak katt és katt és kész is minden, nem kéne átírni.Ilyesmit tudunk csinálni? Legújabb office-t tolunk, azzal így nem lehet gond.
-
#21658
marchello1
csendes tag
marchello1
csendes tag
Sziasztok,
van egy naptáram, aminél ha változtatom a hónapot akkor egymásba csúsznak. Keresgéltem visszafele de nem nagyon találtam erre megoldást
B7-ben van az első dátum. Függvénye: =F2.
B8: B7+1
B9: B8+1 és így tovább végig.Egyedül májusi hónapnál nem csúszik el valamiért
Itt a kép róla:[link]
Köszönöm a segítséget előre
-
róland
veterán
Google Táblázatokhoz kapcsolódó kérdés:
A következő (Excel/OOo/LibO) függvény =INDEX(Adatsorok.A2:K366;HOL.VAN(C4;Adatsorok.A2:A366;0);2), megfelelője =INDEX(Adatsorok!A2:K366, MATCH(D1, Adatsorok!A2:K366, 0), 2) miért nem működik? Már a HOL.VAN -nak megfelelő MATCH rész se működik.
Libre Office-ban tökéletesen funkcionál a megadott függvény, míg a Google Táblázatos megfelelője "A rendszer elemzési hibát észlelt a képletben." hibaüzenettel leáll.
-
#21656
Delila_1
veterán
atillaahun
#21655
Delila_1
veterán
válasz
atillaahun
#21655
üzenetére
Szívesen.
-
#21654
Delila_1
veterán
atillaahun
#21652
Delila_1
veterán
válasz
atillaahun
#21652
üzenetére
C1-be
=HA(DARABTELI(B:B;B1)>1;SZUMHA(B:B;B1;A:A);"") -
#21653
Louro
őstag
atillaahun
#21652
Louro
őstag
válasz
atillaahun
#21652
üzenetére
Ha jól értem egyik oszlopban egy feltételvizsgálat lenne, míg, ha megfelel a feltételnek, akkor a mellette levő számot összeadja.
Ez a függvény a COUNTIF. Magyarul SZUMHA .
-
#21652
atillaahun
veterán
atillaahun
veterán
Sziasztok, olyasmi függvény van ami egy tömb A oszlopában lévő értékeit összeadja ha a B érték ismétlődik?
A B
3 London
2 Róma
4 Barcelona
1 London
6 New York
2 Toronto
3 New YorkEbből szeretném ha 1 London sor maradna 4-es értékkel, és 1 New York sor 9-es értékkel. Megoldható?
-
ciao
senior tag
Sziasztok!
Autocad attributumokat exportálok xls formátumba, hogyan lehet megoldani, hogy a / vagy E karaktereket is tartalmazó cellákat ne módosítsa dátumra, vagy tudományos szám formátumúra, amikor meggyitom az xls-t?
Meg úgy általában ha kézzel írok be / jelet tartalmazó szöveget ne írja át dátumnak, nincs kedvem folyton cella formázásnál szöveget megadni. Legalább kérdezne rá, hogy akarom-e átalakítani. -
alfa20
senior tag
válasz
alfa20
#21649
üzenetére
szerintem így működik:
képletek:
D2: =HA(ÖSSZ.MUNKANAP.INTL(A2;B2-1;"0000111";$E$11:$E$14)<0;0;ÖSSZ.MUNKANAP.INTL(A2;B2-1;"0000111";$E$11:$E$14))
E2: =HA(ÖSSZ.MUNKANAP.INTL(A2;B2-1;"1111011";$E$11:$E$14)<0;0;ÖSSZ.MUNKANAP.INTL(A2;B2-1;"1111011";$E$11:$E$14))
F2: =SZUM((B2-C2))*24
G2: =SZUM((D2*8)+(E2*6)+F2)D2: a H-CS napokat számolja össze
E2: a P napokat számolja össze
F2: az utolsó nap ledolgozott óráit adja meg
G2: eredményaz ünnepek miatt kell egy segéd oszlop az ünnepeknek ez van a keretben zölddel. A mellette levő tábla meg ellenőrzés végett készítettem, hogy manuálisan le tudjam ellenőrizni
és egy képlettel
=SZUM((HA(ÖSSZ.MUNKANAP.INTL(A2;B2-1;"0000111";$E$11:$E$14)<0;0;ÖSSZ.MUNKANAP.INTL(A2;B2-1;"0000111";$E$11:$E$14))*8)+(HA(ÖSSZ.MUNKANAP.INTL(A2;B2-1;"1111011";$E$11:$E$14)<0;0;ÖSSZ.MUNKANAP.INTL(A2;B2-1;"1111011";$E$11:$E$14))*6)+SZUM((B2-C2))*24)remélem tudtam segíteni...
-
alfa20
senior tag
csak azért kérdeztem, mert ha azt fel tételezem, hogy minden nap le lett dolgozva a teljes munka óra, akkor azt meg lehet oldani, hogy minden napot adjon össze kivétel az utolsó napot. Azt meg ha mondjuk a munkakezdés egységesen 8 óra, akkor csak ki kell vonni a munkaidő végéből a 8 órát (vagy a munka kezdés idejét, ha az nem egységes) a maradékot meg hozzá lehet adni az összes munkaórához, de itt is figyelembe kellene venni, hogy az adott nap milyen napra esik H-CS vagy P, mert a maradék nem lehet több a munkaidőnél.
Szerintem az utolsó nap munkaidő kezdete minden képen kellene pontos adatok miatt.ezt most csak elméletben gondoltam végig, nem néztem utána excelben, de majd megnézem kb. 1 óra.
-
Caipi
tag
válasz
alfa20
#21618
üzenetére
Még mindig nem az igazi.
Vázolom újra a kérdést, hátha valakinek van rá ötlete:
Egy munkalap két oszlopában kezdő és záródátumok szerepelnek. Ki kellene számolni, hogy a két időpont között hány munkaóra telt el, úgy, hogy a munkaórák H-Cs 8 óra, P 6 óra.
Az össz.munkanap.intl() segítségével munkanapi szintre eljutottam, de így még nem jó, mivel a záró napon nem biztos, hogy teljes munkanapot kell számolni, lezárulhat hamarabb is.
Íme a formátuma a celláknak.
Köszönöm a segítséget,
Caipi -
#21644
Delila_1
veterán
anonymus89
#21643
Delila_1
veterán
válasz
anonymus89
#21643
üzenetére
Na és mi ezzel a baj?
-
#21642
Delila_1
veterán
anonymus89
#21641
Delila_1
veterán
válasz
anonymus89
#21641
üzenetére
-
#21640
Delila_1
veterán
anonymus89
#21639
Delila_1
veterán
válasz
anonymus89
#21639
üzenetére
Ha valamelyik adatsort a második Y tengelyhez rendeled, a két oszlop egymást fedi. Kijelölöd az egyik oszlop tartományt, és szélesebbre veszed (a közt kisebbre állítod), és már látszik is minden adatod.
-
#21639
anonymus89
addikt
anonymus89
#21599
anonymus89
addikt
válasz
anonymus89
#21599
üzenetére
-
-
rzerge
aktív tag
Sziasztok!
Van olyan funkciója, vagy olyan alkamazás az excelnek, amivel windows 7 asztalra lehetne kitenni a munkafüzetet úgy, hogy bármikor bele lehessen írni.
Ilyesmire gondoltam, mint a Sticky notes.
Köszi -
maestro87
őstag
Én nagyon nagyon ritkán használom (mivel mindig csak idegeskedek vele) és akkor is csak pár egyszerű táblázatot hozok létre. Grafikonokra és számolásokra inkább Origin-t használok.
(#21629) KaiotEch:
Ezeket a kódokat hová írjátok? Nem is tudtam hogy az Excel-ben is lehet ilyet csinálni. Vagy ez csak makró? -
-
Már módosítottam ilyenre:
Sub KIOLVAS()
Sheets("Munka1").Select
Cells.Select
Selection.ClearContents
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\KIOLVASNIVALO.kit", Destination:=Range("A1"))
.Name = "kiolv"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 852
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Sheets("Munka2").Select
End SubA tegnapi állománnyal jó volt, de a mait nem szeparálja szét cellákra. Az első oszlopba dobálja be.
-
Louro
őstag
válasz
KaiotEch
#21619
üzenetére
Sub KIOLVAS
'ide tedd a munkalapot aktiválós részt. Én még tennék ide egy ellenőrzést is, hogy létezik -e.
Dim wsSheet As WorksheetOn Error Resume Next
Set wsSheet = Sheets("Munka1")
If Not wsSheet Is Nothing Then
Sheets("Munka1").Activate
Else
Sheets.Add.Name = "Munka1"
End If'ide tedd a fájl beolvasását. Én ezt makrórögzítővel csinálnám meg. Ide elég hosszú lenne beírni. Gondolom text beolvasás lenne.... Ha gondolod bemásolom, ami nekem van. Én rengeteg txt-vel dolgozok napi szinten.
-
maestro87
őstag
Sziasztok!
Egy kis segítség kellene Excel ügyben mert nem nagyon értek hozzá.
1. A következőt szeretném letiltani: ha egy cellába beírom pl. a "05.2"-t akkor ne írja át "02.máj"-ra!
2. A táblázatból az első sort úgy szeretném kiemelni, hogy ha lefele bármennyit görgetek az ne tűnjön el!Előre is köszi!
-
Üdv. Segítséget kérnék. Van egy ilyenem:
Sub KIOLVAS()
ChDir "c:\kiolvas\"
Workbooks.OpenText Filename:="fajl.txt", Origin:=852, _
StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(16 _
, 1), Array(19, 1), Array(30, 1), Array(40, 1), Array(50, 1)), DecimalSeparator:=".", _
TrailingMinusNumbers:=True
End SubAzt szeretném hozzáfűzni, hogy ezt ne egy új ablakba nyissa meg, hanem a Munka1 lapon, majd a végén váltson át a Munka2-re.
Hiába tettem az elejére, hogy:
Sheets("Munka1").Select
Cells.Select
Selection.ClearContentsés a végére:
Sheets("Munka2").Selectmégsem akarja.
-
alfa20
senior tag
szerintem ezt a képletet próbáld beépíteni:
=ÖSSZ.MUNKANAP.INTL(C2;D2;"0000111" )
ez most csak a hét első négy napját tekinti munkanapnak (H-CS)
így meg csak a pénteket:
=ÖSSZ.MUNKANAP.INTL(C2;D2;"1111011" )amit érdemes tudni, hogy az idézőjelben lévő 7 db szám ami vagy 0 vagy 1, azzal tudod a munkanapok számát állítani, a 0 munkanapot jelől, az 1-es munkaszünetit.
A 7 szám a 7 napot jelöli sorrendeben:0 0 0 0 0 0 0
HKSzCSPSzoV -
Caipi
tag
válasz
alfa20
#21616
üzenetére
Köszönöm
Ennyivel bővítettem a képletet, mivel ugyanarra a napra nem számol:
HA(ÖSSZ.MUNKANAP(A2;B2)*8=0;SZÖVEG(B2-A2;"óó");ÖSSZ.MUNKANAP(A2;B2)*8)
Viszont a munkaórák száma szerintem így nem fog stimmelni.
Ha H-CS 8 óra és P 6 óra, akkor nem fog jó eredményt adni szerintem.Üdv,
Caipi -
alfa20
senior tag
én értettelek félre, de már értem.
Próbáld meg az alábbit:
C1=ÖSSZ.MUNKANAP(A1;B1)
ez kiszámítja neked, hogy hány munkanap telt el két dátum közt (ezt az értéket szorozhatód is 8 órával)D1=ÖSSZ.MUNKANAP.INTL(A1;B1;11)
ez a vasárnapot veszi csak munkaszüneti napnak + az ünnepeket (azt hiszem), ha ebből kivonod a C1 értéket és szorzód 6-al, akkor elvileg jónak kell lennie.E1=C1*8+(D1-C1)*6
-
-
Caipi
tag
Sziasztok,
A következő kérdésem lenne:
Adott egy lista, ahol egy esemény kezdő és záródátuma szerepel. A oszlop a kezdő, B a záró. A cellákban lévő dátum formátuma: éééé.hh.nn. óó:pp.
Ki szeretném számolni, hogy a nyitás és zárás között mennyi volt az eltelt munkaóra, úgy, hogy a hét munkanapjain (Hétfő-péntek) a munkaórák nem megegyezőek. (Ezt esetleg egy segédtáblában vezetem).Köszönöm a segítséget,
Üdv,
Caipi -
Louro
őstag
Sziasztok!
Csúnyán elakadtam és a neten fellelhető megoldás se segített. Autofilternél 3 opcióra kellene szűrnöm (sajnos nem tudom kettőbe préselni
)A kód:
ActiveSheet.Range(Cells(1, 2), Cells(sor - 21, 18)).AutoFilter Field:=1, Criteria1:= _
"<>*pre*", Operator:=xlAnd, Criteria2:="<>*post*"Ezt kellene kiegészítenem "<>*migr" szűréssel. Az oké, hogy 3. kritéria nem adható meg.
Amit a neten találtam, hogy konstansban megadom a három feltételt:
Const opt1 As String = "<>*post*"
Const opt2 As String = "<>*pre*"
Const opt3 As String = "<>*migr*"Utána tömbben adnám meg a három feltételt:
Criteria1:=Array(opt1, opt2, opt3), Operator:=xlFilterValuesPls help. Próbálom önállóan megtalálni a megoldásokat, mert úgy marad meg igazán, de ez nem akar összejönni most.
-
alfa20
senior tag
Sziasztok,
Ha rá van szűrve egy táblára és az első sor aktív pl.: "K1", makróban, hogyan tudok egyel lejjebb lépni, hogy ne a "K2" cellára lépjen hanem az első szűrt cellára ami akármi lehet ("K33", "K100", bármi)?
A Cells(1 + 1, 11).Select és a "Selection.Offset(1, 0).Select" a "K2"-re visz. -
pdw_ph
tag
-
pdw_ph
tag
válasz
alfa20
#21600
üzenetére
Szerintem azert mert attacholni egy filet tudsz (ugy altalanossagban) de ez csak egy sheet-re vonatkozik:
.Attachments.Add ActiveWorksheet
ActiveWorkbook-ra tedd at es sztem menni fog.
Persze ha te csak az ActiveWorksheet-et akarod kuldeni akkor azt elobb el kell menteni egy kulon fileba (ez szinten megoldhato a Makroban).
-
#21604
atillaahun
veterán
atillaahun
#21603
atillaahun
veterán
válasz
atillaahun
#21603
üzenetére
Közben megoldottam FKERES-sel.
-
#21603
atillaahun
veterán
atillaahun
veterán
Sziasztok,
2 táblázat összeolvasztásában kérnék segítséget.
Az egyikben van 15e sornyi 3 betűs kód különböző előfordulással. Ezeket egyrészről sorba kell rendezni gyakoriság szerint, majd kimutatni melyikből mennyi van. Idáig megvan.A másik táblában vannak viszont a 3 betűs kódokhoz rendelt városnevek. Hogy cserélem ki a kódokat városnevekre az első táblában?
Új hozzászólás Aktív témák
Fferi50- Hisense LCD és LED TV-k
- Bemutatkozott a HHKB legújabb, Topre kapcsolókkal szerelt billentyűzete
- Battlefield 6
- Wise (ex-TransferWise)
- Otthoni hálózat és internet megosztás
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Eredeti játékok OFF topik
- Autós kamerák
- iPhone topik
- Kerékpárosok, bringások ide!
- További aktív témák...
- LG 27GR83Q-B - 27" IPS / QHD 2K / 240Hz & 1ms / NVIDIA G-Sync / FreeSync / DisplayHDR 400
- Honor 200 256GB,Újszerű,Dobozával, 12 hónap garanciával
- Apple iPhone 15 Pro 256GB, Kártyafüggetlen, 1 Év Garanciával
- Thinkpad L13 Yoga i5-10210U 16GB 1000GB 13.3", Touch gyári magyar világítós bill 360 Gar.: 1év
- Lenovo V130-15IGM laptop (Pentium Silver N5000/8GB/256GB SSD
Állásajánlatok
Cég: NetGo.hu Kft.
Város: Gödöllő
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest