Keresés

Nálam IE 7-tel simán bejön a tagolás.

Köszi a gyors reagálást Sánta Kutya! Sajnos az én esetemben kénytelen vagyok ragaszkodni a makróhoz. (de nagyon penge a javaslatod, köszi mégegyszer)

A.M.

Ha ragaszkodsz a makróhoz, akkor nem én vagyok, aki segíteni tud, de ha egyszerű függvény is jó...

C1:
=HA(a1<=MA();B1;"")

Sziasztok!

Makró írással kapcsolatban szeretnék segítséget kérni.
Van 3 oszlopom. A, B és C. A-ban a dátum van, B-ben a dátumhoz kapcsolódó összeg, a C pedig egyelőre üres.
Azt szeretném, hogy ha azokat az összegeket, amelyekhez a mai, vagy egy korábbi dátum tartozik, átmásolná át a C oszlopba.
2 órája küzdök vele, de semmire nem jutottam.
Előre is köszönöm a segítséget.

A.M.

Én hármat tettem, úgy látványosabb, de így is látszik.

Sub proba()
 MsgBox "itt a behúzás, hol a behúzás?"
End Sub

Sub proba()
 MsgBox "itt a behúzás, hol a behúzás?"
End Sub

Minden szóközt cseréljek le nonbreaking space-re?

Sub proba()
   MsgBox "itt a behúzás, hol a behúzás?"
End Sub

Nálam a 11415 indentálva van, a 11412 meg nincs. FF, legújabb frissítés. Talán a beírásnál számít a böngésző. Viszont: az &nbsp; amit lejjebb írtam, mindig működik, és egyszerű szövegcserével berakható.

Nem nagyon akar ez jól kinézni, akármelyik böngészővel próbálom...

Sub proba()
MsgBox "itt a behúzás, hol a behúzás?"
End Sub

IE 6.0

Sub proba()
MsgBox "itt a behúzás, hol a behúzás?"
End Sub

Próba

Sub proba()
MsgBox "itt a behúzás, hol a behúzás?"
End Sub

Google-ból tagolás nélkül teszi fel.

Nálam a Firefox sem. De nem biztos, hogy böngésző-specifikus hiba. Okozhatja a tucatnyi kiegészítő bármelyike, vagy a magyar verzió, vagy bármi.

A Safari nem :-(

Az xl2007-ben a View menüben van egy View Side-by-side rész, én ott keresgélnék.

1.) View/New window (ez csinál egy új ablakot a munkafüzetednek, így már kétszer láthatod ugyanazt).
2.) View/View side by side (ez egymás alá rakja a munkafüzeted két ablakát
3.) View/Arrange All, ezzel vertikálissá teheted a két ablakot
4.) View/Synchronous scrolling (ezzel lekapcsolod a két ablak szinkron görgetését).

Hogy ezt ne kelljen minden egyes alkalommal megcsináljad, én javasolnám a View/Save Workspace alkalmazását.

Előrebocsátom, hogy nem tudom mi a megoldás, de arra gyanakszom nem a SelectionChange.

Mert te itt arról beszélsz, hogy ha gördíted a táblázatot ... és a scrollozás nem jár kijelöléssel.

Esetleg azt lehet VBA-n kívül megpróbálni, hogy a munkalapot két részre bontod. Az egyiken lesz a táblázatod (amit gördíthetsz ahova akarsz) a másikban pedig mozdulatlanul vigyázzban áll a chart.

"a sor eleji space-eket az Index lakapta... ". Nem mindegy, melyik böngészőből hívod meg a fórumot, erre Jimmy jött rá. Az IE szépen hozza a tagolást (csak itt használom).

 

Itt a módosított verzió:

 

Sub summa_1()
    Dim oszlop As Integer, lap As Integer, oszlop_1 As Integer
    Dim sor As Integer
   
    For lap = 1 To ThisWorkbook.Sheets.Count - 1
        Sheets(lap).Select
       
        For sor = 1 To 150
            If Sheets("Összesítő").Range("IV" & sor).End(xlToLeft).Column = 1 Then
                oszlop_1 = 4
            Else
                oszlop_1 = Sheets("Összesítő").Range("IV" & sor).End(xlToLeft).Column + 1
            End If
           
            For oszlop = Range("IV" & sor).End(xlToLeft).Column To 1 Step -1
                If Cells(sor, oszlop) > "" Then
                    Sheets("Összesítő").Cells(sor, oszlop_1) = Cells(sor, oszlop)
                    oszlop_1 = oszlop_1 + 1
                End If
            Next
        Next
    Next
           
End Sub

Persze, még a mezei HTML is lekapja. Ez kivételesen nem az Index bűne. Írd azt, hogy &nbsp; (nem törhető szóköz).

Vaze,a sor eleji space-eket az Index lakapta... :(

Visszakanyarodva... :)

Valamiért nem bírtunk leszakadni erről a 10. sorról, miközben a sok információ között elrejtve :) ott lapult, hogy van vagy 150 vizsgálandó sorom is (!) munkalaponként. Nyafogás helyett (nagy kedvvel, de segédlet nélkül) belevetettem magam a VB makróírásba, így most már van egy új ciklusom az eddigieken felül (ováció!). Már csak egyetlen kérdésem lenne: nem találom a szintaktikáját a Range változó (?) argumentumának. A te makródban ez "IV10", ami, ahogy rájöttem a ctrl-end megfelelője a 10. sorban (ugye?). Hogy lehet ezt "univerzálissá" tenni, hogy az esetemben "For sor=1 to 150" ciklus bármely sorában érvényes legyen? Ui. akármilyen szintaktikával próbálkoztam, nem jött be.

jelenleg így állok:

Sub summa()
Dim oszlop As Integer, lap As Integer, oszlop_1 As Integer, sor As Integer

For sor = 1 To 150 'paraszt módszer/1
oszlop_1 = 4 'nekem így jó
For lap = 1 To ThisWorkbook.Sheets.Count - 1 'ez tiszta
Sheets(lap).Select
For oszlop = 1 To 20 'paraszt módszer/2-kínomban, és step -1 nélkül a fasza
If Cells(sor, oszlop) > "" Then
Sheets("Összesítő").Cells(sor, oszlop_1) = Cells(sor, oszlop)
oszlop_1 = oszlop_1 + 1
End If
Next
Next
Next
Sheets("Összesítő").Select
End Sub

Range("IV150"), Range ("IV"; sor) és hasonlókkal próbálkoztam, de egyik sem kóser...

Sziasztok

 

Adott egy táblázat (70 sor, 9 oszlop). Az első 3 sor rögzítve van. A táblázat mellett van egy chart (5. sortól). Amit szeretnék megoldani, az az hogy ha a táblázatot gördítem hogy az alsó sorok is látszódjanak, akkor a mellette levő chart is mozogjon - maradjon látható. (excel 2007)

 

Azt sejtem hogy a munkalap SelectionChange eseménye lesz a barátom, de hogyan?

 

 

 

http://msexcel.uw.hu/Files/Excel_2003_Functions_(onlinehelp).xls

 

 

Szívesen.

SQL! Így jár, aki csavarog. :)

Ez az élet rendje.
Én kitartó kérdezősködéssel megszerzem az összes infót, Delila meg learatja a babérokat ...

:-)

Örök hála! (Most értem vissza gépközelbe.)

Köszi!

Bazsi

Ha a sorrend mindegy, ez a makró elintézi. Az utolsó lap legyen az, ahol összesítesz, a makróban ez Összesítő névre hallgat.

 

Sub summa()
    Dim oszlop As Integer, lap As Integer, oszlop_1 As Integer
   
    oszlop_1 = 1
    For lap = 1 To ThisWorkbook.Sheets.Count - 1
        Sheets(lap).Select
        For oszlop = Range("IV10").End(xlToLeft).Column To 1 Step -1
            If Cells(10, oszlop) > "" Then
                Sheets("Összesítő").Cells(10, oszlop_1) = Cells(10, oszlop)
                oszlop_1 = oszlop_1 + 1
            End If
        Next
    Next
           
End Sub

No link.
A számszerű értékek ömlesztve: A10,B10,C10,D10... cellákba
Még a sorrend is mindegy.

Utolsó kérdés:
Az összesítő megfelelő sora a munkalap megfelelő cellájának értékét mutassa vagy egy linket a megfelelő cellára?