- Fórumok
- OS, alkalmazások
- Microsoft Excel topic
- (kiemelt téma)
- Megújult mobilos felület, fórumos ráncfelvarrás a PROHARDVER! lapcsaládon
- Eladhatatlannak ítélt CPU-k eladásával javult az Intel node-ok kihozatala
- Az AI átformálja a Peugeot modelljeit is
- Ráműthető a Linux PlayStation 5-re, de csak egy boot erejéig
- Mindenféle környezeti behatásnak ellenállnak az ASUS új TUF tápjai
- Melyik hordozható audiolejátszót (DAP, MP3, stb.) vegyem?
- Mini-ITX
- Milyen billentyűzetet vegyek?
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- Milyen egeret válasszak?
- A jövőben nem csak a gazdagok kiváltsága lehet az Intel CPU-k tuningja
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- Dell notebook topic
- Milyen széket vegyek?
- OLED monitor topic
-
21700 - 21601
54978 - 54001 54000 - 52001 52000 - 50001 50000 - 48001 48000 - 46001 46000 - 44001 44000 - 42001 42000 - 40001 40000 - 38001 38000 - 36001 36000 - 34001 34000 - 32001 32000 - 30001 30000 - 28001 28000 - 26001 26000 - 24001 24000 - 23901 23900 - 23801 23800 - 23701 23700 - 23601 23600 - 23501 23500 - 23401 23400 - 23301 23300 - 23201 23200 - 23101 23100 - 23001 23000 - 22901 22900 - 22801 22800 - 22701 22700 - 22601 22600 - 22501 22500 - 22401 22400 - 22301 22300 - 22201 22200 - 22101 22100 - 22001 22000 - 21901 21900 - 21801 21800 - 21701 21700 - 21601 21600 - 21501 21500 - 21401 21400 - 21301 21300 - 21201 21200 - 21101 21100 - 21001 21000 - 20901 20900 - 20801 20800 - 20701 20700 - 20601 20600 - 20501 20500 - 20401 20400 - 20301 20300 - 20201 20200 - 20101 20100 - 20001 20000 - 18001 18000 - 16001 16000 - 14001 14000 - 12001 12000 - 10001 10000 - 8001 8000 - 6001 6000 - 4001 4000 - 2001 2000 - 1
-
Fórumok
PROHARDVER! - hardver fórumok
Notebookok TV & Audió Digitális fényképezés Alaplapok, chipsetek, memóriák Processzorok, tuning Hűtés, házak, tápok, modding Videokártyák Monitorok Adattárolás Multimédia, életmód, 3D nyomtatás Nyomtatók, szkennerek Tabletek, E-bookok PC, mini PC, barebone, szerver Beviteli eszközök Egyéb hardverek PROHARDVER! BlogokMobilarena - mobil fórumok
Okostelefonok Mobiltelefonok Okosórák Autó+mobil Üzlet és Szolgáltatások Mobilalkalmazások Tartozékok, egyebek Mobilarena blogokIT café - infotech fórumok
Infotech Hálózat, szolgáltatók OS, alkalmazások SzoftverfejlesztésGAMEPOD - játék fórumok
PC játékok Konzol játékok MobiljátékokLOGOUT - lépj ki, lépj be!
LOGOUT reakciók Monologoszféra FototrendFÁRADT GŐZ - közösségi tér szinte bármiről
Tudomány, oktatás Sport, életmód, utazás, egészség Kultúra, művészet, média Gazdaság, jog Technika, hobbi, otthon Társadalom, közélet Egyéb Lokál PROHARDVER! interaktív
-
Frissítve: 2023-11-13 08:31 Téma összefoglaló
Új hozzászólás Aktív témák
-
Delila_1
veterán
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 -
Gabcsika
tag
-
Gabcsika
tag
-
alfa20
senior tag
-
Delila_1
veterán
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
-
alfa20
senior tag
-
madd dogg
senior tag
-
Gabcsika
tag
-
Delila_1
veterán
-
Delila_1
veterán
-
alfa20
senior tag
igen

esetleg így? -
Delila_1
veterán
-
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!
-
alfa20
senior tag
-
Delila_1
veterán
-
alfa20
senior tag
-
föccer
nagyúr
-
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
-
alfa20
senior tag
-
Delila_1
veterán
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
-
vigyori78
őstag
Sziasztok.
Lenne egy hálózaton lévő excel amit kb 20-an használnak, hogy ha xlsx-re van lementve, akkor eltűnik a makró a fájlból.
Miként küszöbölhető ki a háttér makró elvesztés?
Köszi. -
alfa20
senior tag
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.
-
Delila_1
veterán
-
alfa20
senior tag
'MultiPage-nek a színét, hogy tudom át állítani?
Keresem a beállítások közt, de nem találom. -
marchello1
csendes 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
-
alfa20
senior tag
-
Caipi
tag
-
Tikakukac
titán
-
alfa20
senior tag
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. -
Tikakukac
titán
-
alfa20
senior tag
-
Caipi
tag
-
lappy
őstag
Szerintem link alapján nem fogunk rájönni a hibára ott vmit be kell állítani hogy ne dobalja egymásra
-
lappy
őstag
-
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.
-
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.
-
Delila_1
veterán
Szívesen.

-
atillaahun
veterán
-
Delila_1
veterán
C1-be
=HA(DARABTELI(B:B;B1)>1;SZUMHA(B:B;B1;A:A);"") -
Louro
őstag
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 .
-
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
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
-
alfa20
senior tag
-
anonymus89
addikt
-
Caipi
tag
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 -
Delila_1
veterán
Na és mi ezzel a baj?
-
anonymus89
addikt
-
Delila_1
veterán
-
anonymus89
addikt
-
Delila_1
veterán
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.
-
anonymus89
addikt
-
Louro
őstag
-
alfa20
senior tag
-
KaiotEch
nagyúr
-
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
-
alfa20
senior tag
-
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ó? -
Jarod1
veterán
Létezik olyam excelben ami outlok naptárbol szedi ki az adatokat? A beosztás ugyanis abban van.
-
Louro
őstag
-
KaiotEch
nagyúr
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
-
maestro87
őstag
-
Louro
őstag
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.
-
cousin333
addikt
-
Louro
őstag
-
maestro87
őstag
-
alfa20
senior tag
-
lappy
őstag
-
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!
-
KaiotEch
nagyúr
Ü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
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
-
alfa20
senior tag
-
DopeBob
addikt
-
Caipi
tag
-
alfa20
senior tag
-
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. -
Caipi
tag
-
pdw_ph
tag
-
pdw_ph
tag
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).
-
atillaahun
veterán
Közben megoldottam FKERES-sel.

-
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?
-
alfa20
senior tag
-
DopeBob
addikt
Sziasztok,
tud valaki esetleg valami jó leírást, könyvet az Excel kimutatáskezelő eszközeihez? (PowerPivot, Power View). Elsősorban magyarul, mivel viszonylag ismeretlen a téma, de jöhet angol is.
Új hozzászólás Aktív témák
-
21700 - 21601
54978 - 54001 54000 - 52001 52000 - 50001 50000 - 48001 48000 - 46001 46000 - 44001 44000 - 42001 42000 - 40001 40000 - 38001 38000 - 36001 36000 - 34001 34000 - 32001 32000 - 30001 30000 - 28001 28000 - 26001 26000 - 24001 24000 - 23901 23900 - 23801 23800 - 23701 23700 - 23601 23600 - 23501 23500 - 23401 23400 - 23301 23300 - 23201 23200 - 23101 23100 - 23001 23000 - 22901 22900 - 22801 22800 - 22701 22700 - 22601 22600 - 22501 22500 - 22401 22400 - 22301 22300 - 22201 22200 - 22101 22100 - 22001 22000 - 21901 21900 - 21801 21800 - 21701 21700 - 21601 21600 - 21501 21500 - 21401 21400 - 21301 21300 - 21201 21200 - 21101 21100 - 21001 21000 - 20901 20900 - 20801 20800 - 20701 20700 - 20601 20600 - 20501 20500 - 20401 20400 - 20301 20300 - 20201 20200 - 20101 20100 - 20001 20000 - 18001 18000 - 16001 16000 - 14001 14000 - 12001 12000 - 10001 10000 - 8001 8000 - 6001 6000 - 4001 4000 - 2001 2000 - 1
-
Fórumok
PROHARDVER! - hardver fórumok
Notebookok TV & Audió Digitális fényképezés Alaplapok, chipsetek, memóriák Processzorok, tuning Hűtés, házak, tápok, modding Videokártyák Monitorok Adattárolás Multimédia, életmód, 3D nyomtatás Nyomtatók, szkennerek Tabletek, E-bookok PC, mini PC, barebone, szerver Beviteli eszközök Egyéb hardverek PROHARDVER! BlogokMobilarena - mobil fórumok
Okostelefonok Mobiltelefonok Okosórák Autó+mobil Üzlet és Szolgáltatások Mobilalkalmazások Tartozékok, egyebek Mobilarena blogokIT café - infotech fórumok
Infotech Hálózat, szolgáltatók OS, alkalmazások SzoftverfejlesztésGAMEPOD - játék fórumok
PC játékok Konzol játékok MobiljátékokLOGOUT - lépj ki, lépj be!
LOGOUT reakciók Monologoszféra FototrendFÁRADT GŐZ - közösségi tér szinte bármiről
Tudomány, oktatás Sport, életmód, utazás, egészség Kultúra, művészet, média Gazdaság, jog Technika, hobbi, otthon Társadalom, közélet Egyéb Lokál PROHARDVER! interaktív
Hirdetés
- 228 - Lenovo LOQ (15IRX10) - Intel Core i7-13650HX, RTX 5060
- HIBÁTLAN iPhone 12 Pro Max 128GB Pacific Blue -2 ÉV GARANCIA - Kártyafüggetlen, MS5395
- AKCIÓ! Gigabyte Gaming RTX 3060Ti 8GB videokártya garanciával hibátlan működéssel
- AZONNALI SZÁLLÍTÁS Eredeti Microsoft Office 2019 Professional Plus
- BESZÁMÍTÁS! Asus H310M i5 9400 16GB DDR4 500GB SSD GTX 1660 Super 6GB Rampage SHIVA DeepCool 400W
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest















Fferi50
