Beállsz a rendezendő oszlopba. NEM jelölsz ki semmit, csak megnyomod az A–Z, vagy a Z–A gombot attól függően, hogy emelkedő-, vagy csökkenő sorrendben akarod látni az oszlop tartalmát.

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

És tényleg.. csak nekem a nevek hivatkozásként vannak, nem beírt szövegként és így nem rendezi sorba erre valami tipp?

Úgy még sosem volt, hogy valahogy ne lett volna!

Abban az oszlopban rendezd az adatokat, ahonnan hivatkozol.

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

Magic köszönöm!!

Úgy még sosem volt, hogy valahogy ne lett volna!

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

Sok mindent nem találtam róla, de úgy csináltam, hogy a kiterjesztést xlsx-ről átneveztem zip-re. Így beletudtam mászni a fájlba egy fájlkezelővel, ahol a valami.zip\xl\worksheets\ mappában lévő sheet1.xml-t (vagy amelyik problémás) megnyitottam notepaddal, ahol megkerestem a sorokra vonatkozó (erre már nem emlékszem pontosan, most meg nem találom) részt és átírtam 1048576-ról kevesebbre.
Mindezt valami neten talált angol leírás alapján. Működött, többször is kénytelen voltam használni, mert az akkori főnököm rendszeresen gallyra vágta ily módon a fájlt. Igaz makró abban nem volt. Mindenesetre mielőtt belekezdesz csinálj egy biztonsági másolatot

[ Szerkesztve ]

Sziasztok!

A következő a problémám, van két oszlopom és szeretném kigyűjteni valamilyen függvénnyel C oszlopba azokat az azonosítókat amiknél a B oszlopban végig van egyezés és D oszlopba pedig azokat ahol nincs egyezés.

Ami van:

A: B:
1 répa
1 répa
1 répa
2 retek
2 káposzta
3 saláta
3 saláta
3 saláta
4 uborka
4 paradicsom
4 paradicsom

Amit szeretnék:

A: B: C: D:
1 répa 1 2
1 répa 3 4
1 répa
2 retek
2 káposzta
3 saláta
3 saláta
3 saláta
4 uborka
4 paradicsom
4 paradicsom

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

Adj mentést a füzetedre. Nyiss egy új füzetet, aminek egy moduljába (lásd a Téma összefoglalót) beviszed az 1 soros makrót.

Sub mm()
Rows(ActiveSheet.UsedRange.Rows.Count + 1 & ":" & Rows.Count).Delete
End Sub

Állj a kérdéses füzeted kérdéses lapjára, és indítsd a makrót – Alt +F8-ra feljön egy ablak, ahol kiválaszthatod az mm címűt.
Nézd meg, rendbejött-e. Ha igen, adj új mentést a füzetre.

Ez a makró megkeresi a füzetben azt a sort, ahol az utolsó bevitt érték van, és az alatta lévő sorokat törli.

Ha valamikor volt egy adat jóval lejjebb, amit később töröltetek, az Excel megjegyzi ezt az egyszeri beírást, és ennek a soráig állítja be a görgető sávot. A makró "elfelejteti" a hajdani beírást.

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

Valamivel profibb megoldás, mint amit én találtam anno hogy miért nem idejöttem egyből annak idején...

Majd kiderül a "profizmus" a próbáná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.

Sziasztok!

Kicsit pontosítok az előző (tegnapi hozzászólásomon, hátha így átláthatóbb lesz).

Tehát egy olyan excel függvényre lenne szükségem, amely két oszlopot vizsgál A és B oszlopot. Szeretném kigyűjteni C oszlopba azokat az azonosítókat (ID-kat), amiknél az A és B oszlopok celláiban A oszlopok értékei alapján B-re nézve végig egyezés van. D oszlopba pedig azokat azonosítókat (ID-kat), amiknél a fenti művelet nem teljesül és nincs meg a "folyamatos" egyezés...

Csatoltam egy excel képet. A felső a kiindulást mutatja, az alsó a várt eredményt. Színekkel is jelöltem, hogy érthető legyen, a zöld szín az egyezőek, a piros szín a nem egyezőek. A C és D oszlopokban látható az A-ból kigyűjtött azonosítók.

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

sziasztok

az activeworkbook.saveas parancs csak nem lesz szerencsés felhasználói szempontból a vba-mhoz, hiszen az adott munkafüzetet is átnevezi - bár a szükséges csv-t kiadja a kód többi része - én pedig azt szeretném, hogy csak egy tetszőleges helyre elmentett tetszőleges nevű mentés készüljön, az eredeti xls semmibe se módosuljon. adott lenne az activeworkbook.savecopyas, de az compile errort dob

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

sziasztok! létezik az excelhez bővítmény vagy ilyesmi, ami ábrát tud rajzolni a VBA-ban írt programhoz az eredmény függvényében?

konkrétan olyanra gondoltam, hogy van egy félkör és a középpontból a megfelelő helyekre behúzzunk egy sugarat és ezek a megfelelő helyek függenek a kezdeti adatoktól

Nézd meg jobban a válaszomat. "Nyiss egy új füzetet, aminek egy moduljába..."

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 32962-esre senki nem tud segíteni?

Lehet összetetten fogalmaztam. De a lényeg hogy a sorrend a következő lenne:

Az "A" oszlop számokat tartalmaz míg a "B" zöldségeket.

A lényeg annyi lenne hogy egy függvény vizsgálja hogy ahol például 1-esek vannak ott a B oszlopnál mindig ugyanaz van-e. Nagyon fontos, hogy a vizsgálat mindig csak addig tart ameddig 1-esek vannak. Ha már 2-essel kezdődik akkor csak azon belül vizsgál. Ha talál változást azt kilistázza a D oszlopba ha nincs változás akkor a C-be.

Kérdésem az hogy ezt meg lehet-e oldani egyszerűen függvénnyel vagy ehhez VB script kell? Valaki ebben tudna segíteni nekem? Tényleg nagyon megköszönném mert kínlódom vele egy ideje.

[ Szerkesztve ]

Függvénnyel nem, de makróval megoldható.
Ha délutánig nem kapsz választ, megírom.

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!

Létezik valami megoldás arra, hogy hogy tudnám egy adott munkalapon a sorok magasságát egységesen megadni. A formátum másolót itt sajnos nem tudom alkalmazni...

üdv,

Szia!

Köszönöm előre is a segítséget. Talán még annyit, hogy teljes legyen a dolog, ha egy soros csak az elem az automatikusan a C mezőbe kerülne.

7 = körte
7 = körte
8 = ananász
9 = mandarin
9 = narancs

A példa kedvéért a 8-asnak csak egy rekordja van. Illetve ha jelöli a macro hogy hány eltérést tapasztalt az szuper lenne, de nem fontos. Tényleg ezer hálám, mert én picit megfáradtam ezzel.

A bal felső sarokra rákattintasz (A-tól balra, 1-es felett), amivel kijelöli az egész munkalapot, majd jobb egérrel rákattintasz az egyik sorszámra, ott a választéklistában kiválasztod a sormagasságot, és megadod az értéket.

"Az őszinteség a bátrak erénye, és mint ilyen, kevesek kiváltsága."

megoldódott:
Sub sbChangeRowHeightMulti()
'Changing the 3rd-25the row Height
Rows("3:25").RowHeight = 25
End Sub

sajnos nem az én szerzeményem...

s7evcsenko

köszönöm, tökéletes!

üdv,

[ Szerkesztve ]

Íme

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

Javítok. Az 1 soros ID-t az előbbiben a D oszlopba írattam fel a C helyett, bocsi.

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

Nagyon szépen köszönöm a scriptet. Hát erre magamtól nem lettem volna képes. Tényleg le a kalappal, hogy erre időt és energiát szántál. Viszont ezzel nagyon sokat segítettél nekem. Még egyszer hálásan köszönöm a segítséget.

Sziasztok!

Csináltam egy pivot diagrammot. Hogy tudom azt megcsinálni, hogy ha egy oszlopra kétszer rákattintiok, akkor kiírja, hogy milyen értékekből all össze az oszlop? Vagyis (angol verzióban) a drill gomb aktív legyen?

Sziasztok!
van arra valami ( lehetőleg egyszerű ) megoldás, hogy adott excel tábla bizonyos mezői autómatikusan átkerüljenek másik táblába ( nem munkalapra ) ?
Köszönöm!

Szívesen. Örülök, hogy sikerült megoldani a problémádat.

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 sima hivatkozást kell a másik táblába írnod. Pl. a C5 cellában az =A1 beírja a C5-be az A1 cella aktuális értékét. Mikor átírod az A1 értékét, az új jelenik meg a C5-ben

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!

Diagramnál rájöttem a megoldásra: a pivot felületen hierarchiát kell étrehozni. Egy darabig eljátszottam ezzel, mire rájöttem.
Viszont nyomtatásnál nem látszódik minden adat, mert egy cellában a többsoros szöveg található. Hogy lehetne azt megoldani nyomtatásnál, hogy nyomtatásnál automatikusan megváltoztassa a sormagasságot?

sziasztok

cella érvényesítéssel kapcsolatosan volna egy kérdésem. igazából csak annyit szeretnék, hogy amikor a user a legördülő listából kiválasztja teszem azt a januárt, akkor a cella a 01-es értéket veszi fel. sajnos angolul sem jut eszembe erre hogyan keressek rá.

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

Ugyanaz a cella, amiben kiválasztja a januárt, változzon 01-re? Vagy egy másik cella értéke legyen 01 a kiválasztott Január hatására?

szia! igen, ugyan az a cella ne a kiválasztott januárt vegye fel, hanem annak [egy másik munkafüzetben megtalálható párját] a számmal jelölt, jelen esetben 01 nevű párját.

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

szerintem ezt nem lehet megvalósítani, mert ha ugyanazon cellának megváltozna az értéke a kiválasztás hatására, akkor megint vizsgálná, hogy arra az értékre mit írjon be. Végtelen ciklusba futna.

köszönöm! részben én is erre a gondolatra jutottam, de akkor csak megerősítést nyert : )

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

Sziasztok!

Már megint én kérdezek. Sajnos a táblázat felosztó algoritmussal ez nem oldahtó meg amit szeretnék mert van olyan szó a cellában ami több szóból tevődik össze.

Arra lenne szükségem, hogy a képlet csak az utolsó szótagot válassza le és tegye át a szomszédos üres cellába. Erre van valami jó kis frappáns képlet?
Köszönöm a segítséget.

Szia!

Ez csak akkor működik, ha két szóból áll:

Ha a szöveg A1 cellában van:
=JOBB(A1;HOSSZ(A1)-SZÖVEG.KERES(" ";A1;1))

Ha több szóból áll, akkor függvénnyel nem tudod, csak ha megírod makróban a függvényt.

[ Szerkesztve ]

Na ez nem jó hír, nem szeretem a makrokat

A szótag leválasztása gyakorlatilag megoldhatatlan.

Az utolsó szót külön cellába tudod tenni, éppen most írtam ilyent valakinek itt, a 29591-es hsz-ben.

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,
A következő probléma kapcsán kérnék segítséget:

A cégnél létrehozok egy excelt, melynek az alap adatai egy korlátozott hozzáférésű excel táblázatból vannak hivatkozva. Én, aki létrehozom a számolást, van jogom hozzáférni a háttértáblához.
Összerakom az anyagot, kiküldöm pl 10 embernek (akiknek nincs hozzáférése a háttértáblához).
Nekik ilyenkor jelzi, hogy külső hivatkozások vannak a táblában és megkérdezi őket, hogy szeretnék-e frissíteni. Ha rányomnak arra, hogy igen, akkor minden szám elszáll "#ÉRTÉK, #HIV" stb jellel.
Viszont ha rányomnak arra, hogy ne frissítse, akkor 10 emberből 8-nak láthatóak a számok (csak akkor válik elérhetetlenné, ha rá akarnak frissíteni), de 2 embernél tök mindegy mit nyomnak, automatikusa be akar frissíteni és semmit sem látnak a táblából.

2010-es és 2013-as office-csomagról van szó vegyesen. (Nem lehet a diszfunkciót hozzákötni valamilyen verzióhoz)

(ez néha akkor is fennáll, amikor én lekérdezek PI Datalinken keresztül adatokat és akinek nincs PI lekérdezője, néha befrissít és no-data, másoknak pedig hiába nincs PI lekérdező, de az értékeket megtartja addig, amíg nem akarja frissíteni.

Szívesen fogadom a tanácsokat, ötleteket.
Előre is köszönöm.

Üdv
M

"Those who want respect, give respect"

Sziasztok!

Névkezelőben dinamikus tartományokat állítottam be, excelben jól működik. VBA-ban hogyan tudok rá hivatkozni? Konkrétan beraktam egy comboboxot egy munkalapra, és szeretném ha ebben jelennének meg a dinamikus tartományom elemei.

Ez a megoldás nem jó:
ComboBox1.List = Range("yy").Cells.Value

Üdv.:
P.

ComboBox1.RowSource="Munka1!Adott_Név"

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

Nem igazán sikerül.
Ránéznél a fájlra légy szíves.

[link]

Azt nem mondtad, hogy nem userformon, hanem egy lapon van a combobox.

Az Alapadatok lapon a C4:C11 tartományt érdemes táblázattá alakítani. A C5:C11-et kijelölve megadtam a Teszt nevet (előtte töröltem a régit). Az ofszetes tartományod nem volt jó, C5-től C12-ig tartott. Persze nem nagy baj, ha pluszban van egy üres sor.

A Combobox lapon beállítod a Tervező módot, a vezérlődre állva megjeleníted a Tulajdonságokat. Itt a ListFillRange opcióhoz beírod: Teszt

Szerk.: azért elég a Teszt szót beírni, mert a tartomány hatóköre az egész munkafüzetre vonatkozik.

[ 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.

Sziasztok!

Egy olyan időzítő sablon scriptre lenne szükségem (Excel 2016), amelynek fő feladatai:

- Excel dokumentum megnyitásakor azonnal aktiválódjon a script.
- A script feladata tulajdonképpen egy paraméter formájában megadott időintervallum visszaszámlása vagy akár fordítva tök mindegy. (pl. 10 perc).
- Ha a megadott időpont lejár, akkor végezzen az Excel automatikus mentést. (felülírásos mentés elég!), majd zárja be a programot úgy ahogy van.
- Az időt én tudjam megválasztani a kódban!

Nagyon hálás lennék egy ilyennek!

[ Szerkesztve ]

Gondolkodj globálisan és tegyél lokálisan!

Írtam, hogy munkalapra raktam be a comboboxot.
Oké oké oké. Ha fix named range van az egyértelmű. De itt pont ez a lényeg, hogy dinamikus volt. Vagyis a megadott tartományom belül ha új elem került be, akkor azt is hozta automatikusan + 1 üres sort. Nem véletlenül volt ez így.

Mivel táblázattá alakítod a tartományt, rugalmas lesz a Teszt. Próbáld ki! Írj hozzá, vagy a táblázat méretét csökkentsd a kis kék sarok felhúzásával.

Bocs, tényleg írtad, hogy munkalapra tetted.

[ 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.

Tényleg nem veszi be combobox esetén a plusz adatot, de ki lehet javítani. Az Alapadatok laphoz rendeltem egy eseménykezelést.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then Sheets("Combobox").ComboBox1.ListFillRange = "Teszt"
End Sub

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

Aham, jó lesz ez. Táblázattá alakítás nélkül ugyan, de a listfillrange lesz a megoldás.

Köszönöm!

Üdv:
P.

Szívesen.

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