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

• #53756 Emod kezdő dave0825 #53754

  Új Válasz 2025-01-03 14:39:13 #53756

  Ú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

  

  Emod

  kezdő

  válasz dave0825 #53754 üzenetére

  Ha nem akarsz makrózni:
  - Segédoszlop hozzáadása sorszámmal
  - utolsó sorszám alá 22, ha a 22. sor után kell az első üres
  - az új 22 cellában állva: kitöltés, sorozat, sorok, 13 lépés, vége a legnagyobb sorszám legyen
  - sorszám oszlop alapján sorba rendezés
  - valamelyik másik oszlopban rászűrni az üres cellákra, majd ezekben a sorokban sorszám törlése, szűrő eltávolítása

• #53755 karlkani aktív tag dave0825 #53754

  Új Válasz 2025-01-03 12:44:37 #53755

  Ú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 dave0825 #53754 üzenetére

  Szia!

  Ezt találtam, kipróbáltam, működik. Kijelölöd az első sort, utána Ctrl+Shift+↓, majd futtatod a makrót.

  Sub SelectEveryThirdRow()
'Created by Sumit Bansal at https://trumpexcel.com/
Dim MyRange As Range
Dim RowSelect As Range
Dim i As Integer
Set MyRange = Selection
Set RowSelect = MyRange.Rows(10)
For i = 10 To MyRange.Rows.Count Step 13
Set RowSelect = Union(RowSelect, MyRange.Rows(i))
Next i
Application.Goto RowSelect
End Sub

• #48839 lappy őstag dave0825 #48838

  Új Válasz 2022-04-18 12:43:25 #48839

  Ú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 dave0825 #48838 üzenetére

  és mi lett az értelmes szó?

• #48833 Delila_1 veterán dave0825 #48828

  Új Válasz 2022-04-18 08:25:37 #48833

  Ú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 dave0825 #48828 üzenetére

  Szia!

  Szerintem ezt csak makróval lehet megoldani, de akkor sem biztos, hogy értelmes szót tudsz kihozni az A1:I1 tartományban megadott betűkből.
  A3-tól kezdve lefelé íródnak be a "szavak".
  A két makrót másold be egy modulba. A csillagokkal jelölt sorban írd át a 15-öt nagyobbra, ha több, vagy kevesebb szót akarsz kihozni.
  A Veletlen makrót kell indítanod.

  Sub Veletlen()
    Dim oszlop As Integer, sor As Integer
    
    Range("A3:A100") = ""
    Range("N2:V2").FormulaR1C1 = "=COUNTIF(R1C14:R1C22,R[-1]C)"
    
    For sor = 3 To 15 '******** a 15-öt írd át
        Random
        For oszlop = 14 To 22
            If Cells(2, oszlop) > 1 Then
                oszlop = 0: Random
            End If
        Next
        
        Range("N1:V1").Copy
        Range("N1").PasteSpecial xlPasteValues
        
        For oszlop = 14 To 22
            Range("A" & sor) = Range("A" & sor) & Cells(1, Cells(1, oszlop))
        Next
    Next
    Range("N1:V2") = ""
    Cells(1).Select
    Application.CutCopyMode = False
End Sub


Sub Random()
    Range("N1:V1") = "=RANDBETWEEN(1,9)"
End Sub

• #48831 lappy őstag dave0825 #48830

  Új Válasz 2022-04-17 21:54:28 #48831

  Ú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 dave0825 #48830 üzenetére

  Ahhoz kellene egy adatbázis, de akkor már minek

• #48829 lappy őstag dave0825 #48828

  Új Válasz 2022-04-17 21:24:58 #48829

  Ú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 dave0825 #48828 üzenetére

  Jó olvasást

• #43626 Mutt senior tag dave0825 #43624

  Új Válasz 2020-04-16 13:53:23 #43626

  Ú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 dave0825 #43624 üzenetére

  Szia,

  A B:C segédoszlopokból hiányoznak a képletek a 101-es sortól.

  

  Ha nem akarsz segédoszlopokkal jatszánai, akkor ezek a lehetőségek vannak:

  1. Office365-ben van UNIQUE(EGYEDI) függvény az egyedi nevek előállításához.

  2. Pivot (Kimutatás) is tud segíteni. Ez nem frissül automatikusan, de be lehet állítani, hogy a fájl megnyitásakor frissüljön.

  3. Tömbfüggvénnyt is lehet használni.

  üdv

• #43625 Delila_1 veterán dave0825 #43624

  Új Válasz 2020-04-16 13:52:04 #43625

  Ú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 dave0825 #43624 üzenetére

  Az F2 cella képlete
  =HA(E2>"";DARABTELI(A:A;E2);"")

• #42308 Mutt senior tag dave0825 #42301

  Új Válasz 2019-11-28 15:47:57 #42308

  Ú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 dave0825 #42301 üzenetére

  Szia,

  A legegyszerűbb megoldás egy Kimutatás (Pivot) az A-oszlopon. Egyetlen hátránya, hogy nem realtime frissül.

  Ha Office 365 Insider-t használsz, akkor van EGYEDI (UNIQUE) vagy SZŰRŐ (FILTER) függvény, amely a duplikációkat veszi ki.

  Ha régebbi Excel-ed van, akkor egy tömbfüggvény tudja a fentit helyettesíteni.

  üdv

• #42306 Delila_1 veterán dave0825 #42304

  Új Válasz 2019-11-28 14:26:59 #42306

  Ú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 dave0825 #42304 üzenetére

  A DARABTELI függvénnyel rögtön meg tudod állapítani az egyes értékek darabszámát.
  =darabteli(A:A;A1)

  Feltételes formázást is alkalmazhatsz az A oszlopra. A képlet
  =darabteli(A:A;A1)>1
  Ez az általad meghatározott formátummal hozza azokat a tételeket, amik 1-nél többször fordulnak elő az A oszlopban.

  Szerk.: látom, a darabteli függvényt közben Pakliman is megírta.

• #42305 Pakliman tag dave0825 #42301

  Új Válasz 2019-11-28 14:24:45 #42305

  Ú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

  

  Pakliman

  tag

  válasz dave0825 #42301 üzenetére

  Szia!

  Egy lehetőség:
  
  B1:B akármennyi cellákba: =DARABTELI($A$2:A2;A2)
C1:C akármennyi cellákba: =HA(B2=1;SZUMHA($B$2:B2;B2;$B$2:B2);"")
D1:D akármennyi cellákba: =HAHIBA(INDEX(A:A;HOL.VAN(SOR()-1;C:C;0));"")

  A C és D segédoszlopokban vannak a szükséges "számító" képletek, a D oszlop tartalmazza az eredményt.

• #42303 Delila_1 veterán dave0825 #42301

  Új Válasz 2019-11-28 14:00:36 #42303

  Ú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 dave0825 #42301 üzenetére

  Ha Google Sheets alkalmazásod van, néz meg [itt] a választ.
  Ellenkező esetben az Adatok | Adateszközök | Ismétlődések eltávolítása menüponttal tudod alkalmanként kihozni a C oszlopban az egyéni adatokat megjeleníteni.

• #42292 Delila_1 veterán dave0825 #42290

  Új Válasz 2019-11-27 11:20:45 #42292

  Ú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 dave0825 #42290 üzenetére

  Címsort feltételeztem, azért írtam kettes sort.

• #42289 Delila_1 veterán dave0825 #42288

  Új Válasz 2019-11-27 07:24:52 #42289

  Ú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 dave0825 #42288 üzenetére

  Kijelölöd a tartományt – mind a 10 oszlopot –, a feltételes formázás képlete

  =$G2<$I2

  Már csak a formátumot kell megadnod.

• #40378 Faterkam addikt dave0825 #40376

  Új Válasz 2019-03-06 12:30:41 #40378

  Ú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

  

  Faterkam

  addikt

  válasz dave0825 #40376 üzenetére

  Sajnos nem, végtelen hosszú.

• #40336 dave0825 őstag dave0825 #40307

  Új Válasz 2019-02-28 07:14:43 #40336

  Ú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

  

  dave0825

  őstag

  válasz dave0825 #40307 üzenetére

  Ha valaki esetleg akarna még ilyet, így csináltam:

  HA(ÜRES(L2);"";(IDŐ(0;JOBB(HELYETTE(L2;"p";" ");4);0)+KÖZÉP(HELYETTE(L2;"ó";SOKSZOR(" ";100));4;100)/24+(BAL(L2;KERES("n";L2;1)))))

  L2-től lefelé vannak a "0n 0ó 0p" formátumok. Külföldi fórumon találtam hasonlót, abból lett ez.

• #37976 Mutt senior tag dave0825 #37975

  Új Válasz 2018-05-04 20:23:46 #37976

  Ú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 dave0825 #37975 üzenetére

  Szia,

  A képlet beírása után Ctrl+Shift+Enter -t nyomj, ekkor az Excel a képletet kapcsos zárójelek közé teszi és engedi egyszerre több adaton is elvégezni a műveleteket.

  Az általad kiemelt rész ugyanazt csinálja, mint amit Delila javasolt, vagyis próbál létrehozni egyedi értékeket, hogy meg tudjuk különböztetni az ismétléseket.

  üdv

• #37973 Mutt senior tag dave0825 #37966

  Új Válasz 2018-05-03 20:57:19 #37973

  Ú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 dave0825 #37966 üzenetére

  Szia,

  Ha nem tudsz segédoszlopot felvenni, akkor ezzel a tömbfüggvénnyel is menni fog:

  Nevek:
  =INDEX($A$11:$M$85;HOL.VAN(ÖSSZESÍT(14;6;$M$11:$M$85-SOR($M$11:$M$85)/100000;SOROK($C$91:$C91));$M$11:$M$85-SOR($M$11:$M$85)/100000;0);1)

  Túlórák:
  =INDEX($A$11:$M$85;HOL.VAN(ÖSSZESÍT(14;6;$M$11:$M$85-SOR($M$11:$M$85)/100000;SOROK($C$91:$C91));$M$11:$M$85-SOR($M$11:$M$85)/100000;0);13)

  További lehetőség a Kimutatás (Pivot) használata, ahol túlorák szerint csökkenő sorrendbe rendezed az eredményt és csak a Top 3-at iratod ki.

  Ugyanez a technika Power Query-vel is megy.

  üdv

• #37972 Delila_1 veterán dave0825 #37966

  Új Válasz 2018-05-03 16:56:06 #37972

  Ú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 dave0825 #37966 üzenetére

  Felveszel egy új oszlopot. Itt az M oszlop értékéhez hozzáadsz egy nagyon kicsi számot, a következő módon.

  =M11+SOR()*0,000001

  Így az egyes sorokban lévő azonos számok a sor számától függően különböző értéket kapnak. Az utoljára írt képletedben a HOL.VAN függvény ebben az új oszlopban keressen.

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