-
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
-
Mutt
aktív tag
Szia,
Egyéb lehetőségek a már kapott megoldáson túl.
1. Az adatsoron állva Beszúrás menü, Kimutatás. Erről érdemes előbb interneten/youtubeon leirasokat nézned, de röviden a sorok dobozba a neveket, az értékbe pedig az összeadni kívánt oszlopot kell húzni.
2. MS365-os verziót használva pedig az EGYEDI függvénnyel ki tudod nyerni a neveket egy új helyre és mellé a már használt SZUMHA jöhet.Üdv
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
Otisz
őstag
Sziasztok!
Amennyiben valaki otthonosan mozog az adatbázis függvények terén, segítene?
Az alábbi 4 példát kellene adatbázis függvényekkel megoldani (az adatbázis táblának csak egy részét mutatom, mert csak a metodika érdekel. Adatbázis függvény nélkül meg tudom oldani, de nem úgy kérik).[ Szerkesztve ]
(OO[IIII][IIII]OO)
-
Fferi50
őstag
-
Mutt
aktív tag
Szia,
Csináltam egy egyszerű adatbázist, ami az A21:I26 tartományban van.
A kérdésekre a megoldások pedig így néznek ki:
Az adatbázis függvényeknek 3 paramétere van, az első az adatbázis helye, a második hogy melyik oszlopból akarod az értéket megkapni (itt az adatbázis első sora az oszlop azonosítója azt kell megadni - lehet gépelni illetve cellahivatkozással megadni - pl. "Cég neve" kell és nem az hogy A-oszlop) az utolsó pedig hogy mely sorokra kell szűrni az adatbázisban. Ez az utolsó ami kicsit nehézkes, de egyszerűen csak ad meg az oszlop nevét amely alapján szűrni akarsz és alá az értéket (ami tartalmazhat operátorokat, pl. >10 vagy helyettesítő karaktereket pl. B*). Ha több értéket akarsz megadni, akkor egymás alá írd őket (ekkor VAGY kapcsolat lesz).
Az utolsó 2 kérdésre a legkönyebb a válasz, nézd a legutolsót, ahol csak a székhelyre kell szűrni. Megadtam az oszlop nevét és alá, hogy az 1-es érdekel minket (Budapest). Az AB.DARAB2 függvénynek pedig ez a két cella lesz az utolsó paramétere.
A 3-as kérdésben két feltétel szerint kell szűrni, székhely és ágazat. Egy sorban adtam meg a szűrési feltéleket, ezek ÉS kapcsolatot jelentenek vagyis csak azok a sorok lesznek érvényések ahol mindkét feltétel egyszerre teljesül. (Ha nem egy sorba írtam volna, akkor VAGY kapcsolata lesz, próbáld ki.)
A többi kérdés már ezek kaptafája, de itt annyi hogy van egy köztes lépés mert meg kell kapni előbb egy eredményt a végső lekérdezéshez. Igazából ha nem lenne kötelező csak adatbázis függvény használata, akkor az első kérdésnél a C3-as mezőben egy =MAX(H22:H26) képlet elég lenne és nem kellene a AB.MAX képlet.
Youtube-on Mynda szerintem jól elmagyarázza az egészet.
Még annyi hogy az első képletekben még az oszlop nevét közvetlenül megadtam ("Cég neve"), de a többinél már csak cella hivatkozást használtam. Te döntöd el melyik szimpi.
üdv
[ Szerkesztve ]
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
n42
tag
Sziasztok, segítséget szeretnék kérni egy Excel feladatban:
Van három külön lapom, a három külön lapon van három táblázat és ezt a három táblázat adatait szeretném összevonni egy közös táblázatba a negyedik lapon, természetesen dinamikusan. Tehát a három táblát akarom szerkeszteni, új adatokat hozzáadni és azt szeretném, ha a negyedik lapon automatikusan (vagy legalább adatok frissítése megnyomásával) frissülne. A negyedik táblázatból pedig egy kimutatást szeretnék készíteni.
Lehetséges?
-
zsoci0914
csendes tag
=HA(O5="Igen";DÁTUM(év;hónap;nap);"-")
Mit írok el a képletben? Ha az O5 igen, akkor "#NÉV?" jön fel, ha viszont nem akkor beírja a "-"-et.
Annyit szeretnék igazából, hogy ha az O5 Igen, akkor kiírja nekem a mellette lévő oszlopba azt a dátumot ami akkor van mikor beírtam, hogy "Igen".
Így belegondolva, lehet, hogy eleve rossz vonalon indultam..[ Szerkesztve ]
-
-
LilProphet90
senior tag
Sziasztok!
Az egyik kolléganőnél probléma, hogy diagramkészítésekor mindig dollárban jeleníti meg a pénznemet. A forrás szintén HUF, és a diagram forintra való átállásakor jó, lementés, bezárás és ismételt megnyitás után utáni újból dollárban jeleníti meg.
Több kolléganőnek továbbította, ők viszont forintban látják, rendesen.
Tudja valaki, mi lehet az oka? Régióbeállítások megfelelőek.
Nagyon köszönöm!
Zenei alapok, remixek: http://www.reverbnation.com/lilprophetmusic
-
föccer
nagyúr
Sziasztok!
Next round az automatizálásban
Most automatikus nyomtatásban kérem segítségeteket.
Van egy elemző xlsm, aminek van egy maréknyi füle Ami érdemleges az a "KEZELŐ"; mellette "TOP LISTÁK"; TOPELEMZES"; "VCBE"; valamint ez után 20 db, sorszámozott fül ami "EE_"& sorszám 1-20.ig nevél rendelkezik (EE_1; EE_2; EE_3; ... ; EE_20). Van ezen kívül még fül, de ezek egymás mellett vannak és sorrendjük nem változik.Kezelő fül J3:J35-ben vannak telephely megnevezések. KEZELŐ fül H3:H35-ben vannak a telephelyhez tartozó (leendő) fájl nevek, elérési úttal kialakítva. (soronként összetarozóan természetesen)
A KEZELŐ fülön van egy gomb ami indít egy makrót, ami az alábbiakat kell, h tudja.
- A KEZELŐ fül J3:J35 cellák értékeit sorba átmásolja a D17-be. Minden lépésnél újra kalkulálja a teljes munkafüzetet. (A KEZELŐ D23 cellájában kiszámolódik 1 darab szám, aminek értéke 0-20 között lesz.)
- ha KEZELŐ D23 = 0, akkor lépjen a következő ciklusra és töltse be a következő telepet. HA KEZELŐ D23 > 0, akkor jelölje ki a "KEZELŐ"; "TOP LISTÁK"; TOPELEMZES"; "VCBE" fülek, valamint az EE_ kezdetű fülekből azokat, amelynek sorszáma kisebb mint a D23 cellába kikalkulált szám (pl D23 értéke:5 , akkor az EE_1; EE_2; EE_3; EE_4; EE_5 jön az első 4 mellé. Manuálisan ezt simán shift+katt-al intézem el úgy, hogy a KEZELŐTŐL ki vannak jelölve a fülek).
- "Microsoft Print to PDF" mint alapértelmezett nyomtatóra küldje ki az anyagot csak aktív lapok, normál margók, nem méretezhető beállításokkal. Kimeneti fájl neve a ciklusban felhasznált telepnek megfelelő fájlnév a H oszlopból.Minden munkalapon be vannak állítva a nyomtatási területek és oldaltörések, így elvileg a kijelölt munkalapokra egy 6-44 oldal közötti pdf kerül fel a fájlszerver megfelelő könyvtárába, egymás után a 32 telephely adataival. Voilá
A munkalapok többszörös kijelölésénél már el is akadtam és hirtelen google sem segített nekem, h hogy oldjam meg
For Akt_sor = 3 To 5
Sheets("Kezelő").Range("D17").Value = Sheets("Kezelő").Cells(Akt_sor, 10).Value 'telepek neveit másolja
Sheets("Kezelő", "TOP LISTÁK", "TOPELEMZES", "VCBE").Select
' If Sheets("KEZELŐ").Range("D23").Value > 0 Then
' For Akt_WS = 1 To Sheets("KEZELŐ").Range("D23").Value
' Sheets("EE_" & Akt_WS).Select
' Next
' End If
Köszönöm :R
'
Kesz_db = Kesz_db + 1
Application.StatusBar = "Gyorsjelentések generálásának folyamata: " & Kesz_db & " db jelentés elkészült"
Nextoh, de hülye. Array() Akkor más csak össze kell tákolnom a listát.
üdv, FG
[ Szerkesztve ]
Építésztechnikus. Építőmérnök.
-
Delila_1
Topikgazda
válasz föccer #51068 üzenetére
Eddig jutottam el:Sub arr()
Dim lapszam As Integer, lap As Integer
Dim tomb(29)
For lap = 2 To 4
tomb(lap - 2) = Sheets(lap).Name
Next
lapszam = Sheets("Kezelő").Range("D23")
For lap = 5 To lapszam + 4
If Mid(Sheets(lap).Name, 4, 2) * 1 <= lapszam Then
tomb(lap - 2) = Sheets(lap).Name
End If
Next
End Sub
Innen valahogy be kell olvasnod az array-ba a tomb neveit, de most el kell rohannom, késésben vagyok.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz föccer #51068 üzenetére
Kicsit tovább vittem az előzőt, de megállt a tudományom. Addig jutottam, hogy összeáll az együttesen kijelölendő lapok listája. Hátha valaki tovább jut, esetleg egészen más úton.
Sub arr()
Dim lapszam As Integer, lap As Integer, lapok As String, tomb(29)
For lap = 2 To 4
tomb(lap - 2) = Sheets(lap).Name
Next
lapszam = Sheets("Kezelő").Range("D23")
For lap = 5 To lapszam + 4
If Mid(Sheets(lap).Name, 4, 2) * 1 <= lapszam Then
tomb(lap - 2) = Sheets(lap).Name
End If
Next
For lap = 0 To 29
If tomb(lap) = "" Then Exit For
lapok = lapok & """" & tomb(lap) & """"
lapok = lapok & ","
Next
lapok = Left(lapok, Len(lapok) - 1)
lapok = """" & lapok
lapok = Right(lapok, Len(lapok) - 1)
Debug.Print lapok
End Sub
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
föccer
nagyúr
válasz Delila_1 #51070 üzenetére
Hát, ahogy jöttem-mentem a városban kattogot az agyam rajta. Lehet hogy az egészet beteszem egy select case statementbe. Miáltal fixen 0-20 közötti szám jöhet a feltétel alapjául, és a munkalapok csak ezektől függenek, így lehet hogy ebben az esetben ez lesz az egyszerűbb...
EE_szama = Sheets("KEZELŐ").Range("D23").Value
For Akt_sor = 3 To 35
Sheets("Kezelő").Range("D17").Value = Sheets("Kezelő").Cells(Akt_sor, 10)
Select Case EE_szama
Case 1
Sheets(Array("Kezelő", "TOP LISTÁK", "TOPELEMZES", "VCBE", "EE_1")).Select
Case 2
Sheets(Array("Kezelő", "TOP LISTÁK", "TOPELEMZES", "VCBE", "EE_1", "EE_2")).Select
....
......
.....
....
Case Else
Resume Next
End Select' és akkor ide jönne a nyomtatás.
Next[ Szerkesztve ]
Építésztechnikus. Építőmérnök.
-
Delila_1
Topikgazda
válasz föccer #51071 üzenetére
Jó ötlet.
Esetleg a kötelező 3 lap nyomtatása után egy for-next ciklust indíthatnál.Db = Sheets("Kezelő").Range("D23")
For lap = 5 To 24
If Mid(Sheets(lap).Name, 4, 2) * 1 <= Db Then
'nyomtatás
Else
'exit for
End If
Next
Biztosan van ennél egyszerűbb VBA-s megoldás az együttes lapok kijelölésére.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
föccer
nagyúr
válasz Delila_1 #51072 üzenetére
Csak azt találtam, hogy Array-be kell fogni őket. Mást nem találtam. Viszont az Array tömbjének az összeállítására vagy dinamikus tömböt lehetne használni, de mivel a 19 esetre minden esetben konstans választ kell adni, így egyszerűbbnek (számomra, mint botcsinálta ember) tűnik megcsinálni.
Este találtam olya függvényt hogy ActiveSheet.ExportAsFixedFormat. Ezt akarom kipróbálni, hogy működik-e
Építésztechnikus. Építőmérnök.
-
föccer
nagyúr
válasz Delila_1 #51074 üzenetére
Egyszerre kell, hogy egy dokumentumként kerüljön lementésre. pdf-be megy ki. Ha külön-külön adom ki nyomtatási sorba, akkor különálló pdf lesz. Ezért kell kijelölni a WS-eket egyszerre,mert akkor összefűzve, 1 doksiban kerül lementésre.
üdv,
Építésztechnikus. Építőmérnök.
-
föccer
nagyúr
válasz föccer #51073 üzenetére
A select case az szépen működik. Nem túl elegáns, de hibátlan. Szépsége a dolognak, hogy ahogy pörgetem a for-t, az EE_szama ugye lehet több vagy kevesebb, ugyan akkor az új kijelölési array felülírja az előző ciklusban használt kijelölést. Tehát nem hozzáadja az előző kijelölésekhez, hanem új kijelölést állít be, így nem kell azzal foglalkozni, hogy a korábbi kijelölést megszüntessem.
Nyomtatással viszont félsikert értem el. Kipróbáltam ez aze ExportAsFixedFormat-ot. Szépen le is generálja nekem a pdf-et és fel is rakja oda ahová kell, de hiába van beparaméterezve hogy vegye figyelembe az oldaltöréseket, nem úgy jön le a doksi, ahogy az a MS pdf printerével megszoktam és beállítottam.
Építésztechnikus. Építőmérnök.
-
föccer
nagyúr
válasz Delila_1 #51077 üzenetére
Csak megtaláltam, hogy mi kell nekem. Így működik a beállított nyomtatóra kiküldi a cuccot ahogy kell és átveszi a fájl nevét is.
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False, ActivePrinter:=Nyomtato, PrintToFile:=True, PrToFileName:=Sheets("Kezelő").Cells(Akt_sor, 8)
Köszi ismételten.
üdv, föccer
Építésztechnikus. Építőmérnök.
-
föccer
nagyúr
válasz Delila_1 #51079 üzenetére
H oszlopban sima szöveg függvényekkel van összerakva a leendő fájlok neve. Technikailag leveszi a dátumot, azt átrakja szövegbe =SZÖVEG(D15;"éééé")&"_"&SZÖVEG(D15;"hh")&"_" formátummal, mögé rakja a telephely azonosítóját, amit az az aktuális sor alapján alapadatokból kikeresi majd elé illeszti a megadott útvonalat és kész is. Ha változtatom az elérési utat, akkor elég 1 cellában, illetve az elemzett időszaknak megfelelően módosítja a fájlok neveit, hogy a kolléágk ki tudják keresni, hogy melyik kell nekik.
Építésztechnikus. Építőmérnök.
-
föccer
nagyúr
válasz Delila_1 #51079 üzenetére
Sub Gyorsjelentesek_generalasa()
'
' Gyorsjelentesek_generalasa Makró
'
'
Dim Akt_sor As Integer
Dim Most As Date
Dim Kesz_db As Integer
Dim Tomb As String
Dim EE_szama As Integer
Dim Nyomatato As String
Most = Now
Application.StatusBar = "Gyorsjelentések generálásának folyamata: Előkészítés..."
Akt_sor = 0
Kesz_db = 0
EE_szama = 0
Nyomtato = "Microsoft Print to PDF"
Application.StatusBar = "Gyorsjelentések generálásának folyamata: Indítom a generálást..."
For Akt_sor = 3 To 4
Sheets("Kezelő").Range("D17").Value = Sheets("Kezelő").Cells(Akt_sor, 10)
EE_szama = Sheets("KEZELŐ").Range("D23").Value
Select Case EE_szama
Case 1
Sheets(Array("Kezelő", "TOP LISTÁK", "TOPELEMZES", "VCBE", "EE_1")).Select
Case 2
Sheets(Array("Kezelő", "TOP LISTÁK", "TOPELEMZES", "VCBE", "EE_1", "EE_2")).Select
Case 3
Sheets(Array("Kezelő", "TOP LISTÁK", "TOPELEMZES", "VCBE", "EE_1", "EE_2", "EE_3")).Select
Case 4
Sheets(Array("Kezelő", "TOP LISTÁK", "TOPELEMZES", "VCBE", "EE_1", "EE_2", "EE_3", "EE_4")).Select
Case 5
Sheets(Array("Kezelő", "TOP LISTÁK", "TOPELEMZES", "VCBE", "EE_1", "EE_2", "EE_3", "EE_4", "EE_5")).Select
Case 6
Sheets(Array("Kezelő", "TOP LISTÁK", "TOPELEMZES", "VCBE", "EE_1", "EE_2", "EE_3", "EE_4", "EE_5", "EE_6")).Select
Case 7
Sheets(Array("Kezelő", "TOP LISTÁK", "TOPELEMZES", "VCBE", "EE_1", "EE_2", "EE_3", "EE_4", "EE_5", "EE_6", "EE_7")).Select
Case 8
Sheets(Array("Kezelő", "TOP LISTÁK", "TOPELEMZES", "VCBE", "EE_1", "EE_2", "EE_3", "EE_4", "EE_5", "EE_6", "EE_7", "EE_8")).Select
Case 9
Sheets(Array("Kezelő", "TOP LISTÁK", "TOPELEMZES", "VCBE", "EE_1", "EE_2", "EE_3", "EE_4", "EE_5", "EE_6", "EE_7", "EE_8", "EE_9")).Select
Case 10
Sheets(Array("Kezelő", "TOP LISTÁK", "TOPELEMZES", "VCBE", "EE_1", "EE_2", "EE_3", "EE_4", "EE_5", "EE_6", "EE_7", "EE_8", "EE_9", "EE_10")).Select
Case 11
Sheets(Array("Kezelő", "TOP LISTÁK", "TOPELEMZES", "VCBE", "EE_1", "EE_2", "EE_3", "EE_4", "EE_5", "EE_6", "EE_7", "EE_8", "EE_9", "EE_10", "EE_11")).Select
Case 12
Sheets(Array("Kezelő", "TOP LISTÁK", "TOPELEMZES", "VCBE", "EE_1", "EE_2", "EE_3", "EE_4", "EE_5", "EE_6", "EE_7", "EE_8", "EE_9", "EE_10", "EE_11", "EE_12")).Select
Case 13
Sheets(Array("Kezelő", "TOP LISTÁK", "TOPELEMZES", "VCBE", "EE_1", "EE_2", "EE_3", "EE_4", "EE_5", "EE_6", "EE_7", "EE_8", "EE_9", "EE_10", "EE_11", "EE_12", "EE_13")).Select
Case 14
Sheets(Array("Kezelő", "TOP LISTÁK", "TOPELEMZES", "VCBE", "EE_1", "EE_2", "EE_3", "EE_4", "EE_5", "EE_6", "EE_7", "EE_8", "EE_9", "EE_10", "EE_11", "EE_12", "EE_13", "EE_14")).Select
Case 15
Sheets(Array("Kezelő", "TOP LISTÁK", "TOPELEMZES", "VCBE", "EE_1", "EE_2", "EE_3", "EE_4", "EE_5", "EE_6", "EE_7", "EE_8", "EE_9", "EE_10", "EE_11", "EE_12", "EE_13", "EE_14", "EE_15")).Select
Case 16
Sheets(Array("Kezelő", "TOP LISTÁK", "TOPELEMZES", "VCBE", "EE_1", "EE_2", "EE_3", "EE_4", "EE_5", "EE_6", "EE_7", "EE_8", "EE_9", "EE_10", "EE_11", "EE_12", "EE_13", "EE_14", "EE_15", "EE_16")).Select
Case 17
Sheets(Array("Kezelő", "TOP LISTÁK", "TOPELEMZES", "VCBE", "EE_1", "EE_2", "EE_3", "EE_4", "EE_5", "EE_6", "EE_7", "EE_8", "EE_9", "EE_10", "EE_11", "EE_12", "EE_13", "EE_14", "EE_15", "EE_16", "EE_17")).Select
Case 18
Sheets(Array("Kezelő", "TOP LISTÁK", "TOPELEMZES", "VCBE", "EE_1", "EE_2", "EE_3", "EE_4", "EE_5", "EE_6", "EE_7", "EE_8", "EE_9", "EE_10", "EE_11", "EE_12", "EE_13", "EE_14", "EE_15", "EE_16", "EE_17", "EE_18")).Select
Case 19
Sheets(Array("Kezelő", "TOP LISTÁK", "TOPELEMZES", "VCBE", "EE_1", "EE_2", "EE_3", "EE_4", "EE_5", "EE_6", "EE_7", "EE_8", "EE_9", "EE_10", "EE_11", "EE_12", "EE_13", "EE_14", "EE_15", "EE_16", "EE_17", "EE_18", "EE_19")).Select
Case 20
Sheets(Array("Kezelő", "TOP LISTÁK", "TOPELEMZES", "VCBE", "EE_1", "EE_2", "EE_3", "EE_4", "EE_5", "EE_6", "EE_7", "EE_8", "EE_9", "EE_10", "EE_11", "EE_12", "EE_13", "EE_14", "EE_15", "EE_16", "EE_17", "EE_18", "EE_19", "EE_20")).Select
Case Else
Resume Next
End Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False, ActivePrinter:=Nyomtato, PrintToFile:=True, PrToFileName:=Sheets("Kezelő").Cells(Akt_sor, 8)
Kesz_db = Kesz_db + 1
Application.StatusBar = "Gyorsjelentések generálásának folyamata: " & Kesz_db & "/35 db jelentés elkészült"
Next
Application.StatusBar = ""
MsgBox "Kész vagyok. Köszönöm, hogy ma is dolgozhattam helyetted. Végrehajtási idő: " & Format(Now - Most, "hh:mm:ss;@")
End SubÉpítésztechnikus. Építőmérnök.
-
Imy
veterán
A oszlopban van egy dátumom, pl 2023.01.01
B oszlopban képlettel ki van szedve az év =ÉV(A1)
C oszlopban képlettel ki van szedve a hét =HÉT.SZÁMA(A1;1)A B és C oszlopot össze akarom fűzni hogy ez legyen a végeredmény: 2023/01
Ezt hogyan lehet megoldani? -
lappy
őstag
tárgytalan
[ Szerkesztve ]
Bámulatos hol tart már a tudomány!
-
Fferi50
őstag
válasz föccer #51081 üzenetére
Szia!
Talán érdemes megfontolni a következő gondolatot:Dim nyomtatni
Const sheetek = "Kezelő,TOP LISTÁK,TOPELEMZES,VCBE,EE_1,EE_2,EE_3,EE_4,EE_5,EE_6,EE_7,EE_8,EE_9,EE_10,EE_11,EE_12,EE_13,EE_14,EE_15,EE_16,EE_17,EE_18,EE_19,EE_20"
EE_szama = Sheets("KEZELŐ").Range("D23").Value
nyomtatni = Split(Left(sheetek, InStr(sheetek, "EE_" & EE_szama) + IIf(EE_szama < 10, 3, 4)), ",")
Sheets(nyomtatni).Select
Mivel egyben definiáltuk az összes nyomtatási szükségletet, az EE_szám alapján mindig le tudjuk vágni a megfelelő darabot belőle. A Split függvény pedig tömböt csinál a levágásból.
Üdv.[ Szerkesztve ]
-
joocek
aktív tag
Sziasztok.van egy munkafüzet ami 50 munkalapból áll. Minden egyes munkalapból egy cellát kéne átmásolni az 51 munkalapra. Ezt lehet valahogy gyorsítani ne kelljen egyesével minden munkalapon kijelölni. Mindig csak a munkalap neve változik a cella helye ugyanott van. Elnézést ha nagyon amatőr a kérdés
XBOX Live Gamertag: joocekszbatta
-
Fferi50
őstag
válasz joocek #51087 üzenetére
Szia!
Képlettel megoldható, de nem úszod meg a munkalap nevek beírását a képletbe. Pl:
=Munka1!$A$1 ' ide a cella címe kerüljön a $ jelekkel együtt
Ezt a képletet húzod lefelé vagy jobbra, attól függően, hova kell az adatoknak kerülni.
Majd a képletekben levő munkalap neveket átírod a megfelelő névre.
Üdv. -
Fferi50
őstag
válasz joocek #51089 üzenetére
Szia!
Akkor nincs más hátra, mint makró.
Ezt a két makrót másold be egy modulba, javítsd át a megfelelő helyeken. A hivo makróban megadhatod, melyik cellából másolja az adatot és hol kezdje a cél munkafüzetben a beírást. Ezáltal több cellát is másolhatsz a hivo makró paramétereinek változtatásával.Sub hivo()
beirja "A3", "A1" 'A3 cellából az A1 cellától lefelé fog másolni. Ezt kell átírnod a megfelelő címekre.
End Sub
Sub beirja(ByVal honnan As String, ByVal hova As String)
Dim sh1 As Worksheet, sh2 As Worksheet, celja As Range
Set sh1 = Worksheets("S51") 'S51 helyébe írd a cél munkafüzet nevét
Set celja = sh1.Range(hova)
For Each sh2 In Worksheets
If sh2.Name <> sh1.Name Then
celja.Value = sh2.Range(honnan)
Set celja = celja.Offset(1, 0)
End If
Next
End Sub
A munkafüzetet makróbarátként vagy binárisként kell mentened.
Üdv.
Ps. Létezik még az Excelben az Adatok - összesítés menüpont, ahol megfelelően struktúrált munkalapok adatai egy munklapra összesíthetők. Talán azt is érdemes lenne megnézned. -
Delila_1
Topikgazda
válasz föccer #51091 üzenetére
A 2019-es verzió nem veszi be, hibára fut Sheets(nyomtatni).Select sornál, Subscipt ouf of range.
Az Immediate lapon le tudom kérdezni a nyomtatni tömb egyes lapjainak az értékét, de a Select-nél megáll a tudomány. Nem fogadja el tartományként.[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
föccer
nagyúr
válasz Fferi50 #51092 üzenetére
Közben kibogarásztam, nagyjából értem. Csak nem ismerem a szintaktikai lehetőségeket a vba-ban.
Delila_1: O365 van a céges környezetben, így minden adott. Asszonynak csináltam valamelyik héten egy oda-vissza kereső táblát, de náluk valami rettenet régi verzió van, pedig elvileg államilag elérhető lenne nála is az O365, de a rendszergizdáék nem akarják felrakni, mert egyébként a cégnél senki nem használja az outlook-word kombón kívül. Outlookba névjegyeket minek frissíteni, van egy wörd vezetve az új belépökkel.... Totál káosz. Szóval ide próbáltam csinálni egy táblát, de annyira funkciószegény a régi verziója az O365 natív tömbfüggvényeihez képest, hogy inkább rábíztam asszoynyágra h győzze meg a főnökeit, hogy frissítsenek O365-re
üdv, föccer
[ Szerkesztve ]
Építésztechnikus. Építőmérnök.
-
Fferi50
őstag
válasz Delila_1 #51093 üzenetére
Szia!
Ez érdekes, mert nálam 2016-os Excel verzió fut és azon "kísérleteztem ki".
"Sheets(nyomtatni).Select sornál, Subscipt ouf of range."
Biztosan megvan minden olyan nevű lap a munkafüzetben, ami a nyomtatni változóban szerepel?
Üdv.
PS. Esetleg átküldenéd a mintád priviben?[ Szerkesztve ]
Új hozzászólás Aktív témák
- Olasz autó topik (Fiat, Lancia, Alfa)
- Házi barkács, gányolás, tákolás, megdöbbentő gépek!
- Politika
- VR topik (Oculus Rift, stb.)
- Napelem
- Xbox Series X|S
- Alkoholista nevelde
- Spórolós topik
- Redmi Note 13 Pro+ - a fejlődés íve
- bb0t: Gyilkos szénhidrátok, avagy hogyan fogytam önsanyargatás nélkül 16 kg-ot
- További aktív témák...
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- World of Warcraft Shadowlands Collectors edition EU EN
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."