- Luck Dragon: Asszociációs játék. :)
- gban: Ingyen kellene, de tegnapra
- ubyegon2: Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
- LordAthis: Ismét egy "Idióta" A.I. Projekt, hogy meglovagolja az aktuális trendeket...
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- Meggyi001: Nyilvános wc-k.....még mindig hiánypótló...
- sziku69: Szólánc.
- sziku69: Fűzzük össze a szavakat :)
- Elektromos rásegítésű kerékpárok
- eBay-es kütyük kis pénzért
Hirdetés
-
LOGOUT
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
-
Fferi50
Topikgazda
válasz
slashing #23998 üzenetére
Szia!
Igazad van.
Csinálni kell egy segédoszlopot, amibe összefűzzük a négy oszlop celláit és abban keressük a vizsgálandó sor összefűzött értékét. Az összefűzésnél akár elválasztó jelet is alkalmazhatunk.
Tehát Delila példájánál maradva: H1 =D1&E1&F1&G1 ezt kell végighúzni a H oszlopban, majd az I4 cella képlete:
=HA(Darabteli($H$1:$H4;D4 & E4 & F4 & G4)>1;"x";"")Üdv.
-
slashing
senior tag
válasz
Delila_1 #23995 üzenetére
darabtelivel ez nem lesz jó mert az egész oszlopban fog számolni egyezés után akár hogy szabályozzuk a kritériumát >1-et nem adhatunk meg mert lehet talál 5 egyformát csak nem abban a sorban amiben kéne neki.
A képen van ugye egyezés az utolsó sorminta alapján az első sor az. De ha onnan kiszeded az 1-et akkor is marad az X. mert a második sorban talált 1-est....
szerk: vagy lehet megint félreértem az egészet és nem kell egyeznie az egész sornak....
-
PETEE78
senior tag
válasz
m.zmrzlina #23992 üzenetére
tehát pl az 5.sorban található értékek már szerepeltek így egymás után előtte, akkor jelölje x-el az 5.sor végén valahol
-
PETEE78
senior tag
válasz
m.zmrzlina #23992 üzenetére
Igen csak,ha minden kívánt oszlopban van egyezés, akkor rakjon x-et az ismétlődő sor végére, de csak az ismétlődő sor végére kell a jelölés, ahol először megjelent az adathalmaz oda nem kell
-
PETEE78
senior tag
válasz
Delila_1 #23990 üzenetére
akkor ír x-et, ha mindegyik cella abban a sorban ugyan olyan értékű...
Én azt szerteném, ha egymás mögött lévő cellák adatai már előtte szerepeltek így a táblázatban, akkor jelölje x-el.
pl d5= zsiráf e5=lámpa F5=14 és ezek így már szerepeltek előtte a táblázatban, akkor az új sorba, ahol ismétlődtek, annak a végére rakjon egy x-et.
Bocs, ha érthetlen vagyok -
PETEE78
senior tag
Sziasztok!
Amit szeretnék megfalósítani függvénnyel:
ha egy táblázatban D5-től G5-ig lévő cellákkal megegyező adatok-értékek már szerepeltek a táblázat ugyan ezen oszlopaiban előtte, akkor az új sor (5.sor) végére mondjuk a P oszlopba rakjon egy x betűt jelölésként.
?
bocs, ha túl egyszerű -
Xterms
tag
Delila, írtam üzit. (Túl specifikus a problémám, és nem akartam ide.)
-
bteebi
veterán
válasz
slashing #23982 üzenetére
slashing, Fferi, Delila, köszönöm!
slashing: Tényleg elég képként, sőt máshogy nem is nagyon lehet. Közben amúgy még tegnap este magamtól is módosítottam a makrón emiatt, mert ha csak lemásoltam a diagramot (tehát "élő" hivatkozás volt a forrásadatra), akkor hiába generálta le mind az 50 ábrát, csak egyfélét jelzett ki (a legutolsót), mivel fix adatokra hivatkozott
. A változás egyébként minimális, ActiveSheet.Paste
helyett
ActiveSheet.PasteSpecial Format:="Picture (Enhanced Metafile)". Amúgy képpel tényleg könnyebb dolgozni. Jártam már úgy, hogy a szerkeszthetőség miatt először csak simán bemásoltam az ábrákat Wordbe, de kicsit szétcsúsztak, úgyhogy végül képként lett beillesztve az összes.A Worddel még majd futok egy kört.
Fferi50: Köszönöm, ki fogom próbálni. Az utóbbi két válaszodból egyértelműen kitűnik, hogy nem ártana (valahonnan) megtanulnom az alapokat, hogy ne kérdezzek alapvető hülyeségeket is
.
Delila: Köszönöm, hasznos infó ez is.
-
Delila_1
veterán
válasz
bteebi #23981 üzenetére
A laphoz rendelt eseménykezelő makróddal meghívhatsz egy modulba helyezett makrót – átadva a változók értékét –, ami már tud másik lapon is dolgozni.
Ezt általánosságban értem, Egy teljesen primitív példában az első a laphoz rendelt-, a második a modulban lévő makró. A Másik lap E1 cellájában lévő értéket felszorozza az első lapra bevitt számmal. Itt most nem térek ki a hibakezelésre, ami ellenőrizné, hogy a bevitt érték valóban szám-e, vagy nem.
Private Sub Worksheet_Change(ByVal Target As Range)
Szoroz Target 'nem szükséges Target.Value módon megadni, a Value az alapértelmezés
End Sub
Sub Szoroz(szorzo)
Sheets("Másik lap").Range("E1") = Sheets("Másik lap").Range("E1") * szorzo
End SubEbből az is látszik, hogy az átadott-, és átvett változó(k) nevének nem kell feltétlenül megegyezniük.
-
tgumis
tag
válasz
m.zmrzlina #23926 üzenetére
Ha csak ötlet is de köszönöm. Ès mindenkinek minden segítsègèt köszönöm. Sokat tanultam màr itt tőletek.
Külön köszi Delila -
Fferi50
Topikgazda
válasz
bteebi #23981 üzenetére
Szia!
A Paste szintén olyan metodus, amelyik csak az aktív lapon működik.
Sajnos a vágólapra helyezett dolgokat (a Copy odateszi), csak ezen a módon tudod VBA-ból elérni.
A Diagram elég különleges "állatfajta" ebből a szempontból is, hiszen forrásadat nélkül csak "módosíthatatlan" képként tudod egyik helyről a másikra áttenni.Én is javaslom a Chart.CopyPicture alkalmazását.
Üdv.
-
slashing
senior tag
válasz
bteebi #23981 üzenetére
próbáld úgy hogy a diagramot másolod és képként illeszted be, ez talán a legegyszerűbb módja a diagram másolásnak és nálad ahogy kiveszem a szavaidból úgy tűnik hogy a legenerált diagrammoknak már nem kell érték alapján változni így egy képpel könyebb dolgozni mint hogy megőrizzék a cellahivatkozásokat....
Szerk. ha meg legenerálta az összes diagrammot egy másik munkalapra azt el lehet menteni külön fájlként, word-ben meg be lehet szúrni objektumként.
-
bteebi
veterán
válasz
Fferi50 #23979 üzenetére
Köszi a segítséget!
Így már (első közelítésben) működik, még ha nem is a legszebb/leggyorsabb.
"A select csak az aktív munkalapon használható."
Ezt nem tudtam/nem gondoltam rá, pedig logikus...Az activate/select-et amúgy nem lehet megkerülni? Próbáltam úgy, hogy
Sheets("Adatok").ChartObjects("Diagram 1").ChartArea.Copy
Sheets("Diagramok").Cells(3 + (i - 1) * 29, 2).Paste,de sajnos nem működik. Lehet valahogy "rendesen" diagramot másolni?
-
Fferi50
Topikgazda
válasz
bteebi #23976 üzenetére
Szia!
A select csak az aktív munkalapon használható. Itt pedig az aktív munkalap Sheets("Adatok").ChartObjects("Diagram 1").Activate alapján az "Adatok" munkalap.
Te pedig a Sheets("Diagramok").Cells(3 + (i - 1) * 28, 2).Select szerint a "Diagramok" munkalapon adod ki a selectet.Üdv.
-
aakosch
tag
Sziasztok!
Ennek hogyan lehetne kiszámítani a görbe alatti területét. Egész pontosan a csúcs alattit.
Time Intensity
10 0,0015
11 0,0161
12 0,1346
13 0,8775
14 4,4562
15 17,6247
16 54,2879
17 130,2299
18 243,3016
19 354,0017
20 401,1365
21 354,0017
22 243,3016
23 130,2299
24 54,2879
25 17,6247
26 4,4562
27 0,8775
28 0,1346
29 0,0161
30 0,0015Köszi szépen!
-
bteebi
veterán
Sziasztok!
Van egy táblázatom, aminek a sorai alapján (1-50-ig) diagramokat generálok. Úgy van megcsinálva, hogy ha egy adott cellában (jelen esetben az A1-ben) lévő számot megváltoztatom, akkor a diagram annak megfelelően dinamikusan változik. Át szeretném másolni az összes diagramot egy másik munkalapra, egymás alá: egy adott sorban az lenne kiírva, hogy hanyadik ábra, alatta pedig a diagram lenne. Word dokumentumba még jobb lenne, de sajnos egyelőre még csak ott tartok, hogy egy másik lapra másolja át. Pontosabban még ott se, mert valamiért nem működik. (Ráadásul nem is "elegáns".)
Sub graphcopy()
Dim i As Integer
For i = 1 To 50
Sheets("Adatok").Range("A1") = i
Sheets("Adatok").ChartObjects("Diagram 1").Activate
ActiveChart.ChartArea.Copy
Sheets("Diagramok").Cells(2 + (i - 1) * 28, 2) = i & ". ábra"
Sheets("Diagramok").Cells(2 + (i - 1) * 28, 2).Font.Bold = True
Sheets("Diagramok").Cells(3 + (i - 1) * 28, 2).Select
ActiveSheet.Paste
Next
End SubAzt írja, hogy "Range osztály Select metódusa hibás". Mi a baj? Nem túl elegáns egyébként a makró; próbáltam úgy is megcsinálni, hogy Sheets("Adatok").ChartObjects("Diagram 1").Copy, de úgyse ment, a makrórögzítős gagyi megoldással (ActiveChart.ChartArea.Copy
és ActiveSheet.Paste) működött, de ha egymás alá akarom tenni a diagramokat, akkor nem megy. -
Fferi50
Topikgazda
Szia!
Az Initialize csak egyszer fut le, akkor amikor betöltődik a form.
Az Activate mindig, amikor megjeleníted.Elképzelhető, hogy mást kell csinálnia az első megjelenéskor, mint a következőknél, ahhoz, hogy jól működjön.
Szerintem most az inicializálást el lehet hagyni. (De próba és már meg is tudod....)Üdv.
-
Fferi50
Topikgazda
Szia!
Tedd a kódot a Userform Activate eseménybe (is).
Egyébként lehetne rövidebben:
Private Sub togbutTranslate_Click()
Range("b_forditocellak").EntireColumn.Hidden = Not Range("b_forditocellak").EntireColumn.Hidden
End Sub
Private Sub UserForm_Activate()
Me.togbutTranslate.Value =Not Range("b_forditocellak").EntireColumn.Hidden
Me.labVersion.Caption = "Jegyzőkönyv verziója: " & Worksheets("MAGYAR").Range("N2").Value
End SubÜdv.
-
Fferi50
Topikgazda
válasz
snorbi82 #23970 üzenetére
Szia!
Itt ugyan a 25. sorban van Minta Janika, de sebaj, mindegy is melyik sorban van, azt majd megadod.
Nagy vonalakban a javaslatom:
Indulsz a meglevő, beolvasott csv adatokkal.
A változó deklarációkat rád bízom...set adatok=activesheet
utsor=cells(1000,1).end(xlup).row 'megkeressük az utolsó sort
For ugyfsor=18 to utsor ' ettőll eddig kell a ciklusnak menni
set ujws=workbooks.add.sheets(1) 'létrehozza az új munkafüzetet és aktívvá teszi
range(adatok.cells(ugyfsor,"J"),adatok.cells(ugyfsor,"Z").copy range("J18")
range(adatok.cells(ugyfsor,"AA"),adatok.cells(ugyfsor,"AB").copy range("J19")
range(adatok.cells(ugyfsor,"AC"),adatok.cells(ugyfsor,"AD").copy range("J20")
' és így tovább..... ha az első oszlopnál akarod kezdeni, akkor range("A18") a "J18" helyett stb.
' ha végig értél az ügyfélen
ujws.parent save as filename:=fájlnév ' (amit természetesen neked kell megadni)
ujws.parent close false
next 'és megy vissza az elejére a ciklusRemélem, tudsz belőle valamit használni.
Üdv.
-
Wyll
őstag
Vajon mi a baj?
Azt akarom, hogy egy userform-on lévő toggle button akkor és csak akkor legyen benyomva (value=1), amikor bizonyos oszlopok nincsenek elrejtve (hidden = false); illetve hogy a be vagy kikapcsolása egyben rejtse is el vagy jelenítse is meg a cellákat.
A rejtés/felfedés funkció működik is szépen, csak az inicializálás nem: ha a cellák el vannak rejtve, akkor sem lesz benyomott állapotú a userform indulásakor.
Private Sub togbutTranslate_Click()
If Range("b_forditocellak").EntireColumn.Hidden = True Then
Range("b_forditocellak").EntireColumn.Hidden = False
Else
Range("b_forditocellak").EntireColumn.Hidden = True
End If
End Sub
Private Sub UserForm_Initialize()
If Range("b_forditocellak").EntireColumn.Hidden = True Then
Me.togbutTranslate.Value = True
End If
Me.labVersion.Caption = "Jegyzőkönyv verziója: " & Worksheets("MAGYAR").Range("N2").Value
End Sub -
snorbi82
senior tag
válasz
Delila_1 #23969 üzenetére
Nem kell szamolni semmit! Minden adat megvan nekem.
Az lenne a lenyeg, hogy adott tabla Minta Janosnak a 18 sorban van minden adata. En azt szeretnem valahogy, hogy egy ures tablazatban a a 18sorba emelje at J, K... Z ig... A 19es sorba AA, AB, 20. sor Ac....AF, 21. sorba stb...
A kovetkezo tablam ami lesz ugye 19. sorba lesz Minta Janosne, akit egy ures tablamba szeretnek atmenteni ugy, hogy:18sorba emelje at J, K... Z ig... A 19es sorba AA, AB, 20. sor Ac....AF, 21. sorba stb...
Nekem eleg lenne az elso nevre ezt megcsinalni es a tobbit en magam megcsinalom...
Olyan scriptet irtam .vbs-be, hogy letre hoz egy uj táblat es a fix adatokkal kitolti, de amit egy meg levo tablabol kell atemelnie azt nem tudom, hogy kell... Sajnos csak ennyit tudok.. Elnezest!
u.i: bocsanat telefonrol irtam... -
Delila_1
veterán
válasz
Fire/SOUL/CD #23968 üzenetére
Tényleg. Ettől sem lettem sokkal okosabb.
-
-
Delila_1
veterán
válasz
Fire/SOUL/CD #23966 üzenetére
Igen, de ezt füzetben, ne a kép alapján kelljen a segítőnek számolgatnia, formázgatnia. A kép alapján nem lehet meghatározni az egyes sorokat.
-
-
Delila_1
veterán
válasz
snorbi82 #23963 üzenetére
Ebből nem lehet kitalálni a sorazonosítókat. Mi melyik sorba kerül?
Az oszlopokat ki lehetne következtetni, de ezeket neked kellene megadnod, ne az számolgasson, aki segíteni akar.Tegyél ki egy olyan füzetet, ami 3-4 ember adatait tartalmazza, természetesen kamu névvel.
Meg egy olyant, amilyenre át kell alakítani személyenként. -
válasz
snorbi82 #23963 üzenetére
Azt hiszem félreértjük egymást... Nekem/nekünk ez a táblázat kellene, amiről így teszel említést:
"Természetesen nekem olyan táblám van ami nem így néz ki. Jelen pillanatban van egy táblám amiben 100 ember van, adatai egymás mellett."Na ez a tábla kellene, valami kamu adatokkal.
-
snorbi82
senior tag
válasz
Fire/SOUL/CD #23962 üzenetére
Szia!
Csináltam gyorsan egy kamut... Ahogy kinéz jelen pillanatban.... Gdrive! köszönöm
-
válasz
snorbi82 #23961 üzenetére
Ennyi info alapján senki sem fogja megmondani neked, hogy kivitelezhető-e avagy sem. Itt csak annyi látszik, hogy Rekordtípus-tól Ellenőrző szám-ig vannak az oszlopok és a rekordtípus határozza meg, hogy mely oszlopokba kerüljenek adatok.
A te eredeti táblád felépítése nélkül senki sem tudja, hogy honnan/hogyan kellene ezeket az adatokat belemásolni. Ha az eredeti táblát nem is, de az eredeti táblázatoddal teljesen megegyező, csak kamu adatokkal feltöltött táblázatot kellene megosztanod, hogy lássuk, mégis mi-merre hány lépés... -
snorbi82
senior tag
Sziasztok!
Egy kérdésem lenne, ami nem kicsi! Gdrive A linkben van egy minta tábla. Természetesen nekem olyan táblám van ami nem így néz ki. Jelen pillanatban van egy táblám amiben 100 ember van, adatai egymás mellett. Természetesen, hogy jó legyen a napom, a 100 embert 100 excel táblába kell tenni, de úgy, ahogy a linken szereplő táblázat.
Nem tudom, hogy lehetséges e olyan script vagy bármi ami varázsol nekem 100 excel táblát a linken szereplő formában.
Előre is köszönöm! -
Mittu88
senior tag
-
Mittu88
senior tag
Lehet úgy hivatkozni munkalapra, hogy egy cella értéke a munkalapnév?
Pl. ha A1 értéke Január, akkor tudok valahogy azon keresztül a Január munkalapra hivatkozni? -
#02644736
törölt tag
Erre valaki?
[link]Ilyen értékeim vannak pl:
6,44
8,05
13,41
1,27Ezekből hogy tudok olyan formátumot csinálni, hogy az egész rész az legyen a perc, a tizedes rész utánit meg ki kellene számolni, hogy az hány másodperc.
Meg lehet valahogy csinálni? -
slashing
senior tag
válasz
dellfanboy #23933 üzenetére
Ha találsz rá megoldást az engem is érdekelne, nálunk is IT Policy hogy kijelentkezzen a gép és néha roppant idegesítő tud lenni....
-
Delila_1
veterán
válasz
Geryson #23940 üzenetére
Mint kiderült a személyes megbeszéléskor, csak a lényeg, a makró maradt le. Elnézést!
Function JobbKotjel(cella)
Dim b As Integer
For b = Len(cella) To 1 Step -1
If Mid(cella, b, 1) = "-" Then
JobbKotjel = Right(cella, Len(cella) - b) * 1
Exit Function
End If
Next
End Function -
Mittu88
senior tag
válasz
Fire/SOUL/CD #23942 üzenetére
Elvileg nem lehetne gond, most próbáltam egy másik 2007-es office-os gépen, teljesen szépen lefutott.
Olyan bonyolult parancsokat se használok, ami csak a 2010-esben van. Tök alap dolgok. -
-
Mittu88
senior tag
Ilyet még nem láttam. Egyik kolléga gépén 2007-es magyar office van és az excel automatikusan letiltja a szerveren lévő 2010-es excelben készült makrós fájl makróját.
A "poén", hogy ha 2010-es excelben megnyitom a fájlt és elmentem, akkor a következő megnyitással működik a 2007-esben. A többiben viszont nem, tehát mindig meg kéne nyitnom 2010-essel és bezárnom, hogy utána 2007-esben jól működjön.
Minden be van állítva, minden makró engedélyezése, minden active x engedélyezése, megbízható helyek között a szerveren lévő mappa almappákkal együtt, stb.
Mi lehet ez? -
Delila_1
veterán
válasz
dellfanboy #23937 üzenetére
-
Delila_1
veterán
válasz
dellfanboy #23933 üzenetére
Keress rá a Windows súgójában az alvó állapotra, ahol különböző időket rendelhetsz hozzá, vagy akár a Soha választásával megszüntetheted. Ennek a helye is eltérő verziónként.
-
#02644736
törölt tag
Sziasztok!
Azt hogy lehet megvalósítani, hogy pl. ha egy osztás eredményeként kijön 8,6855, azt átkonvertálni percre. (pl. ez lenne akkor 8 perc, x másodperc) Ezt meg lehet valahogy csinálni?
-
dellfanboy
őstag
tudtok egy olyan makrót adni ami 'lefoglalja' a gépem? nem akarom, hogy elmenjen aludni.
sql-t futtatok de sose fut le mert a gép elmegy aludni ezáltal a hálókapcsolatot bontja.
arra gondoltam csinálok egy xls makrót ami az egyik cellából klikkel a másikra, vagy valami hasonló és ezt végtelenítem de mondjuk esc gomb megnyomására megáll.
ebben kellene segítség, ill. egyéb ötlet?
remélem érthető a kérdésem
(próbáltam hogy a bill-re rakok egy fél téglát de az nem elegáns ill. egy idő után a windows is szól, hogy beragadt, egy gomb...) -
Geryson
addikt
válasz
Delila_1 #23930 üzenetére
Ja, hogy ez tényleg nekem szólt? Azt hittem félre klikkeltél...
Hát most ezt így abszolúte nem vágom, ez egy üres Excel táblázat. Nem annyi az egész, hogy a képletet át kell írni? Olvasgatom és próbálgatom bőszen mind a KÖZÉP, mind SZÖVEG.KERES függvényeket, de egyenlőre nem jövök rá, hogy mit hogyan kell állítanom, hogy a második kötőjel utáni részt nézze.
-
Delila_1
veterán
válasz
Geryson #23927 üzenetére
A kész függvényekkel ezt nem oldhatod meg, de írtam egy újat.
Beviszed egy új modulba, a füzetben pedig az =JobbKotjel(A1) megadja a kért eredményt.
Ha csak ebben a füzetben akarod alkalmazni, ennek egy moduljába másold be – mentés xlsm-ként –, ha több helyen, akkor a personalba másold be. -
Geryson
addikt
Sziasztok, megakadtam egy képlet átalakításában amit még anno kaptam itt:
A vizsgálandó cellában ez áll:
384212-MSA-5,02
A képletem eddig így nézett ki:
=KÖZÉP(B2;1;SZÖVEG.KERES("-";B2;3)-1)
Az eredmény ugye eddig a "384212" volt, de most azt kellene, hogy az utolsó kötőjel utáni részt hozza eredményként "5,02". Hogy kell átírnom a képletet? Sajnos mivel egymásba ágyazott, így sajnos nem jöttem rá.
-
m.zmrzlina
senior tag
válasz
tgumis #23925 üzenetére
Tekintsd inkább ötletnek mint kész megoldásnak.
Sub makro1()
Dim strElerut As String
Dim strFnev As String
Dim wbk As Workbook
strElerut = ThisWorkbook.Path
If Right(strElerut, 1) <> "\" Then strElerut = strElerut & "\"
strFnev = Dir(strElerut & "*.xlsx")
Do While strFnev <> ""
Set wbk = Workbooks.Open(strElerut & strFnev)
For Each wsh In Worksheets
wsh.Unprotect
If wsh.Index > 1 Then
wsh.Range("H4").Formula = "=Munka1!G7"
End If
wsh.Protect
Next
wbk.Save
wbk.Close
strFnev = Dir
Loop
End Sub1,Biztonsági másolatot készítesz a 12 fájlodról!!!
2,Biztonsági másolatot készítesz a 12 fájlodról!!!
3,Biztonsági másolatot készítesz a 12 fájlodról!!!4,Üres munkafüzetbe másolod a makrót majd elmented abba a mappába ahol a 12 munkafüzeted van.
5,A "=Munka1!G7" helyére annak a munkalapnak a nevét írod aminek a G7 celláját hivatkozni akarod a többi munkalapra. Ezt a munkalap minden munkafüzetben legyen a legelső.
6,A wsh.Protect parancsot felparaméterezed attól függóen, hogy mit akarsz és mit nem akarsz engedni a munkalapon
7,Elindítod a makrót.
8,Imátkozol
-
tgumis
tag
Nincs megoldàs a problèmàmra?
-
Delila_1
veterán
válasz
Bohoc777 #23923 üzenetére
Felveszel egy kis táblázatot, ami az egyes gyümölcsöket tartalmazza. Legyen pl. a H1 cellától lefelé. Mellé beírod az árakat az I1 cellától.
A nagy táblázatodban a gyümölcs mellett az
=FKERES(A2;H:I;2;0)
képlet megadja az árat, feltételezve, hogy a nagy táblázatod az A2 cellától kezdődik. -
Bohoc777
újonc
Sziasztok
Gyors segítséger lenne szükségem.
Adott 1 táblázat melynek A oszlopában kulomboző Gyumolcsok vannak feltuntetve. A B oszlopban szeretném feltuntetni az árakat de egyesével beírni nagyon sokáig tart. Olyan képletet keresek ami A B oszlopba beírja azt a konkrét számot amit hozzárendelek.
A B
alma
korte
korte
alma
barackalma ára 1 ft
korte 2 ft
barack 3 ftköszönöm a segítséget
-
tgumis
tag
válasz
m.zmrzlina #23920 üzenetére
Kösz ezt olvastam már de közben müxik csak az alején kell emgedélyezni a tratalmat.
Ismét egy kérdés:
Van valaki aki tud egy olyan makrót ami megoldja a problémám.
Van 12 munkafüzetem
mindegyik munkafüzet 64 munkalapból ál.
Én hülye védetté tettem a munkalapokat és elfelejtettem az évszámot úgy megoldani hogy hivatkozzon.
Szóval az első munkalap G7 cellájának értékét kellene behivatkozni mind a 63 munkalap H4 cellájába.
Természetesen védett munkalapok szóval a kikódolásnak is szerepelni kellene a makróban.
légyszí segítsetek -
Fooler89
őstag
válasz
m.zmrzlina #23919 üzenetére
Köszönöm szépen.
-
m.zmrzlina
senior tag
válasz
tgumis #23915 üzenetére
Itt van leírva, hogy hogyan kell.
Azt a részt keresd, hogy Különböző munkafüzetben lévő cellák közötti külső hivatkozás létrehozása
-
Fooler89
őstag
Sziasztok
Két dátum közötti különbséget szeretnék kiszámolni, úgy hogy az egyik cellába az év legyen, a másodikba a hónap a harmadikba nap.
A probléma az mostani megoldással, pl: megadja, hogy 1év 18 hónap és 4xx nap viszont nekem úgy lenne jó, hogy ha van egy év akkor azon túli hónapokat és napokat adja vissza.
Fontos lenne mert a végén összegezni kellene.Hol találok ilyen függvényt?
-
tgumis
tag
Sziasztok hogy oldom azt meg hogy van egy munkafüzet ami 8 másikból szedi az adatokat és ha az átmásolom egy másik gépre akkor ne a ne a pendriven lévő munkafüzetekre hivatkozzon hanem a gépen lévőre hisz az egész mappát átmásolom amiben ezek a munkafüzetek vannak.
légyszí segítsetek
előre is köszi -
slashing
senior tag
Hátha másnak is hasznos lesz kép változtatása cellatartalom alapján:
Csinálj egy üres diagrammot pl. oszlop
majd a munkalaphoz rendeld a következő kódot:
Jelen esetben csak az A1-et néziPrivate Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 And Target.Column = 1 Then
Munka1.ChartObjects("diagram 1").Select
ActiveChart.ChartArea.Format.Fill.UserPicture ("c:\elérési út megadása \" & Target & ".jpg")
Target.Select
End If
End Sub -
tgumis
tag
válasz
m.zmrzlina #23912 üzenetére
nem tudok
az egész munkafüzeteMás
lehet olyat excelben is mint a worldben hogy az első oldal álló a második fekvő és az x edik megint álló a nyomtatáskor. -
tgumis
tag
Sziasztok!
Kèt kèrdèsem Lenne:
Van egy tàblàzatom (kaptam ) amiben van egy oszloo ès ha annak az oszlopnak bàrmelyik cellàjàba klikkelek jobb gombbal akkor eltünik az èrtèk ès egy szöveg jelenik meg benne.sajnos visszavonni sem lehet. Ez valami makró? a vb kódokat nem tudom megnèzni mert jelszót kèr. Ezt a jelszóval vèdettv vb lapot mivel tudnàm kikódolni?
A màsik kèrdès
Hol lehet azt beàllítani hogyha autoszűrőt hasznàlok akkor amikor lenyitom a listàt hogy mit szűrjön akkor legyen egy beviteli mező amibe ha írok akkor azokat az èrtèkeket szűrje amben benne van az a szövegrèsz amit a beviteli mezőbe írtam. Remèlem èrthető a kèrdès. A melóhelyen így működik az autoszűrő.
Előre is köszi a segítsègeteket -
littleNorbi
aktív tag
válasz
Fferi50 #23903 üzenetére
Azt hiszem nem értettél meg. Szóval ha valaki ajánlana pl. nekem egy FKERES függvényt, hogy az a megoldás a problémámra, akkor lefordítom magamnak VLOOKUP-ra... Bár nem értem, hogy miért lovagolunk ezen, hiszen Neked nem sok közöd volt a gondom megoldásához, akik viszont segítettek, nekik ez nem jelentett akadályt...
-
slashing
senior tag
válasz
m.zmrzlina #23907 üzenetére
A visszafele számolás nem használható sajnos az A1-től számolás az megoldható igaz fordítva terveztem hogy előbb bejönnek az adatok aztán töltöm fel a maradékot de ezt megfordíthatom.
Köszi!
szerk.:
CurrentRegion tuti kiesik olyan b...i nagy és helyenkéntfoghíjashogy tuti rosszul fogja számolni -
m.zmrzlina
senior tag
válasz
m.zmrzlina #23907 üzenetére
Esetleg használd a következőt:
hanyoszlop=Range("A1").CurrentRegion.Columns.Count
Ezzel változóba tudod írni a használt tartomány oszlopainak számát, amit már kedved szerint használhatsz.
-
slashing
senior tag
van rá mód hogy az utolsó oszlop vagy utolsó sor meghatározásnál macróban ne vegye figyelembe a képletet tartalmazó cellát?
nagyon leegyszerűsítve:
A1-től D1-ig adatok E1-től raknám be mindig az új oszlopba az adatokat macróval aztán valahol kb. X1 Y1 Z1-ben meg vannak képletek.viszont a
uoszlop = Workbooks(WBN).Sheets(WS).Cells(1, Columns.Count).End(xlToLeft).Column + 1
kód z1-et is figyelembe veszi akkor is ha képlettel "" értéket kap.
ötlet?
-
Zola007
veterán
válasz
littleNorbi #23900 üzenetére
-
Fferi50
Topikgazda
válasz
littleNorbi #23900 üzenetére
Szia!
Makrókban erősen ajánlott az angol függvényneveket használni (de nem kizárt, mert a formulalocal paraméter a helyi nevekkel működik, csak nem hordozható).
A tisztánlátás kedvéért, ha jól lefordítod angolra, akkor nem lehet NAME hiba! De ha tudjuk, hogy angol az exceled, akkor az angol függvénynevet kapod a munkalapra beírandó képletekhez is, nem kell fordítani.
Üdv.
-
Zola007
veterán
egy adott cellában szereplő függvényt vagy képletet hogyan tudok érvényesíteni/másolni egy teljes oszlopra vagy sorra?
pl: 1. sor:
A1: érték1
B1: érték2
C1: = A1 & B1és én ezt a C1-ben lévőt akarom érvényesíteni a teljes C oszlopra, de úgy hogy ne kelljen végighúzni/görgetni a cellaformátumot az egész táblázaton (még nem tudom hol lesz a vége)
illetve sok oszlopra kellene más mást alkalmazni
Új hozzászólás Aktív témák
Hirdetés
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- Vicces képek
- Milyen billentyűzetet vegyek?
- TCL LCD és LED TV-k
- Magisk
- Milyen egeret válasszak?
- Honor Magic7 Pro - kifinomult, költséges képalkotás
- Forrasztásról mindent az alapoktól!
- A nagy Szóda, Szódakészítés topic - legyen egy kis fröccs is! :-)
- Spórolós topik
- További aktív témák...
- BESZÁMÍTÁS! HP EliteDesk 800 G1 TWR brand számítógép garanciával hibátlan működéssel
- ÚJ Microsoft Surface Laptop 7 13.8" 2K - 120Hz Érintő - Snapdragon X Elite - 16GB - 512GB-2 év gari
- Eladnád a telefonod? KÉSZPÉNZES OKOSTELEFON FELVÁSÁRLÁS azonnali fizetéssel!
- Azonnali készpénzes GAMER / üzleti notebook felvásárlás személyesen / csomagküldéssel korrekt áron
- Gamer Notebook! Lenovo Ideapad Gaming3! I7 10750H / GTX 1650Ti / 8GB DDR4 / 256GB SSD
Állásajánlatok
Cég: FOTC
Város: Budapest