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

• #48905 sztanozs veterán jerry311 #48904

  Új Válasz 2022-04-27 17:29:05 #48905

  Ú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

  

  sztanozs

  veterán

  válasz jerry311 #48904 üzenetére

  A tiéd asszem praktikusabb (meg akkor is működik ha van ismétlődés)

• #48903 Fferi50 Topikgazda jerry311 #48901

  Új Válasz 2022-04-27 15:52:53 #48903

  Ú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 jerry311 #48901 üzenetére

  Szia!
  C1-be =A1
  C2 képlete: =INDEX($A$1:$B$4;HOL.VAN(C1;$A$1:$A$4;0);2)
  C3 képlete: =INDEX($A$1:$B$4;HOL.VAN(C1;$A$1:$A$4;0)+1;1)
  Ez utóbbi képlet másolható lefelé párban.
  Üdv.

• #48902 jerry311 nagyúr jerry311 #48901

  Új Válasz 2022-04-27 15:45:29 #48902

  Ú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

  

  jerry311

  nagyúr

  válasz jerry311 #48901 üzenetére

  Megpróbáltam egy sokadik újabb keresőszót, amivel meglett.

  =INDEX($A$1:$B$4,INT((ROWS(C$1:C1)-1)/2)+1,MOD(ROWS(C$1:C1)-1,2)+1)

• #48826 wr6vhwxeq kezdő jerry311 #48824

  Új Válasz 2022-04-17 11:36:39 #48826

  Ú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

  

  wr6vhwxeq

  kezdő

  válasz jerry311 #48824 üzenetére

  Az a baj, hogy egyáltalán nem kézreálló az excel és a cellák pontatlanok. Sokkal nehezebb gyorsan haladni vele. Gépen szinte csukott szemmel csináltam mindent. A word-öt nem néztem még online, de az biztos jobb és az nem lényeges olyan szinten.

• #48743 Eagl3 veterán jerry311 #48742

  Új Válasz 2022-03-23 10:56:34 #48743

  Ú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

  

  Eagl3

  veterán

  válasz jerry311 #48742 üzenetére

  Nem, egyszerűen csak ha beírom egy cellába, hogy X, akkor további két cella értékéhez adjon hozzá kettőt.

  Példa: ha a P12 cellába X betű van írva, akkor a T12 cella értéke változzon 4-ről 6-ra, az U12 cella értéke meg 20-ról 22-re.

• #48738 Fire/SOUL/CD félisten jerry311 #48737

  Új Válasz 2022-03-22 21:28:03 #48738

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz jerry311 #48737 üzenetére

  "A BTC az vicc volt, arra hogy nem "jó a kód ne használd" = ransomware."

  Ó bakker, a frászt hoztad rám, többet ilyet ne csinálj b@mmeg...
  Tényleg azt hittem/elhittem, hogy bitcoin-al foglalkozol és arról van szó...

• #48736 Fire/SOUL/CD félisten jerry311 #48734

  Új Válasz 2022-03-22 20:54:50 #48736

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz jerry311 #48734 üzenetére

  Remélem ezt csak viccből írtad, hogy BTC-ről van szó... Mert ha esetleg nem vicceltél, akkor felejtsd el ezt a kódot, NE HASZNÁLD, mert ez esetben az időrendi feldolgozás az alap, ez a kód meg nem foglakozik időrendiséggel, azaz a márciusi CSV hamarabb kerülhetett feldolgozásra, mint a januári, azaz a márciusi státusz előrébb van és csak utána jön a januári, ez meg BTC "mozgás" esetében rohadtul nem mindegy...
  Ha konkrétan leírtad volna, hogy a kód egy BTC "mozgás" összesítőhöz kell, akkor teljesen más megközelítést kellett volna használni, azaz a CSV fájlok nevében pl. időbélyeg kell, hogy legyen, először a CSV-ket tartalmazó mappában végig kell szaladni az összes CSV fájlon, beolvasva a nevüket egy "listába", ezt a listát rendezni név szerint emelkedő sorrendben, majd ezt a rendezett listát alapul véve az abban szereplő sorrendben feldolgozni a CSV-ket...

  Szóval még1x: Ezt a kódot ne használd!

• #48735 Fire/SOUL/CD félisten jerry311 #48734

  Új Válasz 2022-03-22 19:41:32 #48735

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz jerry311 #48734 üzenetére

  Amikor olyan Name-ID páros szerepelt a CSV-kben, amiből csak 1 db volt(tehát nem ismétlődött a CSV-kben egyetlen egyszer sem), akkor is növekedett az index és ezen name-ID párosokat egy csomó üres sort kihagyva írta bele a táblázatba. A korábban látható kép esetén pl. az ötven akárhányadik sorba került(ek).
  Ezért írtam, hogy erre elfelejtettem tesztelni a kódot...

  Ha esetedben minden egyes Name-ID páros legalább 2x szerepel, akkor nem lépett fel ez az anomália korábban sem.

• #48731 ny.janos tag jerry311 #48728

  Új Válasz 2022-03-22 18:39:44 #48731

  Ú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

  

  ny.janos

  tag

  válasz jerry311 #48728 üzenetére

  Egy gondolatébresztő a korábban felvetett Power Query megoldáshoz: Ha az összes csv fájlt beolvasod mintából és a fájloknak a nevében szerepel a dátum, akkor a fájlnév részének kinyerésével és dátummá alakításával lesz egy adathalmazod, melyben szerepel a Name, ID, Status adatok mellett a dátum is. Az ID és a dátum oszlop összevonásával készíthetsz egy új oszlopot. Ezután a státuszt meg tudod keresni a VLOOKUP-al a PQ által előállított adathalmazban, ha az ID cella és fejlécként szereplő dátum cella összevont adatára keresel.
  Ha az egyes csv fájlok nem tartalmaznak több 10e sort így a több, mint egymillió soros korlátot várhatóan nem léped túl, akkor nem is foglalkoznék havonta külön munkalappal, hanem az évet és a hónapot kiemelném egy-egy cellába a munkalap tetején, és annak felhasználásával képezném a fejlécben a dátumot. Így ha változtatod az évet és a hónapot, akkor mindig az aktuális értéket fogja dátumnak megfelelően kiolvasni a VLOOKUP a PQ által beolvasott csv fájlok összességéből.

• #48730 Fire/SOUL/CD félisten jerry311 #48728

  Új Válasz 2022-03-22 18:07:09 #48730

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz jerry311 #48728 üzenetére

  Az itt található adatokat vettem alapul. Létrehoztam belőle 3 db CSV fájlt, az első maradt érintetlen, a 2.-ban lecseréltem az összes DOWN státuszt UP-ra, a 3.-ban meg lecseréltem az összes UP-t FIRE-UP-ra, nyilván azért, hogy több státusz is legyen.

  A kód futtatásának ez lett az eredménye:
  

  A Module1-be másolandó kód (és fontos, hogy modul-ba kerüljön!)

  'Fire/SOUL/CD - 2022

Public Sub Fire_CSV_Process()

'mappa, amelyben a CSV fájlok találhatóak
Const MYCSVFOLDER = "C:\CSVs\"
'CSV elválasztó karakter megadása
Const MYDELIMITER = ","
'Ha igaz, akkor nem dolgozza fel a fejlécet
Const CSVFILEUSEHEADER = True
'A munkalap ezen cellájától illeszti be az összesítést
Const TABLETOPLEFTCORNER = "A1"

Dim MyWorksheetName As String
Dim MyCurrCSVFname As String
Dim MyFileNumber As Long
Dim MyCurrStr As String
Dim CSVLineNdx As Long
Dim MyStrs() As String
Dim MyRowNdx As Long
Dim NameFieldStartRange, IDFieldStartRange As Range
Dim FindNameFieldRange, FindIDFieldRange As Range
Dim FindNameRange, FindIDRange As Range

'ellenőrizzük, hogy a megadott mappa létezik-e, ha nem, akkor nem fut le a kód
If Dir(MYCSVFOLDER, vbDirectory) = "" Then
MsgBox "A megadott mappa [" & MYCSVFOLDER & "] nem létezik." & vbCrLf & "Adj meg egy létező mappát..."
Exit Sub
End If

'létrehozunk egy új munkalapot (itt másodpercre pontos idő lesz a nevében,
'ezért nem ellenőrzöm, hogy létezik-e már adott néven munkalap)
MyWorksheetName = "Ősszesítés_" & Format(Now, "yymmdd_hhmmss")
Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = MyWorksheetName
Worksheets(MyWorksheetName).Activate

Application.ScreenUpdating = False

MyRowNdx = 0

Set NameFieldStartRange = Range(TABLETOPLEFTCORNER)
Set IDFieldStartRange = Range(TABLETOPLEFTCORNER).Offset(0, 1)

'megadott mappában végigszaladunk az összes CSV fájlon
MyCurrCSVFname = Dir(MYCSVFOLDER & "*.CSV")
Do While Len(MyCurrCSVFname) > 0
MyFileNumber = FreeFile
Open MYCSVFOLDER & MyCurrCSVFname For Input As MyFileNumber
CSVLineNdx = 0
'CSV fájlt egyenként, soronként feldolgozzuk
While Not EOF(MyFileNumber)
Line Input #MyFileNumber, MyCurrStr
If CSVFILEUSEHEADER = True And CSVLineNdx = 0 Then
Line Input #MyFileNumber, MyCurrStr
CSVLineNdx = 1
End If
'ha üres sor van benne, azt kihagyjuk
If MyCurrStr <> "" Then
'legeslső adat esetén nincs mit összehasonlítani
If MyRowNdx = 0 Then
MyStrs = Split(MyCurrStr, MYDELIMITER)
Range(TABLETOPLEFTCORNER).Offset(0 + MyRowNdx, 0) = MyStrs(0)
Range(TABLETOPLEFTCORNER).Offset(0 + MyRowNdx, 1) = MyStrs(1)
Range(TABLETOPLEFTCORNER).Offset(0 + MyRowNdx, 2) = MyStrs(2)
Else
'meghatározzuk a keresési tartományokat
MyStrs = Split(MyCurrStr, MYDELIMITER)
Set FindNameFieldRange = Range(NameFieldStartRange.Address & ":" & Chr(NameFieldStartRange.Column + &H40) & MyRowNdx)
Set FindIDFieldRange = Range(IDFieldStartRange.Address & ":" & Chr(IDFieldStartRange.Column + &H40) & MyRowNdx)

'keresünk egyező adatokat
Set FindNameRange = FindNameFieldRange.Find(what:=MyStrs(0), LookIn:=xlValues, lookat:=xlWhole)
Set FindIDRange = FindIDFieldRange.Find(what:=MyStrs(1), LookIn:=xlValues, lookat:=xlWhole)

'ha van egyezés, akkor a találati tartomány sorában megkeressük az első üres cellát
'és beleírjuk a megfelelő adatot
If Not FindNameRange Is Nothing And Not FindIDRange Is Nothing Then
Cells(FindNameRange.Row, Columns.Count).End(xlToLeft).Offset(0, 1).Value = MyStrs(2)
MyRowNdx = MyRowNdx - 1
Else
Range(TABLETOPLEFTCORNER).Offset(0 + MyRowNdx, 0) = MyStrs(0)
Range(TABLETOPLEFTCORNER).Offset(0 + MyRowNdx, 1) = MyStrs(1)
Range(TABLETOPLEFTCORNER).Offset(0 + MyRowNdx, 2) = MyStrs(2)
End If
End If
MyRowNdx = MyRowNdx + 1
End If
Wend
Close MyFileNumber

MyCurrCSVFname = Dir()

Loop

Application.ScreenUpdating = True

End Sub

  Teszteld, remélem jó lesz.

  [ Módosította: radi8tor ]

• #48727 Fire/SOUL/CD félisten jerry311 #48725

  Új Válasz 2022-03-22 12:13:49 #48727

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz jerry311 #48725 üzenetére

  Közben leesett... tehát a CSV-k többször/több helyen tartalmazhatják pl. ezt a sort:
  njd6CppwCT;580 (különböző Státuszokkal) és ezeket kellene "csokorba szedni", OK.

• #48726 Fire/SOUL/CD félisten jerry311 #48725

  Új Válasz 2022-03-22 11:38:41 #48726

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz jerry311 #48725 üzenetére

  Ha a Név és ID párban van, akkor a 6-7 sor külön "rekordot" képez, ergó nem lehet összevonni. Dobj egy olyan képet, ami az előző képed alapján az összesítésről készült (tehát a végeredményről, amit szeretnél megvalósítani), akkor talán megvilágosodom.
  (az előző képedet alapul véve, az Excelben, hogy nézne ki a végeredmény)

• #48724 Fire/SOUL/CD félisten jerry311 #48722

  Új Válasz 2022-03-22 07:44:12 #48724

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz jerry311 #48722 üzenetére

  Lehet, hogy az a megoldás megfelel számodra, amit Fferi50 adott, de engem ez a mondatod "aggaszt"...

  "Power Query megcsinálja az importot, de még nem jöttem rá, hogy miként lehetne minden fájlból csak a Státusz oszlopod betölteni egy-egy újabb oszlopba a havi összegző fájlban."

  Nekem ebből az jön le (aztán lehet, hogy rosszul), hogy valami ilyesmire gondolsz, pl:
  (Feltételezem az ID, az egy egyedi azonosító, hogy több azonos nevű emberkét meg lehessen különböztetni)

  Egyik CSV-ben pl. ez van
  Fuvaros Jani;ID_001;"Úton"

  Másik CSV-ben (vagy akár ugyanabban) meg pl. ez van
  Fuvaros Jani;ID_001;"Útfélen"

  És persze akármelyik CSV-ben lehet egy másik Fuvaros Jani (meg mások is) is, pl
  Fuvaros Jani;ID_002;"Karambolozott"

  Te pedig ezt szeretnéd összehozni az összesítésben
  

  Erre gondolt a költő?

• #48723 Fferi50 Topikgazda jerry311 #48722

  Új Válasz 2022-03-21 18:58:55 #48723

  Ú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 jerry311 #48722 üzenetére

  Szia!
  "VLOOKUP szívesen behúzza, de ahhoz nyitva kellene lennie mind a 30 fájlnak."
  Szerintem nem kell nyitva lenniük, anélkül is lehet frissíteni - ebben az esetben minden hivatkozásban az elérési utat is tartalmazó teljes fájlnevet kell használni.
  Próbáld ki a következőt: Egy nyitott fájl mellett megcsinálod a képleteket. Ezután bezárod a forrás fájlt. Ekkor a képletekben megjelenik a teljes fájlnév.
  Ennek alapján állítod össze a további képleteket - általában elég az első sort és utána lehúzható.
  Üdv.

• #11856 m.zmrzlina senior tag jerry311 #11855

  Új Válasz 2011-11-02 18:06:16 #11856

  Ú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

  

  m.zmrzlina

  senior tag

  válasz jerry311 #11855 üzenetére

  Úgy ahogy a 11852-ben leírtam.

  Sikerült?

• #11852 m.zmrzlina senior tag jerry311 #11851

  Új Válasz 2011-11-02 16:32:38 #11852

  Ú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

  

  m.zmrzlina

  senior tag

  válasz jerry311 #11851 üzenetére

  Bocs.

  Alt+F11-gyel megnyitod a VBA szerkesztőt majd Insert>Module. Az itt kapott szövegszerkesztő szerű mezőbe másolod a kódot, majd F5-tel elindítod. Ha gyakrabban szeretnéd használni akkor lehet hozzá gombot rendelni a Gyorsindítás eszköztárra.

  Ha pontosan megadod, hogy milyen tartományból milyen tartományba szeretnél véletlen tartalmat generálni akkor aszerint módosítom.

  Csak Excel2007-2010-zel működik a Randbetween() fv miatt.

• #11850 m.zmrzlina senior tag jerry311 #11849

  Új Válasz 2011-11-02 11:46:38 #11850

  Ú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

  

  m.zmrzlina

  senior tag

  válasz jerry311 #11849 üzenetére

  Excel2007-et feltételezve ( a Randbetween() ) miatt, az A1:A20 tartományt tölti fel a B1:L20 tartományból véletlenszerűen vett adatokkal:

  Sub veletlen()
  Cells(1, 1).Select
  For i = 1 To 20
  Cells(i, 1).Value = Cells(WorksheetFunction.RandBetween(1, 20), WorksheetFunction.RandBetween(2, 12)).Value
  Next
  End Sub

• #11465 Delila_1 veterán jerry311 #11463

  Új Válasz 2011-09-26 14:08:17 #11465

  Ú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 jerry311 #11463 üzenetére

  A második oszlopban a napok nevét a weekday függvénnyel állítsd elő, ne az =A2 hivatkozással.

• #11464 m.zmrzlina senior tag jerry311 #11463

  Új Válasz 2011-09-26 14:04:10 #11464

  Ú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

  

  m.zmrzlina

  senior tag

  válasz jerry311 #11463 üzenetére

  Nincsen véletlenül szóköz vagy egyéb nem látható karakter különbség a nevek vagy a napok celláiban?

• #11462 m.zmrzlina senior tag jerry311 #11460

  Új Válasz 2011-09-26 13:46:03 #11462

  Ú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

  

  m.zmrzlina

  senior tag

  válasz jerry311 #11460 üzenetére

  Vagy ha =DARABHATÖBB()-bel szeretnéd akkor próbáld ezt:

  

  Az F2-ben lévő képletet másold jobbra addig ameddig neved van illetve lefelé az utolsó napig.

• #11461 Delila_1 veterán jerry311 #11460

  Új Válasz 2011-09-26 13:25:19 #11461

  Ú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 jerry311 #11460 üzenetére

  Ha 2007, vagy 2010 verziót használsz, a szumhatöbb angol megfelelőjét alkalmazd, ha régebbi az Exceled, készíts kimutatást az adatokból. A SORhoz a nevet és a napot vidd be, az ADAThoz a nevet.

• #483 Fauszt senior tag jerry311 #481

  Új Válasz 2005-07-25 13:13:56 #483

  Ú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

  

  Fauszt

  senior tag

  válasz jerry311 #481 üzenetére

  nem

• #482 jeges senior tag jerry311 #481

  Új Válasz 2005-07-25 12:24:03 #482

  Ú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

  

  jeges

  senior tag

  válasz jerry311 #481 üzenetére

  na hja...egy harmadik cellába'...
  

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