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

• #53851 Delila_1 veterán twingos #53840

  Új Válasz 2025-01-16 17:23:40 #53851

  Ú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 twingos #53840 üzenetére

  Egy másik módszer: =HAHIBA(HA(SZÖVEG.KERES("*"&B$1&"*";$A2);"igaz");"nem")
  Jobbra, és le is másolható.

• #53850 Fferi50 Topikgazda twingos #53848

  Új Válasz 2025-01-16 15:47:28 #53850

  Ú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 twingos #53848 üzenetére

  Szia!
  A B1 helyett B$1 kellene, hogy húzni lehessen lefelé is. A +HOSSZ(B1)+2 azért jó, mert így nem kell hozzáfűzni a kettőspontot a keresendő értékhez.
  Üdv.

• #53849 lappy őstag twingos #53848

  Új Válasz 2025-01-16 14:44:46 #53849

  Ú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 twingos #53848 üzenetére

  ha működik akkor nincs mit nézni rajta - max egyszerűsíteni de ezen nem

• #53845 lappy őstag twingos #53842

  Új Válasz 2025-01-16 10:52:07 #53845

  Ú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 twingos #53842 üzenetére

  =SZÖVEGELŐTTE(SZÖVEGUTÁNA(B2;"alma: ");" ") valahogy így ki lehet nyerni

• #53844 Fferi50 Topikgazda twingos #53840

  Új Válasz 2025-01-16 10:24:15 #53844

  Ú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 twingos #53840 üzenetére

  Szia!
  "amiben A1,B1,C1 stb cellában ömlesztett szöveges adatok vannak."
  Szerintem pedig az A2,A3,A4 stb. cellában vannak az ömlesztett szövegek.
  Figyelj légyszíves a pontos kérdés feltevésre...
  Továbbá nem ártalmas a használt verzió megadása sem (ld. összefoglaló)
  Üdv.

• #53843 Fferi50 Topikgazda twingos #53840

  Új Válasz 2025-01-16 10:21:56 #53843

  Ú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 twingos #53840 üzenetére

  Szia!
  Próbáld ezt a képletet a B2 cellába:
  =HELYETTE(KÖZÉP($A2;SZÖVEG.KERES(B$1;$A2)+HOSSZ(B$1)+1;4);" ";"")
  A címzésnél figyelj a $ -ra. Így a képlet húzható jobbra és lefelé is.
  Ez minden magyar verzióban műxik. Angolban a megfelelő angol függvénynevek kellenek és az elválasztójel is vessző.
  A HELYETTE függvény azért kell, hogy a nem után ne maradjon szóköz.
  Üdv.

• #53841 lappy őstag twingos #53840

  Új Válasz 2025-01-16 09:58:25 #53841

  Ú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 twingos #53840 üzenetére

  szövegután függvény

• #37660 Pakliman tag twingos #37659

  Új Válasz 2018-03-28 14:09:01 #37660

  Ú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 twingos #37659 üzenetére

  Szia!

  Én létrehoztam egy új munkafüzetet.
  Abban létrehoztam 25 munkalapot (a neveik sorban: Munka1, Munka2, stb. Munka25)
  Az If Mid(ws.Name, 6) >= 1 And Mid(ws.Name, 6) <= 20 Then sor ezeknek a neveknek megfelelően ellenőriz. Ha nálad nem ezek a nevek vannak (gyanítom ), akkor más szisztéma szerint kell megtalálnod, hogy az a munkalap kell-e neked (Pl.: egy Select Case válogatás).
  Szerintem itt lesz a gond egyébként
  Ha leírod a figyelendő munkalapok neveit, akkor tudok többet segíteni.

  A munkalapok kijelölését azért nem láthatod, mert egyrészt "gyors" a program, másrészt pedig a progi végén visszaállítom az eredetileg aktív (Set wsA = ActiveSheet) munkalapot (wsA.Select).

• #37655 Pakliman tag twingos #37653

  Új Válasz 2018-03-28 09:37:05 #37655

  Ú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 twingos #37653 üzenetére

  Szia!

  Egy lehetséges megoldás...

  Public Sub qa()
Dim wsA As Worksheet: Set wsA = ActiveSheet
Dim wsArr
Dim wsDb As Integer
Dim ws As Worksheet

ReDim wsArr(0 To 0)
'Van egy táblázatom, ami 25 sheet-et tartalmaz. Nekem csak a 1-től 20. oldalig fontosak...
For Each ws In Worksheets
If Mid(ws.Name, 6) >= 1 And Mid(ws.Name, 6) <= 20 Then 'itt kell azonosítani a munkalapot, hogy kell-e egyáltalán
'ha az I3-as cella értéke nem üres...
If Not IsEmpty(ws.Range("I3")) Then
'... és nullánál nagyobb...
If ws.Range("I3") > 0 Then
wsDb = wsDb + 1
ReDim Preserve wsArr(1 To wsDb)
wsArr(wsDb) = ws.Name
End If
End If
End If
Next ws

If wsDb > 0 Then
Sheets(wsArr).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="d:\Ez az új.pdf"
End If

wsA.Select
End Sub

• #29493 Delila_1 veterán twingos #29489

  Új Válasz 2015-11-13 11:12:40 #29493

  Ú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 twingos #29489 üzenetére

  Ha csak ez a 3 betűcsoportod van, akkor a képlet
  =HA(BAL(A1;3)="abc";"alma";HA(BAL(A1;3)="def";"körte";"banán"))

• #29487 Delila_1 veterán twingos #29485

  Új Válasz 2015-11-13 06:36:41 #29487

  Ú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 twingos #29485 üzenetére

  =FKERES(BAL(A1;3) & "*";A:B;2;0)

• #29099 lenkei83 tag twingos #29098

  Új Válasz 2015-10-18 11:30:57 #29099

  Ú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

  

  lenkei83

  tag

  válasz twingos #29098 üzenetére

  Szia!

  Két kérdésem is van:
  Az egyik, hogy melyik oszlopban kell figyelembe venni, az utolsó aktív sort?
  A másik, hogy milyen exceled van? Ha 2007 vagy frissebb, akkor én így használnám a képletet:
  =HAHIBA(HOL.VAN(V2;AB:AB;0);"") --> A V:V-t lecseréltem V2-re, feltételezve, hogy az első sor fejlécet tartalmaz:

  Ha 2007 előttit használsz akkor pedig hasonló mint a tiéd: =HA(HIBÁS(HOL.VAN(V1;AB:AB;0));"";HOL.VAN(V1;AB:AB;0))

  A kód pedig ennyi lenne 2007-es excelt (vagy későbbit) feltételezve

  Sub InsertFormula()
  
  Range("X2:X" & Cells(Rows.Count, "A").End(xlUp).Row).Formula = "=iferror(match(V1,AB:AB,0),"""")"
  
  End Sub

  Amire figyelned kell: X2:X tehát az X oszlop második sorától indul a képlet, ha az első sorba is kell, akkor X1-re javítsd.

  Valamint a Cells(Rows.Count, "A") az az oszlop, ahol az utolsó aktív sort kell figyelni, itt az "A"-t módosítsd ha szükséges.

  üdv

• #28478 Delila_1 veterán twingos #28473

  Új Válasz 2015-09-07 06:43:01 #28478

  Ú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 twingos #28473 üzenetére

  Formázd meg a D oszlopot előre, legyen # ##0" db" az egyéni kategóriában.
  Rendeld a lapodhoz a lenti makrót:

  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim talal, WF As WorksheetFunction
  Set WF = WorksheetFunction
  
  Application.EnableEvents = False
  If Target.Column = 1 Then
  If WF.CountIf(Columns(1), Target) > 1 Then
  If WF.CountIf(Columns(5), Target) = 0 Then
  talal = Range("E" & Rows.Count).End(xlUp).Row + 1
  Range("E" & talal) = Target
  Range("D" & talal) = WF.CountIf(Columns(1), Target)
  Else
  talal = Application.Match(Target, Columns(5), 0)
  End If
  Range("D" & talal) = WF.CountIf(Columns(1), Target)
  End If
  End If
  Application.EnableEvents = True
  End Sub

• #28472 Delila_1 veterán twingos #28471

  Új Válasz 2015-09-06 17:12:30 #28472

  Ú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 twingos #28471 üzenetére

  Legyen a B2 képlete =DARABTELI(A$2:A2;A2). Ügyelj a $ jelre. Ezt lemásolod a többi adatod mellé. Ahol 1-nél nagyobb számot látsz, ott már nem először szerepel az adat. Szűrheted is az oszlopot az 1-nél nagyobb értékekre.

  Más oszlopba is írhatod a képletet, ha a B foglalt.

  Adhatsz A2-től az oszlopodra feltételes formázást. A képlet =DARABTELI(A:A;A2)>1

• #28470 Delila_1 veterán twingos #28469

  Új Válasz 2015-09-06 16:25:04 #28470

  Ú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 twingos #28469 üzenetére

  Melyik verziót használod?

• #28465 Delila_1 veterán twingos #28461

  Új Válasz 2015-09-06 14:27:15 #28465

  Ú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 twingos #28461 üzenetére

  A napokban sok szó esett a speciális-, lánykori nevén irányított szűrésről (csak az egyedi rekordok megjelenítése).
  Ezzel a funkcióval kigyűjtőd az egyedi értékeket az E oszlopba. A D2 cella képlete =DARABTELI(A:A;E2)

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