olyat lehet valahogyan hogy van egy mező amibe beírom, hogy egy képlet hányadik sorig számoljon? pl. beírom, hogy 10, akkor mondjuzk a b1:b10-et szummázza (elég sok képletnél kéne dinamikusan változtatni egyszerre...)

mit miótaaa???

INDIREKT()
Példa

Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)

=SZUM(INDIREKT("s1o2";HAMIS):INDIREKT("s"&A1&"o2";HAMIS))

ha az A1 cella értéke 10, akkor b1:b10-et szummáz

köszi, müxik

akkor még egy

van egy oszlopom (A oszlop mondjuk), amiben számok vannak (mondjuk +-5) egy másik oszlopom (B) amiben számok vannak és van egy C oszlop ahova a B oszlopot szeretném szummázni úgy, hogy ha mondjuk A10=0 és A15=0, de köztük nincs 0, akkor a B1115öt szeretném szummázni a C15 mezőben (minden más esetben meg üresen hagynám (C11-C14 üres tehát, C10-ben meg az előző ilyen szumma szerepelne). nem tudom érthető-e, remélem igen , előre is köszi a segítséget

mit miótaaa???

[link]

Sziasztok!

Valaki tudna nekem segíteni Excelben....

Egy táblázatot kellene elkészítenem, ami adatbázisként működik lehet benne szűrni az adatokat ha a legördülő menü valamelyikére kattintok.

A sablont eltudom küldeni.

A menü elemek, bármelyikre kattintva, az összes megjelenik listában, pl. rákattintok a címekre akkor az összes címet fogom látni.

A másik pedig, hogy miután feltöltöttem adatokkal utána is folyamatosan tudjam bővíteni és ne folyjanak egybe a témák.

A segítségeteket előre is köszönöm!

A lélek születése - az egyetlen szabadság

Szia!
Az AutoSzűrő funkciót próbáltad?

[ Szerkesztve ]

Office 2003

Megpróbálom..

Köszi!

A lélek születése - az egyetlen szabadság

Köszönöm szépen!

A helyzet az, hogy millió cellatartalmat egyesével másolgatok ki (webshop feltöltés ugye), tehát még mindig gyorsabb egy backspace funkciót megnyomni beillesztés után az egerem oldalán, mint makrót futtatni egyenként. Illetve készül a fölöslegek letisztogatására szolgáló opció is a vágólapfigyelő programban.

A Dropbox tárhely kimaxolása 16 GB-ra >> http://tinyurl.com/dropbox16

Valaki, pls

indirekt függvénnyel hogyan tudok külső fájlra hivatkozni?
Konkrétan azt szeretném, hogy a fájl elérési útját tudnám megadni egy cellában, és ezt átírva tudnék másik fájlt meghívni.

Amennyiben meg van nyitva a hivatkozni kívánt fájl, akkor tudja olvasni annak adatait az indirekt fv, de ha azt bezárom, akkor ugye rögtön #HIV hibával elszáll. Ezt hogy tudnám orvosolni?

[ Szerkesztve ]

hát köszi, lehet hogy egy kicsit félreérthetően írtam, a lényeg, hogy nem tudom előre, hogy hol lesznek a nullák (vagy ami épp a feltételem) az A oszlopban leírt példámban.

mit miótaaa???

Hello mindenkinek!

Lehet volt már téma, nem tudom, de olyan kérdésem van, hogy:
Adottak dátum szerint elnevezett .xls fileok, benne az adott napra vonatkozó adatokkal, meg az összegzésükkel(egyik cella).
Hogy tudom én ezt az összegzett cellaértéket beolvasni egy ÚJ dokumentumba gyorsan, ahol csak a napi összegzett értékekre vagyok kíváncsi?

Eddig ha megpróbáltam kitöltetni duplaklikkel, akkor a cella értéket inkrementálta.
Hogy tudnám a filenevet inkrementálni, és a cellaérték meg maradna ugyanaz?
Nem igazán lenne jó 365-ször copizni :/
Gondolom valami makró kell, de programozni nem tudok

köszi
Lac

pontosítanék:

Gyökérkönyvtárban (I:\pwg\Szarvas) vannak mappák(2011okt, 2011nov, 2011dec, ..., 2012maj). Ezen mappákban van minden naphoz 2 file:
(2011-10-01-GM4_napi_fogyasztás.xlsx és
2011-10-01-GAL_napi_fogyasztás.xlsx).

Van egy a gyökérben egy új tábla (I:\pwg\Szarvas\adatok.xlsx) ahol A5-ben 2011.10.01 szerepel, A6-ban 2011.10.02 ...stb 2012.05.23-ig.

A GM4 filenevű filokból a C7-et az adatok.xlsx B oszlopába, D7-et a C oszlopba kell írni, (B5 és C5-től kezdődően)

A GAL filenevű fileokból a C7, D7, E7, F7 cellákat kell az adatok.xlsx D,E,F,G oszlopába írni. (5. sortól kezdődően)

Ugyanakkor 2012.01.01-től a GAL filenvű fileokból az L5,L6,L7,L8,L9 cellákat az adatok.xlsx H,I,J,K,L oszlopába kell másolni.

Milyen makró köthető ehhez?
Remélem mindent leírtam és érthető a problémám.

köszönöm előre is

Lac

[ Szerkesztve ]

eddig azt hittem, h értem, h mire is lenne szükséged, de úgy látszik, h nem.

le tudnád írni egyértelműbben?

Sziasztok.

Nemrég futottam bele egy olyan számomra problémába, hogy ha megnyitok egy üres excel munkafüzetet, és utánna megnyitok egy másik üreset akkor feldob egy választási lehetőséget hogy personal xlbs már meg van nyitva ezért azt nem tudja újra nyitni. csak olvasásra.
mit lehet ezzel kezdeni? jelenleg a personal -ban nincsenek makrók (üres).

A kisebbség is számíít, teszkó.

A makró

Public Sub FSCD_concret_hp()

Dim MySum As Long
Dim MyRange_1 As Range
Dim MyRange_2 As Range
Dim MyRange_3 As Range

Set MyRange_1 = Range("A1")
Set MyRange_2 = Range("B1")
Set MyRange_3 = Range("C1")

If MyRange_1.Offset(MyRange_1.End(xlDown).Row - 1, 0) Then
MsgBox ("A(z) " & MyRange_1.Address & " oszlop utolsó cellájának értéke 0 kell, hogy legyen!")
Exit Sub
End If

MySum = 0
For i = 0 To MyRange_1.End(xlDown).Row - 1
If MyRange_1.Offset(i, 0) Then
MySum = MySum + MyRange_2.Offset(i, 0)
MyRange_3.Offset(i, 0) = ""
Else
MySum = MySum + MyRange_2.Offset(i, 0)
MyRange_3.Offset(i, 0) = MySum
MySum = 0
End If
Next i

End Sub

A makró eredménye [link]

Megjegyzés
Az oszlop, amelyek a 0-kat is tartalmazzák nem tartalmazhat üres cellát.

[ Szerkesztve ]

Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)

elírtam : personal.xlsb más gépeken nem problémázik e miatt le lehet tiltani vagy mit kell csinálni, hogy ne csinálja ezt nyitáskor.

A kisebbség is számíít, teszkó.

Ha valóban üres és nincs rá szükség a personal.xlsb, akkor először az adott munkafüzet-ben töröld a makrók közül, mentsd a munkafüzetet, majd fájlkeresővel keress rá és egyszerűen töröld le.

lacasd
Végül is kivitelezhető, de ehhez idő kell, mert összetett a dolog. Mondjuk biztos meg van az oka, hogy miért kell ennyire szétszabdalni (ennyi külön fájlban tárolni) dolgokat.
Ha a GAL és GM4 felépítése azonos, akkor rég le kellett volna egyszerűsíteni a dolgot, ugyanis akkor 1 darab fájlban elférne minden, abból meg kimutatással szinte bármi elkészíthető.

Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)

Köszi törölve.

A kisebbség is számíít, teszkó.

Egy PLC logolja ezt, és negyedórás adatgyűjtés van, majd a táblázat tetején szummáz, és ez a szumma érték kell nekem.
Igen sztem is meg kellett volna csinálni, de rám osztották ezt a nemes feladatot manuálisan, mint biorobotra. GAL és GM4 cellakiosztása nem egyforma, GAL-ban több cucc van.

[ Szerkesztve ]

"Másik módja az utolsó sor, ill. utolsó oszlop megkeresésének, arra az esetre, ha a lapon több, egymástól üres sorokkal, oszlopokkal elválasztott adataink vannak:

Kiválasztjuk egy olyan oszloponak az első celláját, amelyikben biztosan folyamatosan vannak az adatok, pl. A1.

Range("A1").Select
Selection.End(xlDown).Select ' ez azonos azzal, mint amikor Ctrl+le-nyilat nyomunk
usor = Selection.Row"
-------------------------------------------------------------------
Sziasztok!

Nem egy mai bejegyzése Delilának de éppen ezen vagyok elakadva.

Ha ilyen módon megkerestem az utolsó használt sort, akkor mi a szintaktikája, hogy az "usor" értékét felhasználjam egy másik oszlopban?
Mondjuk munkalap1 B1:T1 celláit (19 cella) transzponálással másolja be munkalap2 B oszlopába a 2. sorától az utolsó soráig kijelölt területre, ismételgetve (ha 190 sor, akkor 10x. Elvileg mindig kijön egészre a sorok száma / 19)

Előre is köszönet!!

Office 2003

Sziasztok!

Segítséget szeretnék kérni abban, hogy adott egy Excel tábla. Az egyik oszlopban telefonszámok vannak, a telefon sajnos allergiás a 06-kezdetre és ezért hiába van benne a névjegyzékbe a szám névvel mikor hív csak a +36xxxxxxx számot írja ki. A megoldás az lenne, hogy minden számot át kéne írni +36-ra. Szóval a kérdés az lenne, hogy miképp lehet megoldani, hogy az Excelbe exportált számokat úgy írja át, hogy csak az első két 06os karaktert cserélje le +36-ra.

Bocsi, hogy ennyire nagyon körülményesen írtam le, de 900 név felett inkább kell egy jó megoldás mint sem a favágómunka...

Előre is nagyon köszönöm mindenkinek a segítséget!

Retes

A tudás mindenkié!!!

ehhez makró se kell, csak egyszerűen használd a helyette függvényt:

=HELYETTE(A1;"06";"+36")

avagy

a kívánt cellákon jobbklick-cellaformázás-egyéni és ott annyi 0-t írsz be ahány számjegyet akarsz hogy kiirjon és 0-kal feltölti a szám elejét.

avagy

levágsz 1 karaktert, így: =JOBB(A1;HOSSZ(A1)-1)- a 6os eltűnik az elejéről, majd az összefűz függvénnyel hozzáfűzöd az elejéhez a +36-ot.

remélem sikerült értelmesen lekaparnom, csak közbe dolgozom

Szia,

Nagyon köszönöm a gyors helpet, igyekszem megcsinálni, csak most magam is dolgozom, de amint kész beszámolok a végeredményről!

Még egyszer nagyon köszönöm a segítséget!

Retes

A tudás mindenkié!!!

Sziasztok!

Egyszerűsödött a kérdésem.
Delila leírása szerint meghatároztam usor néven az utolsó sor értékét.
Most szeretném VBA kódban kijelölni a "B2:Busor" területet, csak nem megy, mert béna vagyok

Köszi!!

[ Szerkesztve ]

Office 2003

Range("B2:B" & usor).Select

A
Range("A1").Select
Selection.End(xlDown).Select
usor = Selection.Row"

helyett elég:
usor=Range("A1").End(xlDown).Row

[ Szerkesztve ]

Programozó: hibás programok megírására és kijavítására kiképzett szakember. http://www.elektroabc.hu/

Ezt a feladatot 2 módszerrel lehet kivitelezni, az egyik, a mappabejárással(végigszaladni a mappaszerkezeten az adott fájlokat megnyitni, majd átmásolni a megfeleő cellákat9, a másik módszer meg az, ha a makró külső cellahívásokat generálja le. Ez utóbbi az egyszerűbb, én most ezt választom inkább, meglátjuk bírja-e a géped (hisz többszáz külső hivatkozást fog elhelyezni az adatok.xlsx-be)

Viszont lenne pár dolog
1. "2011okt, 2011nov, 2011dec, ..., 2012maj"
A 2012maj arról lemaradt az ékezet, vagy tényleg ez a neve a mappának?
Kérdem azért, mert az Excel rövid formátumban így tárolja a hónapokat: [link]
(Akkor még ehhez is kell külön kód, hogy átalakítsa)

2. "Ugyanakkor 2012.01.01-től a GAL filenvű fileokból az L5,L6,L7,L8,L9 cellákat az adatok.xlsx H,I,J,K,L oszlopába kell másolni."
Ez úgy értendő, hogy csak és kizárólag 2012 évi dátumok esetén kellenek a plusz cellák, avagy jövőre is? (Feltételezem H5/I5/J5/K5/L5 cellák értendők itt is)

3. melyik nap legyen az utolsó nap, az épp aktuális nap, vagy az egyel előtti?
(Lehet, hogy aznap még nincsenek kész a GM4 és GAL fájlok)

Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)

Ja és egy fontos kérdés lemaradt: A GAL és a GM4 fájlokon belül, melyik munkalapon találhatók a másolandó cellák? (Mi a neve annak a munkalapnak pl Munka1, Munka2, Munka3 stb stb)
Bár inkább úgy írom, hogy lehessen módosítani, akkor mindegy is ez a kérdés...

[ Szerkesztve ]

Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)

Köszönet!!!
Ezzel próbálkoztam: Range("B2" & ":B" & usor).Select
de ezt nem szerette.

Kipróbálni csak holnap tudom, de remélem menni fog.
Nincs szükség a kód elején a Dim usor As Integer meghatározásra? Lehet ezért nem ment, mert ezt beírtam?

Még egyszer köszönöm!!

Office 2003

Szívesen.

Nem feltétlen fontos a Dim sor, de ajánlatos.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. http://www.elektroabc.hu/

Sikerült kipróbálnom, de sajnos nem működik.
Ez a programrész most:

usor = Range("A1").End(xlDown).Row

Sheets("Munka1").Activate
Range("B1:T1").Select
Selection.Copy
Worksheets("Munka2").Activate
Sheets("Munka2").Range("L2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True

Application.CutCopyMode = False
Selection.Copy
Range("L21:L" & usor).Select
ActiveSheet.Paste

Munka1-ről áthozza az adatokat Munka2 L2:L20 részébe, be is másolja transzponálással, ki is jelöli, látszik, hogy ki is teszi vágólapra, de itt leakad. A Debug pedig annál a sornál áll, ami kijelölné L21:Lusor területet.

Lehet nem is szintaktikai a hibám, hanem a logikai felépítéssel van a gond.

Elvesztettem a fonalat...

Office 2003

Ami számomra még furcsa, hogy ha makró rögzítővel kézzel megcsinálom a műveletet és ezt illesztem be a kódba, akkor ugyan az marad a szintaktika, csak a
Range("L21:L" & usor).Select
helyett a jelenlegi adatok mennyisége miatt ez lesz:
Range(L21:L286).Select

ami szintén nem fut le, ugyan ennél a sornál leáll.
Pedig ezt a sajár makrórögzítője csinálta

Office 2003

Ha a Munka2 lap L oszlopának az aljára akarod bemásolni ismételten a Munka1!B1:T1 tartományát, akkor az usor változót ehhez kell igazítani.

Sub mm()
Dim usor As Integer

'Munka1!B1:T1 másolása a Munka2!L2-be transzponálva
Sheets("Munka1").Range("B1:T1").Copy
Sheets("Munka2").Select
Range("L2").Select
Selection.PasteSpecial Paste:=xlValues, Transpose:=True

'usor az L oszlopban a Munka2 lapon
usor = Range("L65536").End(xlUp).Row

'másolás az utolsó alatti sorba, transzponálva
Range("L" & usor + 1).Select
Selection.PasteSpecial Paste:=xlValues, Transpose:=True
End Sub

Programozó: hibás programok megírására és kijavítására kiképzett szakember. http://www.elektroabc.hu/

Ha a Munka2 lap L oszlopának az aljára akarod bemásolni ismételten a Munka1!B1:T1 tartományát, akkor az usor változót ehhez kell igazítani.

Sub mm()
Dim usor As Integer

'Munka1!B1:T1 másolása a Munka2!L2-be transzponálva
Sheets("Munka1").Range("B1:T1").Copy
Sheets("Munka2").Select
Range("L2").Select
Selection.PasteSpecial Paste:=xlValues, Transpose:=True

'usor az L oszlopban a Munka2 lapon
usor = Range("L65536").End(xlUp).Row

'másolás az utolsó alatti sorba, transzponálva
Range("L" & usor + 1).Select
Selection.PasteSpecial Paste:=xlValues, Transpose:=True
End Sub

Programozó: hibás programok megírására és kijavítására kiképzett szakember. http://www.elektroabc.hu/

Köszönöm!

Látszik, hogy láma vagyok, még a kérdést sem tudom rendesen megfogalmazni.

A Munka2 L oszlopának második sorától az utolsó adatot tartalmazó sorig (a táblában, nem L oszlopban vannak adatok más oszlopokban) szeretném bemásolni transzponálva Munka1 B1:T1 értékeit.
Munka2 L oszlopa üres, az A oszlop az, ami üres sor nélkül folyamatosan adatokat tartalmaz az utolsó sorig. Ezért gondoltam, hogy az usort onnan definiálom.
Ha A oszlop az 500. sorig tartalmaz adatot, akkor L oszlopba is az 500. sorig kellenének transzponáltan másolva az adatok Munka1 Bi:T1-ből.

Tehát usorként nem L oszlop utolsó sora az érték, hanem A oszlop utolsó sora és L-ben is eddig kellenek az adatok.

Bocsánat, a pontatlanságomért (és csak remélem, hogy most jól írtam le.)

Köszi!!

Office 2003

hogy tudom változtatni az oszlopot sorrendjét, felcserélni őket??

Kijelölöd az oszlopt, kivágod és a másik elé beilleszted.

Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)

Kijelölöd az oszlopot, majd a kereténél fogva a kívánt helyre húzod, miközben nyomva tartod a Shift-et. Innen szerintem már egyértelmű lesz.

Webfejlesztő vagy? Érdekelnek az újdonságok? Próbáld ki, írj róla és nyerj! http://magyaropera.blog.hu/2011/03/01/iroi_palyazat_dragonfly_bemutato

Hi!
lenne egy újabb megoldandó problémám

a lényeg, hogy van két oszlop, azt szeretném hogy az egyező sorszámhoz tartozó értékeket (kódszámokat) összegezze nekem ki ahogy a képen is látszik
köszi előre is

---

A képen lévő példával élve kell egy listát csinálnod az előforduló sorszámokról (mint nálad az E4 és E5 cellákban). Ekkor az F4 cellába ez kerüljön:

=SZUMHA($A$2:$A$4;E5;$B$2:$B$4)

Az első és a harmadik elem fixen a listád, a középső elem ("E5") meg az aktuálisan hivatkozott sorszám. Ezt a függvényt aztán kiterjesztheted a következő sorokra is.

Webfejlesztő vagy? Érdekelnek az újdonságok? Próbáld ki, írj róla és nyerj! http://magyaropera.blog.hu/2011/03/01/iroi_palyazat_dragonfly_bemutato

[A képen lévő példával élve kell egy listát csinálnod az előforduló sorszámokról (mint nálad az E4 és E5 cellákban).]

és ezt milyen függvénnyel tudnám megcsinálni? darabtelire gondoltam így korán reggel de az csak megszámolja hogy hány van belőle de nem listázza ki hogy mik a lehetséges sorszámok

---

C2 cellába

=HAHIBA(INDEX($A$2:$A$4;HOL.VAN(0;DARABTELI($C$1:C1; $A$2:$A$4);0));"")

majd CTRL+SHIFT+ENTER és lemásolod a C2 cellát, amíg A és B oszlopban vannak adatok

D2 cellába

=SZUM(HA(HA(HOL.VAN($A$2:$A$4; $A$2:$A$4; 0)=(SOR($A$2:$A$4)-SOR(A2)+1); (SOR($A$2:$A$4)-SOR(A2)+1); 0)<>0; $B$2:$B$4; ""))

majd CTRL+SHIFT+ENTER és lemásolod a D2 cellát, amíg C oszlopban vannak adatok

Mindez képben: [link]

[ Szerkesztve ]

Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)

valahogy nem akar összejönni beírtam amit te írtál de a c2-be nem akar megjelenni a d oszlopba meg ami a képen látható valahogy csak szummázza de nem jöttem rá miért

[ Szerkesztve ]

---

1. Ne beírd, hanem másold be a PH!-s hozzászólásomból a képletet (egyszerűbb is, meg úgy legalább nem lehet elhibázni a dolgot, főleg ilyen hosszabb/összetettebb képlet esetén)
2. A CTRL+SHIFT+ENTER-t nem használtad(csak így lehet tömbképletet bevinni), mert a cella képlete "kacsacsőrű" zárójelek közé kell, hogy kerüljön, és Nálad jól látszik képen, hogy ez nem történt meg.

Lépésről-lépésre: A korábbi hozzászólásomban egérrel kijelölöd a C2 cella képletét, jobb egér/másol, Excel-ben C2 cellára állsz, megnyomod az F2-t, jobb egér/beillesztés és CTRL+SHIFT+ENTER. Ugyanezt eljátszód a D2 cellába kerülő képlettel is.

[ Szerkesztve ]

Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)

köszi az első része így sikerült és a második is csak az a problémám hogyha hozzá rakok mondjuk még 2 sort és a képletet átírom így:
=SZUM(HA(HA(HOL.VAN($A$2:$A$6; $A$2:$A$6; 0)=(SOR($A$2:$A$6)-SOR(A2)+1); (SOR($A$2:$A$6)-SOR(A2)+1); 0)<>0; $B$2:$B$6; ""))

tehát ahol A4 volt oda A6 ahol B4 oda B6-ot akkor megint csak összeadja
(478 soros a konkrét táblázatom hátha ez kell hozzá )

[ Szerkesztve ]

---

Ha nem változik túl gyakran a lista, akkor szerintem nem kell erőltetni a képleteket, mert eléggé lassúak is lehetnek, és, mint a mellékelt ábra mutatja, csak a gond van velük. A képeid alapján 2007-et vagy 2010-et használsz.

Egyszerűen másold ki a lista elemeit a "Sorszám" részből (a példádban A2:A4) mondjuk az E oszlopba.

Jelöld ki őket, majd az Adatok fülön az Adateszközök csoportban használd az Ismétlődések eltávolítása funkciót.

Ha kell, akkor megfejelheted egy sorba rendezéssel is.

Webfejlesztő vagy? Érdekelnek az újdonságok? Próbáld ki, írj róla és nyerj! http://magyaropera.blog.hu/2011/03/01/iroi_palyazat_dragonfly_bemutato

a lista nem változik de nem azt akarom hogy amiből 2 van az törölni vagy ilyesmi hanem a lényeg:
hogy van egy oszlopom amibe kódok vannak, mindegyik kód 2 szer szerepel és mellettük egy ár (b oszlopba)és ezt szeretném szummázni/ kilistázni
tehát mondjuk
1. kód = 5000
2.kód = 6000
1.kód= 400
2.kód: 600

és akkor listázza ki hogy 1.kód 5400 2.kód 6600 ..és így tovább ás van olyan kód ami mellé olyan szöveg van "nincs ár "

---

Áhhh... Bocsesz, hibakezeléssel szórakoztam, aztán elbaszarintottam a dolgot, azért olyan hosszú a D2 képletet, ráadásul tömbképlet is felesleges....

Szóval D2-be

=HA(C2="";"";SZUMHA($A$2:$A$7;C2;$B$2:$B$7))

Ezt meg lemásolod, ameddig C oszlopban vannak adatok (de addig is lemásolhatod, ameddig A oszlopban vannak adatok), mindegy.

Még egyszer elnézést...

Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)

Azt kérdezted, hogy az E oszlopbeli listát hogyan tudod legenerálni. Megírtam. Azt nem mondtam, hogy piszkáld az A-B oszlop táblázatát.

Tehát tulajdonképpen létrehozod az E oszlopos listát a fenti módszerrel, majd használod a függvényt az F oszlophoz, amint már korábban megírtam (a SZUMHA-t). Ez nem veszi figyelembe a szövegeket, tehát ha két azonos kódhoz egy szám és egy szöveg tartozik, akkor értelemszerűen csak a számot "adja össze".

[ Szerkesztve ]

Webfejlesztő vagy? Érdekelnek az újdonságok? Próbáld ki, írj róla és nyerj! http://magyaropera.blog.hu/2011/03/01/iroi_palyazat_dragonfly_bemutato

köszi mind2töknek sikerült

---

Üdv.

Office 2007 -et használok, de lenne egy apró problémám. ha 0 - 9,5 -ig írok a mezőbe addig jó, de 10 felett valamerre mindig kerekít. Én viszont nem szeretném hogy kerekítsen
Aztán ha egy cellát szeretnék szum -mal összesíteni az is megy, csak hogy az is kerekít, de azt sem szeretném
Példa :
2,5
+
4
= 7 (ez nem hét, hanem csak 6,5, nem akarom hogy kerekítsen)

Másik példa :
11,5 (ezt írom, de 12 -re átjavítja, pedig nem kellene)
+
8 (ez ugye 19,5 lenne, csakhogy ez is kerekít, így 20 az eredmény)

Már idegbajt kapok tőle, valaki tudja mi a megoldás?
Válaszokat előre is köszönöm

"Ha gazdagnak akarod érezni magad, gondold meg mi mindened van, amit nem lehet pénzért megvenni."

Az összegző cella formátumában állítsd be a tizedesek számát. A leírásod szerint most le van tiltva ezeknek a mutatása.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. http://www.elektroabc.hu/

Ha jól tudom, van Excel-ben véletlen szám generátor. Lehet ezt valahogy lottószám generátorrá átalakítani? Pl.ötöslottó, és hatoslottó számgenerátorra gondolok.

Timeline:Toshiba,Albacomp,Asus,Albacomp/Clevo,Fujitsu,Asus,Toshiba-A200,Sony-Vaio,Qosmio..

Keress rá a VÉL() és a RANDBETWEEN függvényekre, ezen a fórumon is találsz néhány példát rájuk.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. http://www.elektroabc.hu/

Lenne nekem is egy kérdésem:

A megnyitott fájl nevét ("InpFileName") csak elérési úttal együtt szerepelt a változóban, csak a fájl nevét így tudtam kibányászni:

Set fs = CreateObject("Scripting.FileSystemObject")
InpFileName = Application.GetOpenFilename("NASTRAN result file(*.pch), *.pch")
' Nev kiiratas a munkalapra

CounterFN = 0

Pch1OpenFileName = InpFileName
LenPch1OpenFileName = Len(Pch1OpenFileName)
Do While CounterFN < LenPch1OpenFileName
Pch1OpenFileNameReverseT = Mid(Pch1OpenFileName, LenPch1OpenFileName - CounterFN, 1)
Pch1OpenFileNameReverse = Pch1OpenFileNameReverse & Pch1OpenFileNameReverseT
CounterFN = CounterFN + 1
Loop
Pch1FileName = Mid(Pch1OpenFileName, LenPch1OpenFileName - Application.WorksheetFunction.Find("\", Pch1OpenFileNameReverse) + 2, Application.WorksheetFunction.Find("\", Pch1OpenFileNameReverse) - 1)
Range("a4").Value = Pch1FileName

Tudnátok erre egy elegánsabb megoldást ajánlani?

Csak nem jövök rá, hogy tudom úgy megoldani (VBA nélkül), hogy
-B3: B92 között vannak a számok 1-től 90 -ig.
-az öt szám pedig E3:I3 között.,
de úgy hogy amit már kiválasztott a B oszlopból mondjuk az E3-ba az ne szerepeljen az F3,G3,H3,I3-ban .

[ Szerkesztve ]

Timeline:Toshiba,Albacomp,Asus,Albacomp/Clevo,Fujitsu,Asus,Toshiba-A200,Sony-Vaio,Qosmio..

Köszönöm szépen. Sikerült

"Ha gazdagnak akarod érezni magad, gondold meg mi mindened van, amit nem lehet pénzért megvenni."