[Cpt. Flint]

Idézet: x00 - Dátum: 2009. márc. 9., hétfõ - 19:39

Közben rájöttem, hogy zároltak voltak az elemek
Úgyhogy sikerült átírni a neveket és így már megy.
Köszi a segítséget!

Szerintem amúgy az volt a probléma, hogy hagytál egy space-t az 1 elõtt. (Választógomb 1) Ilyet nem szoktak nevekben csinálni; nem csodálnám, ha ez borította volna ki, és a Választógomb1 formával meg simán menne. Ha space van, ott valami befejezõdött és új kifejezés, állandó, változó stb. kezdõdik. Így a 'Választógomb' önmagában állt és értelmezhetetlen volt; aztán meg az 1.Value kifejezéssel se tudott volna mit kezdeni (ha eljut odáig), mert az 1 önmagában szerintem nem használható objektum, állandó, változó stb. neveként.
Ha duplán kattintasz szerkesztés módban valamelyik vezérlõre, akkor beszúr egy Akarmi_Click subot a munkalap visualbasicos kódjába, ahol 'Akarmi' a vezérlõ neve. Ha azt másolod, akkor biztos, hogy nem hibázod el. A 2003-as magyar nyelvû Excel amúgy még OptionButton1-nek hívja. úgyhogy nem frissítek. 

[Misi_D]

Sziasztok!

Lenne egy problémám, nem tuti, h Excelben lesz a megoldás, de hátha...
Tehát, adott egy xls tábla, melyben szerepel munkahely id (több száz van), és szerepel a dolgozók neve (több ezer - egy munkahelyen változó, 2-50 fõ között kb.), plusz egyéb adatok, ami a probléma szempontjából mellékes. A tábla a munkahely id szerint növekvõ sorba van rendezve. A cél: minden munkahelyre készítenem kell egy levelet, amelyekben szerepel ez a tábla, de csak az ott dolgozók adatairól - tehát, ha új munkahely id jön a listában, akkor azok a dolgozók új lapra/új levélbe kerüljenek.
Eléggé körlevél szagú a dolog, de abba nem tudok táblarészletet behúzni. Aztán elsõ nekifutásra arra jutottam, hogy a levél szövegét, amit mindenki megkap, elõfejbe írom a Wordben, majd átcopyzom a teljes táblát a Word "törzsébe", és egyesével teszek egy oldaltörést a munkahely id váltásoknál. "Profi" megoldás, és még pár órát el is venne az életembõl, a szemkisülésrõl nem is beszélve.  :Ð
A probléma ésszerû megoldására szeretnék valami módszert találni. Felmerült egy olyan ötlet, hogy nincs-e az oldaltörésnek valami kódja, amit az Office általánosan  felismer és kezel? Mert azt akkor behekkelném az Excelbe minden munkahely id változásnál (pl. egy pivotba rakom a táblát, és az összegzõ soroknál tenném be ezt a kódot), már ha létezik ilyen. Vagy VB, vagy mittomén...
Valakinek ötlet?

[Cpt. Flint]

Idézet: Misi_D - Dátum: 2009. márc. 18., szerda - 11:25

Sziasztok!

Lenne egy problémám, nem tuti, h Excelben lesz a megoldás, de hátha...
Tehát, adott egy xls tábla, melyben szerepel munkahely id (több száz van), és szerepel a dolgozók neve (több ezer - egy munkahelyen változó, 2-50 fõ között kb.), plusz egyéb adatok, ami a probléma szempontjából mellékes. A tábla a munkahely id szerint növekvõ sorba van rendezve. A cél: minden munkahelyre készítenem kell egy levelet, amelyekben szerepel ez a tábla, de csak az ott dolgozók adatairól - tehát, ha új munkahely id jön a listában, akkor azok a dolgozók új lapra/új levélbe kerüljenek.
Eléggé körlevél szagú a dolog, de abba nem tudok táblarészletet behúzni. Aztán elsõ nekifutásra arra jutottam, hogy a levél szövegét, amit mindenki megkap, elõfejbe írom a Wordben, majd átcopyzom a teljes táblát a Word "törzsébe", és egyesével teszek egy oldaltörést a munkahely id váltásoknál. "Profi" megoldás, és még pár órát el is venne az életembõl, a szemkisülésrõl nem is beszélve.  :Ð
A probléma ésszerû megoldására szeretnék valami módszert találni. Felmerült egy olyan ötlet, hogy nincs-e az oldaltörésnek valami kódja, amit az Office általánosan  felismer és kezel? Mert azt akkor behekkelném az Excelbe minden munkahely id változásnál (pl. egy pivotba rakom a táblát, és az összegzõ soroknál tenném be ezt a kódot), már ha létezik ilyen. Vagy VB, vagy mittomén...
Valakinek ötlet?

Ha életedben csak egyszer kell ez az egész és csak nyomtatásra, akkor én azt mondanám, hogy az excelbe írd be a levél szövegét a tábla fölé/alá (ahova és ami kell), és a táblát mindig egy-egy munkahely id-re szûrve egyenként nyomtasd ki a leveleket (ezt egyébként elég egyszerû makrózni is, végigmegy egy ciklus a munkahely ideken, szûr, nyomtat, szûr, nyomtat). Makróval az is megoldható, hogy a munkahely id-re szûrés után a látható cellákat egy új munkalapra v. munkafüzetbe másoltasd, ha menteni is akarod. Kicsit több babrálással azt is meg lehet oldani, hogy a szûrés után másolt tartalmakat egy másik munkalapon oldaltörés beszúrásával egymás alá másolgassa (természetesen itt is úgy értem, hogy a levél szöveg alul-felül ott van minden szûrésben), és akkor már tényleg hiper-szuper minden.  Ha nincs hosszú, bonyolult, sok formázást kívánó szöveg, akkor ez járható útnak tûnik.

Szerkesztette: Cpt. Flint 2009. 03. 18. 12:32 -kor

[Cpt. Flint]

Idézet: Cpt. Flint - Dátum: 2009. márc. 18., szerda - 12:29

Makróval az is megoldható, hogy a munkahely id-re szûrés után a látható cellákat egy új munkalapra v. munkafüzetbe másoltasd, ha menteni is akarod.

Sõt, szerintem docban v. rtfben is menthetõ a másolt tartalom.

[Delila]

Misi_D

A címsort és azt a részt, ami az egyenszöveget tartalmazza, jelöld ki fent ismétlõdõ soroknak a Fájl/Oldalbeállítás/Lap fülön.
A lenti makró beszúrja az oldaltöréseket – ha az ID-k az A oszlopban vannak, akkor jó helyre.
Ha nem A-ban vannak, akkor az If kezdetû sorban a két Cells második paraméterét 1-rõl írd át a megfelelõ oszlop sorszámára.

Sub BreakRows()
    For sor = 2 To ActiveSheet.UsedRange.Rows.Count
        Cells(sor, 1).Select
        If Cells(sor - 1, 1) < Cells(sor, 1) Then
            ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
        End If
    Next
End Sub

Szerkesztette: Delila 2009. 03. 18. 14:12 -kor

[Cpt. Flint]

Idézet: Delila - Dátum: 2009. márc. 18., szerda - 14:09

Misi_D

A címsort és azt a részt, ami az egyenszöveget tartalmazza, jelöld ki fent ismétlõdõ soroknak a Fájl/Oldalbeállítás/Lap fülön.
A lenti makró beszúrja az oldaltöréseket – ha az ID-k az A oszlopban vannak, akkor jó helyre.
Ha nem A-ban vannak, akkor az If kezdetû sorban a két Cells második paraméterét 1-rõl írd át a megfelelõ oszlop sorszámára.

Sub BreakRows()
    For sor = 2 To ActiveSheet.UsedRange.Rows.Count
        Cells(sor, 1).Select
        If Cells(sor - 1, 1) < Cells(sor, 1) Then
            ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
        End If
    Next
End Sub

ezzel egy baj lehet még: ha a levél végére is akar írni (dátum, aláírás). meg hogy a sorbarendezésre (és jelen esetben csak növekvõ jó! én inkább <> használtam volna) mindig ügyelni kell.
Cserébe viszont baromi egyszerû és hatásos.

Szerkesztette: Cpt. Flint 2009. 03. 18. 14:22 -kor

[Delila]

Misi_D ezt írta:
A tábla a munkahely id szerint növekvõ sorba van rendezve.

A lapok alján ismétlõdõ szöveget élõlábként kell megadni.

Ja, és még egy fontos dolog: a for kezdete 1-gyel több legyen, mint a fent ismétlõdõ sorok száma.

Szerkesztette: Delila 2009. 03. 18. 14:29 -kor

[Cpt. Flint]

Idézet: Cpt. Flint - Dátum: 2009. márc. 18., szerda - 14:20

ezzel egy baj lehet még: ha a levél végére is akar írni (dátum, aláírás). meg hogy a sorbarendezésre (és jelen esetben csak növekvõ jó! én inkább <> használtam volna) mindig ügyelni kell.
Cserébe viszont baromi egyszerû és hatásos.

mondjuk a végére szánt szöveget beteheti élõlábba.

[Cpt. Flint]

Idézet: Delila - Dátum: 2009. márc. 18., szerda - 14:24

Misi_D ezt írta:
A tábla a munkahely id szerint növekvõ sorba van rendezve.

A lapok alján ismétlõdõ szöveget lábjegyzetként kell megadni.

Most igen. Én csak annyit mondtam, hogy ha késõbb is használja és bõvül a tábla, akkor figyelni kell rá. Nem kell megsértõdni. 

Azt meg azért tudjuk, hogy élõlábbanm elég szar formázni meg igazítani... de hát én maximalista vagyok. 

Szerkesztette: Cpt. Flint 2009. 03. 18. 14:28 -kor

[Delila]

Eszemben sem volt megsértõdni, mindketten segíteni akarunk.

[r0cket]

olyan problémám lenne, hogy 2003ban nem tudom megnézni a lineáris trendvonal egyenletét. Tudom, hogy lehet, Office XPben már sikerült. Holt található? Úgy emlkékszem, hogy vmi tulajdonságban írta ki.
köszi.

[Delila]

A trendvonalon jobb klikk, Trendvonal formázása, Egyebek fül, Egyenlet látszik a diagramon.

[Misi_D]

Hú, köszi srácok! 
Többször is kelleni fog a jövõben, az egyenként nyomtatás nem megoldható - már csak azért sem, mert nem én nyomtatom, hanem küldöm tovább az anyagot - de ott aztán tényleg csak annyit foglalkoznak vele, h fájl/nyomtatás... Aztán a service-ért a számlát küldjétek a fõnökömnek! 
Egyébként ez volt a lényeg, ezt nem vágtam:
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell

[Delila]

Idézet: Misi_D - Dátum: 2009. márc. 19., csütörtök - 10:09

Egyébként ez volt a lényeg, ezt nem vágtam:
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell

Szívesen.
Fejbõl én sem vágtam az oldaltörés beszúrását, ezért rögzítettem egy makrót, onnan kimásoltam.

[Topgunhu]

Sziasztok.
Nagyon nagy segitségre lenne szükségem.A problémám a köv:
Egy fõ excel fájlban összegeznem kell a havi eladásokat.
A táblázat a köv adatokat tartalmaz oszlopokban:
1.TPN kod 2.Ean kod 3.Termék 4. jan készlet 5. februari készlet 6.eladott mennyiség
A februári készlet fügvényre lenne szükségem úgy hogy összefésüli a 20 excel fájlt és az adott TPN teméknek a készlete összegezi az 5-ik oszlopban.
Ha honap végén lementettem a készleteket hogyan tudnék összegezni öket a fötablazatban hogy ne kéne egyenként bögészni?
A partnerek adatbázisok a köv oszlopokat tartalmazza:
1.Dátum 2.TPN 3.Raktár 4. Üzlet 5.Készlet

[Delila]

Topgunhu

Mindegyik partner füzetében felveszel egy új oszlopot, az F-et. F2-be beírod az =SZUMHA(A:A;A2;E:E) képletet, és lemásolod.

A gyûjtõ fájlod E2 cellájába ez jön:

=FKERES(A2;[Partner_1.xls]Munka1!A:F;6;HAMIS)+FKERES(A2;[Partner_2.xls]Munka1!A:F;6;HAMIS)......+FKERES(A2;[Partner_20.xls]Munka1!A:F;6;HAMIS)

Persze mind a 20 fájl nevét rendesen meg kell adnod, és ha nem Munka1 a lapok neve, azt át kell írnod. Ezt a képletet végig másolod. A fõ füzet minden TPN kódja mellett összegzi a többi lap azonos TPN kódú készletét.

[Delila]

Nem írtad, hogy a partnerek füzeteiben havonta, vagy folyamatosan vezeted-e az adatokat. Ha folyamatosan, akkor az összegzés elõtt meg kell adni az idõhatárokat.

I1-be: Kezdõ dátum:, I2-be: Utolsó dátum:      szöveg jön.
A két dátumot (például 2009.02.01 és 2009.02.28) a J1, és J2 cellákba írd be. A formátum lehet más, pl. 2.1 és 2.28 is, lényeg, hogy dátum formátum legyen.

Az F2 képlete ezután: =HA(ÉS(A1>=$J$1;A1<=$J$2);SZUMHA(A:A;A1;B:B);0)

Ezt másold végig.

Ezzel megoldjuk, hogy mindig csak azokat az értékeket összegezzük, amik a megadott idõintervallumban szerepelnek, a többi dátum mellé 0 érték kerül.

Szerkesztette: Delila 2009. 03. 20. 08:22 -kor

[Pikkolo]

Ment valaha valakinem az KEREKÍTÉS.FEL parancs? Nekem nem akar menni, mintha szövegként értelmezné és nem tudja kerekíteni. A sima kerekítés tökéletesen megy, de ez nem [=KEREKÍTÉS.FEL((M8)/16;-1)] Akinek sikerült már mûködésre bírni az kérem jelezze.

[fusti67]

Köszi szépen mindenkinek, aki segíteni próbált! (Megrajzoltam elforgatva, nem akkora gáz, mint hittem...)
Köszi még egyszer...

[Root_Kiskacsa]

Idézet: Pikkolo - Dátum: 2009. márc. 28., szombat - 21:44

Ment valaha valakinem az KEREKÍTÉS.FEL parancs? Nekem nem akar menni, mintha szövegként értelmezné és nem tudja kerekíteni. A sima kerekítés tökéletesen megy, de ez nem [=KEREKÍTÉS.FEL((M8)/16;-1)] Akinek sikerült már mûködésre bírni az kérem jelezze.

"KEREK.FEL" a pontos neve, nem "KEREKÍTÉS.FEL". Nem ez a probléma? Mert egyébként teljesen jól mûködik.
Amit még el tudok képzelni, hogy a forráscella (példád szerint az "M8") valóban szöveg volt eredetileg, és utólag lett átformázva számmá. Ez esetben a benne levõ érték marad szöveg formátumú, amíg legalább egyszer bele nem szerkesztesz. Tehát próbáld ki, hogy -- miután a cella valóban számformátumra lett formázva -- dupla klikkel vagy F2-vel bemész a cellába és leenterezed. Ha ez sem segít, akkor még a tizedesvesszõ lehet probléma, feltéve, hogy törteket használsz. A törtek esetében oda kell figyelni, hogy a Windows milyen nyelvi beállításokkal rendelkezik, ugyanis ennek megfelelõen variálja az Excel, hogy a pont vagy a vesszõ nála a tizedesvesszõ. Eltérõ beállítás esetén a számot félreértelmezi. Igazából ezzel a problémával utoljára az Excel 2000-ben találkoztam, nem tudom, hogy azóta javítva lett-e.