-
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
-
Carasc0
őstag
Sziasztok!
Egy apróbb megoldásra lenne szükséges. Ez már jóval könnyebb feladat mint az előző amit sikeresen teljesítettek, lehet nem is kell hozzá VBA kód, de én mégsem tudom megoldani.
Legyen A1 cella értéke "SZIA" aminek betűszíne piros. (Tartalma amúgy tök mind1)
Legyen B1 cella aminek tartalma =A1. (Vagyis hivatkozás van ott)Feladat: A B1 cella értéke ne csak az A1 cella értékét vegye fel, hanem a színét is. Tehát ha változtatom az A1 színét, vagy stílusát pl. félkövér stb, akkor a B1 cellában is változzon meg.
Ennyi lenne!
Gondolkodj globálisan és tegyél lokálisan!
-
Fferi50
őstag
válasz PistiSan #30899 üzenetére
Szia!
Bár nem tudom, mit jelent, hogy más képleteket is szeretnél alkalmazni, de hidd el, a legegyszerűbb a szövegből oszlopok, ahol meg tudod adni a határoló karaktert is, bármit választhatsz.
De képlettel az alábbiak szerint lehet megoldani szerintem:
Az A1 cellában van a szétbontandó szöveg.
A B1 cellába beírod a következő képletet:=KÖZÉP(A1;SZÖVEG.KERES(",";A1)+1;HOSSZ(A1))
Ezt végihúzod az első soron, egész addig, amíg az eredmény egy hiba nem lesz.
Ezután az A2 cellába beírod ezt a képletet:=HAHIBA(BAL(A1;SZÖVEG.KERES(",";A1)-1);A1)
Addig húzod jobbra, amíg van fölötte szöveg a cellában.
Üdv.
[ Szerkesztve ]
-
gdodi
csendes tag
válasz Delila_1 #30838 üzenetére
Kedves Delila!
Sajnos nem láttam amit küldtél, mert régóta nem voltam net közelben. Most pedig már nem hoz fel semmit a link. Megtennéd, hogy ismét elküldöd valami módon? Sajnos túl értékeltem magamat, nem tudtam megoldani a problémámat. Makróból az InputBox függvénnyel bekérek egy dátumot, amit meg akarok keresni. A kapott dátumot a formátuma miatt nem tudom megtalálni, és akármit próbálok vele, sehogy sem sikerül. Mi lehet az oka?
Köszönet a segítségért!
-
Delila_1
Topikgazda
A lenti makróban meg kell adnod a keresendő dátumot, és a sor számát, ahol keresel.
Ellenőrzi a bevitt értéket. Két sort megjegyzésbe tettem, azokban megadhatod, hogy nem lehet a dátum éve kisebb, mint az idei, ill. nem lehet kisebb a mai dátumnál.
Sub DatumHelye()
Dim Kelt As String, oszlop, sor As Long
sor = Application.InputBox("Melyik sorban keressünk?", "Sorszám bekérése", , , , , , 1)
Kelt = Application.InputBox("Add meg a dátumot!", "Dátum bekérése", , , , , , 2)
'Ellenőrzés
If Len(Kelt) <> 10 Then GoTo Hiba
If Mid(Kelt, 5, 1) <> "." Then GoTo Hiba
If Mid(Kelt, 8, 1) <> "." Then GoTo Hiba
If Mid(Kelt, 6, 2) > "12" Then GoTo Hiba
If Right(Kelt, 2) > "31" Then GoTo Hiba
If Not IsNumeric(Left(Kelt, 4)) Then GoTo Hiba
If Not IsNumeric(Mid(Kelt, 6, 2)) Then GoTo Hiba
If Not IsNumeric(Right(Kelt, 2)) Then GoTo Hiba
'If Left(Kelt,4)*1 < Year(Date) Then Go To Hiba
'If CDate(Kelt) *1 < Date Then GoTo Hiba
Select Case Mid(Kelt, 6, 2)
Case "02"
If Left(Kelt, 4) / 4 <> Int(Left(Kelt, 4) / 4) And Right(Kelt, 2) > 28 Then GoTo Hiba
Case "04", "06", "09", "11"
If Right(Kelt, 2) > 30 Then GoTo Hiba
End Select
If Left(Kelt, 4) / 4 = Int(Left(Kelt, 4) / 4) And Mid(Kelt, 6, 2) = "02" _
And Right(Kelt, 2) > 29 Then GoTo Hiba
'Keresés
oszlop = Application.Match(CDate(Kelt) * 1, Rows(sor), 0)
If VarType(oszlop) = vbError Then
MsgBox "Nincs " & Kelt & " dátum a " & sor & ". sorban", vbOKOnly + vbInformation
Else
MsgBox "A " & Kelt & " dátum a(z) " & sor & ". sorban, a(z) " & oszlop & ". oszlopban található.", vbOKOnly + vbInformation
End If
Exit Sub
Hiba:
MsgBox "Hibás dátum!", vbOKOnly + vbCritical
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.
-
Delila_1
Topikgazda
válasz Carasc0 #30901 üzenetére
Ez csak makróval oldható meg.
Tudni kellene, hogy mindig az A1 cellába viszel-e be adatot, és mindig a B1-ben jelenjen-e meg ugyanúgy, vagy esetleg az A oszlop bármelyik sorába bevitt adat jelenjen meg a B oszlop azonos sorában, vagy egészen más a felállás.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Carasc0
őstag
válasz Delila_1 #30906 üzenetére
Megpróbálom elmagyarázni!
Tehát van az a generáló és rendező kód, amit még az elején linkeltem, amire mondtam is hogy tök jól működik. Na most azt csináltam, hogy az A oszlopba nem sázmokat írtam hanem szavakat. Ezeket nekem a B oszlopba össze is keverte. A B oszlop kevert tagjai között van olyan amit piros betűszínnel jelöltem meg.
A B oszlop tagjait egyenként egy bizonyos cellatartományba, sima cellahivatkozással elsorakoztattam. A gond már csak azzal van, hogy amit a B oszlopban piros színnel jelöltem meg, az a megadott cellatartományban is piros színnel jelenjen meg.
Odáig eljutottam, hogy ha az A oszlopban 1-2 tagot pirossal megjelölök, azok a keverés oszlopában (B) is pirossal jelennek meg, csak nyílván más helyen hiszen ez a keverés lényege. De amikor a B oszlop tartalmát felhasználom, akkor a céltartományban nem jelenik meg pirossal az a hivatkozott cella, ahol szöveg piros.
Tehát ha egy keverés úgy jön össze, hogy mondjuk a B1-be kerül a piros színű szó, és mondjuk a D1-be azt írom hogy =B1, akkor a D1-be már nem lesz piros.
Gondolkodj globálisan és tegyél lokálisan!
-
Jarod1
addikt
sziasztok !
Melyik függvény az hogy ezt csinálja:
Ha A1 =x, akkor b1 be ezt írja:y,
illetve 4 féle x ből válassza ki a megfelelőt[ Szerkesztve ]
-
föccer
nagyúr
-
cellpeti
veterán
sziasztok!
A következő elképzelésem lenne.
Hiperbe dolgozom. ÉS jó lenne egy olyan Excel tábla, ami hetenkénti fogyást mutatja és ezt ábrázolja grafikonon, heti lebontástban, dátumokkal együtt.
Na most.
Beírnám a 6 jegyű kódot ami a termékhez van. Ezt a 6 jegyű kódot lehúzná egy adott adatbázisból. Melléhúzná az EAN kódot, nevet, hogy milyen folyamaton jön, hogy kötelező e tartani...stb. és hogy mennyi az aktuális készlet, és mennyi fogyott az adott héten.
A következő lépcsőfok az lenne, hogy erre létre kéne hozni egy sablont és 6 jegyű kódot mindig változtatva, írja ki a dolgokat és rajzolja ki a diagramot.
Ilyen lehetséges-e?
Tigris, tigris, csóvafény...
-
fukyu
tag
válasz cellpeti #30915 üzenetére
PowerPivot-al meg lehet csinálni szvsz, legalább is azt a részét, hogy az adott kód beírását (vagy inkább kiválasztását) követően mindenféle grafikont és egyéb adatot listáz róla. Ilyet már csináltam én is, de nem 5 perc összerakni egy ilyet erre célzott a kolléga is, nem biztos, hogy valaki nekiáll ilyet csinálni neked itt most
-
fukyu
tag
válasz cellpeti #30917 üzenetére
Az adatexport részét nem látom át. Azt hogyan képzelted? A gépedre letöltött másik excel táblából szinkronizálná az adatokat? Így pl megoldható lenne. Ha valami másik (mondjuk webes) rendszerből kéne adatokat nyerni, az már nyilván bonyolítja.
Minden más dolog egész biztos megoldható, a PowerPivot kiegészítővel szemezgess.
-
Exportlaptop
csendes tag
Sziasztok!
Exceles kezdő vagyok, segítségetek szeretném kérni.
2013-as magyar excelt használok.
Van 2 excelem.
1. excelben A oszlopban angol szöveg van, B oszlop üres, C oszlop egyedi kód. Vannak további oszlopok is, jelen esetben lényegtelen.
2. excelben A oszlopban szintén angol szöveg, B oszlopban magyar fordítás, C oszlop egyedi kód.
A második excel egy része azonos az első excelben levőkkel. Ezeket C oszlopból lehet azonosítani.
Kérdés: Hogyan lehet a két excelt úgy összehasonlítani, hogy a második excel C oszlopában levő egyedi kód szerint beazonosítsa az első excelben levő adatokat és a második excel B oszlopában levő magyar fordítást áthelyezze az első excelben levő B oszlopba úgy, hogy a mellette levő egyedi kód stimmeljen?
Előreis köszi! -
Delila_1
Topikgazda
válasz Exportlaptop #30921 üzenetére
Címsort feltételezve az első lap B2 cellája
=INDEX(Magyar!A:C;HOL.VAN(C2;Magyar!C:C;0);2)
Ezt másold le a többi adatod mellé.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Exportlaptop
csendes tag
válasz Delila_1 #30922 üzenetére
Mint már írtam, abszolút kezdő vagyok és szükségem lenne egy bővebb, butított magyarázatra amennyiben időd engedi.
Ezt a függvényt egy az egybe bemásolom a B oszlop celláiba. De hogyan fogja megtalálni a másik excelemben levő adatokat? A kettes excel egy külön excel. Vagy be kellene másolnom az egyes excelbe először?Üdv
-
Delila_1
Topikgazda
válasz Exportlaptop #30923 üzenetére
A két füzetet azonos mappába tettem, Az elsőt angol.xlsx, a másodikat (ez az érdekes, mert innen veszi az angol az adatokat) magyar.xlsx néven mentettem. A kérdéses lapok neve is Angol és Magyar.
Az angol.xlsx Angol lapján a B2 képlete:
=INDEX('[magyar.xls]Magyar'!A:C;HOL.VAN(C2;'[magyar.xls]Magyar'!C:C;0);2)Ha nem azonos mappában vannak, akkor az útvonalat is be kell írnod.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Exportlaptop
csendes tag
válasz Delila_1 #30922 üzenetére
Közben sikerült megcsinálni, köszönöm a segítséget!
Lenne még egy olyan kérdésem, hogy hogyan lehet tömegesen beszúrni minden sorba egy egy képet a termékeimről?
Meg van adva a H oszlopba a képek neve, és be szeretném illeszteni mondjuk az I oszlopba a kepeket miniatűr formában csak épp látható legyen kicsiben. Lehetséges ez?Köszönöm mégegyszer a hasznos tippeket!
-
Delila_1
Topikgazda
válasz Exportlaptop #30925 üzenetére
Másold be modulba a lenti makrót (lásd Téma összefoglaló).
Sub Kepek()
Dim Kepneve As String, utvonal As String, sor As Long
utvonal = "D:\Képek\Almappa\" '***
sor = 2
Do While Cells(sor, "I") <> ""
Kepneve = Cells(sor, "I") & ".jpg" '*****
With ActiveSheet.Pictures.Insert(utvonal & Kepneve)
.Left = Columns(8).Left
.Top = Rows(sor).Top
.Height = Rows(sor).Height
End With
sor = sor + 1
Loop
End SubA ***-os soba a saját útvonalad kerüljön.
A *****-os sornál nem kell az & ".jpg", ha a kiterjesztést tartalmazzák a képnevek. Ha más a kiterjesztés, azt írd a jpg helyére.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz Exportlaptop #30927 üzenetére
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Exportlaptop
csendes tag
válasz Delila_1 #30928 üzenetére
Köszönöm a választ. F8-al nem indul el valamiért, az alábbit írtam be, helyes?
Ismétlem a képek neve jpg. kiterjesztéssel a H oszlopban van, én pedig az I oszlopba akarom helyezni a miniatur képeket cellánként az összeset. Kb 16 ezer sorról van szó.Sub Kepek()
Dim Kepneve As String, utvonal As String, sor As Longutvonal = "G:\MUNKA kicsinyitett2\BC adatbazis\Képek összes logos\"
sor = 2
Do While Cells(sor, "I") <> ""
Kepneve = Cells(sor, "I")
With ActiveSheet.Pictures.Insert(utvonal & Kepneve)
.Left = Columns(8).Left
.Top = Rows(sor).Top
.Height = Rows(sor).Height
End With
sor = sor + 1
Loop
End Sub -
Delila_1
Topikgazda
válasz Exportlaptop #30929 üzenetére
Nem sokat kell változtatni.
Sub Kepek()
Dim Kepneve As String, utvonal As String, sor As Long
utvonal = "G:\MUNKA kicsinyitett2\BC adatbazis\Képek összes logos\"
sor = 2
Do While Cells(sor, "H") <> ""
Kepneve = Cells(sor, "H")
With ActiveSheet.Pictures.Insert(utvonal & Kepneve)
.Left = Columns(9).Left
.Top = Rows(sor).Top
.Height = Rows(sor).Height
End With
sor = sor + 1
Loop
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.
-
Delila_1
Topikgazda
válasz Exportlaptop #30931 üzenetére
Vagy üres sor volt ott, vagy olyan képnév, amit nem talált az adott mappában.
A .Height = Rows(sor).Height
sor végére írd be: *4Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Exportlaptop
csendes tag
-
tonermagus
aktív tag
Halihó!
Gondom van: hogy lehetne szétszedni ezt az oszlopot? Cafeteria program generál egy xls fájlt, amibe egy cellába teszi be a szépkártyára kért összeget (E2)... Ezeket kellene szétbontanom úgy, hogy ami most egy cellában van egymás alatt (E2), az egymás mellet külön cellában jelenjen meg ? (F3-J3)
[ Szerkesztve ]
-
Exportlaptop
csendes tag
-
Fferi50
őstag
válasz tonermagus #30937 üzenetére
Szia!
Adatok - szövegből oszlopok - tagolt - szöveg - a következő panelen határoló jelnél egyéb - ide beteszed a soremelés karaktert :Alt + numerikus billentyűzeten 10 vagy 13 ezt próbáld ki, hogy melyik műxik. Úgy tudhatod meg legegyszerűbben, milyen számot kell bebillentyűzni, ha a mellette levő cellába beírod ezt a képletet:
=KÓD(KÖZÉP(E3;2;1))
Ezt kell a numerikus billentyűzeten megadni határoló karakternek.
Utána már csak arra kell vigyáznod, hogy ne írd felül az eredeti cellát.Üdv.
-
Fferi50
őstag
válasz Exportlaptop #30938 üzenetére
Szia!
Szerintem az a probléma, hogy a képek nincsenek benne magában az excel fájlban, csak a rájuk mutató hivatkozás - ami viszont nyilván a te gépedre mutat. Ezért a külön képfájlt is el kellene küldeni az excel mellé ugyanabba a könyvtárba, továbbá a hivatkozást úgy lenne jó megcsinálni, hogy azonos könyvtárban van a két fájl, akkor nem kell a teljes név, elég a rövid név hozzá.
Üdv.
-
igort
újonc
Kedves Minkenki !
Meg tudná valaki mondani ,hogy lehet új topic-ot nyitni ?
előre is köszönöm -
igort
újonc
válasz Exportlaptop #30943 üzenetére
Köszönöm !
-
veterán
Sziasztok!
Lenne egy kérdésem:
Vannak szöveges adataim egy oszlopban, mellette egy másik oszlopban számok melyek összetartoznak.
Pl. E2-es oszlop értéke: 10000
G2: = " = "& + $E$2/263
H2: mindig változó egy dropdown alapján.A dropdown-t már összepakoltam a szöveges adatok alapján, ám azt nem tudom hogy tudnám elérni, hogy a dropdown eleme (B oszlop) és értéke (C oszlop) összetartozzon, magyarán az értékváltásnál automatikusan változzon a végredmény.
Remélem érthetően sikerült elmagyaráznom.
Köszi!Üdv. core2.
[ Szerkesztve ]
-
igort
újonc
Kedves fórumozók !
A következő probléma megoldáshoz kérnék segítséget.
Szeretnék használni egy speciális szűrést makróban, ami nem működik,miközben ha excelben csinálom, simán leszűria Makró:
Sheets("Basic").Select
lastrowd = Cells(Rows.Count, "A").End(xlUp).Row
Range("A1:AG" & lastrowd).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("fil"), Unique:=Falsea feltétel:
Company InvoiceDate InvoiceDate InvoiceDate InvoiceDate
HUN >=2015.02.01 <=2015.02.28
HUN >=2016.02.01 <=2016.02.29az állomány:
Company Actuality Year Quarter Period Week DateInvoiced InvoiceDate ORIGSALESID
HUN AC 2015 Q1 1 1 2015.01.15 2015.01.01 SO21005161persze ilyen sorokból több mint 10000 van. a sorok is hosszabbak, de eddig érdekes.
office 2016a fil a range neve a feltételnek, ami 3sor, 5 oszlop
az InvoiceDate dátum típusu.előre is köszönöm a segítséget
sajna elcsúsznak az adatok, talán képpel
[ Szerkesztve ]
-
Anonymus23
veterán
Egy kis segítséget szeretnék kérni megint:
Office 2010 + w7 x64.
Kaptam most egy másik monitort is, hogy több fájlt megnyitva tudjak könnyebben dolgozni, viszont egy furcsaság akadályoz ebben.
Mégpedig az, hogy nem tudom a megnyitott excel fájlokat külön monitorra tenni. Előző melóhelyen Office 2013 volt ott minden további nélkül minden fájt külön helyre rakhattam.
Először azt gondoltam, hogy a 2010 ilyen, de pl a Word fájlokat meg engedi külön monitorra tenni.Ez ilyen, vagy valami beállítást kellene átállítanom? Próbáltam keresni ilyen ablak elrendezést, de vagy kiveri a szemem és nem találom, vagy jól el van dugva, már ha egyáltalán lehet ilyet..
Előre is köszönöm ha valaki segíteni tudna!
;) - The Power of the Light Side
-
Fferi50
őstag
válasz Exportlaptop #30942 üzenetére
Szia!
Semmi akadálya annak, hogy a képeket egy külön munkalapra betedd (Beszúrás - kép), majd erre állítsd be a hivatkozást, viszont azt tudni kell, hogy ekkor a fájlod mérete "rettenetesen" megnő, hiszen fizikailag tartalmazza a képek adatait, ami nem kevés. Ez pedig a megnyitásnál hosszadalmas.
Ha viszont ugyanabban a mappában vannak a képek is, mint az excel fájl maga, akkor gyors a megnyitás és meg is találja, ha nem abszolut hivatkozást használsz. Ekkor az egész mappát kell átadni a másik félnek.Üdv.
-
veterán
válasz Neil Watts #30945 üzenetére
Túlkombináltam a feladatot illetve a megfeleő specifikáció után egy VLOOKUP megoldotta
Üdv. core2
[ Szerkesztve ]