Hirdetés
- Milyen egeret válasszak?
- AMD Navi Radeon™ RX 9xxx sorozat
- Kormányok / autós szimulátorok topikja
- Házi barkács, gányolás, tákolás, megdöbbentő gépek!
- Projektor topic
- Apple MacBook
- SONY LCD és LED TV-k
- NVIDIA GeForce RTX 5070 / 5070 Ti (GB205 / 203)
- Vezeték nélküli fülhallgatók
- Unigine Superposition Benchmark
-
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
-
#42400
Fferi50
Topikgazda
CoolBoy323
#42397
Fferi50
Topikgazda
válasz
CoolBoy323
#42397
üzenetére
Szia!
Akkor használd az INDEX - HOL.VAN függvény párost.
Az INDEX tartománya a teljes teli lap, a második paraméterhez (sor) a HOL.VAN a negyedik oszlopban keressen, az INDEX 3. paramétere (oszlop) pedig amelyik oszlopból szeretnéd az adatot. Ezt kell végig a cél sorodon.
Üdv. -
tgumis
tag
válasz
Fferi50
#42396
üzenetére
ez az eredeti:
Sub AnyagbizAdatokAutomatikusBetoltese()
'
' AnyagbizAdatokAutomatikusBetoltese Makró
'
'
Windows("AnyagbizAdatok.XLSX").Activate
Range("A2:K2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("Negyedéves gyár számolós_V2.2_üres.xlsm").Activate
Range("anyagbiz[Anyagbiz-szám]").Select
ActiveSheet.Paste
End Suberre alakítottam de nem megy
Sub AnyagbizAdatokAutomatikusBetolteseII()
'
' AnyagbizAdatokAutomatikusBetoltese Makró
'
'
Set celfuzet = ActiveWorkbook '(mivel megnyitás után az új füzet lesz aktív)
Windows("AnyagbizAdatok.XLSX").Activate
Range(Range("A2"), Range("K2").End(xlDown)).Copy Destination:=celfuzet.anyagbiz_lista(1).Range("Anyagbiz[Anyagbiz-szám]")
End Sub -
Fferi50
Topikgazda
válasz
tgumis
#42394
üzenetére
Szia!
A Windows helyett én a Workbooks -ot használnám, az jelöli ki egyértelműen a munkafüzetet. (Tudom, a makrórögzítés a Windowst használja )
Bevezetnék változókat a munkafüzetekre.
Gondolom ahova másolni kell, azt a munkafüzetet a felhasználó választja ki és nyitja meg.
Nos a megnyitáskor ezt a munkafüzetet hozzárendelném pl. egy celfuzet nevű változóhoz. A továbbiakban pedig ezt használnám hivatkozásként.
pl.Set celfuzet =ActiveWorkbook '(mivel megnyitás után az új füzet lesz aktív)
A copy után meg lehet adni közvetlenül a másolás helyét, ha mindent másolsz.
pl.Range(Range("A2"),Range("K2").End(xlDown)).Copy Destination:=celfuzet.sheets(1).Range("Anyagbiz[Anyagbiz-szám]")
A munkafüzet mellett meg kell adni a munkalapot is(!), akkor is, ha csak egy munkalap van benne.Üdv.
-
#42395
Fferi50
Topikgazda
CoolBoy323
#42393
Fferi50
Topikgazda
válasz
CoolBoy323
#42393
üzenetére
Szia!
Az FKERES függvény használható arra is, hogy külső munkafüzetből keressen. Az a fontos, hogy a másik munkafüzet is nyitva legyen.
A képletet a függvényvarázslóval szépen megcsinálhatod, ott lehet egérrel kijelölni, ami a képletbe kell.
Üdv. -
tgumis
tag
válasz
Fferi50
#42392
üzenetére
Köszi
Még egy kérdés:
van egy ilyenemSub AnyagbizAdatokAutomatikusBetoltese()
'
' AnyagbizAdatokAutomatikusBetoltese Makró
'
'
Windows("AnyagbizAdatok.XLSX").Activate
Range("A2:K2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("Negyedéves gyár számolós_V2.2_üres.xlsm").Activate
Range("anyagbiz[Anyagbiz-szám]").Select
ActiveSheet.Paste
End SubHogyan tudom a "Negyedéves gyár számolós_V2.2_üres.xlsm" eztúgy megoldani hogyha átnevezik akkor is működjön. Mert most csak akkor fog működni ha mindig ugyanazon a néven mentik el.
-
#42393
CoolBoy323
nagyúr
CoolBoy323
nagyúr
Olyat szeretnék csinálni, hogy egy táblázatban csináltam egy üres munkafüzetet, és ebben szeretnék keresést végezni egy másik munkafüzetben.
A lényeg, hogy egy cellába beírnánk pl hogy 123, és alá beszúrná a teljes sort a teli munkafüzetből, amiben megtalálja az 123-at.Lehetséges ez? Nem jövök rá
Esetleg egy gomb is lehetne, amire rábökve keresne...
-
-
-
kymco
veterán
Sziasztok! Olyan feladatom lenne, hogy az egyik táblában egy oszlopban a név a másik oszlopban pld a születési dátum szerepelne, a másik táblába pedig úgy kellene legördülő listával beillesztenem az adatokat, hogyha egy cellában kiválasztok egy nevet, akkor a név mellé a szomszédos cellába a születési dátum is bekerüljön.
Remélem érthetően írtam le... Egyszerűbb elképzelni, mint leírni
Segítségeteket előre is köszönöm! -
tgumis
tag
válasz
Fferi50
#42386
üzenetére
Nagyon király Köszi
Már csak egy gondom van az pedig az hogy az anyagbiz táblázatban az A
oszlopig értékek az L oszloptól az O oszlopig viszont képletek vannak így azok mind eltűntek.
Előtte átmásolom máshová majd így vissza tudom másolni
Talán így jó lesz:
Sub KepletMasol()
'
' Makró4 Makró
''
Range("Y1:AB1").Select
Selection.Copy
Range("L2").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End Sub -
huan
őstag
válasz
Fferi50
#42376
üzenetére
Szia!
Igazad van! Köszönöm szépen!
Olyat lehet csinálni, hogy rákattintás előtt mondjuk egy hiperhivatkozáson már "látszódjon" hogy nem ad eredményül semmit?
Magyarul a hiperhivatkozás "kedves neve" mondjuk "kép", ha nincs kép, akkor a "kedves neve" "nincs kép", persze kattintás előtt.
-
Fferi50
Topikgazda
válasz
tgumis
#42385
üzenetére
A törlő makró:
Sub torlo()Sheets("sheetneve").Listobjects("anyagbiz").DataBodyRange.DeleteEnd Sub
A sheetneve helyére írd a munkalap nevét, ahol a táblázatod van.
Gondolom, az anyagbiz a táblázatod neve. Ha a munkalap neve, akkor a sheetneve helyére kell beírnod, a helyére pedig a táblázatod nevét.
Üdv. -
Mutt
senior tag
válasz
Redneck
#42373
üzenetére
Szia,
Angol LibreOffice-ban Format -> Conditional alatt találod meg a feltételes formázást.
Kerekítésnél tudni kell, hogy számot akarsz kerekíteni, vagy csak a megjelenítését (ekkor minden további számolás amely ezt a számot használja az eredeti értéket fogja használni, míg az elsőnél a kerekített értékkel számol tovább).
Első esetében a ROUND (KEREKÍT) függvényt kell használni.pl
=ROUND(A1,1)
Másodiknál pedig a cellaformázást (Format -> Cells -> Decimal places).
üdv
-
Fferi50
Topikgazda
Szia!
Erre való a HIPERHIVATKOZÁS függvény.
A oszlopban vannak a cikkszámok.
B oszlopban a függvény. B2 képlete:
=HIPERHIVATKOZÁS("IDE írod a mappa teljes elérési útvonalát \" & A2 & ".jpg")
Ez a képlet húzható lefelé.
Ha nincs a cikkszámnak megfelelő kép, akkor hibaüzenetet ad.
Üdv. -
huan
őstag
Sziasztok!
A segítségetek szeretném kérni az alábbi dologban:
Egy folyamatosan, cikkszámokkal bővülő excel listában szeretnék másolható hiperhivatkozást elhelyezni a cikkek mellett úgy, hogy a hivatkozás egy fixen meghatározott mappára mutasson, azon belül a cikkszám.jpg-re. A mappában csak cikkszám.jpg -k lesznek és ha nincs ilyen jpg, akkor a hivatkozás valami üzenetet adjon, hogy nincs kép, vagy hasonló.Magyarul a cikkek mellett legyen egy "kép-megjelenítő" lehetőség.
(Másolható = csak le kelljen "húzni", mint bármely más függvényt tartalmazó cellát, ne kelljen átírni semmit)
-
Redneck
nagyúr
-
Redneck
nagyúr
Üdv!
Vagy 10 éve nem Exceleztem, sokat felejtettem. A következő feladatot szeretném megoldani, de csak LibreOfficeom van.
" Az 100 000-nél alacsonyabb értéket tartalmazó cellákat emelje ki színes háttérrel és eltérő betűszínnel (automatikus formázás használatával) a C és D oszlopban!
Hogy tudom ezt megtenni egyszerűen?
-
Delila_1
veterán
válasz
logitechh
#42365
üzenetére
Az eredeti füzetek nevét beírod a Célfüzet.xlsm Céllap T oszlopába T1-től T15-ig, kiterjesztéssel együtt. Ebbe a füzetbe másold be modulba a Beilleszt makrót. Tehetsz ki hozzá egy gombot.
A makró abban a sorrendben, ahogy a T oszlopba beírtad a neveket, megnyitja az eredeti fájlokat, majd bemásolja belőlük a Célfüzet megfelelő helyére az A1:M12 tartományt. A megnyitott füzeteket mentés nélkül bezárja.Sub Beilleszt()
Dim usor As Integer, fuzet As Integer, utvonal As String, FN As String
utvonal = "F:\Eadat\Excel fórumok\PH\" 'Ezt írd át!
ActiveSheet.Protect Password:="Jelszo01", UserInterfaceOnly:=True
For fuzet = 1 To 15
FN = Cells(fuzet, "T")
On Error Resume Next
Workbooks.Open Filename:=utvonal & FN
Workbooks("Célfüzet.xlsm").Activate
Sheets("Céllap").Activate
usor = Range("A" & Rows.Count).End(xlUp).Row
If usor > 1 Then usor = usor + 3
Range("A" & usor & ":M" & usor + 11).Value = Workbooks(FN).Sheets("Munka1").Range("A1:M12").Value
Workbooks(FN).Close False
Next
Application.CutCopyMode = False
End SubA Torol makróid szerepét nem látom át. Nem tudom, melyik füzetben torlik az adatokat.
-
logitechh
csendes tag
válasz
Delila_1
#42351
üzenetére
Kipróbálom majd de az a baj, hogy az eredeti munkafüzetből van 15 mindegyik ugyanúgy néz ki. arról kijelölünk egy tartományt A1:M12 mindig ugyan ezt a területet.
Majd a cél munkafüzetben mindig máshová(egymástól 15 sorral eltolva illesztjük be a kimásolt tartományt.
Attól füg melyik "telephelyről" jön a saját kis összesítő oda másolja majd be a felhasználó. Nem akartam hivatkozással megcsinálni. Van akinek 3 van akinek 13 van akinek 6 helyről jön adat ő csak annyi részbe másol.Sub Beilleszt1()
'
' Makró5 Makró
'
Range("C1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Sub Beilleszt2()
'
' Makró6 Makró
'
'
Range("C15").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Sub Beilleszt3()
'
' Makró6 Makró
'
'
Range("C29").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Sub Beilleszt4()
'
' Makró6 Makró
'
'
Range("C43").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Sub Beilleszt5()
'
' Makró6 Makró
'
'
Range("C57").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Sub Beilleszt6()
'
' Makró6 Makró
'
'
Range("C71").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Sub Beilleszt7()
'
' Makró6 Makró
'
'
Range("C85").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Sub Beilleszt8()
'
' Makró6 Makró
'
'
Range("C99").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Sub Beilleszt9()
'
' Makró6 Makró
'
'
Range("C113").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Sub Beilleszt10()
'
' Makró6 Makró
'
'
Range("C127").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Sub Beilleszt11()
'
' Makró6 Makró
'
'
Range("C141").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Sub Beilleszt12()
'
' Makró6 Makró
'
'
Range("C155").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Sub Beilleszt13()
'
' Makró6 Makró
'
'
Range("C169").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Sub Beilleszt14()
'
' Makró6 Makró
'
'
Range("C183").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Sub Beilleszt15()
'
' Makró6 Makró
'
'
Range("C197").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Sub Torol1()
'
' Makró7 Makró
'
'
Range("D2:O5,D9:O12").Select
Range("D9").Activate
Selection.ClearContents
End Sub
Sub Torol2()
'
' Makró7 Makró
'
'
Range("D16:O19,D23:O26").Select
Range("D23").Activate
Selection.ClearContents
End Sub
Sub Torol3()
'
' Makró7 Makró
'
'
Range("D30:O33,D37:O40").Select
Range("D37").Activate
Selection.ClearContents
End Sub
Sub Torol4()
'
' Makró7 Makró
'
'
Range("D44:O47,D51:O54").Select
Range("D51").Activate
Selection.ClearContents
End Sub
Sub Torol5()
'
' Makró7 Makró
'
'
Range("D58:O61,D65:O68").Select
Range("D65").Activate
Selection.ClearContents
End Sub
Sub Torol6()
'
' Makró7 Makró
'
'
Range("D72:O75,D79:O82").Select
Range("D79").Activate
Selection.ClearContents
End Sub
Sub Torol7()
'
' Makró7 Makró
'
'
Range("D86:O89,D93:O96").Select
Range("D93").Activate
Selection.ClearContents
End Sub
Sub Torol8()
'
' Makró7 Makró
'
'
Range("D100:O103,D107:O110").Select
Range("D107").Activate
Selection.ClearContents
End Sub
Sub Torol9()
'
' Makró7 Makró
'
'
Range("D114:O117,D121:O124").Select
Range("D121").Activate
Selection.ClearContents
End Sub
Sub Torol10()
'
' Makró7 Makró
'
'
Range("D128:O131,D135:O138").Select
Range("D135").Activate
Selection.ClearContents
End Sub
Sub Torol11()
'
' Makró7 Makró
'
'
Range("D142:O145,D149:O152").Select
Range("D149").Activate
Selection.ClearContents
End Sub
Sub Torol12()
'
' Makró7 Makró
'
'
Range("D156:O159,D163:O166").Select
Range("D163").Activate
Selection.ClearContents
End Sub
Sub Torol13()
'
' Makró7 Makró
'
'
Range("D170:O173,D177:O180").Select
Range("D177").Activate
Selection.ClearContents
End Sub
Sub Torol14()
'
' Makró7 Makró
'
'
Range("D184:O187,D191:O194").Select
Range("D191").Activate
Selection.ClearContents
End Sub
Sub Torol15()
'
' Makró7 Makró
'
'
Range("D198:O201,D205:O208").Select
Range("D205").Activate
Selection.ClearContents
End Sub
Sub TorolMindent()
'
' Makró8 Makró
'
'
Range("D2:O208").Select
Selection.ClearContents
End Sub -
#42362
Fferi50
Topikgazda
dellfanboy
#42361
Fferi50
Topikgazda
válasz
dellfanboy
#42361
üzenetére
Szia!
Angol Excelben nem pontosvessző, hanem sima vessző a paraméter elválasztó.
Üdv. -
#42361
dellfanboy
őstag
Mutt
#42354
dellfanboy
őstag
-
#42355
sztanozs
veterán
dellfanboy
#42353
válasz
dellfanboy
#42353
üzenetére
És akinek A-12345, AB-1234, ABCD-12, ABCDE-1 vagy CD-12345 formátumú rendszáma van (illetve a külföldiek)?
-
#42354
Mutt
senior tag
dellfanboy
#42353
Mutt
senior tag
válasz
dellfanboy
#42353
üzenetére
Szia,
Talán élhetünk azzal a feltételezéssel, hogy az első kötőjel a szövegben a rendszám része, akkor ez a képlet tud segíteni:
=KÖZÉP(A1;SZÖVEG.TALÁL("-";A1)-3;7)üdv
-
#42353
dellfanboy
őstag
dellfanboy
őstag
Letezik olyan excel formula ami az adott cellabol ‘felszedi’ azt a karaktersort amit en keresek?
Jelen esetben a rendszam aminek a formatuma: ABC-123;
Van egy oszlopom (manual input) mas tarsosztalyoktol, ahol a Jobbik esetben ugy kezdodik a cella erteke rendszam, pontos vesszo mas infok. Hogyha a kollegak betartjak a szabalyokat akkor egy sima bal- fv-vel fel tudom szedni a rendszamot elso 7 karakter. A problema ott kezdodik ha nem tartjak be a szabalyokat es a rendszamot az adott cellaban pl. az auto marka utan teszik.
Nekem vegeredmenynek a rendszam Kellen abc-123 az adott cellabol. Letezik erre vmi formula vagy tovabb kell edukalnom oket? -
-
Delila_1
veterán
válasz
logitechh
#42348
üzenetére
Két füzeted van: Eredeti.xlsm és Célfüzet.xlsm. Az utóbbiban van a Céllap.
Mindkét füzetben modulba kell tenned a makrót.Eredeti.xlsm-be a Másolás gombhoz rendelve:
Sub Masolas()
Dim utvonal As String
utvonal = "F:\Eadat\Excel fórumok\PH" 'Ezt írd át!
Range("C2:O13").Copy
' Selection.Copy 'A kijelölt területet másolja
On Error Resume Next 'Ha nincs nyitva a Célfüzet
Workbooks.Open Filename:=utvonal & "\Célfüzet.xlsm"
Workbooks("Célfüzet.xlsm").Activate
Sheets("Céllap").Activate
End SubCélfüzet.xlsm-be a Beillesztés gombhoz rendelve:
Sub Beilleszt()
Selection.PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub -
logitechh
csendes tag
-
Delila_1
veterán
válasz
logitechh
#42343
üzenetére
Ha másik füzetbe akarsz másolni, akkor a célfüzet céllapján kell feloldanod a lapvédelmet a makró számára.
Sub Masol_Beilleszt()
Workbooks("Célfüzet.xlsx").Sheets("Céllap").Protect Password:="Jelszo01", UserInterfaceOnly:=True
Range("C2:O13").Copy 'a másolandó lapról indulsz
Workbooks("Célfüzet.xlsx").Sheets("Céllap").Range("C15").PasteSpecial xlPasteValues
End Sub -
-
Delila_1
veterán
válasz
logitechh
#42339
üzenetére
Elég 1 makró, ami másol és beilleszt. Ha nem volt jelszóval védve a lap, a másolás után akkor is védve lesz.
Sub Masol_Beilleszt()
ActiveSheet.Protect Password:="Jelszo01", UserInterfaceOnly:=True
Sheets("Munka1").Range("C2:O13").Copy
Range("C15").PasteSpecial xlPasteValues
End SubSztanozs: a UserInterfaceOnly:=True a makró részére (és csakis a makró részére) engedélyezi a beillesztést a védett lap zárolt celláiba.
-
logitechh
csendes tag
-
logitechh
csendes tag
Sziasztok!
Régen a makró idejére sikerült feloldani a jelszavas védelmet. Most a lekódolás ok de a beillesztés már nem működik
Makró 3 másolás
Makró 2 beillesztés
Sub Makró2()
'
' Makró2 Makró
'
'
Set WSIlletm = Sheets("Munka1")
WSIlletm.Protect Password:="Jelszo01", UserInterfaceOnly:=True, AllowFormattingColumns:=True ' AllowFiltering:=True
Range("C15").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Sub Makró3()
'
' Makró3 Makró
'
'
Set WSIlletm = Sheets("Munka1")
WSIlletm.Protect Password:="Jelszo01", UserInterfaceOnly:=True, AllowFormattingColumns:=True ' AllowFiltering:=True
Range("C2:O13").Select
Selection.Copy
End Sub -
-
ny.janos
tag
válasz
pentium4
#42336
üzenetére
Szia!
Az idő az excelben tulajdonképpen egy 0 és 1 közötti tört szám. A 0 óra 0 perc 0-nak, míg a 24 óra 0 perc 1-nek felel meg. Ebből következik, hogy 1 óra 1/24-ként, 1 perc 1/1440-ként 1/(24*60) írható le.
Vagyis a feltételes formázáshoz az alábbiakat használd:
- 0 perc formázásához:=$A2=0,
- 1 percnél több:=$A2>1/1440,
- 1 percnél kevesebb:=$A2<1/1440 -
pentium4
senior tag
Sziasztok,
Van egy oszlopom aminek celláiba időmennyiségek vannak, pl: -1:30 vagy 0:30, formátuma: [h]:mm
Feltételes formázással szeretném színenként jelölni a cellákat, ha 0óra és 0 perc van a cellába akkor zöld, ha 1 nél több perc van akkor sárga, ha 1 percnél kevesebb, vagyis -2:30 akkor pedig pirossal.
Az színbeállítás okés, de gondolom ezt csak képlettel lehet, de az IDŐ(0;1;0)>1 el próbálkoztam de nem ette meg.
KösziP4
-
ny.janos
tag
A szorzatösszeg több tömb szorzatának összegét adja eredményül. Klasszikus esete (összegek összesítése egy lépésben), pl.
Jelen esetben az első tömb egy több oszlopos tartomány, míg a képlet második része egy relációs vizsgálat, hogy a címsor mely oszlopban egyezik meg az összesítendő hónappal. Mivel hamis érték a szorzásban 0-át, az igaz érték pedig 1-et jelent, ezáltal csak az adott hónap értékei maradnak meg, amit össze szeretnél adni.
Vagyis tulajdonképpen a képlet a klasszikus esethez képest itt tulajdonképpen egy tömb, melyet egy feltételtartománnyal szűkítünk le, és azok értékeit adjuk össze.Próbálkozz a megértéssel oly módon, hogy a képlet egyes részeit kijelölve használd az F9 billentyűt az érték megmutatásához majd a Ctrl+Z billentyűkombinációt a visszavonáshoz.
-
ny.janos
tag
Szia!
Az általam bemutatott megoldásban nem kell elnevezni az oszlopaidat.
Adat érvényesítést alkalmaztam az N2 cellában.
O2 cella képlete:
=SZORZATÖSSZEG(($A$2:$L$33)*($A$1:$L$1=$N$2))Ha ezzel megvagy, akkor jelöld ki az adattartományod (címsor nélkül). Az általam bemutatott esetben $A$2:$L$33. Majd formázd táblázatként.
Ha a táblázattá formázással megvagy, akkor újra jelöld ki ugyanezen tartományt a feltételes formázáshoz. A feltételes formázás képlete:=A$1=$N$2Ahogy a legördülő listából másik hónapot választasz, azonnal mutatja, hogy melyik hónap összegét látod az O2 cellában. Mivel táblázattá alakítottad a tartományt, így új sor felvitelekor O2 képlete és a feltételes formázás érvényességi tartománya is automatikusan bővül.
-
ny.janos
tag
Biztos én vagyok nagyon fáradt, de sajnos nem sikerült megértenem, hogy hogyan is néz ki a táblázatod. Illetve az sem derült ki számomra, hogy a keresett érték, amely előfordulása esetén a teljes sorodat feltételesen formázni szeretnéd, az bármely oszlopban előfordulhat, vagy csak 1 adott oszlopban kell erre az értékre keresni.
Ha megoldható, akkor fiktív adatokkal tölts fel egy táblázatot és szemléltesd, hogy mit szeretnél eredményül kapni, mert így sajnos nem tudok segíteni. -
Petium001
csendes tag
válasz
Fferi50
#42250
üzenetére
Szia!
Kicsit bővítettem a függvényen, a végén hozzáadja a beszerzési árat,így bruttó összeg lesz a vége. Hogyan tudom megcsinálni, hogy ha egy termék súlya 5 kg alatt van, és az ára 2700 ft alatt, akkor 1,3-as legyen a szorzó, ha nem teljesül a két feltétel egyike, akkor pedig a táblázatban szereplő értéket adja hozzá? Viszont egy olyan gond is van, ha ezek a feltételek teljesülnek, és a végösszeg nem éri el a 8000 Ft-ot, akkor le kell vonni belőle 995 Ft-ot...Próbáltam beírni,de szerintem nem jó a függvény, és a levonásra már tippem sincs...
=FKERES(B1;$I$1:$J$6;2;1)+HA(B1<5;C1*0,3;0)+HA(C1<2700*0,3;0)+C1Köszi
-
3DFan
aktív tag
válasz
ny.janos
#42320
üzenetére
Köszönöm!
Oszlop adatait összesítem, egy cellába beírom mely oszlopról van szó aktuálisan (pl. G1).
Az oszlopokba utólag még adatok kerülnek. Szeretném feltételes formázni az aktuális
oszlopot, a formázás kövesse az oszlop kiterjedését. Én dinamikus tartományokat hoztam létre az oszlopokra külön-külön, majd ezek neveit adtam meg a feltételes formázásnál. Ha pl. az első oszlopot összesítem, akkor az első oszlop dinamikus tartomány neve a formázandó
terület, tehát annyi tartomány ill. formázás szükséges ahány oszlop van. Megoldható egy
képlettel a dolog? -
ny.janos
tag
Szia!
Kijelölöd a teljes tartományodat (címsort feltételezve a 2. sortól kezdve), majd a formázandó cellák kijelölése képlettel részen belül ezt adod meg:
=$A2=5
ahol:
- $A2: annak a cellának a hivatkozása, amelyben az értékre keresni szeretnél (az oszlophivatkozást azért kell rögzítened, mert a találati sor valamennyi celláját az adott oszlop értéke alapján kívánod formázni),
- 5: a keresendő értéked, amely esetén a sort formázni szeretnéd. Ha nem számról, hanem szövegről van szó, akkor idézőjelek közé kell tenned.Ha adott soron belül bármely oszlopban előfordulhat a keresendő értéked, akkor a feltételes formázás képlete:
=DARABTELI($A2:$M2;45)>=1
ahol:
- $A2:$M2: a tartományod első sora, melyben az értéket keresed,
- 45: a keresendő érték. -
Delila_1
veterán
válasz
Sutyi73
#42316
üzenetére
Laphoz rendelt makróval megoldható.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value = "p" Then Target.Borders(xlDiagonalUp).LineStyle = xlContinuous
If Target.Value = "o" Then Target.Borders(xlDiagonalDown).LineStyle = xlContinuous
End SubAzért írtam meg "o" bevitelére is, mert nem tudom, melyik irányba szeretnéd dönteni az átlót. "p" esetében /, "o"-nál \.
-
#42315
Fferi50
Topikgazda
Norbika1493
#42312
Fferi50
Topikgazda
válasz
Norbika1493
#42312
üzenetére
Szia!
Két lehetőség - makró nélkül - "félautomatikus"
1. CTRL+0 beírja az adott cellába a mai dátumot. Ez nem frissül tovább
2. Ma() függvény előre végighúzva az oszlopon. Amikor beírod a terméket, akkor az adott soron másolás - irányított beillesztés értéket.
Egyébként valóban makró.
Üdv. -
-
Pakliman
tag
válasz
Norbika1493
#42312
üzenetére
Szia!
Ha jól értelmezem a dolgot, akkor az csak VBA-val oldható meg, mert a függvény (MOST()) jövő héten is frissülni fog és az akkori értéket mutatja majd.
Markóval:
A munkalap Change eseményébe kell beírni, hogy ha az adott oszlopban változik egy cella értéke, akkor a meghatározott cellába írja be a dátumot.Private Sub Worksheet_Change(ByVal Target As Range)
'Feltételezzük: Dátum "A" (1.) oszlop, Termék "D" (4.) oszlop
If Target.Column = 4 Then Cells(Target.Row, 1) = Date
End Sub -
#42312
Norbika1493
csendes tag
Norbika1493
csendes tag
Sziasztok,Olyan dologba szeretném a segítségeteket kérni, hogy adott egy munkafüzet.(csatolt kép)
Azt szeretném megoldani, hogy ha a terméknél kiválasztom a legördülő listából a terméket akkor a dátumhoz automatikusan kiírja az értéket. MOST() függvényel sikerül, csak az a problémám ha az alatta lévő cellába kiválasztom akkor frissül az egész. Tehát ha kivan választva a termék az ahoz tartozo dátum legyen fix. Következő termék választásnál ne legyen hatással az elözőre. Gyanitom, hogy a MOST függvény a probléma.
Előre is köszönöm a választ.
-
Mutt
senior tag
válasz
B.Sec.
#42302
üzenetére
Szia,
Én nem találkoztam még ilyen hibaüzenettel, de a leírás szerint vagy vmelyik munkalap, vagy elnevezett tartomány neve nem megfelelő.
Nem kezdődhet aláhúzással (ez lesz a gond nálad), nem lehet cella azonosítóval megegyező elnevezés (pl. A1, B12), nem tartalmazhat szóközt vagy \, /, *, [, ], :, ? karakterek vmelyikét.
Megoldás: nyisd meg a fájlt majd Képletek -> Névkezelő (Ctrl+F3) és a szűrőben keress rá a hibás nevekre.
Esetleg használd ezt: http://www.decisionmodels.com/downloads.htm#namemanager
üdv
-
Mutt
senior tag
válasz
dave0825
#42301
üzenetére
Szia,
A legegyszerűbb megoldás egy Kimutatás (Pivot) az A-oszlopon. Egyetlen hátránya, hogy nem realtime frissül.
Ha Office 365 Insider-t használsz, akkor van EGYEDI (UNIQUE) vagy SZŰRŐ (FILTER) függvény, amely a duplikációkat veszi ki.
Ha régebbi Excel-ed van, akkor egy tömbfüggvény tudja a fentit helyettesíteni.
üdv
-
Mutt
senior tag
válasz
Pakliman
#42300
üzenetére
Szia,
Írhatsz egy saját függvényt, amely ellenőrzi a lehetséges kombinációkat.
pl.
Function DateTest(datum As String) As Boolean
Dim helyes_a_datum As Boolean
helyes_a_datum = IsDate(datum)
If helyes_a_datum Then
DateTest = True
Else
DateTest = IsDate(Replace(datum, ".", ". "))
End If
End Functionüdv
-
Delila_1
veterán
válasz
dave0825
#42304
üzenetére
A DARABTELI függvénnyel rögtön meg tudod állapítani az egyes értékek darabszámát.
=darabteli(A:A;A1)Feltételes formázást is alkalmazhatsz az A oszlopra. A képlet
=darabteli(A:A;A1)>1
Ez az általad meghatározott formátummal hozza azokat a tételeket, amik 1-nél többször fordulnak elő az A oszlopban.Szerk.: látom, a darabteli függvényt közben Pakliman is megírta.
-
Pakliman
tag
válasz
dave0825
#42301
üzenetére
Szia!
Egy lehetőség:
B1:B akármennyicellákba:=DARABTELI($A$2:A2;A2)C1:C akármennyicellákba:=HA(B2=1;SZUMHA($B$2:B2;B2;$B$2:B2);"")D1:D akármennyicellákba:=HAHIBA(INDEX(A:A;HOL.VAN(SOR()-1;C:C;0));"")A C és D segédoszlopokban vannak a szükséges "számító" képletek, a D oszlop tartalmazza az eredményt.
-
dave0825
őstag
válasz
Delila_1
#42303
üzenetére
Ezt a menüpontot megtaláltam, viszont ezzel, ahogy írod is, minden új sor hozzáadása után újra meg kell csinálni. A link viszont szerintem rossz, ide hoz vissza a topik végére.
Igazából nekem az lenne a lényeg, hogy minden szót, ami előfordul, tudjam, hogy hányszor fordultam eddig elő az egészben. Ehhez akartam külön kiszedni a 2. oszlopba, és azokat kikerestetni az 1. oszlopból, majd mellé íratni a darabszámot. -
-
B.Sec.
újonc
Sziasztok,
adott egy párszáz soros, dátumokat, neveket, címeket, technikai paramétereket (szöveg és szám), pársoros leírásokat tartalmazó táblázat, amelyet az irodában többen kezeltek 2010-es Excellell. Egy gépről valaki elkezdte Libre Office Calc-cal kezelni ugyanazt a táblát, aztán úgy 2 hónap múlva mindenkinek aki Excellt használ, ez a hibaüzenet jön ki mikor megnyitja.
Bármit írsz be, ugyanez az üzenet.Ha csak bezárnád a hibaablakot, újra előugrik ugyanaz, majd aztán 10 vagy 15 bezárás után kiadja ezt.
Ha elfogadod, akkor:
Ezután már lehet szerkeszteni a táblát, mindössze a cellaméretek jól fel vannak borulva, indokolatlanul nagy magasságok és szélességek keletkeznek.Libre Office Calc továbbra is hibátlanul nyitja meg.
Látott valaki már ilyet, tud megoldást rá?
Köszönök minden segítséget.
-
dave0825
őstag
Üdv.
Egy újabb kérdésem lenne, ha lehet, ti biztos tudjátok, bár ez már talán bonyolultabb, mint az előző:
Van egy lista, amiben többször előfordul több szöveges cella. Olyan szeretnék, hogy egy másik oszlopba írja ki mindegyik nevet, de csak 1x! Tehet ami többször előfordul, az is csak 1x szerepeljen a 2. listában, ha hozzáadok az 1. oszlophoz egy új elemet, azt írja be a 2. listába, ha újra ugyanazt adom az 1. oszlophoz, akkor ne kerüljön bele újra a 2.-ba, csak 1x.
Így lehet, hogy bonyolult, de itt egy kép, talán jobban érthető. C oszlopot lenne jó képlettel megcsinálni (most csak beírtam magamtól), makrókkal nem szeretném.
oszlopig értékek az L oszloptól az O oszlopig viszont képletek vannak így azok mind eltűntek.
Új hozzászólás Aktív témák
- Milyen egeret válasszak?
- AMD Navi Radeon™ RX 9xxx sorozat
- Kormányok / autós szimulátorok topikja
- Apple iPhone 17 Pro Max – fennsík
- sziku69: Szólánc.
- Házi barkács, gányolás, tákolás, megdöbbentő gépek!
- Projektor topic
- Kerékpárosok, bringások ide!
- Xiaomi 15T Pro - a téma nincs lezárva
- sziku69: Fűzzük össze a szavakat :)
- További aktív témák...
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem, Most Ünnepi áron! :)
- 10 Darab ÚJ PC Játékszoftver
- Game Pass Ultimate előfizetések 1 - 36 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN! AKCIÓ!
- Gyermek PC játékok
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Gamer PC- Számítógép! Csere-Beszámítás! R5 5500 / RX 6700XT 12GB / 16GB DDR4 / 1TB Nvme SSD
- BESZÁMÍTÁS! GIGABYTE A520M R5 5500 16GB DDR4 250GB SSD 120GB SSD GTX 1060 3GB Zalman T3 Plus 400W
- Konzol felvásárlás!! Playstation 5, Playstation 5 Pro
- ÁRGARANCIA!Épített KomPhone Ryzen 5 7600X 32/64GB RAM RX 9070 16GB GAMER PC termékbeszámítással
- Samsung Galaxy A20e 32GB, Kártyafüggetlen, 1 Év Garanciával
Állásajánlatok
Cég: Laptopszaki Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest