-
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
-
Delila_1
Topikgazda
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 SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
sztanozs
veterán
válasz logitechh #42345 üzenetére
Amúgy a copy-paste-et felejteném, hacsak nem kell formátumot is másolni.
Amennyiben csak adatokat kell, akkorRangeCélCelák.Value2 = RangeForrásCellák.Value2
Csak annyi a feltétel, hogy a forrás és célcelláknak azonos méretűeknek kell legyenek.JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...
-
dellfanboy
senior tag
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?eladó dolgok:mondd az árát és vidd http://hardverapro.hu/tag/dellfanboy#aprohirdetesei
-
Mutt
aktív 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
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
sztanozs
veterán
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)?
[ Szerkesztve ]
JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...
-
dellfanboy
senior tag
koszi, jonak nez ki. angol excel-em van atirtam a kozep-et MID-re valamint a szoveg.talal-t Find-ra. viszont hibara futott ki. igy utolag megnezve a cella ertekeimet van olyan hely van ahol a - megjelenik pl jan-20. nemtudom ez bekavarhat? megprobalok 1 fotot feltolteni
eladó dolgok:mondd az árát és vidd http://hardverapro.hu/tag/dellfanboy#aprohirdetesei
-
Fferi50
őstag
válasz dellfanboy #42361 üzenetére
Szia!
Angol Excelben nem pontosvessző, hanem sima vessző a paraméter elválasztó.
Üdv. -
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 -
oke
senior tag
Sziasztok,
Ki lehet vonni két dátumot és órát tartalmazó cellát egymásból úgy, hogy az eredményben csak a hétköznapot tartalmazó napok számolódjanak, a szombat, a vasárnap és esetleg az ünnepnap nem?
Pl:
A1: 2018.08.15 11:48
B1: 2018.08.28 10:12 -
Delila_1
Topikgazda
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.
[ 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.
-
Redneck
veterán
Ü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?
Play Hard GO pr0! - A bugfix, a hiba véglegesítése a programban.
-
Redneck
veterán
válasz sztanozs #42370 üzenetére
Köszi a tippet, de sajnos ebben nem találtam ilyet. Megnézem még OpenOffice-szal, hátha az okosabb. A másik gondom a kerekítés. Egyszerűen nincs ilyen opció, vagy én közelítem meg rosszul.
Jövő hétig biztos nem lesz MS Officeom és a héten meg kell csináljam.
Play Hard GO pr0! - A bugfix, a hiba véglegesítése a programban.
-
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)
-
Fferi50
őstag
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. -
Mutt
aktív 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
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
Redneck
veterán
Köszönöm mindenkinek a segítséget! Próbálkozom, illetve holnap MS Office-os géphez tudok ülni, szóval valószínűleg meg tudok csinálni mindent. Ha lesz még kérdésem jelentkezek.
[ Szerkesztve ]
Play Hard GO pr0! - A bugfix, a hiba véglegesítése a programban.
-
Delila_1
Topikgazda
válasz tgumis #42381 üzenetére
Sub Torles()
Dim sor As Integer, usor As Integer
usor = Range("Táblázat1").Rows.Count
For sor = usor To 2 Step -1
Range("Táblázat1").Select
Selection.ListObject.ListRows(sor).Delete
Next
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Fferi50
őstag
válasz tgumis #42385 üzenetére
A törlő makró:
Sub torlo()
Sheets("sheetneve").Listobjects("anyagbiz").DataBodyRange.Delete
End 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.[ Szerkesztve ]
-
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. -
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[ Szerkesztve ]
-
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!www.refujvaros.hu
-
lappy
őstag
-
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...
-
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.
-
Fferi50
őstag
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. -
Fferi50
őstag
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.
-
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
őstag
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.
Új hozzászólás Aktív témák
- Kerékpárosok, bringások ide!
- Kínai, és egyéb olcsó órák topikja
- Vezetékes FÜLhallgatók
- Debrecen és környéke adok-veszek-beszélgetek
- Adatmentés - HDD - SSD - Flash
- NVIDIA GeForce RTX 4080 /4080S / 4090 (AD103 / 102)
- EAFC 24
- Mozilla Firefox
- Eredeti játékok OFF topik
- 3D nyomtatás
- További aktív témák...