Keresés

Részletes keresés

pimre Creative Commons License 2013.02.14 0 0 20388

Off: "formátumozni" Ez csúnya volt tőlem. Formázni lett volna a helyes kifejezés.

Előzmény: pimre (20387)
pimre Creative Commons License 2013.02.14 0 0 20387

Szerintem próbáld meg a cellákat beírás előtt formátumozni. A cellaformátumnál válaszd az egyénit, és ezen belül a hh.nn szöveget írd a formátumkód mezőbe! A magyar office-nak ezt értenie kellene. (Ha angol lenne az office, akkor feltehetőleg a mm.dd kellene).

Ezzel azt éred el, hogy úgy a hónapok, mint a napok két karakterrel kerülnek a cellákba. Fenn a szerkesztőlécen ugyan az év is megjelenik, de gondolom, ez nem baj.

Előzmény: pigee (20385)
default6 Creative Commons License 2013.02.14 0 0 20386

Köszönöm a választ, ezekkel tényleg jobb lesz

Előzmény: tbando (20372)
pigee Creative Commons License 2013.02.14 0 0 20385

Bocsanat, most massal voltam elfoglalva. :-(

Igen, ilyenek nalam is vannak, de ezek szokozt hagynak maguk utan es beiras utan atvaltoznak mas adatra. Tartok tole, hogy azert, mert az oprendszer angol, es hiaba magyar office van rajta, es magyar sema beallitva, valami nem tetszik neki.

Olyat szeretnek, ami fix 5 karakteren hozza egymas alatt a "01.01" - "12.31" sort.

Ha beszenvedem a nalad levo elso adatot, az ilyeneket ir:

"3. 4"

"5. 21"

"11. 2"

"12. 30"

azaz 2 karakteres elteresu hullamzo oszlop a vegeredmeny, es egyesevel kell gepelnem, es figyelnem, hogyan valtozik, mert a szerkeszto mezoben mindig "1900. 3. 4" jelenik meg. :-((

 

Előzmény: _Nyuszi (20271)
Delila10 Creative Commons License 2013.02.14 0 0 20384

Az If lap = 2 Then Rows(11).Copy Sheets("Gyűjtő").Range("A1") sorban az A1-et írd át A11-re.

Előzmény: Delila10 (20383)
Delila10 Creative Commons License 2013.02.14 0 0 20383

Ha a címsorod van a 11. sorban, akkor változatlanul használhatod a makrót, ha az első, adatot tartalmazó sor a 11., akkor a  Set Rng = Range("A12:K69") sorban a 12 helyett írj 11-et.

 

Sub A_kigyujtes()
    Dim Rng As Range, lap As Integer, usorGy As Integer
    Application.ScreenUpdating = False
    
    Sheets("Gyűjtő").Columns("A:K") = ""
    
    For lap = 2 To Sheets.Count
        Sheets(lap).Select
        If lap = 2 Then Rows(11).Copy Sheets("Gyűjtő").Range("A1")
            
        Selection.AutoFilter Field:=1, Criteria1:="A"
        Set Rng = Range("A12:K69")
        Set Rng = Rng.SpecialCells(xlCellTypeVisible)
        usorGy = Sheets("Gyűjtő").Cells(Rows.Count, "A").End(xlUp).Row + 1
        Rng.Copy Sheets("Gyűjtő").Range("A" & usorGy)
    Next
    
    Sheets("Gyűjtő").Select
    Application.ScreenUpdating = True
End Sub

Előzmény: Tie (20382)
Tie Creative Commons License 2013.02.14 0 0 20382

Mit változtassak a makrón, ha azt szeretném, hogy minden keresett oldalon csak az A11:A69 sorokban keresse az A-kat? (gyakorlatilag az A11:K69 területen vannak az adatok) A felette lévő dolgok nem adatrekordok, csupán egyfajta fejléce a különböző sheeteknek.

 

Ugyanígy, a célsheetnek is van ilyen "fejléce", tehát az eredményül kapott adatrekordokat ott is az A11 lenne az első sor, ahová kapott eredményt írunk be.

Előzmény: Delila10 (20380)
Tie Creative Commons License 2013.02.14 0 0 20381
Sorry, igen, az aktuális munkafüzetben van a cél sheet is.

Köszönöm, jövök egy sörrel. :)
Előzmény: Delila10 (20380)
Delila10 Creative Commons License 2013.02.14 0 0 20380

Nem írtad, hogy a kigyűjtés eredménye az aktuális-, vagy egy másik füzetbe kerüljön.

A makrót az első szerint írtam meg. Első lap legyen egy egyelőre üres, Gyűjtő nevű.

 

Sub A_kigyujtes()
    Dim usor As Integer, Rng As Range, lap As Integer, usorGy As Integer
    Application.ScreenUpdating = False
    
    Sheets("Gyűjtő").Cells = ""
    
    For lap = 2 To Sheets.Count
        Sheets(lap).Select
        If lap = 2 Then Rows(1).Copy Sheets("Gyűjtő").Range("A1")
            
        Selection.AutoFilter Field:=1, Criteria1:="A"
        usor = Cells(Rows.Count, 1).End(xlUp).Row
        Set Rng = Range(Rows(2), Rows(usor))
        Set Rng = Rng.SpecialCells(xlCellTypeVisible)
        usorGy = Sheets("Gyűjtő").Cells(Rows.Count, "A").End(xlUp).Row + 1
        Rng.Select
        Selection.Copy Sheets("Gyűjtő").Range("A" & usorGy)
    Next
    
    Sheets("Gyűjtő").Select
    Application.ScreenUpdating = True
End Sub

 

Előzmény: Tie (20379)
Tie Creative Commons License 2013.02.14 0 0 20379

Sziasztok, az alábbi feladatra keresem a megoldást Excel 2010-ben.

 

Adott egy táblázat, amiben van több lapfül.

Minden lapfül tartalmaz adatokat, az alábbi elrendezésben

 

Attribútum | Név | PO | Megnevezés | Code | HUF | USD

 

Minden lapfülön azonos strukturában tároljuk az adatsorokat.

 

A feladat az, hogy mindegyik lapfülről kigyűjtsük azokat az adatsorokat, amelyeknek az Attribútum mezőjében 'A' érték található (ebben a mezőben igazándiból csak igen-nem állapot van, tehát vagy üres a mező, vagy tartalmaz 'A'-t), és ezeket az adatsorokat a többi mezőjével együtt kimásoljuk egy másik lapfülre.

 

Ha manuálisan csinálnám, úgy csinálnám, hogy auto-szűrővel leszűröm az attribútum mezőre, majd a kapott szűrt táblát CTRL-C - CTRL-V-vel átmásolom arra a lapfülre, ahol szeretném látni őket. Hangsúlyozom, az ÖSSZES lapfülről szeretném összeszedni a keresett adatsorokat.

 

Megúszom-e én ezt makró nélkül, van-e valami függvény, vagy más megfejtés erre?

szláj70 Creative Commons License 2013.02.13 0 0 20378

Köszi, mindenkinek a válaszokat, most értem haza, a munkahelyi gépen produkálta a lentieket, itthon is lepróbálom.

Előzmény: tbando (20377)
tbando Creative Commons License 2013.02.13 0 0 20377

Ha csak így nem. 

 

És az hogy lehet, hogy a rejtett sor cellájának sima Copy/Paste-je nála rejtett sort eredményez, nálam meg - mint most utólag rájöttem - nem?

Előzmény: Retro Image (20376)
Retro Image Creative Commons License 2013.02.13 0 0 20376

Biztos úgy akar rejtett lapról másolni, hogy

Sheets("Rejtett lap neve").Select

Az meg nem fog menni.

Előzmény: tbando (20374)
Delila10 Creative Commons License 2013.02.13 0 0 20375

Mi nem az igazi? Mik a tünetek?

 

Meg tudod (ha akarod) oldani a közvetlen címzést, ha meghatározod a makróval a beillesztés helyét. Erre írtam a példát, ami megállapítja, hogy az utolsó kitöltött sorod a 13, és ez alá 4-gyel kell beszúrnod a következő adatodat.

Előzmény: szláj70 (20369)
tbando Creative Commons License 2013.02.13 0 0 20374

Ha rejtett sort másolsz és nem akarod, hogy a másolat is rejtett legyen, akkor az irányitott beiilesztés képlet/értéke-t használd.

 

Azt nem értem, hogy a rejtett lapról miért nem tudsz másolni. Nálam minden további nélkül megy. Sőt, a legnagyobb meglepetésemre a sima Paste a rejtett lap rejtett sorait sem rejtve másolta.

 

Az nem képzelhető el, hogy hibásan írtad be a lap nevét?

Előzmény: szláj70 (20369)
Retro Image Creative Commons License 2013.02.13 0 0 20373

Meg lehet csinálni, amit akarsz, de én személy szerint pl. lusta vagyok tesztkörnyezetet kreálni a problémádnak.

Tölts fel valahová egy minta munkafüzetet, vagy küldd el email-ben.

Előzmény: szláj70 (20371)
tbando Creative Commons License 2013.02.13 0 0 20372

Tudtommal nem lehet. De a HELYETTE vagy a CSERE függvény alkalmazásánál nem vált át dátumra. Aztán a módosított oszlop visszamásolható az eredeti oszlopra.

Előzmény: default6 (20368)
szláj70 Creative Commons License 2013.02.13 0 0 20371

A forrás állandó, de a cél az változó lenne, így nemigen tudom, hogy tudnám.

 

Előzmény: SQLkerdes (20370)
SQLkerdes Creative Commons License 2013.02.13 0 0 20370

Próbáld meg elkerülni a másolást-beillesztést és közvetlenül címezd meg a forrás és a cél cellákat.

Előzmény: szláj70 (20369)
szláj70 Creative Commons License 2013.02.13 0 0 20369

Köszi, de sajnos nem az igazi.

Más:

Érdeklődöm, megoldható-e, hogy makróval rejtett sorból, netán rejtett munkalapról másolhassak ki cellákat.

Ha rejtett sorból másolom ki, akkor a beillesztés után is rejtett lesz, ha rejtett munkalapról próbálom, akkor hibát jelez, mert nem találja a lapot.

Előre is köszi.

Előzmény: Delila10 (20338)
default6 Creative Commons License 2013.02.13 0 0 20368

sziasztok, a bajom a következő:

beírom egy cellába pl 13/1/2 Eleve szövegként formázom hogy ne csináljon belőle dátumot mert ez valamilyen pozíció, pl raktári sorok oszlopok polcok száma. Eddig jó. Amikor viszont "csere" funkcióval le akarom  mondjuk cserélni a 13 at 14 re akkor az eredményt dátumként formázza és 2014.01.02 -t ír be. Miért akar mindenképp dátumot csinálni mindenbő?

Persze megoldja aproblémát ha aposztróffal kezdem pl '13/1/2 de nem lehetne alapból kikapcsolni azt a funkciót hogy mindenből dátumot próbáljon csinálni? Elég idegesítő.

<Tycoon> Creative Commons License 2013.02.12 0 0 20367

köszi, ez már megy, szupi, csak én beszúrást nyomtam jobbra tolás helyett

Előzmény: pimre (20365)
pimre Creative Commons License 2013.02.12 0 0 20366

kényelmez helyesen kényelmes

Előzmény: pimre (20365)
pimre Creative Commons License 2013.02.12 0 0 20365

Akkor még egyszer ugorjunk neki: Felejtsd el, hogy oszlop beszúrással akarj cellákat beszúrni! Válaszd külön magadnak a két fogalmat. Az oszlop beszúrást (vagy törlést) a cellák beszúrásától (vagy törlésétől). Amit Te akarsz, az cellák beszúrása az alsó oszlopokba a 21. sortól kezdődően. Tehát a 21. sortól lefelé kijelölöd az összes cellát (abban az oszlopban, amelyik elé be akarsz szúrni), majd az egér jobb gombjával a beszúrást választod. Erre megkérdezi, hogy mi legyen a beszúrás módja. Ekkor válaszd azt, hogy cellák eltolása jobbra! És láss csodát, beszúródott egy új oszlop, miközben a felső rész maradt.

 

Egy kis elmélet: A sorok és oszlopok rögzítése nem azt jelenti, hogy nem tudod módosítani (beszúrás/törlés), hanem azt, hogy a képernyőn rögzül, miközben lapozol. Más szóval a fejléc, vagy a bal oldali oszlopok egy része mindig látható. Nagy segítség ez, ha több oldalas táblázattal dolgozol.

 

Megjegyzés: A ctrl +, vagy hasonló megoldást nem ismerem. Ettől még létezhet, de én nem találkoztam vele.

 

Még valamit: Ha az a gond, hogy a fent leírt módszer nem kényelmez, mert a táblázat több ezer soros, és nehézkes a 21. sor alatti cellák kijelölése, arra is ven megoldás. Csak most itt nem akarom bonyolítani, de ha kell, majd elmondom. 

Előzmény: <Tycoon> (20362)
tbando Creative Commons License 2013.02.12 0 0 20364

Nem elég felosztanod a táblát. A törlendő cellákat ki is kell jelölni. Ahogy egyébként pimre írta is. 

Előzmény: <Tycoon> (20363)
<Tycoon> Creative Commons License 2013.02.12 0 0 20363

Nem tudom leírni túl érthetően, szóval van egy munkafüzetem, egymás alatt 2 táblázattal.

 

Ha a felső táblába +1 oszlopot kell bevinnem akkor az alsóba is berakja a beszúrásnál, és törlésnél ugyanúgy egyszerre törli az egymás feletti táblázatok celláit, hiába rögzíttetem az ablaktáblát vagy a felosztásban hiába osztom fel a két táblázatot.  

 

Valami ötlet esetleg volna erre?

Előzmény: <Tycoon> (20362)
<Tycoon> Creative Commons License 2013.02.12 0 0 20362

Szia, én bárhogy rögzítem a felső 20 sor ablaktábláját, ha új oszlopot akarok beszúrni akkor felül is meg alul is bezeszúrja.   Pedig még nagyon régen tudtam hogy hogy lehet megoldani hogy csak alulra vagy felülre szúrja be valami ctr és + vagy mi volt de most ezen ez sem műlödik :(

Előzmény: pimre (20339)
tbando Creative Commons License 2013.02.12 0 0 20361

A makrós változat ha működik,  annyiban jobb, mint az én feltételes formázásom, hogy eltünteti a szükségtelen sorokat, így megakadályozza a véletlen felülírásukat, pl. ha összegezni kéne valamelyik rubrikát.

Előzmény: pimre (20359)
tbando Creative Commons License 2013.02.12 0 0 20360

Nálam van valami zűr. Roppant meglepő és abszolut érthetetlen.  Ugyanis az van, hogy kattingatással kijelölve nálam is müködik <>HAMIS szűrés. Autófilterrel is, irányítottal is.  Csakhogy van egy default makróm a szűrésre, amit általában használok a kattingatások helyett.  Még a 2003-as excelre csináltam, de müködik a 2007-en is.  Elég univerzális, csak arra kell ügyelni, hogy a táblázataim  a 10-sortól kezdődjenek és a 2. sorba csak kritérium kerülhet

 

Sub keres()

' Billentyûparancs: Ctrl+k

    Range("A10:zz65536").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _

        Range("a1:zz2"), Unique:=False

End Sub

 

Na most ez a makró, miután letoltam a leltáros táblázatot a 10. ik sorra

 

az E oszlop e1:e2 'Me.' és  'db' kritériumára jól szűrt,

a HAMIS-ra szintén,

DE a <>HAMIS-ra süket.

 

Kattintgatva viszont mindhármat korrektül szűrte. Egyszerűen érthetetlen. Ötlete valakinek, hogy miért müködik másképp a kattigatás és a makró? 

 

Aztán kiderült, hogy a <HAMIS sem müködik mindegyik oszlopban, mert az meg a HAMIS 'h'-betűjére szűr. Tehát pont az E-oszlopban gubancol mert ott a 3-ik sorban m-betű van, ami ugyebár nem kisebb mint a h-betű. De hogy még kuszább legyen, csak a makrós változatban. A kattingatósnál egyetlen sor se marad, kiszűri az összest :))).

 

Ha nincs ez a leltáros példa, ki tudja mikor és hogyan derülnek ki ezek?  

 

 

Előzmény: pimre (20356)
pimre Creative Commons License 2013.02.12 0 0 20359

Az If Cells(sor%, 2).Value = Empty Then _  sorban az Empty-t cseréld False-ra, és működni fog.

Előzmény: KelemenGy (20357)

Ha kedveled azért, ha nem azért nyomj egy lájkot a Fórumért!