Biztosan. Írd majd meg, mire jutottál!

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Szia,
sehogy se jön össze... de biztos én vagyok a béna.
Arra gondoltam, hogy inkább megmutatom az eredeti Excel-t... itt még egy fülön van a teljes lista.
Kékkel az egyező adatok, amit kerestetni kell... majd a sárga tartamok, kellenek a zöld helyre.
Így:

A lényeg, hogy egy sorba kellene minden adat az adott cikkszámhoz.

Lehet így könnyebb, és megértem mit kell... nem haragudnék meg, ha leírnád mit kell beírnom az FKERES-be...

Köszi!!!

[ Szerkesztve ]

Hogy egyszerűbb legyen...Megbízhatóságom: http://phmegbizhatosag.atw.hu/phtabla.php?nev=roxy27

Jól megy, viszont lenne még egy kérés:
ki lehet úgy egészíteni a makrót, hogy görgessen fel az összes munkalapon teljesen fel és teljesen balra?

"Fun isn't something one considers when balancing the universe. But this... does put a smile on my face."

Szia!

Az

Application.ScreenUpdating = False
Application.ScreenUpdating = True

sorokat töröld ki légy szíves.

Üdv.

Képlet az F2 cellában:

=FKERES($A2;Munka1!$A:$E;3;0)

Az A2 cella értékét keressük a Munka1 lap A:E tartományának első oszlopában. Eredményként a tartomány 3. oszlopában lévő értéket kapjuk.

Ebből következik, hogy a G és H oszlopok képletében ezt az oszlopszámot kell átí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.

Sziasztok!

Van egy munkafüzetem, aminek cellái különböző más excel file-hoz vannak rendelve/csatolva.

A problémám az, hogy tegnap újra raktam a gépem, és az excel minden indításnál jelzi, hogy külső forrásra mutató hivatkozást tartalmaz, és mindig rá kell nyomnom, hogy frissítés.

Eddig ezt automatikusan csinálta, nem jelzett be semmit.

A beállításokban találtam erre állítási lehetőséget, de hiába rakom automatikusra, akkor is rá kérdez.

Valaki tudna ebben segíteni.

Előre is köszönöm!

Ui.: A beállítás képét csatoltam.

Sziasztok!

Segítségeteket szeretném kérni vonalkód nyomtatás ügyben.
Van egy olyan bajom a vonalkód nyomtatással,illetve szerkesztéssel,hogyha
a 7 számjegyű vonalkódot a vonalkód nyomtató (zebra gk420d) saját szoftverével készítem és nyomtatom akkor minden rendben.
Azonban le akarom egyszerűsíteni a dolgomat és Excelben szeretnék nyomtatni ,illetve szerkeszteni vonalkódot.
Ilyenkor az eredmény nem megfelelő és az olvasó nem ismeri fel a kinyomtatott karaktereket,de még a mobilom vonalkód olvasó alkalmazása sem.
Csatolok egy képet, a felső vonalkódot az Excel csinálta,az alatta lévőt a vonalkód nyomtató szoftvere.
A különbség szemmel is jól látható a 2 vonalkód nem egyforma,de az exceles nem is olvasható.
Találkozott már valaki hasonló problémával ?
A betűtípus mindkét esetben cod128.

Előre is köszönöm segítségeteket.
Szabi

[ Szerkesztve ]

Üdv!

Excel diagramkészítésnél akadtam meg. A diagramom most így néz ki. Az adatfeliratokat szeretném átállítani egységesen, ez a fenti képen 2016-os oszlopnál látszik is, hogy ne az értéket mutassa hanem az adatsor nevét, és még ezen egy kicsit formázgatni is. A gond hogy sehogysem tudom rávenni az adatfeliratok egységes beállítására az excelt, bárhogy közelítem meg a dolgot, mindig csak egy oszlopnál tudom azt szerkeszteni. Egyenként tuti nem fogok 40 oszlopon végigmenni, 4 almenübe belépni és 8 dolgot ugyanúgy beállítani mindenhol. Ezt hogy lehetne egységesen módosítani?

[ Szerkesztve ]

4 8 15 16 23 42

Fferi50, Juditta_56, Dr V
Megoldottam úgy a problémát, hogy a véletlenszerűen generált számot ezres nagyságrendben generálom, és osztom százzal. Így a megfelelő számokat kapom, és másolás után is számként tudja kezelni az excel.
Köszönöm nektek a segítséget

Szia!

Mivel az E betű a számok tudományos ábrázolásának része, ezért sajnos ez a két "karaktersorozat" ugyanazt a számértéket jelenti.
Ezért praktikusan azt tudom javasolni, hogy az E karaktert hagyjátok ki a cikkszámokból
Célravezető lehet még az is, ha a betű a cikkszám elején van, ebben az esetben szintén nincs "keveredés".

Üdv.

Ránézésre: Az Excelben lemarad a vonalkód két széle, jó 1/3-ad rész hiányzik.
(Valószínű, a vonalkódot tartalmazó keret/szövegdoboz nem fér bele a kinyomtatandó tartományba.)

[ Szerkesztve ]

http://logout.hu/cikk/mi_is_az_a_htpc/teljes.html; Három emeleten át egy teljes liftrapszódiát játszik!

Egyes vonalkódolvasónál a szöveget csillaggal kell kezdeni, és befejezni.
Ha az "alma" szöveget akarod kódolni, akkor "*alma*" szöveget adj neki.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Sziasztok!

Azt hogy lehet megszámolni Excelben hogy mondjuk 20x20.as táblázatban vannak nem egész számok, és azt kellene megszámolni, hogy amelyeknek a 10szerese páros.
Adatérvényesítés -> speciális? Sajna nem tudtam olyan feltételt írni, hogy ne azt írja ki hogy több mint 255 adat van.
Nem VBA megoldás kellene.
Köszönöm a válaszotokat előre is!

Szia!

Köszi a magyarázatot. Az a baj, hogy a cikkszámok adottak, uh máshogy kell a problémát megoldanom.

"Odamentem egy párhoz...négyen voltak!"

Szia!

Az Excel miatt az E a cikkszámon belül sajnos mindig be fog zavarni. Próbáld meg egy háttér munkalapra lemásolni az adatokat és azon elvégezni a cserét és a számolásokat. Majd az eredményeket az új munkalapról hivatkozni. Szerintem ez lenne a legegyszerűbb.

Üdv.

Erre gondoltam én is.

"Odamentem egy párhoz...négyen voltak!"

A teljes oszlopot szövegessé kell tenned egy üres oszlopban.

=A2 & "" (dupla idézőjel, üres string).
Végig másolod, majd a teljes oszlopot irányítottan, értékként beilleszted az eredeti helyére. Most már szövegként kezeli a csakis számjegyeket tartalmazó cikkszámokat is, rendbe jön a keresé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.

Egy tömbfüggvénnyel megoldható. Vegyük, hogy a tartományod A1:T20.

A képlet

=DARAB(HA((A1:T20*10/2)=INT(A1:T20*10/2);A1:T20))

Shift+Ctrl+Enter-rel kell bevinned.

Ilyen lesz: {=DARAB(HA((A1:T20*10/2)=INT(A1:T20*10/2);A1:T20))}

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Köszi, ilyesmire már én is gondoltam, de ez vizsgaminta feladat, oda pedig az adatérvényesítést kérik. Csak sajna nem sikerült olyan spec feltételt írnom ami megfelelt volna erre

Szia!

Minden cikkszám exportálása szövegként történik, akkor is ha szám van benne. Az excel jelzi is, hogy ez szöveg formátum, bár szerinte szám.

vlookup, index-match kombó jól is kezeli. A sumifs az első ami nem.

Amúgy az általad javasolt megoldás és aközött, hogy aposztróffal kezdődik a számsor, van különbség?

"Odamentem egy párhoz...négyen voltak!"

"...azt kellene megszámolni..."

Érvényesítéssel hogy lehet számolni?!

Érvényesítés az, mikor egy cellába, vagy egy tartományba csak bizonyos feltételeknek megfelelő adatot engedünk bevinni. Ha az a feladat, hogy egy 20×20-as területre a megadott feltételeidnek megfelelő számot lehessen bevinni, az érvényesítés képlete legyen

=ÉS(A1*10=INT(A1*10);MARADÉK(A1*10;2)=0)

és ezt másold a tartomány többi tagjához is.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

A sumifs-nél idézőjelek közé tedd a cikkszámot.

Az aposztrófos kezdet ugyanaz, mint a szöveggé konvertálás (=A1&""), csak kevesebb karaktert kell begépelni.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Kipróbáltam, idézőjelek között sem jó a sumifs.

Javaslom, hogy vegyél fel egy segédoszlopot, amit majd szerepeltetsz a sumifs-esben is újabb kritériumként.

=IFERROR(SEARCH("E",A2),0)

Ez megadja, hogy az A2 hányadik karaktere az "E", de nem a sorszám (az E helye a cikkszámban) a lényeg, hanem az, hogy szerepel-e a cikkszámban. Ha nem, akkor ebben a segédoszlopban 0 lesz az eredmény. Az "E"-t tartalmazó cikkszámú tételeknél a feltétel, hogy a segédoszlopban nagyobb szám legyen, mint nulla.

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 valamint Pollen

Sziasztok!

Szerintem most is egy jó "öreg" tömbképlettel való trükközés fog segíteni, ami az ötleted nyomán jutott eszembe:
=SZUM(($A:$A=D1)*1*B1)
A tömbképletet Ctrl+Shift+Enter billentyűkombóval kell bevinni (hátha valaki még nem ismerné...)
Itt a kritériumok a D oszlopban vannak.
A másik feltételt ugyanígy szorzás formájában adhatod hozzá! Pl:
=SZUM(($A:$A=D1)*1*($C:$C=X1)*1*B1)
Ugyanis az összehasonlításnál tudja az Excel (legalábbis az enyém), hogy nem egyforma az E-t tartalmazó cikkszám az a nélkülivel. (Bizonyára egy kis hiba csúszott a sumif függvénybe Redmondban v. valahol...)

Üdv.

[ Szerkesztve ]

Szia!
Köszi a választ,igazad van tényleg eltűnik balról és jobbról is egy egy rész de nem tudom ezt mi okozza.
A cella elég szélles hozzá.

Az érvénytelen adatokat bekarikáztatod, és megszámolod. Nem én akarom így csinálni, de így kérik.

Adj feltételes formázást a tartományra. Ha a tartomány bal felső cellája A1, a formázás képlete
=MARADÉK(A1*10;2)=0

Megadod a formátumot, és számolhatsz.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Elvesztettem a fonalat. Melyik oszlopban mi van? Esetleg egy kép...

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Mi kell ahhoz, hogy a minimum függvény a nullát ne vegye figyelembe? Előre is köszönöm!

=HA(MIN(A1:A15)=0;KICSI(A1:A15;2);MIN(A1:A15))

Itt a tartomány, amiben keresel, A1:A15.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Köszönöm!

Nincs mit.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Szia!

Jó hogy visszakérdeztél, így kiderítettem, hogy nem volt egészen jó a képlet, mivel nem a B1 cellát kell venni csak, hanem az egész B oszlopot (illetve nyilván elég mindenütt az a tartomány, amelyben értékek vannak. Az E oszlopban az egy feltételes, az F oszlopban a két feltételes képlet.

Üdv.

sziasztok

ki akarom bővíteni a makromat, hogy az adott munkafüzet adott oszlopait / celláit exportálja csak ki csv-be. makrom jelenleg ez és amíg a ranget nem definiálom, jól is működik

Sub export_first()

Application.DisplayAlerts = False

Dim wb As Workbook, InitFileName As String, fileSaveName As String

InitFileName = ThisWorkbook.Path & "\Kimentett munkafüzet_" & Format(Date, "yyyymmdd")

Sheets("Munkafüzetem").Copy

Set wb = ActiveWorkbook

fileSaveName = Application.GetSaveAsFilename(InitialFileName:=InitFileName, _
fileFilter:="Pontosvesszővel tagolt CSV file (*.csv), *.csv")

With wb
If fileSaveName <> "False" Then

.SaveAs fileSaveName, FileFormat:=xlCSV, Local:=True
.Close
Else
.Close False
Exit Sub
End If
End With

End Sub

amint azonban itt definiálom a helyet

Sheets("Munkafüzetem").Range("A1:Y1").Copy

az egész excel összeesik és minden munkafüzetlap bezárul. rossz helyen akarom definiálni? : S

                          hey friend listen, i know the world is scary right now but its gonna get way worse

Köszönöm!
Nem tudom miért így kell nekik, de sajna így kérik.

Szia!

Ha az
Application.DisplayAlerts = False
sort kiveszed (vagy csak kikommenteled), akkor látni fogod, hogy mi történik.

Üdv.

szia

azzal nem vagyok előbbre sajnos. ugyan úgy bezáródik minden. export ugyan történik, de az excel első munkafüzete mentődik ki - ez nem változott, eddig is ezt tette. amint nincsen range a sheet mögött, minden oké

                          hey friend listen, i know the world is scary right now but its gonna get way worse

Szia!

Van olyan lehetőség is a makró futtatáskor, hogy lépésenként hajtsa végre (akkor láthatod, hogy melyik sornak mi a következménye.)
Egyébként a következő a probléma:
Ha az egész munkalapot másolod paraméter nélkül, akkor a másolat egy új munkafüzetbe kerül át és az lesz egyúttal az aktív munkafüzet is. Így az új munkafüzetet fogod menteni és bezárni, a régi megmarad.
Ha viszont egy munkalap tartományt másolsz csak, akkor az eredeti munkafüzeted aktív munkalapját fogja elmenteni az új néven és egyúttal a neve is megváltozik, továbbá csak ez az egy munkafüzet lesz és ezt fogja bezárni a makró - bármelyik if ágra is kerül.
A SaveAs metódus mindig megváltoztatja az elmentett fájl nevét!
Ha csak egy területet szeretnél menteni, akkor szerintem az a megoldás, hogy a kívánt területet átmásolod egy új munkalapra, majd ezt az új munkalapot helyezed át és mented el csv fájlként:
InitFileName = ThisWorkbook.Path & "\Kimentett munkafüzet_" & Format(Date, "yyyymmdd")
Set NewSheet = Sheets.Add
Sheets("Munka1").Range("A1:C5").Copy Destination:=NewSheet.Range("A1")
NewSheet.Move
Set wb = ActiveWorkbook stb.

Üdv.

[ Szerkesztve ]

Így már tiszta.

Mivel mindegyik képletben szorzás szerepel, a *1-ek nem szükségesek.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

üdv

tökéletes, köszönöm, a jelek szerint ez az ég elmókolásom volt a hiba. most már szépen lefut. : ))

                          hey friend listen, i know the world is scary right now but its gonna get way worse

Szia!

Tudod, ez az én mániám (biztos, ami biztos alapon), de majd csak leszokom egyszer róla.

Üdv.

Hello.

Nyomtatásnál akadtam meg, amiben kérném a segítségetek.
Vannak nagy, több száz soros táblázatok, aminek a nyomtatását úgy szeretném megoldani, hogy a legelső sor minden oldalra nyomtatva legyen, valamint az oldaltörések ne függőlegesen, hanem vízszintesen történjen.
Oldaltöréseknél kerestem a megoldást, de nem találtam, alapértelmezetten, függőlegesen töri be az oldalakat, nekem viszont vízszintesen kellene.

Megtaláltam, hátha másnak is hasznos: lap elrendezés, címek nyomtatása menüpontban mindent szépen lehet állítani..

Baj nem származhat belőle.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Hello!

Egy VBA kódot használok, aminek egyik része frissít egy pivotot, és ráfilterez bizonyos dolgokra a pivotban.

With ActiveSheet.PivotTables("Included").PivotFields("Final Level")
.PivotItems("Level 2").Visible = True
.PivotItems("Level 1").Visible = True
.PivotItems("Level 3").Visible = True

A gondom az, hogy ha bármelyik hiányzik az eredeti adatsorból, akkor a kód hibára fut, hisz miután befrissítette a pivotot, nem lesz pl "Level 2", amire szűrhetne. Mivel egészítsem ki a kódot, hogy csak akkor próbáljon erre filterezni, ha van is ilyen?

Köszi!

Szia!

Az egyik lehetőség, hogy hibakezelést építesz be: On Error Resume Next sorral.
Ha tudod, hogy csak ez lehet a hiba, akkor semmit nem is kell tenned, csak a programszekció végén visszaadni a hibakezelést a VBA-nak: On Error Goto 0
Ez azért szerintem kissé kockázatos, bár természetesen minden sor után meg lehet nézni, milyen hiba keletkezett (If ERR= x akkor mi legyen - a hibaszámokat megtalálod a helpben).

Másik megoldás, hogy végigmész a tételeken:
Dim pvti as PivotItem
For Each pvti in ,PivotItems
If pvti.Name = "Level 2" Or pvti.Name = "Level 1" Or pvti.Name = "Level 3" Then pvti.Visible = True
Next

Nekem ez utóbbi jobban tetszik.

Üdv.

Üdv mindenki!

A megfelelő képletet keresem, aki tud, kérem segítsen!
A következő dolgot szeretném megoldani: szöveget beírva, leenterezve, a szövegre hivatkozott szám kerüljön a cellába.
Miért is kell ez nekem?
Tegyük fel, egy oszlopba szeretném bevinni, hogy hétfőn banánt ettem, ennek ára 348 Ft, kedden dinnyét, ennek 99 Ft stb.
Tehát beírom, hogy banán, és Enterre írja be, hogy 348. A lapon lenne két oszlop, ahol szerepelnek a szövegek és mellettük a számok. Ezeket kellene "kihivatkozni".
Excel 2016

Köszönöm!

Szia!

Neked az Fkeres függvényre van szükséged. Alapesetben ez a függvény egy külön cellába írja az értékeket, de kicsit ügyeskedve az adott szöveg mellé is be lehet írni.
Első lépés: Nevezd el a Szöveget és számokat tartalmazó oszlopokat (vagy csinálj belőle táblázatot).
Ezután képlet egy cellában:

="Dinnye " & FKERES("Dinnye";táblaneve;2;0) & " Ft"

Üdv.

Köszönöm

Üdv!

A következő VBA kódot a microsoft oldalán találtam. Ezt használtam eddig, némi módosítással.
Sub MessageBoxTimer()
Dim AckTime As Integer, InfoBox As Object
Set InfoBox = CreateObject("WScript.Shell")
'Set the message box to close after 10 seconds
AckTime = 10
Select Case InfoBox.Popup("Click OK (this window closes automatically after 10 seconds).", _
AckTime, "This is your Message Box", 0)
Case 1, -1
Exit Sub
End Select
End Sub

Mára viszont gondolt egyet az egész és az égnek sem akar működni. Nem hajlandó a megadott időkereten belül kilépni. Percekig otthagytam és semmi.

A legidegesítőbb, hogy eddig ment, de most nem.
Olyan mintha nem menne a visszaszámlálás.

Valakinek valami ötlete?