- Radeon RX 9060 XT: Ezt aztán jól meghúzták
- Atomenergiával dübörögnek tovább az Amazon adatközpontok, SMR-ek is jöhetnek
- Macron betiltatná az EU-ban a közösségi médiát a 15 év alattiaknak
- Az NVIDIA ipari AI-felhőt épít a németeknek, együtt az OpenAI és a Google
- Két új Ryzen közül választhatnak a kézikonzolok
-
PROHARDVER!
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
-
-
#35399
poffsoft
veterán
Juditta_56
#35397
poffsoft
veterán
válasz
Juditta_56
#35397
üzenetére
A koordináta változóid fele variant, fele integer. Szándékos?
Van "1" nevű munkalapod?
Hol index-szel (sheet(1)), hol névvel (sheets(1)) hivatkozol rá. Szándékos?
A range-n belül a cells biztos, hogy nem 0. oszlopra hivatkozik? (Osszoszl, Osszoszlmax nem nulla?) -
#35398
Delila_1
veterán
Juditta_56
#35397
Delila_1
veterán
válasz
Juditta_56
#35397
üzenetére
A Range a hiba. Vedd ki, a hozzá tartozó zárójelekkel együtt.
A Range utasítás szöveges értéket vár, pl. "A1". A Cells(sor, oszlop) viszont 2 számot ad, ezt nem veszi be a Range.
-
#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!
-
#35396
Delila_1
veterán
Juditta_56
#35395
Delila_1
veterán
válasz
Juditta_56
#35395
üzenetére
Próbáld így:
Workbooks(ControlNeve).Sheets(osszlap).Cells(EllSor + 24, HibaOszl).PasteSpecial xlPasteValues -
#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!
-
Bivaly23
csendes tag
Sziasztok egy kis segítséget kérnék még kezdő vagyok.
A problémám a következő adott az A oszlop nevekkel a D az árakkal, a legolcsobb és legdrágább nevét kéne megadni egy másik oszloban. A min és max fügvényel meg van hogy, mik azok, az áruk látszik, de sem az fkeres, sem cím, sem a lookup al nem tudom a nevet megjeleniteni, midig hibát ir ki név vagy érték stb.
Segítséget előre is köszönöm.
Üdv. Bivaly -
poffsoft
veterán
válasz
patesz
#35385
üzenetére
szia,
a ZZ lap A1 cellától ezt a képletet írd be tetszőleges (sok) sorba:
=HA(SOR()<=DARAB2(XX!A:A)-3;INDIREKT("XX!A"&SOR()+3);HA(SOR()<=DARAB2(XX!A:A)+DARAB2(YY!A:A)-6;INDIREKT("YY!A"&SOR()-DARAB2(XX!A:A)+6);""))ha a "B" oszlop is kell, akkor a B1-től lefelé ezt írd be:
=HA(SOR()<=DARAB2(XX!A:A)-3;INDIREKT("XX!B"&SOR()+3);HA(SOR()<=DARAB2(XX!A:A)+DARAB2(YY!A:A)-6;INDIREKT("YY!B"&SOR()-DARAB2(XX!A:A)+6);"NaN")) -
patesz
csendes tag
Sziasztok,
Lenne egy problémám amivel nem tudok megbirkózni és szeretném a segítségetek kérni.
A megoldandó feladat a következő lenne:Adott egy Excel állomány amiben 3db munkalap (pl.: XX , YY , ZZ) található.
Az "XX" és "YY" munkalap is tart valahányadik sorig (pl.: az "XX" 10.-ig, a "YY" 3.-ig) és bővülhet.
A "ZZ" munkalap az előző két munkalapnak az összegzése lenne. Tehát először az "XX" munkalap (pl. 10db sora) majd a "YY" munkalap (pl.: 3db sora) lenne olvasható egymás alatt.
Ha az "XX" munkalap bővülne akkor is ezt követően kellene a "YY" munkalap értékeinek kerülnie.A számomra megoldhatatlan feladat az "XX" munkalap éppen aktuális utolsó nem üres sorának megtalálása és a második "YY" munkalap beolvasásának ehhez történő igazítása.
Az már csak gondolom bonyolítja a feladatot hogy az első 3db sor a fejlécé, tehát erre nem lenne szükség.Valakinek lenne valami ötlete vagy megoldása?
Köszönettel,
patesz20 -
DeFranco
nagyúr
válasz
Cece04
#35380
üzenetére
ha szöveg és szám formátumok között akarsz keresni különösebb segédoszlopok nélkül fkeressel vkeressel vagy indexholvannal, akkor én az ÉRTÉK és a FIX függvényt ajánlom.
példa: ha az oszlop amiben keresel számformátumot tartalmaz, de neked szövegként van meg az érték amit keresel, akkor =FKERES(ÉRTÉK([keresett adat]);[keresési tartomány];[oszlop];[pontos/közelítő])
ugyanez fordítva, ha a tartomány szövegként van, de neked értéked van amit meg kellene keresni, akkor =FKERES(FIX(([keresett adat];0);[keresési tartomány];[oszlop];[pontos/közelítő])
így nem kell segédoszlopozni.
nem teljesen értettem a kérdésedet, hogy mi a pontos probléma, de ezen szerintem el lehet indulni
-
Cece04
tag
Sziasztok!
Segítséget szeretnék kérni.
Beállitottam,hogy egy bizonyos lekérdezést meghívjon az excel sql szerverről,ezzel minden oké.
Viszont szeretném,hogyha az első oszlop alapján vlookuppal mellékeresne a táblázat bizonyos kategóriákat,de ebből a táblázatból nem tud dolgozni.
Próbáltam úgy,hogy VALUE képlettel átrakom egy másik oszlopba és úgy keresem mellé a kategóriát ,ami félig meddig működött is,de vannak olyanok is ebben az oszlopban,amik 0-val kezdődnek,pl 022221, azt pedig value képlettel már 22221-re változtatja,így meg nem talál már rá természetesen.Van olyan képlet,ami megtartja a teljes számsort úgy,hogy utána értékként is lássa?
Köszi!
-
Szevasztok!
Kérnék szépen segítséget!
Van egy olyan feladat megvan benne adva az, hogy a "A személyi adatok munkalapon lévő ponthatárok alapján sorold be a munkatársakat"
A ponthatárok:
0 Gyenge munkatárs
41 Fejlesztendő munkatárs
66 Átlagos munkatárs
86 Kiemelkedő munkatársezt ha függvény egybeágyazásával hogy tudom megcsinálni vagy ha ezzel nem akkor mivel, hogyan?
-
Delila_1
veterán
válasz
föccer
#35372
üzenetére
Érdemes makrót rögzíteni a programozás megismeréséhez.
Utána erőteljes gyomlálás szükségelteik, mert tele rakja Select utasításokkal, meg olyanokkal, amik alapértelmezésben be vannak állítva..
Pl. rögzítsd, hogy félkövérre állítod egy cella karaktereit. Az esetleges több soros makróból elég 1 sor:
Range("D5").Font.Bold = True -
-
föccer
nagyúr
válasz
Delila_1
#35368
üzenetére
Egyetlen egy lapnak a nyomtatasarol van szo. Atallitom a parametereket, a formanyomtatvany megcsinalja a szamitasokat es nyomtathato A4 formatumban jeleniti meg a dolgokat, kvazi csak nyomtatni kell. Majd vissza korabbi lapra, parametereket allitani ellenorizni legpodulokat allitani minden biz-baz technologusi dolgot megcsinalni majd nyomtatni. Es ezt meg jo sokszor.
Kosz a valaszolat este atnezrm.
-
Delila_1
veterán
Kicsit kevesebb Select utasítással
Sub nyomtat()
b = Worksheets("névsor").Cells(1, 2) + 1
For a = 2 To b
Sheets("névsor").Cells(a, 2).Copy
Sheets("Sima").Range("C3").PasteSpecial xlValues
Application.CutCopyMode = False
Sheets("Sima").PrintOut Copies:=1, Collate:=True
Next a
MsgBox "A nyomtatás kész, ügyes vagy!!!"
Sheets("Sima").Range("C3").ClearContents
End SubLehet, hogy több lap együttes nyomtatásáról van szó.
Sheets(Array("Munka1", "Munka2", "Munka3")).Select
SelectedSheets.PrintOut Copies:=1 -
allein
addikt
Üdvözletem mindenkinek. Szeretnék egy kis segítséget kérni, képen látható összegek RON-ban értendők, COD -utánvét összegek. Amennyiben beírom a kerekítésnél a -1-es értéket akkor van olyan összeg amit felfele kerekít, holott lefele kerekítés lenne szükség. Tudtok ebben segíteni?
(#35369) Delila_1 - jó lesz a "0":
Köszönöm szépen a segítséget
-
lappy
őstag
válasz
föccer
#35364
üzenetére
Sub nyomtat()
b = Worksheets("névsor").Cells(1, 2).Value
b = b + 1
For a = 2 To b
Sheets("névsor").Select
Range(Cells(a, 2), Cells(a, 2)).Select
Selection.Copy
Sheets("Sima").Select
Range("C3").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next a
MsgBox "A nyomtatás kész, ügyes vagy!!!"
Sheets("Sima").Select
Range("C3").Select
Selection.ClearContents
Range("A2").Select
End Sub -
föccer
nagyúr
És nyomtatást hogyan tudok kérni makróból, egy másik munkalapra, aminek a neve "recept"?
Van egy oldal, ahol beállítom a paramétereket, és egy másik lapon állítom össze a teljes formanyomtatványt. Ezt akarnám kinyomtatni, ha lehet, a paraméterező lapról. (tudom, +2 kattintás lenne, de jelenleg többszáz oldalról lenne szó.
Köszi.
üdv, föccer
-
-
föccer
nagyúr
válasz
Delila_1
#35356
üzenetére
Majdnem. 10 paraméter van, ami külön-külön vűáltoztatható, ezért mindegyikre be van állítva az érvényesítés. Ellenben elég sokszor előfordul az, hogy az összes paramétert ugyan arra az értékre kell visszaállítani, ekkor legyen csak egy gombnyomás, hogy ne kelljen külön-külön végig zongorázni az összesen. Lappa megoldása pörfikt és elég egyszerű hozzá, hogy még én is megértsem.
üdv, föccer
-
Delila_1
veterán
válasz
föccer
#35353
üzenetére
Egy másik módszer.
Ha jól értem, egy listából választod ki a paramétert, és ezt akarod másik cellákba másolni.A B5 cellában van egy érvényesítés, amiből kiválasztod a megfelelő paramétert. A laphoz rendelt makró ezt bemásolja a Range(...) felsorolásában lévő cellákba, mikor a B5-ben változtatsz.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$5" Then
Target.Copy
Range("D3,D5,D7,D10").PasteSpecial xlPasteValues
Application.CutCopyMode = False
End If
End Sub -
lappy
őstag
-
föccer
nagyúr
Helló!
Teljesen hülye vagyok a témában. Gombnyomásra kellene egy cella értéket átmásolni néhány másik cellába. (egy paraméter lista egyedileg állítható elemeket tartalmaz, de gombnyomásra szeretném, ha az összes ugyan azt az értéket venné fel).
Kiraktam a gombot, megnyitottam a hozzá tartozó kódrészletet, de hogyan tudok cellára hivatkozni, értéket adni?
Függvény kezelésbe jó vagyok, de makróval életemben nem foglalkoztam.
-
BullZeye
veterán
válasz
Delila_1
#35319
üzenetére
Belefutottam egy hibába, ha duplikálom a sort makróval, amiben védett cellák vannak (bármit lehet, csak kijelölni nem), ott a képletet nem viszi át. Formázás átmegy tökéletesen, viszont az összes képlet hiányzik.
És persze Run-Time error '1004'
A módosítani kívánt cella vagy diagram védett lapon van. Ha módosítani szeretné ezt az elemet, oldja fel a munkalap védelmét. Lehet, hogy ehhez meg kell adnia egy jelszót.Ez a makró, amit használnék a sor duplikáláshoz:
Sub Duplicate()
'
' Duplicate Makró
ActiveCell.Offset(1, 0).EntireRow.Insert
ActiveCell.EntireRow.Copy ActiveCell.Offset(1, 0).EntireRow
' Billentyűparancs: Ctrl+d
'
End SubVan valami egyszerű módja kiegészíteni ezt, hogy védett cella függvényt is copyzzon? Cella védelem csak amiatt van, hogy még véletlenül se tudjak rákattintani és kitörölni a képleteket, és ne kelljen minden alkalommal ellenőrizni, hogy mindegyik megvan e még.
-
#35350
germinator66
aktív tag
germinator66
#35349
germinator66
aktív tag
válasz
germinator66
#35349
üzenetére
Annyit hozzátennék, hogy az egyedi azonosítók leszűrése után a DARABTELI függvény segítségével gyűjtöttem ki a darabszámokat (minden munkalapra külön függvény, és a cellákban egyből összegeztem is).
Még egyszer köszönöm! -
#35348
Fferi50
Topikgazda
germinator66
#35347
Fferi50
Topikgazda
válasz
germinator66
#35347
üzenetére
Szia!
Némi munkával megoldható ez makró nélkül is. (Hidd el, tovább tart leírni, mint végrehajtani.)
Gondolom, az egészet egy új munkalapon szeretnéd, vegyük ezt az esetet:
1. Az azonosítókat tartalmazó oszlopokat minden munkalapról átmásolod az új munkalapra, azonos oszlopba egymás alá.
2. Adatok - ismétlődések eltávolítása -> ennek eredménye, hogy egyedi azonosítóid maradnak.
3. Ezután SZUMHA függvénnyel minden lapról megkapod az adott azonosítóhoz tartozó értékeket. Ha egy munkalapon csak egyszer szerepelhet az adott azonosító, akkor elég az Fkeres függvény.
Ezt minden forrás munkalapra megcsinálod - lehet külön-külön cellákban és a végén az utolsó oszlopban összesíted. De lehet egy cellában összeadni a képletek eredményeit:=Szumha(Elsolap!A:A, Ujlap!A2;Elsolap!B:B)+Szumha(Masodik!A:A,Ujlap!A2;Masodik!B:B)+...Üdv.
-
#35347
germinator66
aktív tag
germinator66
aktív tag
Sziasztok!
Egy látszólag egyszerű feladatot szeretnék megoldani. Van egy munkafüzet, több lappal, amiken belül alkatrészek vannak felsorolva. A feladat az lenne, hogy ki kellene gyűjteni az összes egyedi (különböző) alkatrész típust/azonosítót és darabszámot is kellene mellé rendelni, ahányszor az adott típus szerepel bármelyik munkalapon. Gondolom ehhez nem elég sima függvény, hanem makrót kell írni?
-
Delila_1
veterán
válasz
csferke
#35345
üzenetére
Sajnos csak vízszintesen oldható meg ilyen módon.
Függőlegesen a képen látható területnek fehér hátteret adtam, hogy ne legyenek láthatóak a cellarácsok, majd körbe kereteztem.
Látható, hogy a keretezett rész különálló cellákból tevődik össze, 1-re külön rá tudtam állni.
-
Fferi50
Topikgazda
válasz
butch3r
#35341
üzenetére
Szia!
Itt van egy megoldási javaslat:
=SUM(INDEX(AB1:AY10;MATCH(A2;A1:A10;0);MATCH(AS1;AB1:AY1;0)):INDEX(AB1:AY10;MATCH(A2;A1:A10;0);MATCH(AU1;AB1:AY1;0)))Dátumok az AB1:AY1, adatok az AB2:AY10, azonosítók az A1:A10 területen. Próbáld adaptálni a sajátodhoz. (Ne zavarjon meg, hogy a keresendő értékeket a területekben levő cellákból vettem - lustaság az oka - , természetesen máshol választhatók.)
Az INDEX függvény ilyenkor Hivatkozásokat ad vissza a SZUM függvénynek! - lásd kettőspont a két INDEX függvény között.
Az első index eredménye a kezdő dátumhoz tartozó olyan cella, amelyik az azonosító sorában van, a második index eredménye a befejező dátumhoz tartozó hasonló cella. A kettő között összegez a SUM.
Egy kritérium: A dátumoknak a dátumot tartalmazó sorban rendezettnek kell lenniük. (Nem a MATCH miatt, az megeszi ebben az esetben, hanem azért, hogy nehogy kilógjon valamelyik dátum a kezdő és végső dátumból.)
Remélem sikerülni fog.
Üdv.
-
butch3r
senior tag
válasz
Fferi50
#35340
üzenetére
Szia
A cél az volna, hogy relatív dinamikus legyen a tábla. Frissítem a háttérben az értékesítési adatokat, és azon a sheeten amire kérem a képletet oda csak beillesztem a termékek egyedi azonosítóit, beírom, mely dátumok közotti időszak érdekel és kiköpi az adott időszakra összesített adatokat, amiket csak a másik fileomba amiben dolgozom velük be kell illesztenem.
Kimutatásnál ki kéne választgatnom a termékeket, ami modnjuk 70dbnál túl sok idő.
üdv
-
butch3r
senior tag
Sziasztok
Nem jutok egyről a kettőre egy képlettel.
Bizonyos dátumok közötti értékesítések darabszámait kéne összeadni.
Ehhez a D2 és F2 cellákban vannak a dátumok
Az adott termék kódja a B8-as cellában van (illetve innentől levele)2017 fülön vannak az értékesítések
D4-től lefele a termék kódok (d2436ig)
E3-tól jobbra egészen IW3-ig az adatokÉrtékesítés (2017 fülön) a 3-as sorban vannak a dátumok, míg ettől lefele mindig az adott dátumhoz tartozó értékesítések, D oszlopban meg a termék azonosítók
Valamilyen index-matchre + sumifs-re gondolnék de nem tudom, hogy hozzam azt össze azzal, hogy az adott dátumok közötti összes eladást összeadja.
Valaki tud segíteni?
Köszi
üdv
butch3r -
-
Sanyi.mTs
addikt
rengeted cellát kell egyesítenem. van ehhez billentyű kombináció?
vagy csak én vagyok vak és nem látom itt? -
-
lenkei83
tag
válasz
Juditta_56
#35330
üzenetére
Hello!
Kérdőjelek helyére:
FileFormat:=51Üdv.:
P. -
#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!
-
Jazz
veterán
Sziasztok,
egy kis segítséget szeretnék kérni. A következő logikai számítást kellene megoldani több száz sorra:
Adatok:
Oszlop A cellái: több száz érték, melyek mindig csak négy különböző elnevezés egyikét veszik fel. Pl.: Alma, Béla, Cecil, Dávid.
Oszlop B cellái: teljesen különböző számértékek
Oszlop C cellái: darabszámTovábbi adatok:
A négyféle elnevezéshez tartozik egy-egy egyedi érték, ez külön szerepel valahol az excelben, ez ugye 2x4 cella, a helyzete fix, nevezzük egyedi adatbázisnak. Értékek: Pl. Alma: 12. Béla: 6...stb.Feladat: Olyan logikai függvény beszúrása D oszlopba, hogy:
->Keresés: A oszlop celláinak elnevezés összehasonlítása az egyedi 4x2 táblázattal. Innen vegye fel a neki megfelelő értéket, majd ezzel kell tovább operálni.(->Innen már csak sima számítás lenne. Pl.: Ezt a számot vonja ki a B oszlop értékéből. Pl. első cella ott az Alma=34. Akkor 34-12=22. A második is Alma, de Alma=54. Akkor 54-12=42. A következő Béla=654. Akkor Béla 654-6=648. Stb.
Majd szorozza meg a C oszlop darabszámával.)És erre az értékre lenne szükség a D oszlop celláiban.
Köszönöm!
-
föccer
nagyúr
-
Delila_1
veterán
válasz
BullZeye
#35318
üzenetére
A cellaformázás Védelem fülén leveszed a zárolást azokról a cellákról, amikbe írhat a felhasználó.
Lapvédelmet adsz (lapfülön jobb klikkre jön elő ez a lehetőség). A "Minden felhasználónak engedélyezve" listában az első opció (Zárolt cellák kijelölése) elől kiveszed a pipát.
-
sztanozs
veterán
válasz
PeLa87
#35312
üzenetére
Másolás, beillesztés, egyedi szűrése
Vagy pedig a következő módon worksheet függvényekkel és/vagy VBA-val: [link]Függvény az egyedi cégnevek előállítására:
=IFERROR(INDEX(Sheet1!$A$1:$A$18, MATCH(0,COUNTIF(INDIRECT("R1C:R[-1]C",FALSE), Sheet1!$A$1:$A$18), 0)),"")1) Sheet1!$A$1:$A$18 - ezt kell cserélni arra az sheet/oszlopra, amiben az 1.es munkalapon a cégnevek vannak
2) a 2-es munkalapon a leszűrt cégnevek tábla első adat sorába, Pl A2 (fejléc kötelező, ami nem egyezik egyik cégnévvel sem) bemásolni a fenti képletet
3) Array formulaként bevinni (SHIFT+CRTL+ENTER)
4) Minimum annyi sorra lehúzni, amennyi cég lehet (de lehúzható akár 100-200 sorra is, az utolsó egyedi érték után üres mezők lesznek
5) a 2-es munkalap következő oszlopának első adatmezőbe ezt beilleszteni és lehúzni:=IF(INDIRECT("RC[-1]",FALSE)<>"",SUMIF(Sheet1!A:A, INDIRECT("RC[-1]",FALSE),Sheet1!B:B),"")
- INDIRECT("RC[-1]",FALSE) - opcionálisan cserélhető a bal oldali elemre való hivatkozással (B2-be a függvényt beírva A2-re)
- Sheet1!A:A - 1-es munkalapon a cégnév oszlop
- Sheet1!B:B - 1-es munkalapon a összeg oszlop -
-
#35309
the radish
senior tag
the radish
senior tag
Sziasztok!
Szeretném, ha egy munkafüzetben futó makró:
- leállna ha az "össz" nevezetű munkalap A1 + B1 =< 100
- végigfutna, ha A1+B1 > 100Előre is köszönöm.
-
Bozso68
őstag
Sziasztok!
Megoldandó feladat, hogy minden hónap elején az egymást követő hónapok több munkalapból álló excel árlistájában a változásokat megjelenítsem. Több ezer sor több adatja. (Sajnos a központ nagyon pontatlanul jelzi a változásokat.)
A gondolatmenetem, hogy egy harmadik, ugyanazon munkalapokat tartalmazó fájl további egy munkalapjába bemásolom az összehasonlítandó két árlista fájlnevét. Ezután a munkalapokon belül már az összehasonlításokat, megjelenítéseket meg tudom oldani.
Az egyetlen bökkenő, hogy a bemásolt fájlnevekre képlettel lenne szerencsés az összehasonlításkor hivatkozni, és erre nem találok megoldást. Makróval feltölteni minden induláskor az összes táblát legvégső esetben szeretném...
Mod: mindhárom fájl egy mappában van.Köszi előre is a választ: Zsolt
-
PeLa87
aktív tag
-
PeLa87
aktív tag
Sziasztok!
Hogyan tudom az 1-es munkalapon szereplő C oszlopban található szállítókat és a D oszlopban található kifizetéseket a 2-es munkalapon úgy összesíteni, hogy ha ugyanattól a szállítótól már többször rendeltünk, akkor azoknak a kifizetéseket összeadja?
Egy pályázathoz kell, mert egy beszállítótól meghatározott keretösszegig rendelhetünk csak és nem szeretnénk túllépni.
-
sztanozs
veterán
válasz
BullZeye
#35295
üzenetére
=SUM(OFFSET($A$2,0,0,ROW(INDIRECT("R[-1]C[0]",FALSE))-ROW($A$2),1))Ahol a $A$2 az oszlop első eleme.
Illetve full R1C1 kóddal sokkal egyszerűbb (A2-től a SUM sor fölötti elemig):
=SUM(INDIRECT("R1C2:R[-1]C",FALSE))Illetve, ha R1C1 módba kapcsolod az Excelt, akkor indirect sem kell:
=SUM(R1C2:R[-1]C) -
BullZeye
veterán
válasz
BullZeye
#35301
üzenetére
Sebaj, macro a barátom (mostantól...)
Sub InsertCopyRow1()
ActiveCell.EntireRow.Select
Selection.copy
Selection.Insert Shift:=xlDown
End SubSőt, ez szebb végeredményt nyújt:
Sub InsertCopyRow2()
ActiveCell.Offset(1, 0).EntireRow.Insert
ActiveCell.EntireRow.Copy ActiveCell.Offset(1, 0).EntireRow
End Subszerk.:
Jól érzem, hogy Macro az nem a gépen tárolódik, hanem a dokumentumban? Azaz hiába mentek vagy csinálok ilyen macrot, az bizony csak abban a bizonyos XLSen fog működni ami nyitva volt mentéskor? -
)
ez a része nekem nagyon nem ment sosem... 
27;"Cég neve";D3Új hozzászólás Aktív témák
Hirdetés
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Vírusirtó, Antivirus, VPN kulcsok
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Samsung Flip 2.0 PRO 65" WM65R + Connectivity tray + Gurulós állvány
- Samsung Galaxy Xcover 5 64GB, Kártyafüggetlen, 1 Év Garanciával
- DELL Universal Dock D6000 docking station (452-BCYH) (DisplayLink)
- Lenovo Legion 5 Gaming. Az ár irányár, komoly érdeklődés esetén van lehetőség egyeztetésre
- Bomba ár! Dell Inspiron 15 3511 - i5-11GEN I 8GB I 256SSD I HDMI I 15,6" FHD I Cam I W11 I Gari
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft
Város: Budapest
Cég: PC Trade Systems Kft.
Város: Szeged