-
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
-
#35589
Juditta_56
aktív tag
Juditta_56
aktív tag
Sziasztok!
Ti tudtátok, hogy ha átállítjátok az automatikus számolást kézire, majd elküldötök egy (nem makrós) fájlt, amit ez alatt az idő alatt csináltatok, akkor az illetőnél, aki megnyitja, szintén átállítódik kézire a számolás?
Elég érdekes "ficsör", nem?
-
#35537
Juditta_56
aktív tag
DJ. Ru$y
#35528
Juditta_56
aktív tag
válasz
DJ. Ru$y
#35528
üzenetére
Ha még aktuális:
(tudom, ez is bonyolult lesz, lehet röhögni, de csak egyszer kell bemásolni-végighúzni
három segédoszlop (az első kettő csak azért mert a rengeteg HOSSZ(G29) meg (H29/4-INT(H29/4))*4 miatt áttekinthetetlen volt a képlet),
az elsőben a=HOSSZ(G29)
– "G29" helyett persze az a cella, ahol Nálad a serial-ok vannak –
a másodikban a=(H29/4-INT(H29/4))*4
a harmadikban a képlet - 31 karakterig csináltam, de lehet bővíteni a&HA(H29>=32+I29;JOBB(BAL(G29;I29+32);4);"")&HA(H29>32+I29;"-";"")
szakasszal, ahol a három db 32-es számot kell a továbbiakban rendre átírni 36, 40, 44 stb-re.
A teljes képlet:=HA(I29>0;BAL(G29;I29)&"-";"")
&HA(H29>=4+I29;JOBB(BAL(G29;I29+4);4);"")&HA(H29>4+I29;"-";"")
&HA(H29>=8+I29;JOBB(BAL(G29;I29+8);4);"")&HA(H29>8+I29;"-";"")
&HA(H29>=12+I29;JOBB(BAL(G29;I29+12);4);"")&HA(H29>12+I29;"-";"")
&HA(H29>=16+I29;JOBB(BAL(G29;I29+16);4);"")&HA(H29>16+I29;"-";"")
&HA(H29>=20+I29;JOBB(BAL(G29;I29+20);4);"")&HA(H29>20+I29;"-";"")
&HA(H29>=24+I29;JOBB(BAL(G29;I29+24);4);"")&HA(H29>24+I29;"-";"")
&HA(H29>=28+I29;JOBB(BAL(G29;I29+28);4);"")&HA(H29>28+I29;"-";"")Ha a serialotok hossza 4-gyel osztható maradék nélkül, akkor nincs gond, ha nem, akkor az elején van a "maradék" karakter.
A végén a "harmadik" oszlopot értékkel bemásoljátok a beírt serial helyére és törölhetitek a segédoszlopokat.
-
#35472
Juditta_56
aktív tag
Juditta_56
aktív tag
Sziasztok!
Bocs, hogy itt kérdezem, de nem tudom hol kéne... Múlt hónapban szereztem be az Office 365-öt, havi előfizetéssel. Május 11-én a virtuális kártyámról fizettem be a havi összeget először. Május 27-én jelezte a MS, hogy június 10-én automatikusan megújul az előfizu, de nem vonták le a kártyámról a mai napig (van rajta pénz). Keresgéltem a MS fiókomban, hogy be tudom-e "kézzel" fizetni, de nem találtam ilyen lehetőséget. Kapcsolat vagy ilyesmi menüpontot sem látok.
Kell-e jeleznem valahova a késedelmet (ha igen, hova), vagy csak "Isten malmai" módi van a Microsoftál is? Nem szeretném, ha eccercsak nem tudnám használni az excelt meg a wordöt.
Előre is köszi
, ha valaki tud segíteni - akár priviben is, hogy ne terheljük a fórumot. -
#35405
Juditta_56
aktív tag
Delila_1
#35404
Juditta_56
aktív tag
válasz
Delila_1
#35404
üzenetére
Oooóóóóh, megint tanultam valamit, kösz, átírom! Úgy tudtam (sejtettem, inkább!), hogy ha vesszővel, egymás után beírom őket, akkor mind integer lesz!
Ezt is köszi!Szerk: "Az eredeti specbeillesztésnél néhány olyan paraméter szerepelt, ami alapértelmezés, azokat elhagyhatjuk."
Itt mire gondolsz? -
#35403
Juditta_56
aktív tag
poffsoft
#35399
Juditta_56
aktív tag
válasz
poffsoft
#35399
üzenetére
Nagyon szépen köszönöm Neked is a segítséget!
Először a Te javaslataidat próbáltam ki:
A variant/integer különbséget nem találtam, sztem mindegyik integer:
Dim EllSor, EllOszl, JelSor, HibaOszl As Integer
Dim OsszSor, OsszOszl, OsszOszlMax As IntegerIgen, van Sheets(1) mindkét munkafüzetben, ezt már ellenőriztem - adott lapon: =LAP() -, de azért most változóba raktam mindkét lapnevet (LapNeve és ElsoLap), és átírtam őket.
A Range hivatkozásait vagy hatszor ellenőriztem, jók, a cellákban, ahonnan a változók az értékeiket veszik, abszolút hivatkozás van az oszlopokra-sorokra, hogy ha kell, akkor be lehessen szúrni oszlopokat-sorokat.
Sajnos, így sem működött, ugyanott, ugyanazt a hibát dobta.
Viszont Delila megoldása tökéletes! Újra, és gondolom, nem utoljára, nagyon szépen köszönöm!
("Természetesen", Delila, az első válaszod után a másik három copy-paste blokkban nem az egész sort, csak a végét (PasteSpecial xlPasteValues) javítottam, mert a lényeget nem vettem észre!
) -
#35397
Juditta_56
aktív tag
Delila_1
#35396
Juditta_56
aktív tag
válasz
Delila_1
#35396
üzenetére
Mindig mondom, hogy istennő vagy! Most az első copy-t bemásolja!
A másodiknál viszont ugyanaz a hiba, ha átírom a Te formuládra, ha hagyom az enyémet akkor is!
'Az alábbi másolást-beillesztés megcsinálja
Workbooks(OszNeve).Sheets(1).Range(Cells(OsszSor + 10, 4), Cells(OsszSor + 18, 4)).Copy
Workbooks(ControlNeve).Sheets(osszlap).Cells(EllSor + 24, HibaOszl).PasteSpecial xlPasteValues
Application.CutCopyMode = False
'Köszönöm! ♥
Workbooks(OszNeve).Sheets(1).Range(Cells(OsszSor + 20, OsszOszl), Cells(OsszSor + 18, OsszOszlMax)).Copy
'ENNÉL A SORNÁL HIBAÜZENET: "Run-time error '1004'. Application-defined or operation-defined error." MIÉRT?
Workbooks(ControlNeve).Sheets(osszlap).Range(Cells(EllSor + 24, EllOszl)).PasteSpecial xlPasteValues
'MEG ENNÉL IS:
Workbooks(ControlNeve).Sheets(osszlap).Range(Cells(EllSor + 24, EllOszl)).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=FalseBocs, nem leszek gépnél egy darabig, úgyhogy nem sürgős!
-
#35395
Juditta_56
aktív tag
Juditta_56
aktív tag
Sziasztok!
Már minden lehetséges netes forrást végigkutattam, de nem jövök rá, hogy miért nem működik a következő makró (bemásolom az egészet, a második nagybetűs komment sor alatti sorra dobja a hibát):
Sub EllMasol()
'
Dim ControlNeve, LapNeve, osszlap, SegLap As String
Dim fso As Object
' Dim ControlFile As Workbook
Set fso = CreateObject("Scripting.FileSystemObject")
fileExists = fso.fileExists("C:\Users\Desktop\Test\journals.xlsx")
'csak ebben a modulban:
Dim EllSor, EllOszl, JelSor, HibaOszl As Integer
Dim OszKonyvt, OszNeve As String
Dim OsszSor, OsszOszl, OsszOszlMax As Integer
' On Error GoTo Errorcatch
ControlNeve = ActiveWorkbook.Sheets(1).Range("AW1")
'EZ SEM MŰKÖDIK, DE EZT KIKERÜLTEM
' Set ControlFile = Workbooks(ControlNeve)
osszlap = Workbooks(ControlNeve).Worksheets("Összesítő").Name
SegLap = Workbooks(ControlNeve).Worksheets("Segéd").Name
If Environ("username") = azennevem Then 'Ide eredetileg az itthoni felhasználónevem,
'otthon
OszKonyvt = azenkönyvtáram 'ide meg az adott könyvtár neve van beírva...
Else
'benti
OszKonyvt = ActiveWorkbook.Sheet(1).Range("AY1")
End If
OszNeve = Workbooks(ControlNeve).Sheets(1).Range("AZ1")
EllSor = Workbooks(ControlNeve).Sheets(osszlap).Range("IJ1")
EllOszl = Workbooks(ControlNeve).Sheets(osszlap).Range("IK1")
JelSor = Workbooks(ControlNeve).Sheets(osszlap).Range("IL1")
HibaOszl = Workbooks(ControlNeve).Sheets(osszlap).Range("IM1")
fileExists = fso.fileExists(OszKonyvt & OszNeve)
Workbooks.Open (OszKonyvt & OszNeve) 'Megnyitja
Windows(OszNeve).Activate
Sheets(1).Activate
OsszSor = Range("CJ31")
OsszOszl = Range("A" & OsszSor)
OsszOszlMax = Range("A" & OsszSor + 1)
Range(Cells(OsszSor + 10, 4), Cells(OsszSor + 18, 4)).Copy 'Kimásolja
'ENNÉL A SORNÁL HIBAÜZENET: "Run-time error '1004'. Application-defined or operation-defined error." MIÉRT?
Workbooks(ControlNeve).Sheets(osszlap).Range(Cells(EllSor + 24, HibaOszl)).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range(Cells(OsszSor + 20, OsszOszl), Cells(OsszSor + 18, OsszOszlMax)).Copy
Workbooks(ControlNeve).Sheets(osszlap).Range(Cells(EllSor + 24, EllOszl)).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range(Cells(OsszSor, OsszOszl), Cells(OsszSor + 8, OsszOszlMax)).Copy
Workbooks(ControlNeve).Sheets(osszlap).Range(Cells(EllSor, EllOszl)).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range(Cells(OsszSor + 10, OsszOszl), Cells(OsszSor + 19, OsszOszlMax)).Copy
Workbooks(ControlNeve).Sheets(osszlap).Range(Cells(JelSor, EllOszl)).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Exit Sub
'Errorcatch: MsgBox Err.Description
End SubA Debugnál szépen kiírja az összes változó nevét, (fájl, sorok-oszlopok száma), tehát nem azokkal van baja...
Köszönöm szépen előre is a segítséget!
-
#35330
Juditta_56
aktív tag
Juditta_56
aktív tag
Sziasztok!
A következőt kéne csinálnom makróban:
Az aktuális munkafüzetet mentem, majd kitörlök belőle két lapot - az egyik az a lap, ahonnan a makrót az eredeti munkafüzetből indítottam (!) -, majd mentem másként, de MAKRÓMENTES excel-munkafüzetként, amit rögtön be is lehet zárni.
Igazából ott akadtam el, hogy ennél a parancsnál a FileFormat-nak mit kell megadni?...
ActiveWorkbook.Save
ActiveWorkbook.SaveAs(neve,???Lehetséges ez? Ha igen, a kérdőjelek helyére mit kell írnom, mert az aktuális súgóból számomra nem derül ki.
Előre is nagyon szépen köszönöm!
-
#35128
Juditta_56
aktív tag
kopogo
#35123
-
#34786
Juditta_56
aktív tag
mdk01
#34780
Juditta_56
aktív tag
Megint Deliláé a +1 pont, bár azt nem egészen értem a problémádban, hogy ha megtalálja a SZÖVEG.TALÁL a keresett értéket-adatot, akkor minek kell összehasonlítani a megtalált szöveget/számot a keresettel? Tehát, minek belevariálni a KÖZÉP függvényt is?
(#34787) Delila_1: Rendben leesett, tökmindegy, mert ha nem a KÖZÉP, akkor még egy SZÖVEG.TALÁL-t kell beletenni...
SZÖVEG.TALÁL("0,5";Összesített!U6;SZÖVEG.TALÁL("-";Összesített!U6)+1) -
#34777
Juditta_56
aktív tag
mdk01
#34775
Juditta_56
aktív tag
Szerintem a képleted(?) egy kicsit összezavarodott, így nem is nagyon lehet tudni, hogy mit szeretnél...
Ha azt szeretnéd, hogy
ha az Összesített!$U6 tartalmazza a '0,5' vagy az '1' szöveget, akkor írja ki az Összesített!$M6 értékét, különben ""-t, akkor:=HA(HIBÁS(SZÖVEG.TALÁL(0,5;Összesített!$U6));HA(HIBÁS(SZÖVEG.TALÁL(1;Összesített!$U6));"";Összesített!M6);Összesített!M6)
(bocs, én nem használom a "HAHIBA" függvényt, csak így tudom)
ha viszont nem ezt szeretnéd, akkor írd le pontosan, hogy hogy gondolod... -
#34748
Juditta_56
aktív tag
csferke
#34746
Juditta_56
aktív tag
válasz
csferke
#34746
üzenetére
Tudom, bonyolult, de én így használom:
=ÖSSZEFŰZ(ÉV(C8);".";HA(HÓNAP(C8)<10;"0"&HÓNAP(C8);HÓNAP(C8));".";HA(NAP(C8)<10;"0"&NAP(C8);NAP(C8)))
Az angolban talán így van, de majd kijavítod, ha nem jó:=CONCATENATE(B8,"-",IF(DAY(C8)<10,"0"&DAY(C8),DAY(C8)),".",IF(MONTH(C8)<10,"0"&MONTH(C8),MONTH(C8)),".",YEAR(C8)) -
#34679
Juditta_56
aktív tag
joeetm
#34677
-
#34632
Juditta_56
aktív tag
Krogoth
#34627
-
#34618
Juditta_56
aktív tag
Juditta_56
aktív tag
Sziasztok!
Az mitől lehet, hogy:
Egy 2,5 MB-os, négy munkalapból álló táblázat egyik lapjáról (kb. 1000 sor, 30 oszlop, sok képlettel, de minden képlet csak a saját lapra hivatkozik) leszűrtem 30 sornyi adatot, azt átmásoltam értékkel egy üres munkafüzetbe, ebből törölni akartam a végéről néhány oszlopot, ekkor "kevés a memória" hivatkozással kiakadt, majd nagy nehezen hagyta magát menteni, kiléptem (ekkor az eredeti táblázat már be volt zárva). Ezután láttam, hogy 4,5 MB-os lett az új, egylapos, 30 soros táblázat, amiben nincs egy darab képlet sem.
Helyre tudtam tenni úgy, hogy az összes üres oszlopot majd sort is töröltem. Hozzátenném, hogy ezek valóban üresek, formázás sincs bennük, az eredeti táblázatban sem.
Szóval, miért van ez, és mit lehet tenni ellene?
Előre is köszönöm, ha elárulja valaki a titkot!
-
#34155
Juditta_56
aktív tag
huan
#34154
Juditta_56
aktív tag
aaa.xlsx
A K2 cellában (segédoszlop) a képlet:=HA(AZONOS($A2;$A1);"";1)
Ezt elrakhatod bárhová, csak akkor az E2 cellában lévő képletben=HA(AZONOS($K2;1);MIN(INDIREKT(CÍM(SOR();OSZLOP($D$1))):INDIREKT(CÍM(HOL.VAN(1;$K3:$K1000;0)+SOR()-1;OSZLOP($D$1))));E1)
módosítsd az összes K-t a megfelelő betűjelre. Utána persze húzd végig az E oszlopon. Arra figyelj, hogy a K oszlopban lévő képletet egy sorral tovább húzd, mint ahány adat van az A oszlopban.
Biztos fogok kapni, hogy miért az INDIREKT függvényt használom, de nekem bevált. -
#33555
Juditta_56
aktív tag
Juditta_56
aktív tag
Nagyon szépen köszönöm a sok segítséget, előre, meg utólag is, és nagyon boldog új évet kívánok Mindenkinek!
-
#33320
Juditta_56
aktív tag
Juditta_56
aktív tag
Sziasztok!
Ez miért ad értékhibát a SZÖVEG.KERES függvényre, akkor is, ha van benne "O"?
![;]](//cdn.rios.hu/dl/s/v1.gif)
[link]Előre is köszönöm a választ, mert már mindent kipróbáltam...
-
#33205
Juditta_56
aktív tag
Juditta_56
aktív tag
Sziasztok!
Kerestem ezt a könyvet: "Az Excel programozása" Kovalcsik Géza
Sajnos, már nem kapható sehol. Tudnátok ajánlani helyette valami hasonlót? Belemerülnék egy kicsit komolyabban a makrózásba...
-
#33183
Juditta_56
aktív tag
Smogus
#33182
-
#33123
Juditta_56
aktív tag
fecske13
#33121
Juditta_56
aktív tag
válasz
fecske13
#33121
üzenetére
Köszönöm azért Neked is!
A SZÖVEG függvényt ismerem, ezexerint nem ez volt a megoldás, hanem Delila új makrója.
Még egyszer köszönöm Neked is, Delila!
A makródat majd kibővítem, hogy az összes sort (cellát) átalakítsa és akkor tényleg csak egy gombnyomás lesz a szöveg "megírása". 
-
#33110
Juditta_56
aktív tag
Delila_1
#23042
Juditta_56
aktív tag
válasz
Delila_1
#23042
üzenetére
Szia, Delila!
Ezt ("Összeollózott szövegek formázása 1 cellán belül") az anyagot fel tudnád rakni valahová, ha szépen megkérlek, mert már nem érhető el? Előre is köszönöm!
A problémám - amire remélem, megoldás lesz az anyag -, hogy a főnökség nem szeret táblázatot nézegetni, ezért mindent el kell küldeni szövegesen (is). Az összesítőket képletekkel szövegbe rakjuk, majd bemásoljuk egy e-mailbe, viszont szeretném, hogy a számok bold formátumúak lennének (és csak a számok). Próbáltam, hogy a szerkesztőlécen a cellahivatkozást - amiben az adott szám van - vastagra állítom, de képletben nem fogadja el. Esetleg az excelben lévő "kész" szövegben lehet valami trükk, amivel a számokat ki lehetne vastagítani? Nyilván egyenként meg lehet oldani, akár az excelben, akár az e-mailben, de jó lenne valami trükk rá...
Egyébként mindent köszönök előre is, meg utólag is, rengeteget tanulok Tőled!
-
#33108
Juditta_56
aktív tag
róland
#33106
Juditta_56
aktív tag
válasz
róland
#33106
üzenetére
Szia!
Én is most kínlódtam meg ezzel. Kérdés, hogy Neked milyen formátum kell.
Ha "simán" mentettem a munkalapot csv-ként, az nekem pontosvesszővel elválasztott adatokat eredményezett. Úgyhogy összefűztem a szükséges adatokat úgy, hogy közé vesszőket tettem (a fejlécet is!), ezt átraktam egy üres munkalapra és azt mentettem csv-ként. Így szabályos, vesszővel elválasztott mezőket kaptam. (Konkrétan a guglinaptárba akartam importálni a beosztásomat.)
-
#33008
Juditta_56
aktív tag
Soma01
#33006
-
#32090
Juditta_56
aktív tag
Juditta_56
aktív tag
Sziasztok!
Tudnátok segíteni? Meg lehet-e képlettel oldani azt, hogy az alábbi munkafüzet Összesítő munkalapján a 201. sorban megjelenjenek a munkafüzet munkalapjainak nevei, ahol a 200. sorba a munkalapok sorszámát már bevarázsoltam.
Az összes érintett munkalap Z4 cellájába pedig kiírattam az adott munkalap nevét.A probléma az, hogy egyébként a munkalap-neveket csak bemásolni tudnám egyenként, viszont elég sok ilyen munkalap szokott összegyűlni.
Előre is nagyon szépen köszönöm a segítséget!
-
#20650
Juditta_56
aktív tag
Juditta_56
aktív tag
Hali, gondolkozik valaki azon, amit kérdeztem, vagy adjam fel, mert reménytelen?
Előre is köszi a választ!
-
#20626
Juditta_56
aktív tag
Juditta_56
aktív tag
Sziasztok!
A segítségeteket szeretném kérni!
Az osztályvezető ellenőrizni szeretné a csoportok és a csoportvezetők munkáját, olyan módon is, hogy a két csoportvezetőnek minden nap vezetnie kell a csoport dolgozóinak jelenlétét egy-egy táblázatban. E két, hálózaton lévő, bizonytalan időben megnyitott-bezárt táblázat adatait kellene látnia az osztályvezetőnek „percrekészen”. Gondoltam, a két táblázat hálózati elérési útját beteszem egy cellába és onnan Fkeressel ... stb ...
Természetesen, beleestem az Inderektes csapdába (bezárt munkafüzetek), de aztán megtaláltam itt nálatok perfag és Delila_1 erre (is) alkalmazható megoldásait, amit ezúton is köszönök!Viszont az az elméleti kérdés merült fel bennem, hogy mi van akkor, ha a frissítés közben nyitja meg valamelyik csopvez a saját táblázatát? Nem okoz az valami ütközést? Az ellenkezőjét simán el tudom kerülni egy feltétellel, de ezt?
, ha valaki tud segíteni - akár priviben is, hogy ne terheljük a fórumot.
)
Bár Neki sem lehetett nagyon hasznos... 
![;]](http://cdn.rios.hu/dl/s/v1.gif)
, ez egy köremailből származó adatsor, amit bemásolok egy táblázatba, úgy lenne "hülyebiztos", ha nem kéne mókolni vele...
Új hozzászólás Aktív témák
- Nikon DSLR topik
- exHWSW - Értünk mindenhez IS
- Futás, futópályák
- Samsung Galaxy S25 - végre van kicsi!
- A fociról könnyedén, egy baráti társaságban
- Milyen autót vegyek?
- DUNE médialejátszók topicja
- Erősítő, hangfalak
- Fortnite - Battle Royale & Save the World (PC, XO, PS4, Switch, Mobil)
- Milyen billentyűzetet vegyek?
- További aktív témák...
- LG 45GS95QX - 45" Ívelt OLED / 2K WQHD / 240Hz 0.03ms / NVIDIA G-Sync / FreeSync Premium / HDMI 2.1
- Xiaomi Redmi Note 14 pro+ 512GB,Újszerű,Adatkabel, 12 hónap garanciával
- MacBook felvásárlás!! Macbook, Macbook Air, Macbook Pro
- GYÖNYÖRŰ iPhone 13 Pro 256GB Sierra Blue - 1 ÉV GARANCIA, Kártyafüggetlen, 100% Akkumulátor,MS3379
- REFURBISHED - Lenovo ThinkPad 40AC Thunderbolt 3 Dock
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: NetGo.hu Kft.
Város: Gödöllő