[ypolito]

ez így cool. 
már csak egy valami és békén hagylak 
még annyit bele, hogyha üresen hagyom a cellát akkor rejtse el mindet. megoldható?
ezer hála.
egy hét alatt nem tudtam volna ezt kitalálni

[Delila]

A target csak a bevitt adatot érzékeli, az üres cellát nem. Mivel számok vannak az oszlopodban, adj a kritérium cellába betüt, és máris elrejti az összes adatodat.

[CAC]

Sziasztok!

Egy meglehetõsen amatõr kérdésben kérem a segítségeteket.
Munkahelyen az egyik több tulajdonost is átélt laptopon valakinek sikerült elállítania az excelt úgy, hogy az oszlopokat jelölõ vízszintes sávon most betûk helyett számok vannak, csakúgy mint a függõleges (sorokat) jelölõn. Tehát most elméletileg A1 helyett 11 a legelsõ cella.
Egyesével néztem végig a menüpontokat, de sehol nem láttam, hol lehetne ezt visszaállítani.
Valaki esetleg tudja?

[Delila]

Az Eszközök/Beállítások/Általános fülön vedd ki a pipát az S1O1 hivatkozási stílus jelölõ négyzetébõl.

[macsate]

Sziasztok!

Egy makrot szeretnek irni ami ABC sorrendbe teszi egy tomb elemeit. Meg is irtam a tipikusnak mondhato rendezest, de sajnos a ">" jellel torteno osszehasonlitas nem megfeleloen kezeli az ekezetes betuket (a sorrendben utlosnak veszi oket) igy az AÁBC helyett ABCÁ a sorrend.

Van valami otletetek?

/Nem szeretnem kiirni a tombot egy lapra, es a beepitett rendezessel rendezni, (A..Z gomb), majd visszatolteni/

Elore is koszi, Z

Szerkesztette: macsate 2008. 07. 17. 15:17 -kor

[CAC]

Idézet: Delila - Dátum: 2008. júl. 17., csütörtök - 15:58

Az Eszközök/Beállítások/Általános fülön vedd ki a pipát az S1O1 hivatkozási stílus jelölõ négyzetébõl.

Köszii! Ha Veszprémben jársz vendégem vagy egy sörre!

[Delila]

Idézet: CAC - Dátum: 2008. júl. 17., csütörtök - 17:39

Köszii! Ha Veszprémben jársz vendégem vagy egy sörre!

Ott a helyem!

[Root_Kiskacsa]

Idézet: macsate - Dátum: 2008. júl. 17., csütörtök - 15:17

Sziasztok!

Egy makrot szeretnek irni ami ABC sorrendbe teszi egy tomb elemeit. Meg is irtam a tipikusnak mondhato rendezest, de sajnos a ">" jellel torteno osszehasonlitas nem megfeleloen kezeli az ekezetes betuket (a sorrendben utlosnak veszi oket) igy az AÁBC helyett ABCÁ a sorrend.

Van valami otletetek?

/Nem szeretnem kiirni a tombot egy lapra, es a beepitett rendezessel rendezni, (A..Z gomb), majd visszatolteni/

Elore is koszi, Z

Bár lehet, hogy van értelmes megoldás is rá (SQL-ben beállítható a collation), addig is használd ezt a rövid rutint összehasonlításkor. Ez annyit tesz, hogy a paraméterként átadott két szöveg közül magyar ABC szerint eldönti, hogy melyik a nagyobb. 1-et, 2-t és 0-t ad vissza annak megfelelõen, hogy az elsõ vagy a második a nagyobb, avagy egyik sem (megegyeznek). "Cs"-t, "ty"-t és társait nem figyeli, csak az egybetûsöket, nem akartam túlbonyolítani a dolgot.

Function Hasonlit(S1 As String, S2 As String) As Byte
    Dim Karakterek As Integer
    Const MagyarABC As String = "aábcdeéfghiíjklmnoóöõpqrstuúüûvwxyz"
    
    ' // Rövidebb paraméter karakterszámát letároljuk
    If Len(S1) < Len(S2) Then Karakterek = Len(S1) Else Karakterek = Len(S2)
    
    ' // Egyesével lépkedünk a két paraméter karakterein, amíg különbözõeket nem találunk
    For i = 1 To Len(S2)
        If InStr(MagyarABC, LCase(Mid(S1, i, 1))) > InStr(MagyarABC, LCase(Mid(S2, i, 1))) Then
            ' // Az elsõ paraméter a nagyobb
            Hasonlit = 1
            Exit Function
        ElseIf InStr(MagyarABC, LCase(Mid(S1, i, 1))) < InStr(MagyarABC, LCase(Mid(S2, i, 1))) Then
            ' // A második paraméter a nagyobb
            Hasonlit = 2
            Exit Function
        End If
        ' // Ide csak akkor fut a kód, ha a vizsgált karakter mindkét stringben ugyanaz volt.
        ' // Ekkor ugrunk a következõ karakterre.
    Next
    
    ' // Ha a For..Next végig tudott futni, akkor a két paraméter megegyezik.
    Hasonlit = 0
End Function

[macsate]

Idézet: Root_Kiskacsa - Dátum: 2008. júl. 17., csütörtök - 19:51

Bár lehet, hogy van értelmes megoldás is rá (SQL-ben beállítható a collation), addig is használd ezt a rövid rutint összehasonlításkor [...]

Kedves Root_Kiskacsa!

Köszönöm szépen a segítséget! Bár abban reménykedtem, hogy van valami egyszerû beállítás Természetesen ez a kis rutin tökéletes számomra, és külön köszönöm, hogy meg is írtad nekem.

Üdv, Z

[Root_Kiskacsa]

Idézet: macsate - Dátum: 2008. júl. 18., péntek - 8:59

Kedves Root_Kiskacsa!

Köszönöm szépen a segítséget! Bár abban reménykedtem, hogy van valami egyszerû beállítás Természetesen ez a kis rutin tökéletes számomra, és külön köszönöm, hogy meg is írtad nekem.

Üdv, Z

Nagyon szívesen. Bár még mindig nem kizárt, hogy van normális megoldás, csak arra nem tudok válaszolni.

[ypolito]

sziasztok

van egy excel fileom, sok sok füllel és mindegyiken sok sok képlet. van lehetõség olyat csinálni hogy valami makró futtatásával csinál egy másolatot az egész fileról de úgy hogy az összes képlet értékként szerepel. kicsit leegyszerûsítve irányított beillesztés értékkel. vagy mi

[Delila]

Sub Másol_értékként()
    füzet = ActiveWorkbook.Name 'Eredeti füzet nevének beírása a "füzet" változóba
    útvonal = ActiveWorkbook.Path & "\" 'Eredeti füzet útvonala az "útvonal" változóba
    Workbooks.Add Template:="Munkafüzet" 'Új füzet nyitása
    újfájl = útvonal & "Másolat.xls" 'Új füzet útvonalának és nevének megadása...
    ActiveWorkbook.SaveAs Filename:=újfájl, FileFormat:=xlNormal 'mentése Másolat néven
        
    Windows(füzet).Activate 'Eredeti füzetbe lépés
    Sheets.Select 'Összes lap kijelölése
    Cells.Select  'Összes cella kijelölése
    Selection.Copy 'Másolás
    Windows("Másolat.xls").Activate 'Másolat füzetre állás
    Selection.PasteSpecial Paste:=xlValues 'Beillesztés értékként
    Sheets(1).Select 'Elsõ lapra állás a Másolat füzetben...
    Range("A1").Select 'A1 cellára állás
    ActiveWorkbook.Save 'Másolat füzet mentése
    
    Windows(füzet).Activate 'Eredeti füzetbe lépés
    Sheets(1).Select 'Elsõ lapra állás...
    Range("A1").Select 'A1 cellára állás
End Sub

Ez a makró megcsinálja, amit kértél. Minden sorhoz írtam egy rövid magyarázatot.

[nagymedve]

Üdv Emberek!
Reggeli újgyakorlatként egy számotokra remélem igen könnyû kérdésem lenne.
Szal van két excel fileom, mindegyikben van egy 2000 soros lista (1 oszlop sorszám+2 oszlop számsor), namármost ezeket kéne összehasonlítani, s az eltérést kiemelni, vagy valahol megjeleníteni. Egyátalán az excel az én barátom? Access nincs fenn a gépen, bár elképzelhetõ, hogy ha így nem tudtok megoldást akkor fel tudom telepítettni.

[Delila]

Itt találsz egy ábrát. http://kepfeltolto.hu/i/?170915&t=img
A füzeteknek az Egyik és Másik nevet adtam. Gondolom, a számokat tartalmazó B oszlopokat akarod összehasonlítani, nem a sorszámos A-t.

A C oszlopban másold végig a képletet, amit az ábrán a szövegdobozban találsz, majd a B2-re állva hívd meg a Formátum/Feltételes formázást. A párbeszéd ablakot töltsd ki, ahogy az ábrán látod (piros - vagy más - színt a Formátum... gomb segítségével adhatsz meg). Ezután a B2 formátumát a formátum festõ ecset segítségével másold át a teljes oszlopra.

A Másik füzetben is megcsinálhatod mindezt, az Egyik-re hivatkozva.

[ypolito]

Idézet: Delila - Dátum: 2008. júl. 20., vasárnap - 9:46

Sub Másol_értékként()
    füzet = ActiveWorkbook.Name 'Eredeti füzet nevének beírása a "füzet" változóba
    útvonal = ActiveWorkbook.Path & "\" 'Eredeti füzet útvonala az "útvonal" változóba
    Workbooks.Add Template:="Munkafüzet" 'Új füzet nyitása
    újfájl = útvonal & "Másolat.xls" 'Új füzet útvonalának és nevének megadása...
    ActiveWorkbook.SaveAs Filename:=újfájl, FileFormat:=xlNormal 'mentése Másolat néven
        
    Windows(füzet).Activate 'Eredeti füzetbe lépés
    Sheets.Select 'Összes lap kijelölése
    Cells.Select  'Összes cella kijelölése
    Selection.Copy 'Másolás
    Windows("Másolat.xls").Activate 'Másolat füzetre állás
    Selection.PasteSpecial Paste:=xlValues 'Beillesztés értékként
    Sheets(1).Select 'Elsõ lapra állás a Másolat füzetben...
    Range("A1").Select 'A1 cellára állás
    ActiveWorkbook.Save 'Másolat füzet mentése
    
    Windows(füzet).Activate 'Eredeti füzetbe lépés
    Sheets(1).Select 'Elsõ lapra állás...
    Range("A1").Select 'A1 cellára állás
End Sub

Ez a makró megcsinálja, amit kértél. Minden sorhoz írtam egy rövid magyarázatot.

hahó
köszönöm, mûködik. még annyit kiegészítést kérnék hozzá hogy a munkalapok neveit is másolja át

köszi
Yp

[Delila]

Szivi.
Az elõzõ egyszerûbben, lapnevekkel:

Sub Másol_értékként()
    útvonal = ActiveWorkbook.Path & "\" 'Eredeti füzet útvonala az "útvonal" változóba
    Sheets.Select 'Összes lap kijelölése
    Cells.Select  'Összes cella kijelölése
    Selection.Copy 'Másolás
    Selection.PasteSpecial Paste:=xlValues 'Beillesztés értékként
    Sheets(1).Select 'Elsõ lapra állás a Másolat füzetben...
    Range("A1").Select 'A1 cellára állás
    újfájl = útvonal & "Másolat.xls" 'Új füzet útvonalának és nevének megadása...
    ActiveWorkbook.SaveAs Filename:=újfájl, FileFormat:=xlNormal 'mentése Másolat néven
End Sub

Ebben a makróban az eredeti füzetben végeztetem el az értékként történõ beillesztést, és ezután mentem el Másolat néven. A Másolat.xls-t itt a makróban is átírhatod más névre.
Az elsõ lapra, és A1-re állást csak azért tettem bele, hogy megszüntessem a lapok csoportos kijelölését.
Jó munkát!

Szerkesztette: Delila 2008. 07. 22. 19:27 -kor

[nagymedve]

Idézet: Delila - Dátum: 2008. júl. 22., kedd - 13:22

Itt találsz egy ábrát. http://kepfeltolto.hu/i/?170915&t=img
A füzeteknek az Egyik és Másik nevet adtam. Gondolom, a számokat tartalmazó B oszlopokat akarod összehasonlítani, nem a sorszámos A-t.

A C oszlopban másold végig a képletet, amit az ábrán a szövegdobozban találsz, majd a B2-re állva hívd meg a Formátum/Feltételes formázást. A párbeszéd ablakot töltsd ki, ahogy az ábrán látod (piros - vagy más - színt a Formátum... gomb segítségével adhatsz meg). Ezután a B2 formátumát a formátum festõ ecset segítségével másold át a teljes oszlopra.

A Másik füzetben is megcsinálhatod mindezt, az Egyik-re hivatkozva.

Örök hála és köszönet!

[Delila]

Szívesen, örülök, hogy sikerült.

[ypolito]

Hahó Deila

tudnánk mailben értekezni? van egy elég komolynak tûnõ problémám persze gondolom neked gyerekjáték lenne...
adom a mail címemet. lenpeter@freemail.hu szólj ha okés légyszíves
jah, nem kell makrót írni hozzá

köszi
Ypi.

[pgyafi]

Van egy mezei táblázatom (excel2003). Egy webes táblázat lett bele másolva. Az eredeti táblában voltak kis ikonok és azon linkek.  Ezt is belekerült a táblázatba láthatatlan "alakzat" -ként. Szeretném egyben kitörölni az összes alakzatot a táblából.
Hogyan kell?