- iPhone topik
- Ulefone Power Armor 18T - látod, milyen meleg van?
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Két nap múlva itt a Xiaomi 17, van egy pár hivatalos fotó is róla
- Xiaomi 15 Ultra - kamera, telefon
- Apple iPhone 16 - ígéretek földje
- Apple Watch Ultra - első nekifutás
- One mobilszolgáltatások
- Telekom mobilszolgáltatások
- Merész dizájn és új teleobjektív az iPhone 17 Pro mobilokban
-
Mobilarena
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
-
#10098
Delila_1
veterán
Vizes Tomi
#10097
Delila_1
veterán
válasz
Vizes Tomi
#10097
üzenetére
Feltételezve (mivel nem írtad meg), hogy a "Hálózaton belüli hívások" szöveg az A oszlopban szerepel, és a hozzá tartozó egységár az E oszlopban van a kép szerint, itt a makró, ami beírja a J1 cellában általad megadott percdíjat a sárga hátterű cellákba:
Sub PercDij()
Dim Szoveg$, cseresor%, PercDij!
Szoveg$ = "Hálózaton belüli hívások"
PercDij = Cells(1, 10) 'ide fixen is beírhatod az összeget
cseresor% = Range("A:A").Find(Szoveg$).Row + 1
Do While Cells(cseresor%, 1) = ""
Cells(cseresor%, 5) = PercDij!
cseresor% = cseresor% + 1
Loop
End Sub
Ha az adatok a "Hálózaton belüli hívások" címmel azonos sorban kezdődnek, akkor a
cseresor% = Range("A:A").Find(Szoveg$).Row + 1 sor végéről töröld a +1 -et. -
#10097
Vizes Tomi
tag
Vizes Tomi
tag
Üdv Mindenkinek!
A kérdésem a következő:
A telefonszámláinkat ki kehet nyerni excelbe. Kaptunk ajánlatot kedvezőbb percdíjra és alapdíjra.
Ki kellene mutatnom számlánként, hogy mit jelentene a kedvezőbb percdíj és alapdíj.
Annyit kellene csak megoldani, hogy az egyes tételeknél kicserélem az egységárat.ezzel az a gond, hogy munkalaponként PL a hálózaton belüli hívások eltérő sorokban vannak. Az egyik munkalapon A23 a másikon A 26.Segítséget előre is köszönöm
Üdv
VT
-
Delila_1
veterán
válasz
artiny
#10095
üzenetére
Kijelölöd a dátumokat tartalmazó területet.
A Kezdőlap - Stílusok közül a Feltételes formázást választod. Új szabály - A formázandó cellák kijelölése képlettel.
Az 'Értékek formázása, ha ez a képlet igaz' mezőbe ezt írod:
=MA()-A1>80
(ez arra az esetre vonatkozik, ha a dátumot tartalmazó adataid az A1 cellában kezdődnek, és azokat a cellákat akarod színezni, ahol a dátum több, mint 80 nappal előbbi, mint az aktuális dátum)A 'Formátum...' menüben kiválasztasz egy szimpatikus formátumot.
-
artiny
őstag
EXCEL(2007)ben lehet olyat, ha pl. egy alkalmazottnak egy dátumhoz kötve kell menni átképzésre, kamionnak karbantartásra.stb.....akkor az figyelmeztessen minket valmi módon?
Ilyet fügvény lekérdezéssel lehet megoldani csak? vagy megoldható,hogy ezt figyelje és jelezze az excel dokumentumunk vagy pl.úgy hogy a dátum szerint a feltételek amikkel kiszínezhetjük belül a cellákat (ilyen diagram szerű cellákat készit) - azzal megoldani?
-
Zomb€€
őstag
Sziasztok!
Egy accessben lévő makrót szeretnék futtatni egy .vbs file-al (2010 Access), és az alábbi módon nem sikerül nem találja magát a makrót, pedig minden elérési út, és név stimmel:
Const DBPath = "xxx"
Const MacroName = "yyy"
Set AccessApp = GetObject(DBPath, "Access.Application")
AccessApp.DoCmd.RunMacro MacroName
AccessApp.Quit -
-
DjSteve85
csendes tag
Ja még egy apró keresztkérdés
:
Mi okozhatja a jelenséget?!
-céges gépen ms office 2010
-ctrl+c nem másolás funkciót tölt be, hanem kijelöli az összes adatot tartalmazó cellát.
ctrl+v és x működik.
ezt a macro részt próbáltam mahinálni: .EnableSelection = xlNoRestrictions, de sikertelenül, vagy is az aktuális fájlra lett csak jó. :s -
#10085
DjSteve85
csendes tag
m.zmrzlina
#10072
DjSteve85
csendes tag
válasz
m.zmrzlina
#10072
üzenetére
Thx!
Segített, ha esetleg gázosabb táblát kapok, tudnál segíteni a szövegfüggvény típusának kiválasztásába és alkalmazásába? Kezdő exceles vagyok, de könnyen tanulok...
Macro fan!
Üdv4 -
Pá
addikt
Valaki aki nagyon ért a solverhez, össze tudná nekem foglalni, hogy ezek közül melyik pontosan mit csinál?
Próbálom finomhangolni a solver beállításomat, mert nem teljesen pontos és más eredményeket kapok, ahogy állítgatom, de csak trial&error módszerrel tudok dolgozni, mert az itteni beállításokról fogalmam sincs, hogy melyik mit jelent, vagy mi a pontos hatása.
Sokkal hatékonyabban tudnék dolgozni, ha tudnám is mit csinálok.
Ha esetleg van link, ami részletesen leírja mi mire jó, az is tökéletes. (angolul is jöhet)
-
#10081
Mulderpapa
aktív tag
Mulderpapa
aktív tag
Sziasztok!
Excleben, ha véletlen be lett zárva egy dokumentum, természetesen mentés nélkül, akkor azt vissza lehet állítani valahogyan? (Office 2007-ről van szó)
-
#10080
m.zmrzlina
senior tag
Delila_1
#10074
m.zmrzlina
senior tag
-
Delila_1
veterán
válasz
zsotesz81
#10077
üzenetére
Kétféle megoldás is van (és biztosan több is).
1. Kijelölöd a neveket tartalmazó területet. Adatok - Szövegből oszlopok. Követed a varázslót, Határoló jelnek az Egyéb kategóriában a / jelet adod meg. Ez a módszer 3 cellába szedi szét az adataidat.
2. Kétfelé szedéshez 2 új oszlopba viszed be az alábbi képleteket:
=BAL(E1;SZÖVEG.KERES("/";E1)-1)
=JOBB(E1;HOSSZ(E1)-SZÖVEG.KERES("/";E1)) -
zsotesz81
senior tag
Közben felvetődött még bennem egy bonus kérdés
Szóval vannak ezek a notes-os címek:
pl.
Lubos Adamka/Slovakia/IBM
Maria Adamusova/Slovakia/IBM
Daniel Adam/Slovakia/IBM
Simona Andacka/Slovakia/Contr/IBM
Tomas Andelek/Slovakia/IBM
Aleksandra Andric/Slovakia/Contr/IBM
Peter Antalik/Slovakia/Contr/IBMEzekből hogy lehetne egy külön cellába kiszedni csak a nevet?
Addig eljutottam, hogy /Slovakia/IBM esetén: =LEFT(E2;LEN(E2)-LEN(RIGHT(E2;13)))
/Slovakia/Contr/IBM esetén: =LEFT(E2;LEN(E2)-LEN(RIGHT(E2;19)))viszont hogy adom meg az excelnek, hogy mikor melyiket használja?
Gondolom "if"-fel valahogy, csak nem tudom hogy adjam meg a feltételt. -
#10076
Zomb€€
őstag
Fire/SOUL/CD
#9984
Zomb€€
őstag
válasz
Fire/SOUL/CD
#9984
üzenetére
Uhh, köszönöm szépen!
Másik kérdésem is lenne:]
Eddig az alábbi sor tökéletesen működött 2007-es excelben, de a 2010 alatt elszáll hibaüzenettel "Type mismatch"
Range("='jelenlet_temp'!A" & S) = Range("B" & X) + " " + Range("C" & X) + " " + Range("A" & X)Miért?:-C
-
#10074
Delila_1
veterán
m.zmrzlina
#10070
Delila_1
veterán
válasz
m.zmrzlina
#10070
üzenetére
Azért az nem megy a fejembe, hogy ha a 10061-es hsz szerint a leírások az R57:S70 területen vannak, és minden betű egyszer szerepel, hogy jön ki összesen 4 karakterre? Hiszen ez 14 cella!
-
#10073
Delila_1
veterán
m.zmrzlina
#10070
Delila_1
veterán
válasz
m.zmrzlina
#10070
üzenetére
Ezt a max. 4 karaktert nem vettem észre, igazad van.
A hosszú képletedhez csak annyit, hogy az ÖSSZEFŰZ függvényt egyszerűsíteni lehet.
Az =ÖSSZEFŰZ(A1;B1;C1) egyszerűbben =A1&B1&C1.
Persze a lényegen ez nem változtat. -
DjSteve85
csendes tag
Üdv All!
Megoldható az (esetleg segédprogival), hogy egy "amatőr, tudatlan" által készített táblát széttördeljek? Illető mindent egy oszlopba, tett és nekem a progim igényli, hogy elkülönített cellákba legyenek az adatok. szám és szöveg váltakozik. Címlistáról van szó. Konkrét pld.: Cégnév; irányító szám, cím, illető neve. Az elválasztások módja is változik, de legtöbbször szóköz.
Ha bárki bármivel közelebb tud vinni a ctrl+c és ctrl+v módszeren túl, annak pechje lesz, mert hálám örökké üldözni fogja!!!
Üdv! Steve -
#10070
m.zmrzlina
senior tag
Delila_1
#10067
m.zmrzlina
senior tag
válasz
Delila_1
#10067
üzenetére
Köszönöm az elismerést.
Az önmagában nem baj, hogy 14 a lehetséges betűk száma, mert ha egy cellában nem szerepel belőlük 4-nél több (az eredeti kérdésben ez volt) akkor az =FKERES() táblázata (R57:S70) lehet nagyobb is.
Az "oldjuk meg képlettel" koncepciómat inkább az fektetné két vállra ha jóval több mint 4 betű kombinációját kellene kezelni.
-
Delila_1
veterán
válasz
Delila_1
#10067
üzenetére
Egy kicsit átláthatóbban az előbbi makró:
Sub Leiras()
Dim sor%, oszlop%, betu%, nev$, cnev As Range
Range("K57:K75,M57:M75,P57:P75").ClearContents
For sor% = 57 To 75
oszlop% = 10: GoSub Beir
oszlop% = 12: GoSub Beir
oszlop% = 15: GoSub Beir
Next
Exit Sub
Beir:
nev$ = Cells(sor%, oszlop%)
Set cnev = Cells(sor%, oszlop% + 1)
For betu% = 1 To Len(nev$)
cnev = cnev & Application.VLookup(Mid(nev, betu%, 1), Range("R57:S70"), 2, 0) & " "
Next
cnev = Left(cnev, Len(cnev) - 1)
Return
End Sub -
#10067
Delila_1
veterán
m.zmrzlina
#10065
Delila_1
veterán
válasz
m.zmrzlina
#10065
üzenetére
Le a kalappal!
Van egy baj: a lehetséges betűk száma 14, HA függvényből viszont csak hetet lehet egymásba ágyazni. Ez az az eset, mikor makrót kell írni.
Sub Leiras()
Dim sor%, oszlop%, betu%, nev$
Range("K57:K75,M57:M75,P57:P75").ClearContents
For sor% = 57 To 75
oszlop% = 10: GoSub Beir
oszlop% = 12: GoSub Beir
oszlop% = 15: GoSub Beir
Next
Exit Sub
Beir:
nev$ = Cells(sor%, oszlop%)
For betu% = 1 To Len(nev$)
Cells(sor%, oszlop% + 1) = Cells(sor%, oszlop% + 1) & Application.VLookup(Mid(nev, betu%, 1), Range("R57:S70"), 2, 0) & " "
Next
Cells(sor%, oszlop% + 1) = Left(Cells(sor%, oszlop% + 1), Len(Cells(sor%, oszlop% + 1)) - 1)
Return
End Sub -
#10066
m.zmrzlina
senior tag
m.zmrzlina
#10065
m.zmrzlina
senior tag
válasz
m.zmrzlina
#10065
üzenetére
Javítás a #10065-höz:
K oszlop = J oszlop
-
#10065
m.zmrzlina
senior tag
MIFtIli
#10063
m.zmrzlina
senior tag
válasz
MIFtIli
#10063
üzenetére
K57-be tedd a következő képlet(szörny)et és másold le ameddig kell:
=HA(J57="";"";ÖSSZEFŰZ(FKERES(KÖZÉP(J57;1;1);$R$57:$S$70;2;HAMIS);" ";HA(HIBÁS(FKERES(KÖZÉP(J57;2;1);$R$57:$S$70;2;HAMIS));"";FKERES(KÖZÉP(J57;2;1);$R$57:$S$70;2;HAMIS));" ";HA(HIBÁS(FKERES(KÖZÉP(J57;3;1);$R$57:$S$70;2;HAMIS));"";FKERES(KÖZÉP(J57;3;1);$R$57:$S$70;2;HAMIS));" ";HA(HIBÁS(FKERES(KÖZÉP(J57;4;1);$R$57:$S$70;2;HAMIS));"";FKERES(KÖZÉP(J57;4;1);$R$57:$S$70;2;HAMIS))))
Négy betűig tudja kezelni a kombinációkat és minden leírás közé <szóköz>-t tesz.
Ja és ha nincs semmi a K oszlop kapcsolódó cellájában akkor a leírás cella is üres marad.
!!!<szóköz> sem lehet a K oszlop celláiban!!! -
zsotesz81
senior tag
válasz
Delila_1
#10059
üzenetére
Na, csak sikerült megcsinálni, viszont jól megszivattam magam/magunkat. A sheet2-n lévő adatok txt-ből lettek beimportálva. A txt-ben lévő adat pedig egy TSM serverről való sql lekérdezésből lettek. A gond az volt hogy a nevek után volt még egy csomó szóköz
.
Kimetsz függvénnyel kizúztam a szóközöket, ezzel az utolsó képlettel amit írtál mostmár jó.szerk.
nagyon frappánsan megoldottam egyébként a notes-os mail címekből a nevek kivágását.
Bemásoltam az egész oszlopot notepad-ba, elmentettem txt-ként, majd beimportáltam, elválasztó karakternek "/" jel, aztán már meg is lettek a nevek, a nem kívánatos oszlopokat meg töröltem
-
#10063
MIFtIli
aktív tag
m.zmrzlina
#10062
MIFtIli
aktív tag
válasz
m.zmrzlina
#10062
üzenetére
elírtam. a táblázatban az első oszlopban a betűk. egy betű egy leírás.
A második variáció. Tehát:
a> leírás_1
ab> leírás_1,leírás_2
adc> leírás_1,leírás_4,leírás_3 -
#10062
m.zmrzlina
senior tag
MIFtIli
#10061
m.zmrzlina
senior tag
válasz
MIFtIli
#10061
üzenetére
a táblázat pedig: R57 : S70
Az első oszlopban a betűk (egy vagy több), a másodikban a hozzá tartozó leírásokÚgy kell ezt érteni, hogy az a,b,c,d betűk egyfajta kombinációjához egyfajta leírás tartozik?
tehát pl:
a> leírás_1
b> leírás_2
c> leírás_3
d> leírás_ 4
ac> leírás_5
ab> leírás_6
ad> leírás_7
adc> leírás_8Vagy pedig csak az a,b,c,d betűkhöz tartozik egy-egy leírás és a betűk kombinációjához a hozzájuk tartozó leírások kombinációját kell rendelni?
tehát pl
a> leírás_1
ab> leírás_1,leírás_2
adc> leírás_1,leírás_4,leírás_3 -
Delila_1
veterán
válasz
MIFtIli
#10054
üzenetére
A helyére nem, de mellé az FKERES függvénnyel beírhatod a leírást.
Kicsit összetettebb a feladat, ha egy cellában pl. acd szerepel, és ahhoz 3 leírás tartozik.
Add meg pontosan, hol szerepelnek a betűk, és hol van a hozzájuk tartozó leírás.Valaki biztosan segít, én kikapcsolok, dörög, villámlik, és nincs villámvédelmem.
-
Delila_1
veterán
válasz
zsotesz81
#10058
üzenetére
Nem értem, miért ragaszkodsz a makróhoz, mikor egyszerű képlettel meg lehet oldani.
Tulajdonképpen az érdekel, hogy a Sheet1 lapon szerepel-e mindenkinek a neve, akinek a címe megvan a Sheet2-n.Az F1-be tedd be ezt a képletet:
=HA(HIBÁS(FKERES(Sheet2!B1&"*";E:E;1;0));"Nincs a Sheet1 lapon";"X") ,majd a cella jobb alsó sarkában lévő kis fekete négyzetre duplaklikk, és már le is másolta addig, ameddig az E oszlopban talál adatot.
-
Delila_1
veterán
válasz
zsotesz81
#10055
üzenetére
Eszerint megint átrendezted az adataidat.
Ha az Excelben szúrsz be egy oszlopot, vagy sort, avagy törölsz, akkor a képletek automatikusan átíródnak. A makrónál nem ez a helyzet. Ha ott azt írod, hogy az ötödik oszlop adatával csináljon valamit (van is a képletben ilyen hivatkozás: C5), akkor azt csinálja. Ha ott nem azt az adatot találja, ami a beszúrás-törlés előtt volt, akkor hibás eredményt kapsz.
A makrót arra az esetre írtam, mikor az elrendezésed a 10051 hsz. szerinti volt.Itt le is tettem a lantot. Még annyit segítek, hogy a 10048-as hsz-ban megadott képleteket alakítsd át a jelenlegi elrendezésre – majd 5 percenként az újabbakra –, indíts makrórögzítést, enterezd le a két képletet, és a rögzített sorokat másold be a Range("F1:F" & usor).FormulaR1C1 = _, és a Range("G1:G" & usor).FormulaR1C1 = _ sorokhoz.
-
zsotesz81
senior tag
válasz
Delila_1
#10053
üzenetére
"Tényleg prérifarkas vagy, az első kérdésedben más volt az elrendezés" - tudom, azt hittem, hogy van rá valami egyszerű megoldás csak én nem tudom, ezért írtam csak egy példát.
A makró amit írtál lefut, csak mindenhova "nincs"-et ír.
Azon gondolkoztam, nem volna-e egyszerűbb az emailes cellákból kiszedni csak a nevet, és azt bemásolni a mellette lévő oszlopba, és utána már csak hasonlítgatni kéne a neveket. -
MIFtIli
aktív tag
Azt kéne megoldani, hogy az egyik oszlopban szerepelhet a,b,c,d, vagy ezek kombinációja: ab, acd, stb..
A mellette van egy táblázat, amiben minden betűhoz tartozik egy leírás.Hogyan tudom a betűk, vagy azok kombinációja helyére, berakni a leírást, vagy leírásokat szóközzel elválasztva?
-
Delila_1
veterán
válasz
zsotesz81
#10051
üzenetére
Tényleg prérifarkas vagy, az első kérdésedben más volt az elrendezés. A válaszom emiatt adott #NAME eredményt.
A pontatlanságoddal – hogy ne írjak hebehurgyaságot – megdolgoztatod azokat, akiknek a segítségét kéred.A ciklusok hosszú időd vesznek igénybe, pláne, ha 2 különálló táblázaton kell végig futniuk. Sokkal gyorsabb és egyszerűbb 1-1 lépésben megadni a képleteket, majd ezek helyére beilleszteni az értéküket.
A jelenlegi felállásra:
Sub X_ek()
Dim usor%
Sheets("Sheet1").Select
usor = Range("E6000").End(xlUp).Row
Range("F1:F" & usor).FormulaR1C1 = _
"=IF(ISERROR(VLOOKUP(Sheet2!RC2&""*"",C5,1,0)),""nincs"",IF(RIGHT(VLOOKUP(Sheet2!RC2& ""*"",C5,1,0),9)=""Contr/IBM"",""X"",""""))"
Range("G1:G" & usor).FormulaR1C1 = _
"=IF(ISERROR(VLOOKUP(Sheet2!RC2&""*"",C5,1,0)),""nincs"",IF(RIGHT(VLOOKUP(Sheet2!RC2& ""*"",C5,1,0),9)=""vakia/IBM"",""X"",""""))"
Columns("F:G").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Range("F1").Select
End Sub -
zsotesz81
senior tag
válasz
Delila_1
#10050
üzenetére
#name-et írt ki, de lehet én rontottam el valamit, inkább leírom még gyorsan hogy pontosan melyik cellába vannak az adatok, tehát:
Sheet1:
A,B,C,D oszlop foglalt, E oszlopban vannak a notes-os nevek, F oszlopba mehet az "X". Az előbb azt még elfelejtettem írni, hogy két féle van, /Slovakia/Contr/IBM és /Slovakia/IBM
Sheet2-ben
B oszlopban vannak a nevek. Ezeket kéne egyesével végig csekkolni, hogy a sheet1-en szerepelnek-e.És közben el is repült a műszakom, irány haza
, majd otthon még én is filózok a megoldáson, elméletben megvan, csak nem tudom kivitelezni -
Delila_1
veterán
válasz
zsotesz81
#10045
üzenetére
Akkor kell bele egy hibaelhárítás is.
D1:
=HA(HIBÁS(FKERES($A1&"*";Sheet2!$E:$E;1;0));"";HA(JOBB(FKERES($A1& "*";Sheet2!$E:$E;1;0);9)="Contr/IBM";"X";""))E1:
=HA(HIBÁS(FKERES($A1&"*";Sheet2!$E:$E;1;0));"";HA(JOBB(FKERES($A1& "*";Sheet2!$E:$E;1;0);9)="vakia/IBM";"X";"")) -
#10047
Fire/SOUL/CD
félisten
zsotesz81
#10045
-
Delila_1
veterán
válasz
zsotesz81
#10038
üzenetére
A Sheet1 lap D1 cellájába:
=HA(JOBB(FKERES($A1& "*";Sheet2!$E:$E;1;0);9)="Contr/IBM";"X";"")E1-be: =HA(JOBB(FKERES($A1& "*";Sheet2!$E:$E;1;0);9)="vakia/IBM";"X";"")
Az A oszlopban lévő nevek mellé a D oszlopba tesz X-et, ha a "Contr" szerepel a címében, és az E-be, ha nem.
Nem biztos, hogy jól értem a feladatot, látom, Fire másként értelmezte.
-
#10045
zsotesz81
senior tag
Fire/SOUL/CD
#10044
zsotesz81
senior tag
válasz
Fire/SOUL/CD
#10044
üzenetére
Hát ez így valszeg azért nem lesz jó mert sheet2-n van 792 név, sheet1-en meg 528. A sheet2-n lévő összes nevet le kéne ellenőrizni, hogy melyik szerepel sheet1-ben.
-
#10044
Fire/SOUL/CD
félisten
zsotesz81
#10042
válasz
zsotesz81
#10042
üzenetére
Mondjuk sejtettem, csak már az eszemet sem tudom, mikor használtam utoljára Lotus Notes-t...
No mindegy, akkor a sheet1 D5 cellájába ezt a kódot írd be=HA(SZÖVEG.KERES(A7;Munka2!E4;1);"X";"")
(Arra ügyelj, hogy ez nem tesz különbséget a GEZA meg GEZACSKA között, azaz mindkét esetben megtalálja GEZA-t... Ha ez így nem felel meg, akkor más módszer kell...
-
DopeBob
addikt
Sziasztok, egy kis segítséget szeretnék kérni, Excel 2010-ről van szó.
Adott egy Pivot tábla, a szélessége a szűrési feltétleknek megfelelően változik. Meg tudom azt csinálni valahogy, hogy a tábla mellé még pluszban valami makróval, mindíg mikor frissül a tábla irogasson még adatokat? Mondjuk még VLOOKUP függvények kellenének.
Le lehet valahogy kérdezni, hogy a pivot táblának melyik oszlopban ér véget, és hogy hány sorból áll?
-
#10042
zsotesz81
senior tag
Fire/SOUL/CD
#10041
zsotesz81
senior tag
válasz
Fire/SOUL/CD
#10041
üzenetére
E-mail cím az csak lotus notes-os, meg belső ibm-es, ha azt notes-be bemásolom akkor megy a levél címzettnek. Ez ilyen trükkös
-
#10041
Fire/SOUL/CD
félisten
zsotesz81
#10040
-
#10040
zsotesz81
senior tag
Fire/SOUL/CD
#10039
zsotesz81
senior tag
válasz
Fire/SOUL/CD
#10039
üzenetére
nem hivatkozás, síma szöveg, mindenképp makróval kellene mert majdnem 800 nevet kellene lecsekkolni
2. igen a név az megegyezik az email címben lévő névvel
-
#10039
Fire/SOUL/CD
félisten
zsotesz81
#10038
válasz
zsotesz81
#10038
üzenetére
1 .Megoldható, csak azt kellene tudni, hogy minden hivatkozás hivatkozásként van-e megjelenítve. Arra gondolok, hogy megjelenítve egy hivatkozást az lehet pl UBUL, de ha rákattintasz, akkor megy fel a pl google.hu-ra...
Ha a cellában url-ként jelenik meg a hivatkozás, akkor makró nélkül megoldható, ha nem, akkor csak makróval2. feltételezem úgy értetted, hogy a hivatkozásban szerepel a GEZA és csak az, azaz nem GEZACSKA...
-
zsotesz81
senior tag
Hali!
Van egy cellám aminek a tartalma egy e-mail cím pl.:sheet2-n: E4=GEZA/Slovakia/IBM. Van egy másik táblám (sheet1) amiben csak a nevek vannak felsorolva pl.:a7=GEZA. Azt szeretném megcsinálni ha az A7-ben lévő név egyezik az E4-ben lévő névvel akkor mondjuk a D5 értéke legyen X.
Eddig így néz ki a kódom:
Public Sub Keres()
Dim i As IntegerSheets("Sheet2").Select
i = 1
For i = 1 To 792
nev = Cells(i, 2)
kereses nev
i = i + 1
Next i
End Sub
Public Sub kereses(nev)
Sheets("sheet1").Select
sor = 1
Do
sor = sor + 1
If Cells(sor, 5) = nev & "/Slovakia/IBM" Then Cells(sor, 6) = "X"
If Cells(sor, 5) = nev & "/Slovakia/Contr/IBM" Then Cells(sor, 6) = "X"
Loop Until sor = 528
End Sub -
zyndar
tag
Üdv! Az egyik excel táblám 8 másik táblára van linkelve. Egy ideje nem "érzékeli" rendesen az egyik táblát, eddig minden működött. Az adott cellák képlete változatlan, viszont frissítésnél ki kell választanom azt az egy táblát (update values üzenettel). Cellafrissítés nélkül nem is hozza át onnan az adatokat, csak a másik 7ből. Ha újrahivatkozok egy cellát, akkor az jó, viszont a képletet hiába húzom végig. Somebody?
-
perfag
aktív tag
Küldj át az ipsének egy másik xlsx fájlt, kérdezd meg azt meg tudja-e nyitni.
Már nem emlékszem mikor jelent meg az Office 2007. A diákjaim mindig gyorsabban áttérnek, mint én az új verzióra (mert az új verzióban már hátha benne van a varázsgomb, amit elég megnyomni és mindent megcsinál egyedül ). Kaptam egy házit késve, tehát e-mailben. No, akkor jártam pont így. Próbáltam jobbról, balról ... zip-pel is bele lehet ám nézni ... csak Excel 2003-mal megnyitni nem lehetett (azóta már tudom, hogy egy letölthető okossággal lehet) ... visszaadtam, hisztiztem kicsit, mert ha én vagyok a tanár akkor nekem ennyi jár ... kb. egy hét múlva derült ki, hogy van egy új Excel verzió . -
Delila_1
veterán
válasz
varikahun
#10028
üzenetére
A 10032-be írt sor elé még egyet tegyél be, amivel együtt így néz majd ki az egész:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 3 Then Exit Sub
If IsEmpty(Target) Then Range(Cells(Target.Row, 1), Cells(Target.Row, 15)).Interior.ColorIndex = xlNone
If Target.Column = 3 And Target = "OK" Then _
Range(Cells(Target.Row, 1), Cells(Target.Row, 15)).Interior.ColorIndex = 6
If Target.Column = 16 And Target = "Worn" Then _
Range(Cells(Target.Row, 1), Cells(Target.Row, 15)).Interior.ColorIndex = 3
End Sub -
Mauzes
addikt
Sziasztok!
Azt meg lehet csinálni valami paranccsal vagy ilyesmi, hogy a konkrét számokat tartalmazó cellák mindegyikéhez hozzá legyen adva egy adott szám/csökkentve legyen egy bizonyos aránnyal, stb.?
Tehát van egy sorom, amiben ilyen értékek vannak, hogy 400, 500, 650, 800, és erre a sorra hivatkozik egy másik. Nekem az a célom, hogy a kiinduló értékek mindegyike 15%-kal legyen alacsonyabb, és ezt jelenleg csak úgy tudom megcsinálni, ha külön sorba kimásolom a cella x 0,85 értékeket, majd a kapott adatokat az eredeti helyére másolom be (csak érték beállítással). De ez azért nem jó, mert egyrészt bonyolult, ha egy csomó sort szeretnék változtatni, minddel ezt végigszenvedni, meg ha az arányt akarom változtatni, akkor újra végig kell számolni, másrészt meg így elvesznek az eredeti értékek.
Remélem, érthető voltam! Köszi!
-
Delila_1
veterán
válasz
varikahun
#10024
üzenetére
A lapfülön jobb klikk, Kód megjelenítése.
Bejutottál a VB szerkesztőbe, jobb oldalon kaptál egy üres felületet, ide másold be:Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 And Target = "OK" Then _
Range(Cells(Target.Row, 1), Cells(Target.Row, 15)).Interior.ColorIndex = 6
If Target.Column = 16 And Target = "Worn" Then _
Range(Cells(Target.Row, 1), Cells(Target.Row, 15)).Interior.ColorIndex = 3
End SubEz a C oszlopban megadott OK-ra sárga hátteret ad, a P-be beírt Worn-re pirosat.
A színeket a makróban a 6, ill. a 3 módosításával tudod változtatni. -
varikahun
csendes tag
válasz
Delila_1
#10023
üzenetére
Szia!
na szóval
Ha a C oszloppa az kerül valahova h. "OK" akkor azt a sort átszinezi az A-tól az O-ig, de ha az kerül a P oszlopba h. "Worn", akkor ezt a sor A-tól O-ig átszinezi de egy másik színre.
Van egy olyan érzésem h. ezt már programozni kell, és sajnos ehhez nem értek.
-
Delila_1
veterán
válasz
varikahun
#10017
üzenetére
Jelöld ki a tartományt, amit színezni akarsz. Hívd be a Formátum - Feltételes formázást.
A feljövő ablakban a legördülőben legyen "A képlet értéke", a másodikba írd be: =$C$3="OK", a Formátumnál add meg a megfelelő formátumot.
Ez a 2003-as verzióra vonatkozik, szólj, ha nem ezt használod. -
varikahun
csendes tag
Sziasztok!
Nem nagyon vagyok járatos az EXEL-ben, ezért szeretném a segítségeteket kérni.Az a problémám h. egy olyan táblát kellene készíteni, ami úgy néz ki h. ha pl. a C3 cellába azt írok h. "OK", akkor egy tartományban a cellák hátterét megváltoztatja pl. A1-től A12-ig. De csak ha a C3-ban nem az van h. "OK" akkor semmit nem csinál.
Előre is köszönöm.
-
Kornl23
tag
Sziasztok!
Tudnátok ez ügyben segíteni nekem, nagyon megkönnyítené az életemet.
Excelben összelehet linkelni 2 fájlt cella szinten?
pl.: 1. fájl 3. munkalapjának D6-os cellája legyen ugyanaz, mint 2.fájl 1.lapjának A1 cellája
ha az első fájlban átírom az érteket, akkor változzon meg a 2.-ban isKöszi
-
Pá
addikt
Készítettem egy excel filet és belinkeltem a PHra. Sok embernek gond nélkül megy, viszont valakinek valamiért nem akar megnyílni.
Ezt a hibaüzit kapja. Ennek mi lehet az oka?
erről a fileról van szó egyébként -
#10010
Mauzes
addikt
Fire/SOUL/CD
#10009
Mauzes
addikt
válasz
Fire/SOUL/CD
#10009
üzenetére
Köszi, sikerült, az ábrám már jó.
Most már csak az a problémám, hogy a trendvonalra kiadott egyenlet alapján hogyan tudok előrejelezni, mert az x-tengelyen ugye dátum van, és nem sikerült úgy változtatni a beállításokat, hogy értsem. Alapból 1900-tól kezdi az időtengelyt, de ha át is állítom a minimum pontot, az egyenlet marad ugyanaz...
Itt a fájl: http://www.2shared.com/document/QDWtDIcN/bond_rates.html, ha valaki vetne rá egy pillantást, azt megköszönném.
Köszi!
-
#10009
Fire/SOUL/CD
félisten
Mauzes
#10008
válasz
Mauzes
#10008
üzenetére
Delila_1 képlete azt feltételezi, hogy az A oszlopban A1-től vannak szépen sorban a dátumaid. Az általa adott képletet írd be pl B1-be (vagy bármely oszlop első sorába), majd másold le. (ráállsz a cellára, egérrel megfogod a jobb alsó sarkát a cellakurzornak és az egér bal gombját nyomva tartva lehúzod, ameddig az A oszlopban vannak adatok)
-
-
#10007
BoharJoe
csendes tag
Fire/SOUL/CD
#10006
BoharJoe
csendes tag
válasz
Fire/SOUL/CD
#10006
üzenetére
Sajnos kénytelen vagyok ezzel dolgozni.
Ennyit tudnak a bérszámfejtésen...
Hírtelen jobb híján marad a manuális átszámolás ilyen estekben.
Vagyis 180:82 = 181:22Ki érti ezt...
-
#10006
Fire/SOUL/CD
félisten
BoharJoe
#10004
-
#10004
BoharJoe
csendes tag
Fire/SOUL/CD
#10002
BoharJoe
csendes tag
válasz
Fire/SOUL/CD
#10002
üzenetére
Az összeadás ennél kicsit egyszerűbben sikerült.
Ha a cellaformátumnak [ó]:pp van megadva akkor hiba nélkül összegzi a SZUM. Persze ehhez a függyvény formátumának is ilyennek kell lennie.Mindenesetre köszönöm a segítséged!
Delila_1: Hogy őszinte legyek halvány lila gőzöm sincs, hogy hogyan jött nekik ki ez a ledolgozott időmennyiség, vagyis a 180:82, ami ha minden igaz 181:22-nek felel meg. Na persze, ha jól értelmezem a dolgot.
8:25
8:17
8:23
8:11
8:18
8:21
8:20
8:42
8:10
8:00
8:00
8:00
8:00
4:49
9:30
9:32
9:36
9:51
9:46
9:45
8:29
8:59Ebből a számsorból dolgoztak, aminek az összege 187:24.
Na ebből írtak ők jóvá 180:82-t.
Vélemény? -
#10002
Fire/SOUL/CD
félisten
BoharJoe
#9999
válasz
BoharJoe
#9999
üzenetére
Első kérdésedre: Ki kell nyerni az adott időből az órák és percek számát, ezeket már össze lehet adni. (feltételezem valami olyasmihez kellene, hogy pl ki és mennyit dolgozott egy hónapban, vagy hasonló)
Pl A oszlopban van az időpontok(most legyen A1:A3), akkor B oszlopba kerülnek az órák (B1:B3), C-be meg a percek (C1:C3)
B1-be: =ÓRA(IDŐÉRTÉK(SZÖVEG(A1;"óó:pp:mm"))) és lemásolod
C1-be: =PERCEK(IDŐÉRTÉK(SZÖVEG(A1;"óó:pp:mm"))) és lemásolodÍgy az órákat ill. a perceket is SZUM-al összeadhatod, azonban van még egy fontos dolog, nevezetesen, hogy a percek több órát is kitehetnek, ezért ezt még az órák összegéhez hozzá kell adni, így a végleges képlet valami ilyesmi lesz:
=SZUM(B1:B3)+INT(SZUM(C1:C3)/60)Itt még nincs vége, mivel kerekíteni is kell, mert a percek számát elosztom 60-al és marad 59 perc, az nyilván nem lenne fair, hogy egy perc miatt valakinek egy órával kevesebbet számolnál el...
![;]](//cdn.rios.hu/dl/s/v1.gif)
Lehet, hogy rosszul értettem a feladatot, akkor sorry...
-
BoharJoe
csendes tag
hála Neked! 
:
.
![;]](http://cdn.rios.hu/dl/s/v1.gif)
(Na én meg megyek keverni maltert...) 
(pl visszaperjel nem lehet egy mail címben, meg nem ártana egy @ meg legalább egy pontnak is szerepelnie benne 
(2003 Excel)
Új hozzászólás Aktív témák
Hirdetés
Fferi50- AMD Radeon RX 7700-as VGA-val gyarapította kínálatát az ASRock
- Békéscsaba és környéke adok-veszek-beszélgetek
- iPhone topik
- Ulefone Power Armor 18T - látod, milyen meleg van?
- Milyen TV-t vegyek?
- Nyaralás topik
- Próba
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- TCL LCD és LED TV-k
- Battlefield 6
- 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!
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Antivírus szoftverek, VPN
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Telefon felvásárlás!! Apple Watch Series 9/Apple Watch Ultra/Apple Watch Ultra 2
- PS Plus előfizetések kedvező áron
- iPhone 13 mini 256GB Midnight -1 ÉV GARANCIA - Kártyafüggetlen, MS3404
- Bomba ár! Dell Latitude E7470 - i5-6GEN I 8GB I 256GB SSD I 14" FHD I HDMI I CAM I W11 I Gari!
- Xiaomi 11T 128GB, Kártyafüggetlen, 1 Év Garanciával
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: CAMERA-PRO Hungary Kft.
Város: Budapest