2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Keresés
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    Fototrend

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

Új hozzászólás Aktív témák

  • #25654 Fferi50 Topikgazda Wyll #25650
    Új Válasz #25654
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    Fferi50

    Topikgazda

    válasz Wyll #25650 üzenetére

    Szia!

    Ha az adatok az A:D oszlopban, az 1 az E oszlopban, 2 a H, 3 a K oszlopban, továbbá a fejlécek a második sorban vannak - vagyis az adatok a 3. sortól kezdődnek, akkor a következő képleteket próbáld ki:

    E3 cella képlete: =HAHIBA(INDEX(B:B;HAHIBA(HOL.VAN(HAHIBA(KICSI(HA($E$2=$A:$A;SOR($A:$A);"");SOR()-2);1);SOR($A:$A);0);-1);1);"")
    Ez lehúzható az E,F,G oszlopban.

    H3 cella képlete: =HAHIBA(INDEX(B:B;HAHIBA(HOL.VAN(HAHIBA(KICSI(HA($H$2=$A:$A;SOR($A:$A);"");SOR()-2);1);SOR($A:$A);0);-1);1);"")
    Amit a H,I,J oszlopban húzhatsz le

    K3 cella képlete: =HAHIBA(INDEX(B:B;HAHIBA(HOL.VAN(HAHIBA(KICSI(HA($K$2=$A:$A;SOR($A:$A);"");SOR()-2);1);SOR($A:$A);0);-1);1);"")
    Ezt a K,L,M oszlopban húzd le.

    Ezek a képletek tömbképletek, tehát Ctrl+Shift+Enterrel kell befejezni a képlet beírását, nem sima Enterrel.

    Ahol már nem talál adatot, oda 0-át fog kiírni. Ha ez zavar, akkor megspékelheted egy HA(képlet=0;"";képlet) kibővítéssel. A képlet helyére az eredeti képletet kell beírni - továbbra is tömbképlet.
    Új adat bevitele után egy F9 segít az újraszámolásban.

    Üdv.

  • #25651 Delila_1 veterán Wyll #25650
    Új Válasz #25651
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    Delila_1

    veterán

    válasz Wyll #25650 üzenetére

    A Forrásadatok az A2 cellában van (formázással az A2:D2 közepére lehet tenni a vízszintes elrendezés menüpontban).

    Sub Szetdob()
    Dim sor As Long, ide As Long, oszlop As Integer

    sor = 3
    Do While Cells(sor, 1) > ""
    Select Case Cells(sor, "A")
    Case 1
    oszlop = 5
    Case 2
    oszlop = 8
    Case 3
    oszlop = 11
    End Select

    ide = Cells(Rows.Count, oszlop).End(xlUp).Row + 1
    Range(Cells(sor, 2), Cells(sor, 4)).Copy Cells(ide, oszlop)

    sor = sor + 1
    Loop
    End Sub

Új hozzászólás Aktív témák