-
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
-
#6099
Fire/SOUL/CD
félisten
Z-Tom-ee
#6097
-
-
Z-Tom-ee
csendes tag
Sziasztok!
Kérdeznék egyet a 2007-es Excelhez. Böki a csőrömet már egy ideje, nézegettem fórumokon is, de nem lettem okosabb, miért nem képes a 2007 cellákba "szögletes zárójel nyit" jelet tenni? Csak úgy működik, ha pl. word-ből bemásolom. Régen nem volt ilyen baja, beállítási hibáról van szó, vagy elszúrtak valami? Tud erről valaki bővebben?
Köszönettel: Tom-ee
-
ulrik19
tag
-
VANESSZA1
őstag
-
ulrik19
tag
válasz
VANESSZA1
#6086
üzenetére
Nekem sajnos csak office2000 van fent, ezért az általad felrakott .xlsx-et csak openoffice-szal tudtam megnyitni, de gyanítom abban is hibásan jött le. Van ott ugyan egy táblázat, de nincs benne egy darab képlet sem. A "főösszegek" meg nem tudom, hogy jöttek ki. (ilyesmit látok az F oszlopban: 3,85 - 4,20 - 4,30 stb., illetve a táblázatban 1-esek itt-ott, a 11-13 sorokban meg 0-1 közötti számok...)
Ha felrakod 2000-es verzióban is, akkor meg tudom nézni. (feltöltve, vagy az adatlapomon látható mail címre)
-
VANESSZA1
őstag
Feltöltöttem ide az Excel táblázatot. Hátha valamelyikőtök tud segíteni.
-
ulrik19
tag
válasz
VANESSZA1
#6081
üzenetére
de tudsz egymásba ágyazni többet is bőle (3 kimenetelnél még belefér)
legyen B1-ben az általad beírt "aktuális" kód:
=HA(B1=C1;R1;HA(B1=C2;R2;R3))vagyis ha a B1-ben az 1-es kód van, akkor R1 értéket ad vissza,
ha 2-es kód, akkor R2-őt, egyébként R3-at.Picit bővítve:
=HA(B1=C1;R1;HA(B1=C2;R2;HA(B1=C3;R3;"Hibás kód")))vagyis, ha egyiknek sem felel meg, akkor "Hibás kód" szöveg jelenik meg.
-
ulrik19
tag
válasz
VANESSZA1
#6079
üzenetére
Nem értem a gondot...
Három kódod van: C1, C2, C3
Három szorzatod lesz (az alapján ahogy írtad): R1, R2, R3Ezek közül kell az egyikre hivatkozni, egy másik cellában? Pl. B2-be tenni, ha a kiválasztott kódot a B1-be írod? Ha igen, akkor ez sima vlookup (fkeres), vagy ha tuti 3 sor lesz, akkor néhány egymásba ágyazott ha() is megoldja.
-
VANESSZA1
őstag
Lenne egy kérdésem:
Van C1;C2;C3 cellában három kód a három kód melletti sorokban egészen a Q oszlopig értékek, számok vannak.
A B oszlopban váltakozva írom be a kódokat. A kódok mindig a három sor elején megtalálható kód egyike.
Az R oszlopba olyan szorzat kellene kerüljön, ami,
Ha a C1-es kódnak megfelelő, akkor =SZORZAT(D1:Q1)*SZORZAT(D5:Q5),
ha a C2-nek megfelelő a kód akkor =SZORZAT(D2:Q2)*SZORZAT(D5:Q5) ,
ha a C3-nak megfelelő kód akkor =SZORZAT(D3:Q3)*SZORZAT(D5:Q5)melyik képlet lenne megfelelő?
-
Cuci3
tag
Találkozott már valaki a következővel: az egyik munkalapról hivatkoznék egy másik munkalapra (elkezdem a Munka1 egyik cellájába beírni a +-t), majd átkattintok a Munka2-re. Erre az Excel leáll, mivel hibát észlelt.
Eddig megoldódott úgy, hogy a Beállítások/Szerkesztés/Szerkesztés közvetlenül a cellában lehetőséget bekapcsoltam, de a grafikonomnál már ez műxik.
Ha nincs ötletetek, akkor megy az újratelepítés. -
válasz
ulrik19
#6072
üzenetére
Szia!
Látom pörögtök a témán, rendesek vagytok!
Egyébként egyre jobban úgy gondolom, hogy valóban az lehet a gond, hogy amit a server lement annak nincsenek ilyen paraméterei, mert egy linux szerver generálja, és menti le. Én azt hittem, hogy a file atriputumából szerzi az időt, nem pedig egy tulajdonságok részből. Olyat nem lehet?Egyébként most így néz ki a kód. A semmi pedig azt jelenti, hogy lefut a macro és kész, de nem írod ki sehova az időpont.
Sub masolas_adat()
Dim excel_filename, filename2, kelt As String
excel_filename = ThisWorkbook.Name
Dim adatfile As Variant, FSO As Variant
Set FSO = CreateObject("Scripting.FileSystemObject")
Set adatfile = FSO.GetFile("c:\Production_Daily.xls")
Workbooks.Open FileName:="R:\Dell\Reporting\Production_Daily.xls"
filename2 = ActiveWorkbook.Name
Columns("A:G").Select
Selection.Copy
Windows(excel_filename).Activate
Sheets("IDE_MASOLD").Activate
Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Windows(filename2).Activate
ActiveWindow.Close
End Sub -
Cuci3
tag
Hali!
Kérdezek egy logikai képtelenséget: lehet olyat az Excellel, hogy egy cellában képlet van, de ha a képlet hibára fut (zéróosztó), akkor úgy érzékelje az Excel, hogy az a cella üres. Nem üres sztringet akarok, hanem tényleg üres.
Sajna diagramoknál csak akkor nem rajzol, ha tényleg üres a cella, egyébként meg behúz nekem egy szép függőleges vonalat.
u.i.: felsővezetői jelentéshez kell, szóval felejtsük el első körben a makrós megoldást, már így is van benne annyi, mint a nyű.
-
ulrik19
tag
válasz
Fire/SOUL/CD
#6071
üzenetére
Na igen, van ez így néhaNálam (és Pulsarnak otthon) lehet csak azért működött, mert nem az eredeti szerverről létrejött xls-sel próbálkoztunk, hanem az adott file már meg lett nyitva excel-lel, és el is lett mentve máshová... Persze nem biztos. Sőt, szerintem én egy saját magam által elmentett file-lal dolgoztam, mert nem is érdekelt mi a tartalma, csak néztem, hogy megy-e, vagy nem (a filenév stimmelt csak, excelben hoztam létre egy ilyen fájlt)
Persze ez nem zárja ki, hogy más gubanc is lehet
vagy inkább 
-
#6071
Fire/SOUL/CD
félisten
ulrik19
#6070
válasz
ulrik19
#6070
üzenetére
Hali!
1. Ha nálad fut 2000 alatt, akkor mindenhol kell futni 2000 alatt. Ha nem így van, akkor ahol nem fut ott valami gond van. Az Office és/vagy az OS van "megrogyva"
2. A fájl szinten hozzáférés addig jó, amíg nem kell foglalkozni hozzáférési jogokkal, például ha egy szerveren van a fájl. Ha ott korlátozva van hozzáférés és/vagy a fájl jogok nem megfelelően vannak beállítva, akkor azon a fájlon nem kell fájlműveleteket elvégezni.
(persze szerver alatt nem a húgom gépét értem, ami szomszéd szobában van
)3. Természetesen a kódot kifogástalan, nehogy azt gondold, hogy a kódod kritizálom, dehogy. Ezek csak észrevételek/tények, amit Pulsar-nak kell végig gondolnia/gyakorlatban megvalósítania, alkalmazni
Fire.
UI: Nem teljesen poénnak szántam a format c-t.
Annó írtam egy összetettebb macrót egy emberkének, nálam ment, nála nem, ua. az office volt fent nála is. Mindenféle hibákat dobált, ilyen csomag hiányzik, nem megnyitható, dll, parse error stb stb. 1 hétig napi 4-5x váltottunk levelet és szüntetgettem meg neki a hibákat, de mindig jött egy újabb. Na ezt meguntam, mondtam neki, hogy most 2 lehetősége van, az egyik hogy újratelepíti az OS-t meg az office-t, vagy a másik, hogy elfelejt.(nem vagyok én System Repair )
2-3 óra múlva hív, hogy megtörtént, és az 1 héttel korábban küldött kód kifogástalanul működik...1 hetet szívtam, mikor már az elején megmondtam hogy format c, 1 hét alatt meg ki tudja hányszor újra lehetett volna telepíteni az OS-t -
ulrik19
tag
válasz
Fire/SOUL/CD
#6069
üzenetére
csak a 2000 van fent...
Szerintem (ahogy írtam lejjebb), azért nem futott az első kód, mert a kérdéses xls-t nem officeból hozták létre (ergo nem hiszem, hogy a dokumentum adatokat is belerakta a progi), hanem egy szerver, valamilyen excel csatolóval, de lehet, hogy sima html formátumban.
A második variáció magához a file-hoz, file szinten nyúl hozzá, ott bármilyen dokumentum lehet, nem csak xls.
-
#6069
Fire/SOUL/CD
félisten
ulrik19
#6067
válasz
ulrik19
#6067
üzenetére
Hali!
De ugye nem egy gépre van telepítve a 2000 és a 2003 vagy 2007 is?
pl Nálam: [link]
Ilyen esetben persze hogy "fut a 2000-en" is, merthogy nem azon fut... Ha meg csak a 2000 van fent és mégis fut nálad, Pulsar-nál meg nem, akkor passz.
(Ilyenkor szoktam javasolni a format c parancsot
)Fire.
-
ulrik19
tag
válasz
Fire/SOUL/CD
#6066
üzenetére
Na igen, lehetnek ilyen dolgok. Bár konkrétan ez a kód nálam (office2000 alatt) rendesen futott...
-
#6066
Fire/SOUL/CD
félisten
Pulsar
#6065
Hali!
De ez amit írsz, egy teljesen "normális" dolog adott esetben, mert a 2000-hez képest a használt VBA verzió is megváltozott a 2003/2007-ben. Ez meg annyit jelent, hogy bizonyos finkciók, procedurák, tulajdonságok változhattak, valamint szintaktikailag is megváltozott a VBA kód felépítése. Nem véletlen, hogy normálisabb tutorialokban, oda van írva, hogy old style code, azaz 97/2000/2002-es verziójú VBA kódnál használható.
A 2010 még kilóg a csapatból, nyilván közelebb áll a 2003/2007-es office-hoz, mint a 2000-hez. Azonban ezzel is vigyázni kell, mert ha az ember nem néz utána a Microsoft-nál pl, hogy mik változtak benne, amik legalábbis a VBA és az ehhez kötődő makróprogramozást érinti, akkor még az sem kizárt, hogy lehet olyan kódot írni, ami már 2003/2007 alatt sem fog működni. Persze ez utóbbi részemről csak feltételezés, mert még nem jártam utána a témának és igazából addig nem is fogok, amíg a végleges 2010-es office meg nem jelenik.(programozási célra(VBA) kerülendő egyenlőre, mivel béta)
A lényeg, hogy a 2003/2007/2010 ebből a szempontból "egy húron pendülnek", azaz nem feltétlenül fog futni az a makró kód 2000-an, amit "ezekkel" készítesz. Persze a 2000-es formátumok nagy része használható bennük, azaz úgy kell makrót írni a 2007 pl, mintha az egy 2000-es lenne.
Fire.
-
#6065
Pulsar
veterán
Fire/SOUL/CD
#6040
válasz
Fire/SOUL/CD
#6040
üzenetére
igen, de éppen ez a vicc, hogy a 2010beta alatt jól fut, csak a 2000 alatt nem akar
(#6035) ulrik19 beírtam de semmi... lehet elcsesztem valamit?
-
#6064
Fire/SOUL/CD
félisten
Bicé
#6063
-
#6063
Bicé
csendes tag
Fire/SOUL/CD
#6062
Bicé
csendes tag
válasz
Fire/SOUL/CD
#6062
üzenetére
Szaisztok,
Nagyon köszönöm a segítséget. Közben Egy VBA guru kolléga megoldotta.
Köszi mindenkinek!!!
Bicé
-
#6062
Fire/SOUL/CD
félisten
Delila_1
#6061
válasz
Delila_1
#6061
üzenetére
Hali!
"Nem egyformán értelmezzük a feladatot."
Hát ez így ebben a formában egy szer igaz.Nekem meg ez az amiért másképp értelmeztem(és gyanítom, hogy ulrik19 is)
"Azt hogyan tudom megcsinálni, hogy ne csak egy értéket tudjak kiválasztani hanem akár több értéket egyszerre."Ezt csak vezérlőelemekkel lehet megoldani, ha meg még a több kijelölt adattal dolgozni is kell, akkor még plusz makró.
Majd remélhetőleg Bicé is még benéz Húsvét előtt, aztán megmondja a frankót.
Fire.
-
#6061
Delila_1
veterán
Fire/SOUL/CD
#6060
Delila_1
veterán
válasz
Fire/SOUL/CD
#6060
üzenetére
Nem egyformán értelmezzük a feladatot.
az "AAA" munkalap "C" oszlop bármelyik cellájába kattintva, abban megjelenik a legördülő lista, és ott kiválasztva egy értéket, maradjon az a cellában.
Ez nekem azt jelenti, hogy a C oszlopban egy halom cellába vitt be Bicé legördülőket. Ha ezt úgy csinálta, hogy bevitte az első cellába, megadta a bemeneti tartományt és a cellacsatolást, majd az lemásolta a többi cellába, akkor a cellacsatolás azonos az összesnél, és az utoljára kiválasztott adat mindegyik legördülő értékét felülírja.
Meg lehet adni minden sorban más-más csatolással, de (szerintem) sokkal egyszerűbb az érvényesítés, azt egy kijelölt területre egyszerre be lehet vinni.
-
#6060
Fire/SOUL/CD
félisten
Bicé
#6057
Hali!
Mint előbb ulrik19 említette, más megoldást kell választanod.
Nem írtad, mennyire vagy jártas VBA-ban, úgy hogy nem biztos hogy ez a kód segít.
Ez Listbox-al dolgozik, ami a Munka1 lapon van ListBox1 néven, az adatok amikkel kitölti(üres cellákat kihagyja), az meg a Munka2, A oszlopában (bármelyikben lehet, csak módosítani kell egy elég egyértelmű sorban) A kód a munkafüzet megnyitásakor fut le, de a későbbiekben szükséges lesz belőle szubrutint készítened, hisz több esetben is szükség lesz, hogy lefusson.(Például, amikor módosítasz az adatokon)Private Sub Workbook_Open()
Dim MySrcColumn As String
Dim MySrcSheet As String, MyDestSheet As String
Dim SourceRange As Range
Dim LB1 As Object
Application.ScreenUpdating = False
MySrcSheet = "Munka2"
MySrcColumn = "A"
MyDestSheet = "Munka1"
Set LB1 = Sheets(MyDestSheet).ListBox1
Sheets(MySrcSheet).Activate
MyUsedRange = Range(MySrcColumn & "65536").End(xlUp).Row
Set SourceRange = Sheets(MySrcSheet).Range(MySrcColumn & "1:" & MySrcColumn & MyUsedRange)
LB1.Clear
LB1.MultiSelect = fmMultiSelectExtended
For i = 0 To SourceRange.Rows.Count - 1
MyItem = Cells(SourceRange.Row + i, SourceRange.Column)
If Not IsEmpty(MyItem) Then
LB1.AddItem MyItem
End If
Next i
Sheets(MyDestSheet).Activate
Application.ScreenUpdating = True
End SubFire.
-
Delila_1
veterán
Valószínű, hogy a választható listát az Űrlap eszköztárról vett kombi panellel, vagy a Vezérlők eszköztáráról a beviteli lista segítségével akartad megoldani.
Ne ezeket alkalmazd, hanem adj nevet az elemeket tartalmazó területnek (Beszúrás/Név/Név megadása), és a másik lapon a választható listát az Adatok/Érvényesítésnél add meg. A Megengedve mezőben Lista legyen, a Forrás pedig
=Adott_név
Ezt akárhány cellába (egyszerre is) beviheted, mindegyikben az ott kiválasztott érték marad meg.
Ha azonos lapon vannak a választható elemek és az érvényesítés, még elnevezni sem kell a tartományt, csak beírni pl. =$A$5:$A$15
Ha a tartomány A:A, akkor a teljes oszlopban szereplő elnevezések szerepelnek majd az érvényesítésben, követi az értékek számának bővülését, de a csökkenést nem, azok helyére üres sort ad. A csökkenés követéséhez érdemes az OFSZET függvény bevetése. -
ulrik19
tag
legördülőben egyszerre csak egy érték választható.
ha a klikkelés eseményhez olyan eljárást rendelsz, ami nem felülírja a cellát, hanem a tartalmához hozzáfűzi az újonnan választott értéket, akkor szépen sorban belekerülnek a kiválasztott értékek.
konkrétabb javaslathoz látni kellene a fájlodat.
ha a választási lehetőséget mindenképp egyszerre kell megoldani, akkor másik vezérlő(ke)t kell alkalmazni.
-
Bicé
csendes tag
Sziasztok!
Az Excel "AAA" munkalapjának "C" oszlopában legördülő választéklistát csináltam úgy, hogy egy másik munkalapon 8-10 elemet előre definiálok, majd az "AAA" munkalap "C" oszlop bármelyik cellájába kattintva, abban megjelenik a legördülő lista, és ott kiválasztva egy értéket maradjon az a cellában. Azt hogyan tudom megcsinálni, hogy ne csak egy értéket tudjak kiválasztani hanem akár több értéket egyszerre.(Pl. ha a lista értéke 1,2,3,4,5 akkor az 1,2,3 értéket egyszerre tudjam kiválasztani.) Nem szűrésre szeretném használni a listát, csak értékadáshoz.Előre is köszi a segítséget!
-
#6056
Cuci3
tag
Fire/SOUL/CD
#6055
Cuci3
tag
válasz
Fire/SOUL/CD
#6055
üzenetére
Majd munkafüzetek között kell másolgatnom a diagramot, úgyhogy a With pont nem megfelelő. De azért köszi!
-
#6055
Fire/SOUL/CD
félisten
Cuci3
#6054
-
Cuci3
tag
A megoldás szerencsére meglett, de ilyet se tapasztaltam még: a szerkesztés menü picit megváltozik, ha SHIFT folyamatos lenyomása mellett hívjuk le. A Másolásból Kép másolása lesz.
Ez a rendszerszemlélet olyan Microsoftos. 
És persze a kód is meglett, lentebb csak érdekességnek:
ActiveSheet.ChartObjects("Diagram 1").Activate
ActiveChart.CopyPicture Appearance:=xlScreen, Size:=xlScreen, Format:=xlPicture
Range("F4").Select
ActiveSheet.Paste -
Delila_1
veterán
A C1:C15 terület képleteinek értékét illeszti be a cellákhoz rendelt megjegyzésekbe.
Sub IrBeillMegjegyzbe()
Dim CV, Comment As Object
Dim Cellák As Range
Set Cellák = Range("C1:C15")
For Each CV In Cellák
If CV.Value > "" Then
CV.AddComment
CV.Comment.Text Text:=CV.Value & ""
'CV.Value = "" 'Cella képletének törlése
End If
Next
End Sub -
#6047
animatrix11
őstag
Fire/SOUL/CD
#6046
animatrix11
őstag
válasz
Fire/SOUL/CD
#6046
üzenetére
Thx!
-
#6046
Fire/SOUL/CD
félisten
animatrix11
#6043
válasz
animatrix11
#6043
üzenetére
Hali!
Ha profin szeretnéd megoldani, akkor ez kell hozzá:
Windows SharePoint Services 3.0
Itt pedig olvashatsz a mikéntről, feltételekről [link]Ahogy itt egyik fórumtárs írta, a közös használat esetedben nem igazán a legjobb megoldás.
Fire.
-
Cuci3
tag
válasz
ulrik19
#6042
üzenetére
Én nem hiszem, tudom, hogy lehet.
2003-ban: Eszközök/Közös használat. De nagyon meg tudja bolondítani a dolgot, ha egy cellát két ember szerkeszt. Tehát ajánlom, hogy emberenként jelöljetek ki területeket.
A frissítések csak akkor láthatóak, ha kb mindenki rányom a mentésre.
Amúgy a közös használattal néhány funkció (pl.: cellaegyesítés, diagramkészítés) nem használható -
#6042
ulrik19
tag
animatrix11
#6041
ulrik19
tag
válasz
animatrix11
#6041
üzenetére
Egyszerre? Mármint egy időben? Nem hiszem.
-
#6041
animatrix11
őstag
animatrix11
őstag
üdv
Meg lehet valahogy oldani, hogy az excel-ben ha a xls egy szerveren van, több ember tudja szerkeszteni?
-
#6040
Fire/SOUL/CD
félisten
Pulsar
#6039
Hali!
Hát akkor fogadj el egy tanácsot. Mivel a 2010 BETA változat, ezért ha lehet kerüld a használatát, ha ilyen jellegű munkára(makró programozásra) adod a fejed, mert ki tudja mi változott benne és abból mi bugos vagy sem. Én a helyedben sürgősen visszatérnék 2007-re, aztán majd ha kint a végleges 2010, csak akkor használnám "komolyabb" célokra, mert akkor már pontosan lehet tudni, hogy mik változtak, milyen újítások/javítások történtek végérvényesen.
Fire.
UI: persze a jelen hibát nem feltétlenül ez okozza, csak ha lehet beta-t ne használjunk, mert sok kellemetlenséget okozhat.
-
#6039
Pulsar
veterán
Fire/SOUL/CD
#6034
válasz
Fire/SOUL/CD
#6034
üzenetére
itthon 2010 van fent, bent 2003. szóval az is lehet!
ulrik19: kipróbálom, köszi
-
Cuci3
tag
-
ulrik19
tag
ez kell bele valahol a sub elején:
Dim adatfile As Variant, FSO As Variant
Set FSO = CreateObject("Scripting.FileSystemObject")
Set adatfile = FSO.GetFile("c:\Production_Daily.xls")és a dátumos sort erre módosítani:
alapfile.Sheets("Data").Range("A47") = adatfile.DateCreated -
#6034
Fire/SOUL/CD
félisten
Fire/SOUL/CD
#6033
válasz
Fire/SOUL/CD
#6033
üzenetére
Hali!
A Te kódod működik rendesen, most próbáltam 2007 és 2010 Excvel alatt is. Pulsar hibáját lehet hogy az okozza, hogy régebbi excel-en próbálja használni, ahhoz meg kell két DLL, mert csak akkor használható a BuiltinDocumentProperties.
Fire.
-
#6033
Fire/SOUL/CD
félisten
ulrik19
#6031
-
válasz
ulrik19
#6029
üzenetére
egy linuxos szerver generál egy adathalmazt, amit ki tud exportálni exelbe. szóval nem. csak azt nem értem, miért működött itthon. mikor hazahoztam pendrive-on, és lementettem, akkro valószínűleg hozzáíródtak az infók?
aha, és azt hogyan használjam?
Fire/SOUL/CD ja, értem... ok oda figyelek rá, köszi
-
ulrik19
tag
válasz
Fire/SOUL/CD
#6030
üzenetére
Creation date (kis d) működött, az office helpben is így szerepel.
-
#6030
Fire/SOUL/CD
félisten
Pulsar
#6028
Hali!
Azt jelenti, hogy nincs olyan tulajdonság vagy ha van is akkor nincs értéke pl NULL, NIL
Ami meg a kódot illeti, Te Creation date -et kérsz le, ami hivatalosan Creation Date Esetleg próbálj odafigyelni a kis-nagy betűkre, bár bevallom nem tudom, hogy ez VBA-ban számít-e.Fire.
-
ulrik19
tag
valamiért az az excel, amivel ott dolgozol, nem tartalmazza (ezek szerint) a "Creation date" tulajdonságot, ezért jelez hibát.
Próbáld ki szerintem a .BuiltinDocumentProperties.Item(1).Value módszerrel (ahol az indexet 0-tól viszed, amíg nem jelez hibát, és figyeled, melyik adja vissza a jó értéket.
Az is lehetséges, hogy mivel a kérdéses xls-t egy külső (gyanítom nem office) program hozta létre, nem tette bele a file-leírásba ezeket a tulajdonságokat... Ha így van, akkor más megoldás kell. Méghozzá valamilyen fso (FileSystemObject) módszer.
-
#6028
Pulsar
veterán
Fire/SOUL/CD
#6023
válasz
Fire/SOUL/CD
#6023
üzenetére
de mi az, hogy nem tartalmaz érzéket? hát amit lekérek az nem maga egy érték?
-
-
ulrik19
tag
rendezd sorba ABC szerint, ahol az "utángyártott" vagy "gyári" kifejezés van. így egymás után kerülnek az egyformák.
vagy ha ez nem megoldható, mert nincs ilyen, vagy össze-vissza van a szöveg, valahogy "kódold" be 1-es legyen az utángyártott, 2 a gyári. (pl. ha tényleg minden második utángyártott, akkor kezdd 1-gyel az A1 cellában, majd alá képlet az A2-be: =3-A1... ezt lemásolva minden másodikban 1 lesz, egyébként 2. Ha ezt sorbateszed, akkor megint az egyformák jönnek egymás után.
-
q13579
senior tag
Sziasztok.
Kérlek valaki adjon ötletet, hogy tudnám megoldani ezt:
Adott egy táblázat autókról, mindegyikhez tartozik gyári és utángyártott érték. Szeretném összeadni külön-külön a gyárikat és utángyárottakat. Hogyan tudnám ezt megtenni? Egyenként meg lehetne oldani, hogy miden másodikat jelölöm ki, de ez egy többszáz soros táblázatnál igen nehéz.
Talán valahogy fkeresesel képzelném el, de nem tudom hogy ágyazzam bele az összeadást.
Van valami függvénytrükk, amivel minden második cellát adja csak össze? Vagy a legjobb az lenne, ha azokat a soroknak az x-edik értékét adná össze, ahol a sorban szerepel a gyári vagy utángyártott név.
Előre is köszönöm a segítséget.
-
#6023
Fire/SOUL/CD
félisten
Pulsar
#6018
-
ulrik19
tag
válasz
Delila_1
#6014
üzenetére
igen, én is finomítottam még egy kicsit a kódon
(érdemes használni a Set-et)Sub masolas_adat()
Dim alapfile As Workbook, adatok As Workbook
Set alapfile = ThisWorkbook
Set adatok = Workbooks.Open("C:\Production_Daily.xls")
alapfile.Sheets("Data").Range("A47") = adatok.BuiltinDocumentProperties("Creation date").Value
adatok.Sheets(1).Columns("A:G").Copy
alapfile.Sheets("IDE_MASOLD").Range("A1").PasteSpecial Paste:=xlValues
adatok.Close
End Sub -
válasz
Delila_1
#6005
üzenetére
ez lett, és működik...
köszönöm nektek MESTEREK!!! 
Sub masolas_adat()
Dim excel_filename, filename2, kelt As String
excel_filename = ThisWorkbook.Name
Workbooks.Open FileName:="C:\Production_Daily.xls"
kelt = Workbooks("Production_Daily").BuiltinDocumentProperties("Creation date").Value
Workbooks(excel_filename).Sheets("Data").Range("A47") = kelt
filename2 = ActiveWorkbook.Name
Columns("A:G").Select
Selection.Copy
Windows(excel_filename).Activate
Sheets("IDE_MASOLD").Activate
Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Windows(filename2).Activate
ActiveWindow.Close
End Sub -
válasz
Delila_1
#6003
üzenetére
ezt nyilván csak akkor tudom ha nyitva van a files ugye?
tehát pl így?Workbooks.Open FileName:="C:\Production_Daily.xls"
kelt=Workbooks("Generált").BuiltinDocumentProperties("Creation date").Value
Workbooks("Állandó.xls").Sheets("Munka1").Range("A11") = kelt
filename2 = ActiveWorkbook.Name
Columns("A:G").Select
Selection.Copy -
válasz
Delila_1
#5999
üzenetére
igen.
a megnyitás egy részét is nektem kszönhetem:
Sub masolas_adat()
Dim excel_filename, filename2 As String
excel_filename = ThisWorkbook.Name
Workbooks.Open FileName:="C:\Production_Daily.xls"
filename2 = ActiveWorkbook.Name
Columns("A:G").Select
Selection.Copy
Windows(excel_filename).Activate
Sheets("IDE_MASOLD").Activate
Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Windows(filename2).Activate
ActiveWindow.Close
End SubHova tegyem itt azt a sort? Production_Daily.xls - nek kellene az create time-ja
)
Annó írtam egy összetettebb macrót egy emberkének, nálam ment, nála nem, ua. az office volt fent nála is. Mindenféle hibákat dobált, ilyen csomag hiányzik, nem megnyitható, dll, parse error stb stb. 1 hétig napi 4-5x váltottunk levelet és szüntetgettem meg neki a hibákat, de mindig jött egy újabb. Na ezt meguntam, mondtam neki, hogy most 2 lehetősége van, az egyik hogy újratelepíti az OS-t meg az office-t, vagy a másik, hogy elfelejt.(nem vagyok én System Repair 
)
Ez a rendszerszemlélet olyan Microsoftos. 
![;]](http://cdn.rios.hu/dl/s/v1.gif)
Új hozzászólás Aktív témák
Fferi50- Samsung Galaxy Felhasználók OFF topicja
- Rezsicsökkentés, spórolás (fűtés, szigetelés, stb.)
- GoodSpeed: Munkaügyi helyzet Hajdú-Biharban: észak és dél!
- World of Tanks - MMO
- Luck Dragon: Asszociációs játék. :)
- 5.1, 7.1 és gamer fejhallgatók
- Milyen egeret válasszak?
- Nintendo Switch 2
- Windows Insider Program
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- További aktív témák...
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Vírusirtó, Antivirus, VPN kulcsok GARANCIÁVAL!
- Game Pass Ultimate előfizetések 1 - 36 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN! AKCIÓ!
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- magyar billentyűzet - 165 - Lenovo Legion Pro 7 (16IRX9H) - Intel Core i9-14900HX, RTX 4080
- Eladó egy pixel 7
- ÚJ Lenovo ThinkPad X13 Gen 5 - 13.3" WUXGA IPS - Ultra 5 135U - 16GB - 512GB - Win11 - 2,5 év gari
- Lenovo T14 Thinkpad Gen3 WUXGA IPS i5-1245U vPro 10mag 16GB 512GB Intel Iris XE Win11 Pro Garancia
- Xiaomi Redmi Note 14 Pro 5G 256GB, Kártyafüggetlen, 1 Év Garanciával
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: BroadBit Hungary Kft.
Város: Budakeszi