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

• róland veterán

  #23800

  #23799 Delila_1

  2014-10-17 20:38:18

  Új Válasz

  Ú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

  

  róland

  veterán

  #23799 Delila_1

  Ha jól nézem akkor a következő részlet átalakítása akár nekem is jó lehet?

  If Target.Column = 7 Then
  sor = Target.Row
  Application.EnableEvents = Fals
  Range(Cells(sor, "B"), Cells(sor, "F")).Copy
  Range("H18").PasteSpecial xlPasteValues
  Application.CutCopyMode = False
  Range("B4").Select
  Application.EnableEvents = True
  End If

• Delila_1 veterán

  #23799

  #23795 Xterms

  2014-10-17 19:15:09

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #23795 Xterms

  Róland ötlete szerint írtam a makrót, a füzetet feltettem ide.

• róland veterán

  #23798

  #23797 slashing

  2014-10-17 18:46:22

  Új Válasz

  Ú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

  

  róland

  veterán

  #23797 slashing

  Képlet akkor használható, ha a végső helyen dolgozok.

  Ez egy segédtábla, ami minden nap üresen nyílik meg, beírnak pár adatot, majd a végső tábla megfelelő sorába kell azt átrakni. (A kérdéses sort a HOL.VAN függvénnyel lehet megkerestetni.)

  A képlet akkor jó, ha a célhelyen kezdeményezem a keresést a források között. Itt viszont a forrásból kezdeményezem az adat átadását.

  Mint írtam az is cél, hogy az adatot rögzítő a teljes adattáblához ne férjen hozzá. Kizárólag az aznapi adatokat látná.

• slashing senior tag

  #23797

  #23794 róland

  2014-10-17 17:58:44

  Új Válasz

  Ú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

  

  slashing

  senior tag

  #23794 róland

  sőt ezt szerintem képlettel is le lehetne írni: ha/dátum/most/kisebb/nagyobb vagy valamilyen keres függvényekkkel.... ezek csak hírtelnjében kippattant fügvények amikkel lehet hogy le lehet írni. Nem tartom kizártnak bár rövid az nem lenne, lehet tényleg egyszerűbb macro-val..

• Fferi50 Topikgazda

  #23796

  #23792 nebulo0128

  2014-10-17 17:46:42

  Új Válasz

  Ú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

  

  Fferi50

  Topikgazda

  #23792 nebulo0128

  Szia!

  Most egy olyan dodonai választ fogsz kapni, hogy "az excel sokmindenre képes, de sokmindenre nem".
  Alapjában véve táblázatkezelőnek "indult", de mára már "adatbázis kezelő" is nyomokban.

  Ahhoz amit szeretnél, szerintem kell egy olyan makró, amelyik a cella beírása után lefuttatja a cella értékének megfelelő lekérdezést és az eredményt beírja a cella melletti tartományba. Vagyis minden cellaértékre külön-külön kell lefutnia a lekérdezésnek. Viszont ez a lekérdezés (querytable) lehet egy konkrét helyen (akár rejtett munkalapon) és onnan másolódik be az adott cella mellé.
  Vagyis a lekérdezés tábla értéke mindig változik az aktuális cella értékének megfelelően, viszont az egyszer már a cella mellé másolt értékek nem változnak.

  Pl. querytable helye munka2!A1:X2 egy sor fejléc egy sor adat
  Munka1.A1 cellájába beírod "valami", a worksheet_change esemény erre lefuttatja a lekérdezést az A1 ez az eseménykezelőben Target nevű objektumként található - értékével, majd a Munka2!A2:X2 értéket bemásolja a Munka1. B1 cellájától kezdődően.
  Ezután
  Munka1 A2 cellájába beírod "valami2", a worksheet_change esemény megcsinálja a fentieket a Target.value értékkel -azaz az A2-ben levő valami2 -vel majd Munka2!A2:X2 értékekekt bemásolja a Munka1.B2 cellájától kezdődően (Munka1.B2 cella = Target.Offset(0,1) az eseménykezelőben.
  És így tovább....

  "Csak" a lekérdezést és az eseménykezelőt kell jól megírni........ Nyilván ellenőrizni kell, hogy valóban olyan helyre írtak be értéket, ahova a cikkszám való és valóban létező cikkszámot írtak be.

  Remélem, tudod hasznosítani amit írtam, ha gondolod privi is jöhet.

  Üdv.

• Xterms tag

  #23795

  #23794 róland

  2014-10-17 17:39:43

  Új Válasz

  Ú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

  

  Xterms

  tag

  #23794 róland

  Ez igazából sokkal jobb ötlet mint az enyém, és a valósághoz is jobban közelít.

• róland veterán

  #23794

  #23793 Xterms

  2014-10-17 17:27:51

  Új Válasz

  Ú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

  

  róland

  veterán

  #23793 Xterms

  Én lehet picit módosítanék rajta:

  Az "A" táblázat sorainak végére végére tennék gombot, ami az adott sort a "B" táblázat utolsó üres sorába másolja. Amennyiben nincs több üres, úgy törli a legelső ssort, eggyel feljebb mozgatja a többi, majd az így üresedő sorba másol.

• Xterms tag

  #23793

  #23788 Delila_1

  2014-10-17 17:18:48

  Új Válasz

  Ú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

  

  Xterms

  tag

  #23788 Delila_1

  No, itt van.

  Egy utastájékoztató-szoftver képmására készül.
  Az első sort bemásoltam a B listára példának.

  

• nebulo0128 csendes tag

  #23792

  #23790 Fferi50

  2014-10-17 16:22:28

  Új Válasz

  Ú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

  

  nebulo0128

  csendes tag

  #23790 Fferi50

  köszi,
  úgy oldottam meg közbe, hogy MS Query-vel odbc adatforrásból betöltöttem, és ott új lekérdezésként annyit adtam csak meg, hogy [ ] ez után fájl>hozzáadás excelhez, és ott kéri az, hogy melyik cellát akarod megadni a paramétert.

  annyi bajom lenne vele, hogy ezt a lekérdezést nem lehet lefele sokszorozni, és hogy mindig a mellette lévő adatból vegye feltételt. (olyanban gondolkozok, hogy egy nagy adatbázisból dolgozna (amit egy másik forrás progival használunk), én beírom a cikkszámot napi gyártáshoz, és azonnal kilistázza nekem elektronikát, címke nyomtatáshoz linket stb.. )
  ilyenre esetleg képes az excel? vagy inkább hagyjam ezt az ötletemet

• róland veterán

  #23791 2014-10-17 16:19:52

  Új Válasz

  Ú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

  

  róland

  veterán

  Ugyan nem Excel, de adott az alábbi makró:

  sub Adatrogzites
  rem ----------------------------------------------------------------------
  rem define variables
  dim document as object
  dim dispatcher as object
  rem ----------------------------------------------------------------------
  rem get access to the document
  document = ThisComponent.CurrentController.Frame
  dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
  
  rem ----------------------------------------------------------------------
  dim args1(0) as new com.sun.star.beans.PropertyValue
  args1(0).Name = "ToPoint"
  args1(0).Value = "$B$2"
  
  dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
  
  rem ----------------------------------------------------------------------
  dim args2(0) as new com.sun.star.beans.PropertyValue
  args2(0).Name = "ToPoint"
  args2(0).Value = "$B$2:$M$2"
  
  dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args2())
  
  rem ----------------------------------------------------------------------
  dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())
  
  rem ----------------------------------------------------------------------
  dim args4(0) as new com.sun.star.beans.PropertyValue
  args4(0).Name = "Nr"
  args4(0).Value = 2
  
  dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args4())
  
  rem ----------------------------------------------------------------------
  dim args5(0) as new com.sun.star.beans.PropertyValue
  args5(0).Name = "ToPoint"
  args5(0).Value = "$B$290"
  
  dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args5())
  
  rem ----------------------------------------------------------------------
  dispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array())
  
  
  end sub

  A lényege, hogy egy berögzített adatsort átmásolna (kijelölés-másolás-beillesztés módszerrel) egy táblázat megfelelő sorába.
  Ezt szeretném módosítani oly módon, hogy az adott dátumnak megfelelő sorba szúrja be az adatokat. (A dátumnak megfelelő sor kiszámított sorszámát az eredeti munkalap egyik (jelen esetben A3) mezője tartalmazza.

  Úgy néztem, hogy ebben a részben határozza meg, hogy hová is kell beszúrni:

  rem ----------------------------------------------------------------------
  dim args5(0) as new com.sun.star.beans.PropertyValue
  args5(0).Name = "ToPoint"
  args5(0).Value = "$B$290"
  
  dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args5())

  Azaz ezt szeretném úgy módosítani, hogy $B$290 érték helyett a mindenkori kívánt cellába illessze be az adatokat.

  Hogy lehet ezt megoldani?

• Fferi50 Topikgazda

  #23790

  #23783 nebulo0128

  2014-10-17 16:11:14

  Új Válasz

  Ú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

  

  Fferi50

  Topikgazda

  #23783 nebulo0128

  Szia!

  Még az előző hozzászólásomhoz annyit:

  Ha a feltételt a cellából veszi, akkor csak "WHERE (f_orszag like '" & Munka1!A1 & "')"

  Amit az előbb írtam, a makrós megoldásra jó.

  Üdv.

• Fferi50 Topikgazda

  #23789

  #23783 nebulo0128

  2014-10-17 15:52:12

  Új Válasz

  Ú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

  

  Fferi50

  Topikgazda

  #23783 nebulo0128

  Szia!

  Szerintem próbáld így:

  WHERE " (f_orszag like ' & sheets("Munka1").range('A1").value & "')"

  Üdv.

• Delila_1 veterán

  #23788

  #23787 Xterms

  2014-10-17 14:04:33

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #23787 Xterms

  Na és hol van helyileg az A és B listád? Add meg a címet, pl. az A1-ben kezdődik az A lista, a B pedig a "másiklap" nevű lap A1 cellájában.

  Kopik a harapófogóm, amivel ki kell húzni belőled az információkat.

• Xterms tag

  #23787

  #23786 Delila_1

  2014-10-17 13:50:10

  Új Válasz

  Ú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

  

  Xterms

  tag

  #23786 Delila_1

  Az A listában kijelölt sort a B listában abba a sorba, amelyik melletti gombot megnyomjuk.

• Delila_1 veterán

  #23786

  #23784 Xterms

  2014-10-17 13:14:38

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #23784 Xterms

  Na és hova másolja a kijelölt sort? Az aktuális lapon valahova, vagy egy másik lapra, az utóbbinál hova?

  Nem jó tipp, hogy cseppenként adagolod a feladatot, mert minden csepp után át kell alakítani a képleteket, vagy a makrót.

• Delila_1 veterán

  #23785

  #23762 plaschil

  2014-10-17 13:11:58

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #23762 plaschil

  Úgy látom, ez 2013-as Excelben van, ami nekem nincs.

  A másik lap X oszlopában add meg azt a feltételt, ami az első lapot színezi, csak itt a Ha feltétel X-et írjon a sorba.

• Xterms tag

  #23784

  #23779 Delila_1

  2014-10-17 12:22:51

  Új Válasz

  Ú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

  

  Xterms

  tag

  #23779 Delila_1

  Óó király vagy, kezd alakulni. Megoldható az, hogy a gomb egy kijelölt sort másoljon be A-ból, és ne mindenképp azt, amelyikkel egy sorban van?

  m.zmrzlina: külön cellákban vannak, sőt, igazából egymás mellett is több cellányi tartalom lenne, csak ezt még nem mertem felhozni, majd napról napra bonyolítom, és eljutunk valahová remélem

• nebulo0128 csendes tag

  #23783 2014-10-17 09:31:36

  Új Válasz

  Ú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

  

  nebulo0128

  csendes tag

  Hello,

  SQL lekérdezést szeretnék betenni excelbe, úgy hogy a feltételt az egyik cellából veszi
  adatkapcsolat létrejön sqlexpress ki is tudom listázni, pl
  SELECT f_nev1
  FROM "proba"."dbo"."orszag"
  WHERE (f_orszag like 'DE')
  ez kiírja akkor hogy Németország
  azt szeretném, hogy a feltételben a DE-t a táblázat egyik mezőjéből vegye, pl A1

  próbáltam azt, hogy:

  SELECT f_nev1
  FROM "proba"."dbo"."orszag"
  WHERE (f_orszag like '%=Munka1(A1)%')

  meg ennek változatait de nem listáz ki semmit

  hogyan kell helyesen megadni, hogy a táblázatomból vegye a feltételt? (ha lehet egyáltalán)

• m.zmrzlina senior tag

  #23782

  #23781 mdk01

  2014-10-17 08:57:13

  Új Válasz

  Ú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

  

  m.zmrzlina

  senior tag

  #23781 mdk01

  Szivesen.

• mdk01 addikt

  #23781

  #23778 m.zmrzlina

  2014-10-17 08:54:33

  Új Válasz

  Ú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

  

  mdk01

  addikt

  #23778 m.zmrzlina

  Úgy néz ki megoldódott. ,
  Köszi

• Delila_1 veterán

  #23780

  #23773 Teejay83

  2014-10-17 08:47:52

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #23773 Teejay83

  Szívesen.

• Delila_1 veterán

  #23779

  #23761 Xterms

  2014-10-17 08:47:08

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #23761 Xterms

  Az A oszlopba írtam az adatokat, B-be gombok helyett csak a Windings betűtípus 0240-es kódját tettem. A fekete hátterű cellák a C oszlopban vannak.
  A makrót a laphoz kell rendelni.

  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim sor As Long
  sor = Target.Row
  If Target.Column = 2 Then
  If Cells(sor, 3) = "" Then
  Cells(sor, 3) = Cells(sor, 1)
  Else
  Application.DisplayAlerts = False
  Do While Cells(sor, 3) <> ""
  Cells(sor, 3) = Cells(sor + 1, 3)
  sor = sor + 1
  Application.DisplayAlerts = True
  Loop
  End If
  End If
  End Sub

• m.zmrzlina senior tag

  #23778

  #23777 mdk01

  2014-10-17 08:44:08

  Új Válasz

  Ú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

  

  m.zmrzlina

  senior tag

  #23777 mdk01

  Könnyen lehet.

• mdk01 addikt

  #23777

  #23776 m.zmrzlina

  2014-10-17 08:37:41

  Új Válasz

  Ú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

  

  mdk01

  addikt

  #23776 m.zmrzlina

  Ott ahol nem működik a képlet nézd meg, hogy nincs-e a hivatkozott cellában szóköz vagy egyéb nem kinyomtatható karakter.

  Aha, erre nem gondoltam.
  Hivatkozás van benne, de a hivatkozott cella is üres így nem ír ki semmit.
  Akkor gondolom ilyen esetben a hivatkozott cellára kellene nekem is hivatkozni.

  Köszönöm

• m.zmrzlina senior tag

  #23776

  #23775 mdk01

  2014-10-17 08:35:04

  Új Válasz

  Ú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

  

  m.zmrzlina

  senior tag

  #23775 mdk01

  =HA(A1="";"";A1)
  Ez így rendben van.

  Ott ahol nem működik a képlet nézd meg, hogy nincs-e a hivatkozott cellában szóköz vagy egyéb nem kinyomtatható karakter.

• mdk01 addikt

  #23775

  #23774 m.zmrzlina

  2014-10-17 08:32:57

  Új Válasz

  Ú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

  

  mdk01

  addikt

  #23774 m.zmrzlina

  Igen, köszönöm pont ezt próbáltam meg most, és működik valamelyiknél, vaamelyiknél pedig nem.
  Nem teljesen értem, szerintem valami zavar van a képletben és megkeveredik.

  És ha nem akarom hogy az üres szót kiírja, hanem ne írjon ki semmit akkor mit kell írni?
  Most csak simán így hagytam, de ez is zavaros neki.

  =HA(A1="";"";A1)

  Köszönöm

• m.zmrzlina senior tag

  #23774

  #23772 mdk01

  2014-10-17 08:29:06

  Új Válasz

  Ú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

  

  m.zmrzlina

  senior tag

  #23772 mdk01

  Próbáld így:

  =Vágáslista!A3&"_"&Vágáslista!S3&"_"&HA(Vágáslista!R3="";"";KÖZÉP(Vágáslista!R3;1;10)&"_"&HA(Vágáslista!Q3="";"";Vágáslista!Q3)&"_"&Vágáslista!D3)

  Ha üres cella esetén szeretnél valamit csinálni, vagy nem csinálni akkor a következő képletet használd:
  =HA(A1="";"üres";A1)

  Lefordítva: (a képlet mondjuk B1-ben van):
  Ha A1 nem tartalmaz adatot akkor B1 értéke az üres szó (vagy ami az üres helyén az idézőjelek közt van) egyébként B1 megkapja A1 értékét

• Teejay83 tag

  #23773

  #23756 Delila_1

  2014-10-17 08:22:34

  Új Válasz

  Ú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

  

  Teejay83

  tag

  #23756 Delila_1

  Köszi szépen sokat segített

• mdk01 addikt

  #23772 2014-10-17 08:15:18

  Új Válasz

  Ú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

  

  mdk01

  addikt

  Sziasztok,
  Lenne egy kérdésem megint.

  =Vágáslista!A3&"_"&Vágáslista!S3&"_"&HA(Vágáslista!R3="üres";"üres";KÖZÉP(Vágáslista!R3;1;10)&"_"&HA(Vágáslista!Q3="üres";"üres";Vágáslista!Q3)&"_"&Vágáslista!D3)

  Itt az "üres" részével volna kérdésem, hogy ezt így jól csináltam?
  A lényeg annyi csak hogy ha a cella üres akkor ne írjon ki semmit, ha pedig van bene valami érték akkor írja ki azt.
  Az nem tetszik hogy nem csinálja meg automatikusan ha lemásolom a képletet a többi cellára, csak akkor ha beírok abba a bizonyos cellába egy értéket, akkor azt megjeleníti és utána ezt az értéket kitörlöm és akkor nem jelenít meg semmit.
  Szóvel ez az "üres" érték nem tetszik neki lehet, vagy nem is tudom. Ezt így kell jelölni?

  Köszönöm

• m.zmrzlina senior tag

  #23771

  #23761 Xterms

  2014-10-17 06:52:24

  Új Válasz

  Ú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

  

  m.zmrzlina

  senior tag

  #23761 Xterms

  Kérdés:
  A kijelölt sor egyetlen cella tartalma vagy az egész (aaaaaa tól ffffff-ig) tartozik egy cellába?

• m.zmrzlina senior tag

  #23770

  #23769 A214

  2014-10-16 21:40:29

  Új Válasz

  Ú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

  

  m.zmrzlina

  senior tag

  #23769 A214

  Akkor ennyi a változás:

  

  Természetesen a második sor képleteit lemásolod ameddig szükséges. Miután felülírtad a C oszlop képleteit (Ctrl+C>Irányított beillesztés>Értéket) az E és F oszlopokat törölheted

• A214 aktív tag

  #23769

  #23768 m.zmrzlina

  2014-10-16 21:23:37

  Új Válasz

  Ú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

  

  A214

  aktív tag

  #23768 m.zmrzlina

  egyszerűbb megadni azt, hogy mi ne kapjon sorszámot

• m.zmrzlina senior tag

  #23768

  #23767 A214

  2014-10-16 21:20:26

  Új Válasz

  Ú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

  

  m.zmrzlina

  senior tag

  #23767 A214

  
  A kérdés továbbra is az, hogy (a programozást tekintve) mi az egyszerűbb neked? Azt megadni, hogy mi ne kapjon sorszámot (gondolom ez) vagy hogy mi kapjon sorszámot.

  Arra rájöttünk, hogy ahogy mondani szokták "Képünk csak illusztráció"

• A214 aktív tag

  #23767 2014-10-16 21:10:06

  Új Válasz

  Ú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

  

  A214

  aktív tag

  Hali

  Ez csak egy példa volt, nem nevek vannak, hanem helyiségek(WC,fürdő,konyha,szoba stb minden féle)
  Szóval ezekhez nem akarok sorszámot, viszont ami a helyiségen belül van ahhoz igen.

• m.zmrzlina senior tag

  #23766

  #23765 m.zmrzlina

  2014-10-16 20:34:17

  Új Válasz

  Ú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

  

  m.zmrzlina

  senior tag

  #23765 m.zmrzlina

  Persze ha az L oszlop képleteit felülírod az értékükkel akkor a segédoszlopokat simán lehet törölni.

  Kérdés az, hogy milyen könnyen tudod előállítani a (nálam) O oszlopban lévő listát.

• m.zmrzlina senior tag

  #23765

  #23763 A214

  2014-10-16 20:26:04

  Új Válasz

  Ú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

  

  m.zmrzlina

  senior tag

  #23763 A214

  Nekem két segédoszloppal sikerült megoldani:

  

  Az O oszlopban vannak azok az elemek aminek kell sorszámot kapniuk,

  Ha adsz egy kis támpontot, hogy mi alapján kapnak illetve nem kapnak sorszámot a tartomány elemei, lehet, hogy könnyebb lenne.

• plaschil aktív tag

  #23764

  #23763 A214

  2014-10-16 20:16:18

  Új Válasz

  Ú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

  

  plaschil

  aktív tag

  #23763 A214

  Gondolom a nevek elé nem akarsz sorszámot.

  Sub Macro1()
  Dim text As String, result As String
  text = "Ádám"
  result = Left(text, 1)
  'MsgBox is for demo only
  MsgBox result
  If (result = UCase(result)) Then MsgBox ("true")
  End Sub

  Ez a kis kód megmondja, hogy melyik cellában van név. (feltételezve, hogy nagybetűvel van írva a név)
  Így hogy tudod, melyikben mi van, könnyű megírni rá a kódot most már.

• A214 aktív tag

  #23763 2014-10-16 18:53:36

  Új Válasz

  Ú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

  

  A214

  aktív tag

  üdv!

  Adott egy táblázat amit sorszámozni szeretnék.
  Viszont a táblázat tartalmaz olyan sorokat is amit nem akarok sorszámmal ellátni.

  Tehát:

  Tibor
  1alma
  2körte
  István
  3banán
  4szilva
  5citrom
  6füge
  Ádám
  7banán
  8szilva
  9citrom
  10füge
  11cseresznye

  Létezik erre valami trükk?

• plaschil aktív tag

  #23762

  #23760 Delila_1

  2014-10-16 18:43:15

  Új Válasz

  Ú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

  

  plaschil

  aktív tag

  #23760 Delila_1

  [link]

• Xterms tag

  #23761 2014-10-16 18:41:49

  Új Válasz

  Ú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

  

  Xterms

  tag

  Sziasztok!

  A képen láthatót szeretném megvalósítani excelben.

  Van A és B listám. B listán minden sorhoz tartozik egy gomb. Ha A listáról kijelölök egy sort, és megnyomom B listán a gombot, akkor azt a sort bemásolja oda (a példában aaaaa... és bbbbbb... sorok). Ha újra megnyomom a gombot, ami melletti sor nem üres ( a példában aaaaaa... soránál) akkor törli, ami mellette van, és az alatta lévő sorok egyet feljebb ugranak.

  Na, ehhez hogy fogjak hozzá?

  

• Delila_1 veterán

  #23760

  #23759 plaschil

  2014-10-16 17:06:41

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #23759 plaschil

  Hogy érted, hogy a stílus "jó", vagy "rossz"?
  Esetleg ezek a szövegek vannak az egyes cellákban?

  Vagy feltételes formázással adod meg a háttérszínt?

• plaschil aktív tag

  #23759

  #23758 Delila_1

  2014-10-16 17:04:23

  Új Válasz

  Ú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

  

  plaschil

  aktív tag

  #23758 Delila_1

  
  Nem tudod véletlenül hogyan lehet hivatkozni a vbRed helyett arra, amikor a cellastílus "jó" vagy "rossz"?
  Első gondolatom CV.Style de innen nincs tovább.i funkció.

  Nem akartam makrót írni emiatt, de úgy látszik kell

• Delila_1 veterán

  #23758

  #23757 plaschil

  2014-10-16 16:50:31

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #23757 plaschil

  Függvénnyel nem, de egy rövid kis makróval megoldható.

  Sub Hiba()
  Dim ter As Range, CV As Range, usor As Long
  
  Sheets("A").Activate
  usor = Cells(1).End(xlDown).Row
  Set ter = Range("A1:A" & usor)
  
  For Each CV In ter
  If CV.Interior.Color = vbRed Then Sheets("B").Cells(CV.Row, "X") = "Hiba"
  Next
  End Sub

  A Sheets("A").Activate, és az
  If CV.Interior.Color = vbRed Then Sheets("B").Cells(CV.Row, "X") = "Hiba"
  sorokban írd be az "A" és "B" helyére a lapjaid igazi nevét, idézőjelek között.

• plaschil aktív tag

  #23757 2014-10-16 16:25:45

  Új Válasz

  Ú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

  

  plaschil

  aktív tag

  Szervusztok!

  Kérdésem az volna, hogy egy sima if-fel tudom-e vizsgálni hogy egy adott cellatartományban van-e valamilyen színezés?

  Ötletem arra irányul, hogy ha egy sheet-en (pl. A) mondjuk a 4. sorban van valahol piros háttérszín, akkor egy másik sheet-en (pl. B) ugyanígy a 4. sor X. cellájába írja be, hogy hiba.

• Delila_1 veterán

  #23756

  #23755 Teejay83

  2014-10-16 15:28:21

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #23755 Teejay83

  Nem tudom, melyek a "hasznos" értékek.
  Két oszlop tartalmát több módon össze lehet hasonlítani. A képen ezek közül 1-et látsz. A második oszlop azt mutatja, hogy a mellette balra lévő szám melyik sorban található az E oszlopban, az F pedig a mellette lévő szám előfordulási helyét adja az A oszlopban.

  

  Használhatod még a DARABTELI függvényt, vagy makrót.

  Az A és E oszlopra feltételes formázást adtam. A-ra: =HOL.VAN(A2;E:E;0)>0, E-re a fordítottja.

• Teejay83 tag

  #23755 2014-10-16 14:57:06

  Új Válasz

  Ú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

  

  Teejay83

  tag

  Sziasztok

  Segítsetek légyszi

  Excel 2010-ben kellene két oszlopot összehasonlítani amiben azonosító számok találhatók.
  Az egyik oszlop 140 sorból a másik 560-ból áll
  Hogy lehetne legegyszerűbben leszűrni a két oszlop tartalmát a szerint,hogy melyek az azonos értékek?
  

• Delila_1 veterán

  #23754

  #23753 Attys01

  2014-10-16 07:06:01

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #23753 Attys01

  A fényképezőgép funkcióval megoldhatod (23584 hsz).

  Az adatok így nézzenek ki

  

  A diagram és a fényképezőgép pedig így

  

• Attys01 csendes tag

  #23753 2014-10-15 22:37:37

  Új Válasz

  Ú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

  

  Attys01

  csendes tag

  Sziasztok,
  sajnos nem tudok megoldást találni a problémámra ezért kérnék segítséget.
  Van egy excel táblám, és kördiagramot kellene készítenem. Fiktíven írtam fel adatokat, csak hogy érzékeltessem a problémát (egyes diagramon kötelezően feltüntetendő magyarázatok elég hosszúak.) A kördiagramot elkészítve, általában meg sem jelenik az összes magyarázat. Tudom, ha széthúzom meg minden, akkor látszódni fog minden.

  De a kérdésem van megoldás arra, hogy aaaaa…. és bbb…. közötti térközt lecsökkentsem, már ami eszembe jutott kipróbáltam, és nem sikerült. Sajnos az semmiféleképpen sem járható út, hogy a magyarázat hosszát csökkenthessem, ukáz, hogy ki kell írni az egészet…

  Választ előre is köszönöm.
  

  

• Delila_1 veterán

  #23752

  #23751 slashing

  2014-10-15 18:38:49

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #23751 slashing

  Klassz az oldal.

  Többnyire ahhoz szükséges 1-1 függvény angol neve, ha makróban szeretnénk alkalmazni. Internet nélkül is megtudhatjuk a nevét.

  Beírjuk a függvényt a lapra, így kipróbálhatjuk, hogy működik-e. Lapfülön jobb klikk, Beszúrás, Nemzetközi makrólap. Kapunk egy új lapot Makró1 névvel.
  Átmásoljuk a függvényt tartalmazó-, valamint az(oka)t a cellá(ka)t, ami(k)re hivatkozik.

  Az új lapon a függvény cellájában, és a szerkesztőlécen angolul jelenik meg a függvénynév, ha rákattintunk, magyarul láthatjuk.

• slashing senior tag

  #23751 2014-10-15 17:32:48

  Új Válasz

  Ú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

  

  slashing

  senior tag

  Excel függvények angolról magyarra vagy fordítva

  Nem emlékszem hogy valaha is lett volna olyan függvényem amit nem tudott volna átfordítani. Nagyszerű oldal!

• Mittu88 senior tag

  #23750

  #23732 Snoop-y

  2014-10-15 15:56:38

  Új Válasz

  Ú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

  

  Mittu88

  senior tag

  #23732 Snoop-y

  Jaja, angol nyelvűnél más
  A képletedben van amúgy egy felesleges zárójel, a második IF előtt és a legvégén a zárója. De nem okoz bajt, csak formalitás.

• Delila_1 veterán

  #23749

  #23748 tope

  2014-10-15 15:43:42

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #23748 tope

  Szivi.

• tope addikt

  #23748

  #23742 Delila_1

  2014-10-15 15:42:27

  Új Válasz

  Ú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

  

  tope

  addikt

  #23742 Delila_1

  Köszi.

• Delila_1 veterán

  #23747

  #23745 adam_

  2014-10-15 15:40:44

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #23745 adam_

  Igen, mindegyikre tesz, de nem kötelező minden oszlopodat szűrni. Ha csak a típust szűröd, pl. C30/37-16/F3-ra, akkor 2 féle kitét látszik, a képlet értéke 54. Ha a kitétet is szűröd XC2 XV2 XD2 XA1-re, az eredmény 47.

  Jobb, ha kimutatást készítesz, új lapra.
  Javaslom, hogy a Munka1 lap A2:C495 tartományát alakítsd táblázattá. Kijelöl, Beszúrás, Táblázatok, Táblázat. Ez azért jó, mert az ebből készített kimutatás ilyenkor a táblázatod bővülésekor az újabb sorok adataival is számol frissítéskor.
  Ebből érdemes kimutatást készíteni.

  Szerk.: a C495-ben helytelen adat van!

• adam_ senior tag

  #23746

  #23745 adam_

  2014-10-15 15:39:32

  Új Válasz

  Ú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

  

  adam_

  senior tag

  #23745 adam_

  Mégsem jó, az E2-ben a képletet nem menti le..

• adam_ senior tag

  #23745

  #23744 Delila_1

  2014-10-15 15:32:13

  Új Válasz

  Ú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

  

  adam_

  senior tag

  #23744 Delila_1

  Köszönöm megnézem.

  Ha mindig szűrök, a képletet is be kell írni újfent az E2 cellában. Az miért nem marad ott egyszerűen? Nekem egy olyan excel tábla kellene, ahol ezt nem kellene mindig beírni, csak ha az ember rászűr, magától kiszámolja az E2-be az összegüket.

• Delila_1 veterán

  #23744

  #23743 adam_

  2014-10-15 15:27:26

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #23743 adam_

  Egyszerűen megoldható.

  A 2. sorba autoszűrőt teszel. Szűröd a tartományt típusra és kitétre. Az E2 cella képlete
  =RÉSZÖSSZEG(9;C:C)
  Ez mindig az aktuális szűrésnek megfelelő összeget adja.

  Kimutatással megoldhatod a kérdésed második részét.
  A sorcímkékhez adod a típust, oszlopcímkékhez a kitétet, és az értékekhez a mennyiséget.

• adam_ senior tag

  #23743 2014-10-15 15:07:32

  Új Válasz

  Ú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

  

  adam_

  senior tag

  Sziasztok!

  Adott három oszlop, betontípus, kitéti osztály, és mennyiség. Egy olyan legördülő szűrési opciót szeretnék kialakítani, amelyből ki lehet választani a betontípust és hozzá mellette a hozzá tartozó kitéti osztályát lehozza szintén legördülő listából és az ezekhez tartozó mennyiségeket összeadja egy harmadik mellette lévő oszlopban.

  Egy külön részben pedig listázza az osszes kombinaciot eloszor. Mert több betontípushoz több kitéti osztály is tartozhat. Ezt gondolom Fkeressel kéne elsőkörben?

  Link az excelhez.

  Előre is köszönöm a válaszokat.

• Delila_1 veterán

  #23742

  #23741 tope

  2014-10-15 15:04:55

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #23741 tope

  A terület védelmét nézd meg, ami az alkalmazott verziótól függően más helyen található meg.

• tope addikt

  #23741 2014-10-15 15:03:04

  Új Válasz

  Ú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

  

  tope

  addikt

  Szép napot (legalábbis süthetne)
  Adott egy excel fájl, amit többen is használnak. Egy illető aki használja, szeretné azt beállítani, hogy megadott cellát zárolvá tegyen úgy, hogy abba ő tudjon beleírni, de más ne. Lehetséges-e ez ?

• Delila_1 veterán

  #23740

  #23739 Fferi50

  2014-10-15 14:37:35

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #23739 Fferi50

  Minden feladatra több megoldás lehetséges. Természetesen mindenki a saját ízlésének megfelelően ad megoldást.

• Fferi50 Topikgazda

  #23739

  #23738 Delila_1

  2014-10-15 14:35:16

  Új Válasz

  Ú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

  

  Fferi50

  Topikgazda

  #23738 Delila_1

  Szia!

  Félreértettél, nem azt írtam, hogy nincs hibakezelés a makródban - természetesen láttam, hogy ott van az on error goto tovabb és a tovabb cimke - , sőt, még azt sem írtam, hogy nem jó a ws.match, hanem azt, hogy app.match esetén nem kell külön hibakezelést beépíteni a makróba.

  Üdv.

  Idézet a 23730-ból:
  "A worksheetfunction.match helyett célszerűbb az application.match függvényt alkalmazni, (ezt én is egy másik topicban tanultam), mivel így más módon kell a hibakezeléssel foglalkozni."

• Delila_1 veterán

  #23738

  #23730 Fferi50

  2014-10-15 14:29:33

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #23730 Fferi50

  Nem vetted észre a hibakezelést a makrómban, pedig ott van. Ki is próbáltam olyan oszlopcímet adva az első lapon, ami nem szerepel a másodikon. Enélkül nem küldtem volna el.

  Jó a worksheetfunction.match ebben az esetben is, csak ismerni kell az alkalmazását.

• bteebi veterán

  #23737

  #23614 Delila_1

  2014-10-15 13:40:17

  Új Válasz

  Ú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

  

  bteebi

  veterán

  #23614 Delila_1

  "Van egy másik, a TNÉV, ami a hivatkozott szöveg minden szavának első betűjét nagyra-, a többit kicsire állítja"

  Basszus, pont néhány napja kerestem ezt a függvényt, mert úgy emlékeztem, hogy van ilyen. Sajnos csak a KISBETŰ-t és a NAGYBETŰS-t találtam meg .

• Fferi50 Topikgazda

  #23736

  #23735 slashing

  2014-10-15 13:09:22

  Új Válasz

  Ú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

  

  Fferi50

  Topikgazda

  #23735 slashing

  Szívesen, máskor is.

• slashing senior tag

  #23735

  #23728 Fferi50

  2014-10-15 12:42:01

  Új Válasz

  Ú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

  

  slashing

  senior tag

  #23728 Fferi50

  nagyon szépen működik! Köszi
  

• Snoop-y veterán

  #23734

  #23733 Fferi50

  2014-10-15 12:34:06

  Új Válasz

  Ú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

  

  Snoop-y

  veterán

  #23733 Fferi50

  Jogos
  Szoval elobbi az Excel 2010 ENG verziora vonatkozik.

• Fferi50 Topikgazda

  #23733

  #23732 Snoop-y

  2014-10-15 12:26:19

  Új Válasz

  Ú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

  

  Fferi50

  Topikgazda

  #23732 Snoop-y

  Szia!

  Ha nem írod, hogy milyen nyelvű és verziójú excel verziót használsz, akkor bizony ilyen előfordulhat. Mivel a fórumon általában magyar nyelvű excellel találkozunk, ezért a magyar nyelvű függvényeket szoktuk megadni (kivéve makró).
  De tudjuk ám az angol nevüket is....

  Üdv.

• Snoop-y veterán

  #23732

  #23703 Mittu88

  2014-10-15 12:14:01

  Új Válasz

  Ú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

  

  Snoop-y

  veterán

  #23703 Mittu88

  D1 cellába írd be: =HA(A1<>0;A1;HA(B1<>0;B1;C1)) és ezt másold lefele amíg kell.

  Viszont igy mukodik:
  =IF(R5<>0,R5,(IF(S5<>0,S5,T5)))

• m.zmrzlina senior tag

  #23731

  #23727 samfishR

  2014-10-15 11:54:17

  Új Válasz

  Ú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

  

  m.zmrzlina

  senior tag

  #23727 samfishR

  Ez a hsz is neked szól.

  "A.xlsx" munkafüzetet megnyitod (ez az amiben te módosítasz nem a képletek)
  Alt+F11-gyel VB editort megnyitod

  bal oldalon lesz a projekt tallózó ablakban, egy olyan hogy "VBAProject(A.xlsx)"
  természetesen nem (A.xlsx) hanem a te fájlod neve lesz itt.
  Ez alatt a ThisWorkBook-on jobbklikk majd View Code

  Az így megnyíló ablakba bemáslod a 23634-es hsz-ben lévő kódot.
  Ezt a fájlodat (az "A.xlsx"-t amiben te módosítasz nem a képletek) makróbarátként (.xlsm) kell menteni. Onnantól kezdve A.xlsm lesz a neve. Természetesen az "A" helyén a te fájlod neve szerepel.

  Ezen a két helyen munkafüzetek neveit átírod a saját munkafüzeteid neveire.

  Workbooks.Open ThisWorkbook.Path & "\B.xlsx"
  Workbooks.Open ThisWorkbook.Path & "\C.xlsx"

  Mindhárom munkafüzeted legyen ugyanabban a mappában legyen.

• Fferi50 Topikgazda

  #23730

  #23724 Delila_1

  2014-10-15 11:40:45

  Új Válasz

  Ú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

  

  Fferi50

  Topikgazda

  #23724 Delila_1

  Szia!

  Néhány apró észrevétel:
  " Cells(sor + 1, oszlop).Select
  usor = Selection.End(xlDown).Row
  "

  A select teljesen felesleges, egyszerűen usor=cells(sor+1,oszlop).end(xldown).row elég.

  A worksheetfunction.match helyett célszerűbb az application.match függvényt alkalmazni, (ezt én is egy másik topicban tanultam), mivel így más módon kell a hibakezeléssel foglalkozni.
  A ws.match hibát generál, ha nem találja a keresett értéket, az app.match hibaértékkel tér vissza, amit változóban vagy függvényben is "elkaphatsz", akár az iserror, akár az iferror függvény működik. Tehát ebben az esetben nem kell az on error goto vagy on error resume next sor és a hozzá kapcsolódó dolgok.

  Ha iserrort használsz, akkor "csak" arra kell figyelned, hogy a változó, amibe kéred a match eredményét, variantnak legyen definiálva - mivel értéke lehet szám és lehet hibaérték is. Iferrornál nem kerül a változóba hiba, tehát ott jó a double is.

  Üdv.

• slashing senior tag

  #23729

  #23724 Delila_1

  2014-10-15 11:38:05

  Új Válasz

  Ú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

  

  slashing

  senior tag

  #23724 Delila_1

  annyi módosításban még segítenél hogy a WS1 az mindig annak a workbooknak az activesheetje legyen ahol éppen áll, mert ezelőtt a kód előtt van egy sheet.add-om a ws2 meg egy fix workbook fix sheetje amibe végül bekerül

  (egy mappában lesznek)

  

  Szerk:
  (#23728) Fferi50 Nézem, köszi

• Fferi50 Topikgazda

  #23728

  #23726 slashing

  2014-10-15 11:31:42

  Új Válasz

  Ú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

  

  Fferi50

  Topikgazda

  #23726 slashing

  Szia!

  Azért javaslom, nézd meg ezt is. Egyetlen követelmény, hogy a másolandó adatok az első oszlopban kövessék egymást - úgy ahogyan a képeken is van.

  Sub masolo()
  Dim mlap1 As Worksheet, masolando As Range, mlap2 As Worksheet, hovasor As Double, hovaoszlop As Double
  Set mlap1 = Workbooks("Munkafüzet3").Sheets("Munka1")
  Set mlap2 = Workbooks("Munkafüzet4").Sheets("Munka1")
  Set terulet = mlap2.UsedRange
  hovasor = terulet.Rows.Count
  If terulet.Cells(1, hovasor) = "" Then
  Do While True
  If terulet(1, hovasor).End(xlToRight).Column < terulet.Columns.Count Then Exit Do
  hovasor = hovasor - 1
  Loop
  End If
  hovasor = hovasor + 1
  Set terulet = mlap1.Range("A1").CurrentRegion
  Do While True
  For oszlop = 1 To terulet.Columns.Count
  hovaoszlop = Application.IfError(Application.Match(terulet.Cells(1, oszlop), mlap2.Rows("1:1"), 0), 0)
  If hovaoszlop <> 0 Then
  Intersect(terulet, terulet.Offset(1, 0)).Columns(oszlop).Copy mlap2.Cells(hovasor, hovaoszlop)
  End If
  Next
  hovasor = hovasor + terulet.Rows.Count - 1
  Set terulet = terulet.Range("A1").End(xlDown).End(xlDown).CurrentRegion
  If Intersect(mlap1.UsedRange, terulet) Is Nothing Then Exit Do
  Loop
  MsgBox "A másolás megtörtént!", vbInformation, "Másolás"
  End Sub

  Üdv.

• samfishR senior tag

  #23727

  #23633 m.zmrzlina

  2014-10-15 11:23:44

  Új Válasz

  Ú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

  

  samfishR

  senior tag

  #23633 m.zmrzlina

  Köszi a tippet!

  Sajnos a makrókhoz semmi közöm, ebben tudna valaki segíteni?

• slashing senior tag

  #23726

  #23724 Delila_1

  2014-10-15 11:09:03

  Új Válasz

  Ú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

  

  slashing

  senior tag

  #23724 Delila_1

  szerintem ez így tökéletes esz legalábbis az első tesztek alapján köszi, most jól átnézem mi micsoda benne mert ez a ciklusba rakás elméletben tök egyszerű de valahogy a sajátomnál csak bámultam hogy akkor hogyan rakjam ezt ciklusba.

• slashing senior tag

  #23725 2014-10-15 10:48:30

  Új Válasz

  Ú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

  

  slashing

  senior tag

  Köszi, nekem most van egy verzióm ami manuálisan félig kész már csak valahogy ciklusba kellene raknom amit még egyenlőre nem tudom hogyan kell.

  Ez most ott tart hogy a keresendo =cells(1,1) itt adom meg neki hogy melyik fejlécet keresse, kijelöli most még csak így manuálisan az Fejléc alatti adatokat(A2 xldown) és másolja, megnyitja a célfájlt, megállapítja az utolsó sort és azonosítja az oszlopot amiben szerepel a cells(1,1) fejléc majd odaugrik annak az oszlopnak az utolsó sorábá és bemásolja az adatokat.

  Nah ezt kéne ciklusba rakni valahogy úgy hogy ha berakta az első oszlop adatait visszaugrik kimásolja a B1 alatti adatokat, berakja az afölötti fejléces oszloppal rendelkező oszlopba megint visszaugrik kimásolja a C1 alattit azt is bemásolja a megfelelő fejléccel ellátott oszlopba majd ha már nem talál adatot kilépjen.

  Sub akarmdi()
  Dim LastRow As Long
  keresendo = Cells(1, 1)
  Range("A2").Select
  Range(Cells(ActiveCell.Row, ActiveCell.Column), Cells(ActiveCell.End(xlDown).Row, ActiveCell.Column)).Select
  Selection.Copy
  Pathname = "q:\SPC 2010-2012-2013\Bosch\"
  Filename = "0000-0000.xlsx"
  Workbooks.Open Filename:=Pathname & Filename
  LastRow = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
  LastRow = LastRow + 1
  oszlopazonositas = Application.Match(keresendo, Workbooks("0000-0000.xlsx").Worksheets("munka1").[1:1], 0)
  ActiveSheet.Cells(LastRow, oszlopazonositas).Select
  Selection.PasteSpecial Paste:=xlPasteValues
  
  End Sub

  (#23724) Delila_1 Próbálom

• Delila_1 veterán

  #23724

  #23723 Delila_1

  2014-10-15 10:06:02

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #23723 Delila_1

  Meg is van.

  Sub Oszlopok_1()
  Dim WS1 As Worksheet, WS2 As Worksheet, sor As Long, usor As Long
  Dim oszlop As Integer, uoszlop As Integer, cim As String, oszlophova As Integer
  Dim WF As WorksheetFunction, sorhova As Long
  
  Set WS1 = Sheets("Munka1")
  Set WS2 = Sheets("Munka2")
  Set WF = Application.WorksheetFunction
  sor = 1
  
  WS1.Select
  
  Do While Cells(sor, 1) <> ""
  uoszlop = WS1.Range("A" & sor).End(xlToRight).Column
  sorhova = WS2.UsedRange.Rows.Count + 1
  For oszlop = 1 To uoszlop
  cim = Cells(sor, oszlop)
  On Error GoTo Tovabb
  oszlophova = WF.Match(cim, WS2.Rows(1), 0)
  Cells(sor + 1, oszlop).Select
  usor = Selection.End(xlDown).Row
  Range(Cells(sor + 1, oszlop), Cells(usor, oszlop)).Copy WS2.Cells(sorhova, oszlophova)
  
  Tovabb:
  On Error GoTo 0
  Next
  sor = Range("A" & sor).End(xlDown).Row
  sor = Range("A" & sor).End(xlDown).Row
  Loop
  End Sub

• Delila_1 veterán

  #23723

  #23720 slashing

  2014-10-15 09:32:49

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #23720 slashing

  Nem teljesen olyan, mint a képen, de hasonlít. Ha kevesebb dolgom lesz, megpróbálom azt a formát kihozni.

  Sub Oszlopok()
  Dim WS1 As Worksheet, WS2 As Worksheet, sor As Long, usor As Long
  Dim oszlop As Integer, uoszlop As Integer, cim As String, oszlophova As Integer
  Dim WF As WorksheetFunction, sorhova As Long
  
  Set WS1 = Sheets("Munka1")
  Set WS2 = Sheets("Munka2")
  Set WF = Application.WorksheetFunction
  sor = 1
  
  WS1.Select
  
  Do While Cells(sor, 1) <> ""
  uoszlop = WS1.Range("A" & sor).End(xlToRight).Column
  For oszlop = 1 To uoszlop
  cim = Cells(sor, oszlop)
  On Error GoTo Tovabb
  oszlophova = WF.Match(cim, WS2.Rows(1), 0)
  Cells(sor + 1, oszlop).Select
  usor = Selection.End(xlDown).Row
  sorhova = WS2.Cells(Rows.Count, oszlophova).End(xlUp).Row + 1
  Range(Cells(sor + 1, oszlop), Cells(usor, oszlop)).Copy WS2.Cells(sorhova, oszlophova)
  
  Tovabb:
  On Error GoTo 0
  Next
  sor = Range("A" & sor).End(xlDown).Row
  sor = Range("A" & sor).End(xlDown).Row
  Loop
  End Sub

• Fferi50 Topikgazda

  #23722

  #23720 slashing

  2014-10-14 23:43:08

  Új Válasz

  Ú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

  

  Fferi50

  Topikgazda

  #23720 slashing

  Szia!

  Most ellenőriztem, sajnos a speciális szűrés nem megy, mert ha nincs olyan fejléc a szűrendő mezőben, akkor hibát dob (bár nem egészen értem a logikáját, hogy miért, de ez van, ezt kell elfogadni.)

  Másik ötlet:
  Képlet szinten: Hol.van függvénnyel meghatároznám, hogy az adott fejléc hanyadik oszlopban van a másik táblában és abba az oszlopba kell tenni az adatot. (Nyilván ezt le lehet makróval rendezni (match függvény)).
  Tehát: kb.így nézne ki
  set mlap1=workbooks("Munkafüzet3").sheets("Munka1")
  set mlap2=workbooks("Munkafüzet4").sheets("Munka1")
  itt kezdheted az oszlopok ciklusát
  oszlop=application.match(mlap1.range("A1").value;mlap2.rows('"1:1"),0)
  if not iserror(oszlop) then ' ez csak azért kell, ha mégsem lenne olyan fejléc a másik munkalapon
  yy=mlap.cells(40000,oszlop).end(xlup).row+1
  for xx=2 to mlap1.range("A2").end(xldown).row
  mlap2.cells(yy,oszlop).value=mlap1.cells(yy,"A").value
  yy=yy+1
  next
  else
  msgbox "Nincs ilyen fejléc: " & mlap1.range("A1").value
  endif
  next oszlopok

  A makró csak szemléltető, nem feltétlenül hibátlan.
  Ezt végigcsinálod minden oszlopon, és minden kis táblán.
  Ha deklarálod a változókat, az oszlop mindenképpen variant legyen, mert annak értéke hiba is lehet, mint látod.

  Remélem érthető és tudod használni.

  Üdv.

• slashing senior tag

  #23721

  #23720 slashing

  2014-10-14 23:15:52

  Új Válasz

  Ú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

  

  slashing

  senior tag

  #23720 slashing

  Amúgy én úgy képzelem/képzeltem el hogy először megkerestetem a célfájl azon sorát amiben a legtovább van adat ezt eltározom egy változóban sorazonosítóként aztán van egy ciklusom ami végigfut az első tábla fejlécsorán mégpedig úgy hogy csinál egy keresést a másik fájl fejlécében és ahol megtalálja az egyezőt ott eltározom az oszlop azonosítót ha ez meg van akkor van egy sor és oszlopazonosítom ahova bemásolhatja az adatokat. Arra mondjuk figyelni kell hogy a sorazonosító ne legyen ciklusban nehogy lépcsős legyen az egész. Így leírva milyen egyszerű

• slashing senior tag

  #23720

  #23719 Fferi50

  2014-10-14 22:47:33

  Új Válasz

  Ú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

  

  slashing

  senior tag

  #23719 Fferi50

  Csak hogy tuti ne beszéljünk el egymás mellett:

  Bal oldalt van 3 variáció ahogy kiköpi a kigyűjtős macrom az adatokat. A jobb oldali végeredményt szeretném elérni. Kigyűjti a macro az adatokat változó fejléccel meghívja a következő macrot ami belerakja a jobb oldali táblába ahol már fix fejléc van csak mindig oda kerül az adat amelyik alá tartozik.

  

• Fferi50 Topikgazda

  #23719

  #23716 slashing

  2014-10-14 22:11:43

  Új Válasz

  Ú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

  

  Fferi50

  Topikgazda

  #23716 slashing

  Szia!

  Ha jól értem, akkor a fejlécek különbözőek, csak más-más sorrendben vannak.

  Ebben az esetben én a következőt javaslom:
  Csinálj egy "átmeneti" táblát(munkalapot), ahová a fejléceket a második táblában levő sorrendbe teszed be. (Praktikusan beillesztesz egy munkalapot és ide bemásolod a második tábla első sorát).

  Ezután az első tábládra csinálsz egy "advanced filtert", ahol a szűrendő tartomány az első tábla usedrange, a szűrőfeltétel az átmeneti tábla első sora és új helyre másolás helyének kijelölöd az átmeneti tábla első sorát.
  Végrehajtod az irányított/speciális szűrést - ekkor az átmeneti tábládban már ugyanolyan sorrendben lesznek az oszlopok, mint a második táblában. Innen már csak egy sima copy kell és az átmeneti tábla törlése.

  DE még egyszerűbb szerintem a következő:
  Szintén advanced filter, a következők szerint:
  Szűrendő az első táblád
  Feltétel: a második táblád fejléc sora (csak az első sor!)
  Másolás helye: a második táblád vége!
  Új helyre másolással a szűrés végrehajtása.
  Az tábla közben (az eredeti második tábla utolsó sora után) keletkező "álfejléc" sor törlése. Nyilván ezt akkor tudod megtenni, ha megjegyezted, melyik sort jelölted ki másolási célnak.

  Talán bonyolultnak tűnik, de hidd el egyszerűbb megcsinálni, mint leírni volt.
  Én rögtön a második verzióval kezdeném.

  Üdv.

• Mittu88 senior tag

  #23718

  #23715 Snoop-y

  2014-10-14 20:35:22

  Új Válasz

  Ú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

  

  Mittu88

  senior tag

  #23715 Snoop-y

  akkor írj ""-t. Bár a 0-t el kell fogadnia, most próbáltam ki és működik. egyenlőség jelet írtál a képlet elejére?
  mit ír ki hibaüzenetnek?

• slashing senior tag

  #23717

  #23716 slashing

  2014-10-14 19:40:52

  Új Válasz

  Ú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

  

  slashing

  senior tag

  #23716 slashing

  javítás:

  Pl. Ha A1-ben az van hogy 1x akkor a másik fájl azon oszlopába kéne másolnom az adatokat aminek a fejlécében az 1x van

• slashing senior tag

  #23716 2014-10-14 19:20:00

  Új Válasz

  Ú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

  

  slashing

  senior tag

  Ötleteket várnék arra hogyan lehetséges megoldani a következő másolás beillesztést aztán megpróbláom magamtól megcsinálni

  Első sor a fejléc és az alatta lévő adatokat kéne átmásolnom egy másik fájlnak ugyan olyan fejléccel rendelkező oszlopába. Fontos a fejléc szerinti cellaérték alapján menni mert változó sorrenben fognak lesznek a fejlécben az adatok egyszer 1x,2x,3x, mások meg lehet hogy csak 1x,4x van

  Pl. Ha A1-ben az van hogy 1x akkor a másik fájl azon oszlopába kéne másolnom az adatokat aminek a fejlécében az A1 van, mindezt úgy hogy ismételhető legyen egymás után akárhányszor szóval ha új adat van akkor a második fájlnak mindig a végére rakja de fontos hogy a kiinduló fájl fejlécében lévő szöveg alatti adatok a végleges fájl azonos fejléccel rendelkező oszlopába kerüljenek mindig a végére.

  Attól félek hogy baromi lassú lesz, mivel a legdurvább esetben a kiindulási pontban akár 200 fejléces oszlop is lehet és ezek mindegyikét egyesével kell gondolom valahogy ellenőriztetni és átmásolni...

• Snoop-y veterán

  #23715

  #23703 Mittu88

  2014-10-14 18:39:44

  Új Válasz

  Ú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

  

  Snoop-y

  veterán

  #23703 Mittu88

  Koszi kiprobaltam de ez nekem egyaltalan nem mukodik. Nem fogadja el a nullat a kepletben.

• Saua tag

  #23714

  #23710 lappy

  2014-10-14 15:43:42

  Új Válasz

  Ú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

  

  Saua

  tag

  #23710 lappy

  végre sikerült, jó a képlet csak pontosvessző kell a vessző helyett.
  Köszönöm mindenkinek a segítséget.

• Visormail addikt

  #23713

  #23711 lappy

  2014-10-14 15:40:00

  Új Válasz

  Ú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

  

  Visormail

  addikt

  #23711 lappy

  De tudom használni a szűrőt, csak az adatok fül/szűrő törlése gombot nem, amivel alaphelyzetbe állítható ha már sok szűrőt állítgattál.

• lappy őstag

  #23712

  #23711 lappy

  2014-10-14 15:37:09

  Új Válasz

  Ú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

  

  lappy

  őstag

  #23711 lappy

  A zárolás t ne vedd ki mert ilyenkor a cellát át lehet írni.

• lappy őstag

  #23711

  #23707 Visormail

  2014-10-14 15:36:09

  Új Válasz

  Ú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

  

  lappy

  őstag

  #23707 Visormail

  Szia!
  Ha jól értettem akkor a lapvédelem esetén nem tudod használni a szűrőt.
  Ha ez a probléma akkor vedd ki a zárolást a cellánál és engedélyezd az autoszűrő használatát, nálam ment így.

• lappy őstag

  #23710

  #23709 Saua

  2014-10-14 15:29:54

  Új Válasz

  Ú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

  

  lappy

  őstag

  #23709 Saua

  A kis csatolt példa alapján:=DARABTELI($E$4:$E$11,G4)
  és ezt kell addig "másolni" ameddig van adat

• Saua tag

  #23709

  #23708 Fferi50

  2014-10-14 15:11:34

  Új Válasz

  Ú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

  

  Saua

  tag

  #23708 Fferi50

  Köszönöm a segítségeteket de csak nem boldogulok.

  Sajnos nagyon korlátozottak az excel ismereteim, azt szeretném ha nem kellene állandóan beírni a város nevét az i oszlopban levő DARABTELI képletbe, hanem a képlet másolható lenne és a városnevek automatikusan kerülnének az G oszlopból a feltétel helyére. Tehát az i oszlopban megjelenjen hogy például Balatonlelle hányszor szerepel az E oszlopban.
  
  Nem világos, hogy hogy néz ki a teljes DARABTELI képlet.

• Fferi50 Topikgazda

  #23708

  #23705 Saua

  2014-10-14 15:02:44

  Új Válasz

  Ú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

  

  Fferi50

  Topikgazda

  #23705 Saua

  Szia!

  Ezt írtam én is, idézet 23701-ből:"(A darabteli képletben $E$2:$E$4000 legyen a tartomány!)"

  Üdv.

• Visormail addikt

  #23707 2014-10-14 14:36:47

  Új Válasz

  Ú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

  

  Visormail

  addikt

  Sziasztok. Ha egy táblázaton bekapcsolom a korrektúra/lapvédelem funkciót, akkor nem engedi használni az adatok/szűrők törlése gombot se. Tehát ha több szűrőt beállít valaki, utána nem tudja gyorsan alaphelyzetbe állítani, hanem egyesével kell a szűrőket vissza kikapcsolni.

  Pedig ez nem szerkesztési művelet csak kényelmi funkció az autószűrőhöz. Ha a lapvédelemnél kipipálnék mindent amit felajánl engedélyezésre, ezt akkor is letiltja. Ezzel nem lehet valamit kezdeni?

• bteebi veterán

  #23706

  #23705 Saua

  2014-10-14 14:23:26

  Új Válasz

  Ú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

  

  bteebi

  veterán

  #23705 Saua

  A tartományt abszolút hivatkozással add meg: $E$2:$E$4000, és így másold a képletet.

• Saua tag

  #23705

  #23701 Fferi50

  2014-10-14 14:17:37

  Új Válasz

  Ú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

  

  Saua

  tag

  #23701 Fferi50

  Köszönön a tanácsot, de ezt a DARABTELI függvényt most nem értem.
  Van egy új oszlopom a városnevekkel (I2:I40) Hogyan írjam a képletet, hogy másolható legyen és a feltételt az új oszlopból vegye a tartomány meg maradjon az E2: E4000
  DARABTELI(tartomány; feltételek)

• bteebi veterán

  #23704

  #23692 HS 2142

  2014-10-14 13:50:03

  Új Válasz

  Ú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

  

  bteebi

  veterán

  #23692 HS 2142

  Ha nem kellenek a nyers adatok, csak a transzponált táblázat, akkor azt meg tudod csinálni, hogy a vágólapra helyezett táblázatot irányított beillesztéssel bemásolod képként (Enhanced metafile), majd ezt elforgatod Wordben 90°-kal. Jó minőségű és gyors, de sajnos az adatok nem lesznek szerkeszthetőek.

  Vagy:
  Elforgatod az összes szöveget 90°-kal, a sormagasságokat oszlopszélességűre veszed és fordítva, és akkor jó lesz.

• Mittu88 senior tag

  #23703

  #23702 Snoop-y

  2014-10-14 12:59:52

  Új Válasz

  Ú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

  

  Mittu88

  senior tag

  #23702 Snoop-y

  D1 cellába írd be: =HA(A1<>0;A1;HA(B1<>0;B1;C1)) és ezt másold lefele amíg kell.

• Snoop-y veterán

  #23702 2014-10-14 12:54:04

  Új Válasz

  Ú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

  

  Snoop-y

  veterán

  Sziasztok,

  A kovetkezoben kernek segitseget:

  Van 3 oszlopom es a negyedikben szeretnem megjeleniteni ezek eredmenyet a kovetkezokeppen:

  Ha elso oszlop nem ures akkor annak az erteket
  Ha ures akkor a masodikat ha az is ures akkor a harmadikat.

• Fferi50 Topikgazda

  #23701

  #23700 Saua

  2014-10-14 12:44:24

  Új Válasz

  Ú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

  

  Fferi50

  Topikgazda

  #23700 Saua

  Szia!

  Egy oszlopot csinálj a városnevekből irányított szűrővel, csak az egyedi adatokra szűrve, másolás másik helyre. Utána az első cella mellé beírod a darabteli képletet és végighúzod az oszlopon.(A darabteli képletben $E$2:$E$4000 legyen a tartomány!)
  Utána a darabtelis oszlopot átalakítod értékké. (másolás, irányított beillesztés - értéket).
  Majd a két oszlopot rendezed a második oszlopra kívánalmaid szerint.

  Üdv.

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