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

• #53406 Mutt senior tag szürke #53393

  Új Válasz 2024-10-11 22:15:30 #53406

  Ú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

  

  Mutt

  senior tag

  válasz szürke #53393 üzenetére

  Szia,

  Power Query elsődleges célja adatok (akár külső forrásból, mint pl. weblap vagy egy adatbazis) átalakítása és feldolgozása. Excel 2016-tól az Excel része, Excel 2010/2013-hoz külön tölthető le.

  Érdemes Youtube-on videokat nézni róla, ha még nem ismered.
  Mike Girvin (excelisfun) csatornáját tudom javasolni.

  Linkeltem korábban:
  52669
  52723

  üdv

• #53390 Mutt senior tag szürke #53373

  Új Válasz 2024-10-09 16:00:03 #53390

  Ú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

  

  Mutt

  senior tag

  válasz szürke #53373 üzenetére

  Szia,

  Delila adott egy makrót, ami az előfordulásokat listázza az összegzés munkalapra.
  Hasonlót lehet Power Query-vel is csinálni, de vannak megkötések:
  1. Előbb mented kell a fájlt, a nem mentett adatokat nem fogja látni (kivétel ha a fájlban táblázatokban vannak az adatok).
  2. A lekérdezést kézzel kell frissíteni (lehet automatikus frissítést is beállítani adott percenként).
  3. Nem fog szinezni, csak a listát adja vissza.
  
  A teljes M-kód:
  let
    Forrás = Excel.Workbook(File.Contents("C:\Users\szila\OneDrive\Desktop\53373.xlsm"), null, true),
    #"Sorok szűrve" = Table.SelectRows(Forrás, each [Kind] = "Sheet" and [Item] <> "Összegzés"),
    #"Egyéni oszlop hozzáadva" = Table.AddColumn(#"Sorok szűrve", "Adatok", each Table.AddIndexColumn([Data], "Sor", 1, 1)),
    #"Többi oszlop eltávolítva" = Table.SelectColumns(#"Egyéni oszlop hozzáadva",{"Name", "Adatok"}),
    Fejlécek = Table.ColumnNames(Table.Combine(#"Többi oszlop eltávolítva"[Adatok])),
    ÚjFejlécek = List.Transform(Fejlécek, each Text.Replace(_, "Column", "")),
    #"Kibontott Adatok" = Table.ExpandTableColumn(#"Többi oszlop eltávolítva", "Adatok", Fejlécek, ÚjFejlécek),
    #"Oszlopok egyesítve" = Table.CombineColumns(Table.TransformColumnTypes(#"Kibontott Adatok", {{"Sor", type text}}, "hu-HU"),{"Name", "Sor"},Combiner.CombineTextByDelimiter(":Sor", QuoteStyle.None),"CellaID"),
    #"Többi oszlop elemi értékekre bontva" = Table.UnpivotOtherColumns(#"Oszlopok egyesítve", {"CellaID"}, "Oszlop", "Érték"),
    #"Egyéni oszlop hozzáadva2" = Table.AddColumn(#"Többi oszlop elemi értékekre bontva", "FormázottÉrték", each try Text.Lower(Text.Clean(Text.Trim([Érték]))) otherwise [Érték]),
    #"Oszlopok egyesítve1" = Table.CombineColumns(#"Egyéni oszlop hozzáadva2",{"CellaID", "Oszlop"},Combiner.CombineTextByDelimiter(":Oszlop", QuoteStyle.None),"Cella"),
    #"Sorok csoportosítva" = Table.Group(#"Oszlopok egyesítve1", {"FormázottÉrték"}, {{"Előfordulás", each Table.RowCount(_), Int64.Type}, {"Adatok", each _, type table [Cella=text, Érték=text]}}),
    #"Sorok rendezve" = Table.Sort(#"Sorok csoportosítva",{{"Előfordulás", Order.Descending}}),
    #"Egyéni oszlop hozzáadva1" = Table.AddColumn(#"Sorok rendezve", "Hely", each Text.Combine([Adatok][Cella], ", "), type text)
in
    #"Egyéni oszlop hozzáadva1"

  Ahol a fájl elérhetőségét a Forrás sorban meg kell adnod. Legegyszerűbb a PQ szerkesztőben a Kezdőlap -> Adatforrás beállításai alatt.

  A kis és nagybetűket azonosnak vettem, ha ez nem kell akkor a "Sorok csoportosítva" sorban a "FormázottÉrtéket" cseréld le "Érték"-re.

  üdv

• #53384 Delila_1 veterán szürke #53379

  Új Válasz 2024-10-09 06:30:39 #53384

  Ú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 szürke #53379 üzenetére

  Szívesen.

• #53376 Delila_1 veterán szürke #53375

  Új Válasz 2024-10-08 15:29:36 #53376

  Ú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 szürke #53375 üzenetére

  Az utolsó lap neve legyen Összegzés.
  A makró:
  Sub Szamlalas()
    Dim lap As Integer, sor As Integer, CV As Object, WSGy As Worksheet, db As Integer
    
    Set WSGy = Sheets("Összegzés")
    
    For lap = 1 To Worksheets.Count - 1
        Sheets(lap).Activate
        For Each CV In Range("A1").CurrentRegion
            If CV.Value > "" Then
                If Application.WorksheetFunction.CountIf(WSGy.Columns(1), CV.Value) = 0 Then
                    sor = WSGy.Range("A" & Rows.Count).End(xlUp).Row + 1
                    WSGy.Cells(sor, 1) = CV.Value: WSGy.Cells(sor, 2) = 1
                Else
                    sor = Application.Match(CV.Value, WSGy.Columns(1), 0)
                    WSGy.Cells(sor, 2) = WSGy.Cells(sor, 2) + 1
                End If
            End If
        Next
    Next
End Sub

• #53374 Fferi50 Topikgazda szürke #53373

  Új Válasz 2024-10-08 13:27:48 #53374

  Ú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 szürke #53373 üzenetére

  Szia!
  Ezt csak makróval lehet megoldani, a feltételes formázás erre nem alkalmazható.
  Ha úgy megfelel, tudunk mintát adni.
  Üdv.

• #51489 karlkani aktív tag szürke #51487

  Új Válasz 2023-10-03 15:51:25 #51489

  Ú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

  

  karlkani

  aktív tag

  válasz szürke #51487 üzenetére

  Szia!

  Sub Cella_elso_karakter_szincsere()
Application.ScreenUpdating = False
Dim cell As Range, i As Integer, cellVal As String
With Columns(1)
.SpecialCells(xlTextValues).Font.ColorIndex = 1
For Each cell In .SpecialCells(xlTextValues)
cellVal = cell.Text
If Left(cell.Value, 1) = "B" Then cell.Characters(1, 1).Font.ColorIndex = 3
If Left(cell.Value, 1) = "C" Then cell.Characters(1, 1).Font.ColorIndex = 5
Next cell
End With
Application.ScreenUpdating = True
End Sub

  Ez a makró az A oszlopban található, B betűvel kezdődő cellák első karakterét pirosra, a C betűvel kezdődőekét kékre színeszi.

• #51488 Fferi50 Topikgazda szürke #51487

  Új Válasz 2023-10-03 15:26:23 #51488

  Ú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 szürke #51487 üzenetére

  Szia!
  Szerintem csak makróval.
  Üdv.

• #50857 Fferi50 Topikgazda szürke #50855

  Új Válasz 2023-04-23 07:45:46 #50857

  Ú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 szürke #50855 üzenetére

  Szia!
  "Ez a rész arra vonatkozik ha csak egy nevet kellene visszakapnom eredménynek ezért a vizsgált cella nem is tartalmazza a "/" karaktert?"
  Alapvetően igen. Ezt a feltételt beépítve a képlet lehúzható és működik mindkét esetben, akkor is ha két nevet, akkor is ha egy nevet keresel.
  Ilyen formán:
  =HA(HOSSZ(C6)=HOSSZ(HELYETTE(C6,"/","")),FKERES(C6,A6: B17,2,HAMIS),FKERES(BAL(C6,SZÖVEG.KERES("/",C6)-1),A6: B17,2,HAMIS) & " / "& FKERES(KÖZÉP(C6,SZÖVEG.KERES("/",C6)+1, HOSSZ(C6)),A6: B17,2,HAMIS))
  Továbbá fontos szeritem, hogy a tartományt, amiben keresel - A6 : B17 "abszolutizáljuk", azaz $A$6:$B$17 formában használjuk. Így húzható a képlet lefelé és nem marad ki egy név sem a keresésből. (Ellenkező esetben lefelé húzásnál az oszlop első cellái szépen kikerülnek a tartományból - próbáld ki húzni lefelé a képletet.)
  Üdv.

• #50856 Delila_1 veterán szürke #50855

  Új Válasz 2023-04-23 06:31:29 #50856

  Ú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 szürke #50855 üzenetére

  Van rá mód, hogy a rövidítést bevíve azonnal a teljes neveket kapd meg. Ehhez az Automatikus javítás (Beállítások | Nyelvi ellenőrzés) Módosítandó szöveghez írd be a gj-t, a Jó szöveghez pedig a Gipsz Jakabot.

  Egy időben sokszor kellett kb. 30 nevet leírnom, ezzel a módszerrel gyorsítottam a munkát.

  Máskor a zöld/sárga vezeték ismétlődött egy több oldalas mérési jegyzőkönyvben, erre a zs rövidítést vittem be. Vigyázat! Ezt a jegyzőkönyvet átadtam másnak. Az illető kétségbeesve jött tanácsért, mert mikor be akart vinni egy nevet, Molnár Zsoltot – Molnár Zs formában – , az Excel átírta Molnár zöld/sárga vezeték-re. Az ő gépén ki kellett törölnöm az általam megadott automatikus javításokat.

• #50854 Fferi50 Topikgazda szürke #50853

  Új Válasz 2023-04-22 23:21:12 #50854

  Ú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 szürke #50853 üzenetére

  Szia!
  "Hol rontom el?"
  Talán ott, hogy az A oszlopban nincs "GJ/MCs", csak "GJ" és "MCs" külön sorokban.
  Ezért az első FKERES esetében a "/" előtti értéket, a második esetében a "/" utáni értéket kell keresned.
  A "/" előtti érték =BAL(C6,SZÖVEG.KERES("/",C6)-1)
  A "/" utáni érték =KÖZÉP(C6,SZÖVEG.KERES("/",C6)+1, HOSSZ(C6))
  A C6 helyett a fenti értékeket kell az FKERES függvényekbe beírni.
  Viszont azt is meg kell nézned, hogy van-e "/" a C6 Cellában:
  Pl.
  HA(HOSSZ(C6)=HOSSZ(HELYETTE(C6,"/","")),FKERES(C6...stb,), 2 FKERES a fentiek szerint)
  Üdv.

• #50852 föccer nagyúr szürke #50851

  Új Válasz 2023-04-22 21:42:10 #50852

  Ú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

  

  föccer

  nagyúr

  válasz szürke #50851 üzenetére

  2 db fkeres kell, amit & karakterrek fűzöl össze, kiegészítve e / karakterrel.

  =FKERES()&" / "&FKERES()

• #50479 lappy őstag szürke #50477

  Új Válasz 2023-02-14 13:34:00 #50479

  Ú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

  

  lappy

  őstag

  válasz szürke #50477 üzenetére

  a Macro1 helyére beírod a SaveToLocations ami a Modulban van elhelyezve illetve átírod a megfelelő könyvtárakat

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