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

• Delila_1 veterán

  #15600

  #15599 gurabli

  2012-11-20 09:20: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

  

  Delila_1

  veterán

  #15599 gurabli

  A makró beírása úgy történik, hogy Alt + F11-gyel előcsalod a VB szerkesztőt. Bal oldalon ráállsz a füzeted nevére. Insert menü | Module. Jobb oldalon kapsz egy üres felületet, oda másold be a makrót.

  Visszalépsz a füzetbe, ott Alt + F8-cal bejön a makrókat tartalmazó ablak, ahonnan indíthatod a makrót.

• gurabli őstag

  #15599

  #15596 lappy

  2012-11-20 09:15:46

  Ú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

  

  gurabli

  őstag

  #15596 lappy

  Köszönöm a választ! Ez az én esetemben hogy nézne ki pontosan? Sajnos még azt sem tudom, hogy hol kell megadni, beírni a makrót?
  A fenti kép és pontos cellák alapján mit és hogy kell változtatnom?
  Köszönöm!

  SZERK: közben látom érkezett másik válasz is

• Delila_1 veterán

  #15598

  #15595 gurabli

  2012-11-20 09:15: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

  

  Delila_1

  veterán

  #15595 gurabli

  Minden feladatra van több megoldás. Lappy válasza is biztosan jó, én mást agyaltam ki.

  Úgy látom a csatolt képen, hogy azon a lapon, ahonnan másolni kell, az N oszlopban folyamatosan vannak adatok, ezért ebből az oszlopból veszem az utolsó sort.
  A két Set kezdetű sorban írd át a lapok nevét.

  Sub Tizenhat()
  Dim sorIN%, sorID%, usorIN%, WSIN As Worksheet, WSID As Worksheet
  Set WSIN = Sheets("Innen")
  Set WSID = Sheets("Ide")
  usorIN% = WSIN.Cells(Rows.Count, "N").End(xlUp).Row 'utolsó sor az Innen lapon
  
  sorID% = 10
  Do
  For sorIN% = 2 To usorIN%
  WSID.Cells(sorID%, "G") = WSIN.Cells(sorIN%, "N")
  sorID% = sorID% + 6
  Next
  Loop While sorIN% < usorIN%
  End Sub

• csferke senior tag

  #15597

  #15583 Delila_1

  2012-11-20 08:19:20

  Ú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

  

  csferke

  senior tag

  #15583 Delila_1

  Delila,
  ezt biztosan lehet egyszerűbben is mint ahogyan írtad #15583-ban

  Addig jutottam, hogy:
  A1-ben kiválasztom a nevet és ennek alapján
  A2: =VLOOKUP(A1;Kupci!B:O;3;0) - ir.szám
  B2: =VLOOKUP(A1;Kupci!B:O;4;0) - város

  Namármost azt szeretném elérni, hogy A2-ben legyen az ir.szám+" "+város.
  Valahogy így gondolom csak nem jön össze
  A2: =&(=VLOOKUP(A1;Kupci!B:O;3;0))+" "+&(=VLOOKUP(A1;Kupci!B:O;4;0))

  A2: &ir.szám+" "+&város

  köszi

• lappy őstag

  #15596

  #15595 gurabli

  2012-11-20 07:15: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

  

  lappy

  őstag

  #15595 gurabli

  Egy hasonló macro a problémára!
  Sub Makró1()
  For i = 0 To 298 'ez az oszlop első 298 celláját másolja
  Range("A" & i + 1).Select 'másolandó cella kijelölése (pl A1, A2, stb...)
  Selection.Copy 'cella másolása
  Range("B" & i * 16 + 1).Select 'célcella kijelölése (pl B1, B17, B33, stb...)
  ActiveSheet.Paste 'cellába másolás
  Application.CutCopyMode = False 'kijelölés megszüntetése
  Next
  End Sub

• gurabli őstag

  #15595

  #15594 Delila_1

  2012-11-19 20:48: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

  

  gurabli

  őstag

  #15594 Delila_1

  Az első excel G10-be, majd G16-ba, majd G22-be, stb kell behívni a másik excelből az N2 az N3, N4 értékeket.
  Vagyis, G10-be kell, hogy kerüljön az N2 és így tovább. A többi cellának érintetlennek kell maradnia.

  

  

  Remélem így érthetőbb! És köszönet előre is!

• Delila_1 veterán

  #15594

  #15593 gurabli

  2012-11-19 19:37: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

  

  Delila_1

  veterán

  #15593 gurabli

  Tegyél be képeket arról, hogy miből mit szeretnél összeállítani.

• gurabli őstag

  #15593 2012-11-19 18:42: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

  

  gurabli

  őstag

  Sziasztok!
  Remélem tudtok segíteni, nem nagyon értek sajna az Excelhez.

  Adott egy táblázat, az egyik oszlopba kellene bemásolni automatizálva vagy hivatkozva vagy nem tudom hogyan (csak ne gépelve) egy másik excel fájl oszlopainak adatait. Ahová másolni kell, ott minden hatodik cellába kellene , hogy kerüljön szám, de a forrásban egymás alatt vannak a számok. Ráadásul úgy kellene átrakni, hogy csak a szám kerüljön be, mert a többi cellában van képlet is.
  A sorok azonos sorrendben vannak mindkét excel fájlban, csak mint írtam, amibe másolni kell ott több sor, hat, szerepel, ahonnan másolni kell, ott pedig egymás alatt folyamatosan jönnek a számok.
  Remélem érthető, hogy mit akarok
  Óriási segítség lenne, ha ebben tudnátok segíteni, amit előre is nagyon köszönök!

• Delila_1 veterán

  #15592

  #15590 dellfanboy

  2012-11-19 18:08:39

  Ú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

  #15590 dellfanboy

  Szívesen. Neked is Geryson.

• Geryson addikt

  #15591

  #15585 Delila_1

  2012-11-19 16:30: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

  

  Geryson

  addikt

  #15585 Delila_1

  Kipróbálom, köszönöm szépen!

• dellfanboy őstag

  #15590

  #15589 Delila_1

  2012-11-19 16:18: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

  

  dellfanboy

  őstag

  #15589 Delila_1

  ezer köszi (ez a ribbon agyamra megy)

• Delila_1 veterán

  #15589

  #15588 dellfanboy

  2012-11-19 15:44:59

  Ú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

  #15588 dellfanboy

  Adatok | Tagolás | Csoportba foglalás.

• dellfanboy őstag

  #15588 2012-11-19 14:24:07

  Ú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

  

  dellfanboy

  őstag

  hogy kell 2007-ben sort úgy elrejteni hogy utána ki tudjam "bontani" úgy hogy bal oldalon a címsávba a pluszra kattintok?
  első két sorban adatok vannak szummáznám őket a 3. sorba De szeretném elrejteni az első két sort de nem jobb gombal hanem úgy hogy bal oldalon a kék mezőbe ki tudjam bontani.
  remélem egyértelmű

• poffsoft veterán

  #15587

  #15586 m.zmrzlina

  2012-11-19 07:52: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

  

  poffsoft

  veterán

  #15586 m.zmrzlina

  "a nyári időszámítás március utolsó vasárnapján kezdődik, és október utolsó vasárnapjáig tart. Ennek megfelelően minden évben más dátumra esik, de az átállítás napja mindig vasárnap. Az óraátállítás az UTC szerint hajnali 1 órakor történik, vagyis Magyarországon márciusban helyi idő szerint 2 órakor előre, októberben 3 órakor vissza kell állítani az órákat."

  Temptime= Cells(ActiveCell.Row, 6).Value + Cells(ActiveCell.Row, 5).Value - shift
  ' ellenőrizd le, hogy téli vagy nyári időpont a Temptime
  If summer then temptime=temptime+ (1/24)
  ActiveCell.Offset(0, 1).Value = temptime

  google első találata
  

• m.zmrzlina senior tag

  #15586 2012-11-19 07:22: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

  

  m.zmrzlina

  senior tag

  Van egy ilyen sorom:

  ActiveCell.Offset(0, 1).Value = Cells(ActiveCell.Row, 6).Value + Cells(ActiveCell.Row, 5).Value - shift + (1 / 24)

  Az = jel jobb oldalán lévő két cella dátumot és időt tartalmaz. A shift szintén idő amit ki kell vonni az előző két cella által meghatározott dátumból.

  Az legvégén lévő hozzáadást (az 1/24 értéket) csak akkor szeretném elvégezni ha a shift-tel módosított időpont a nyári időszámítás idejére esik.

  Úgy meg tudom oldani, hogy egy cellában a munkalapon megadok egy értéket és azt levizsgálva vagy megtörténik vagy nem a hozzáadás. De ekkor a felhasználónak egy előzetes becslést kellene elvégeznie, hogy hová fog esni várhatóan az időpont, és ez - főleg az óraállítások környéki időpontoknál - kicsit macerás.

  

• Delila_1 veterán

  #15585

  #15584 Geryson

  2012-11-18 13:23:40

  Ú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

  #15584 Geryson

  A cellaformázás Védelem fülén jelöld be a Zárolt négyzetet. Ez az alapbeállítás szerint zárolt, ami azt jelenti, hogy azoknál a celláknál vedd ki a pipát, amelyeknél megengeded a módosítást.

  A védelem akkor jön létre, mikor a lapot védetté teszed.

  A 2007-es verzióban a lapfülön jobb klikkre előjön a Lapvédelem, ahol lehetőséget kapsz jelszavas védelemhez (nem kötelező jelszavazni), és kapsz egy listát, amiből kiválaszthatod, milyen módosításokat engedsz meg a felhasználóknak.

• Geryson addikt

  #15584

  #15533 Delila_1

  2012-11-18 13:15: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

  

  Geryson

  addikt

  #15533 Delila_1

  Bocsánat, nem volt időm elolvasni. "Az ellenőrzött sorokban zárold a cellákat, és adj a lapnak védelmet."

  Hogyan zárolok, hogyan adok védelmet neki?

• Delila_1 veterán

  #15583

  #15582 csferke

  2012-11-18 11:36: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

  #15582 csferke

  Az első lap egy új oszlopába tedd be az =A2& " "&C2 képletet, ami összefűzi a nevet és a várost. Legyen ez pl. a D oszlopban. Ügyelj, hogy az idézőjelek között 2 db szóköz legyen.
  Másold le a képletet, jelöld ki mindet, és nevezd el mondjuk NV-nek (nés és város).
  A 2. lap A1 cellájában az érvényesítésnél ezt add meg forrásként: =NV
  Az A2 cellába a következő képlet jön:

  =FKERES(BAL(A1;SZÖVEG.KERES(" ";A1)-1);Munka1!A1:C5;2;0) & " " & FKERES(BAL(A1;SZÖVEG.KERES(" ";A1)-1);Munka1!A1:C5;3;0)

  Itt is 2 db szóközöket írj.

  Ebből a BAL(A1;SZÖVEG.KERES(" ";A1)-1) adja a keresendő nevet. Megkeresi az A1 cellában a 2 db szóköz helyét, megadja a keresendő nevet, és ennek megfelelően keres az 1. lap adatai között.
  Azért kell dupla szóköz, mert a nevek tartalmaznak 1-1 db-ot.

• csferke senior tag

  #15582 2012-11-18 07:06: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

  

  csferke

  senior tag

  Sziasztok!
  Nemrégen feltettem ezeket a kérdéseket de mivel nem kaptam választ így most megismétlem.

  1.lap adatok (név, ir.szám, város, cím...)
  2.lap pl. A1 cellába vlookup-al behozok egy nevet és az A2-ben szeretném összevonva megjeleníteni az ir.számot és várost (ir.szám+" "+város formában). A2-be vlookup ir.szám, B2-be vlookup város, eddig eljutottam.
  Hogyan kell "összeadni" a két vlookup-ot?

  A1 cellába a név kiválasztásánál a legördülőben lehet-e két oszlop (pl. név, város). Az 1.lapon az adatok
  város+név szerint vannak rendezve. Nagyban megkönnyítené a kiválasztást ha 2.lap A1-ben is látnám a városokat is.

  köszi

• poffsoft veterán

  #15581

  #15580 Bobrooney

  2012-11-18 05:10: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

  

  poffsoft

  veterán

  #15580 Bobrooney

  Nekem is ki kellett próbálnom előtte, mert még nagyon keveset tudok a VBA-ról

  /am. gondolom az object property-re gondoltál/

• Bobrooney senior tag

  #15580

  #15579 poffsoft

  2012-11-18 00:43: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

  

  Bobrooney

  senior tag

  #15579 poffsoft

  Na igen, köszönöm!!!
  Próbáltam a Selection-t csak én még azt hittem kell neki vmi objektumát is meghívni és ezért nem ment

• poffsoft veterán

  #15579

  #15578 Bobrooney

  2012-11-17 23:40: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

  

  poffsoft

  veterán

  #15578 Bobrooney

  Set ter = Selection

• Bobrooney senior tag

  #15578

  #15576 Delila_1

  2012-11-17 23:24: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

  

  Bobrooney

  senior tag

  #15576 Delila_1

  Nem most, hanem mielőtt megkérdeztem. Most ez jó, csak a kijelölt elemmel nem tudom megcsinálni, mármint amit a user jelöl ki tetszőlegesen.

• poffsoft veterán

  #15577

  #15576 Delila_1

  2012-11-17 23:23:11

  Ú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

  

  poffsoft

  veterán

  #15576 Delila_1

  szerintem range..
  A kérdésre meg csak gondolom hogy selection.address féle lesz a megoldás...

• Delila_1 veterán

  #15576

  #15575 Bobrooney

  2012-11-17 17:29:39

  Ú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

  #15575 Bobrooney

  Szívesen.

  Hogy deklaráltad?

• Bobrooney senior tag

  #15575

  #15572 Delila_1

  2012-11-17 17:28: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

  

  Bobrooney

  senior tag

  #15572 Delila_1

  Köszönöm szépen! Én nem object ként deklaráltam a ciklusváltozómat.
  Még annyi lenne a kérdésem, ha nem itt adom meg a ter-t hanem a selected-el kérdezem le, akkor hogy alakulna? vagy azt megtudni hogy mely blokk van kijelölve?

• Delila_1 veterán

  #15574

  #15573 poffsoft

  2012-11-17 16:59: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

  

  Delila_1

  veterán

  #15573 poffsoft

  Látod, hogyan lehet megadni a For Eac-ben éppen aktuális cella formátumát.

  Más:
  If CV < 300 Then Range(CV.Address).Offset(, 10) = "mmm"

• poffsoft veterán

  #15573

  #15572 Delila_1

  2012-11-17 16:57: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

  

  poffsoft

  veterán

  #15572 Delila_1

  a CV -nek minden tulajdonsága megvan, mint bármelyik cells()-nek?

  Ha ezeket a titkokat is ismerném, még makrózni is megtanulhatnék

  szerk: Most nézem, a CV nem is range, hanem object a példádban

• Delila_1 veterán

  #15572

  #15571 Bobrooney

  2012-11-17 14:12: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

  #15571 Bobrooney

  A For Each - Next ciklussal végig lépkedhetsz a terület tagjain. A lenti példában a ciklusváltozó CV.

  Sub TeruletBejaras()
  Dim ter As Range, CV As Object
  Set ter = Range("A1:C15")
  
  For Each CV In ter
  MsgBox CV.Address
  MsgBox CV.Value
  If CV < 300 Then Cells(CV.Row, CV.Column).Font.ColorIndex = 3
  Next
  End Sub

  A két kiíratást csak azért tettem bele, hogy megmutassam, miket tud még ez a különleges ciklus.
  A For Each CV In ter helyett For Each CV In Range("A1:C15") is szerepelhet.

• Bobrooney senior tag

  #15571 2012-11-17 10:12: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

  

  Bobrooney

  senior tag

  Sziasztok!

  VBA-val kapcsolatos kérdésem lenne:
  Van egy kijelölt blokkom, ennek az összes elemét végig szeretném járni, hogy megszámoljam 1 bizonyos elem előfordulásainak számát. De a kijelölt blokk lehet hogy nem lesz azonos minden esetben.
  Az oké hogy selection, de ezeket az elemeket nem tudom h kéne bejárnom valaki tud rá megoldást?

• Delila_1 veterán

  #15570

  #15569 siskin

  2012-11-16 16:50: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

  

  Delila_1

  veterán

  #15569 siskin

  Remélem, sikerül.

• siskin tag

  #15569

  #15567 Delila_1

  2012-11-16 16:49: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

  

  siskin

  tag

  #15567 Delila_1

  Köszönöm a segítségedet,igazán rendes vagy!
  Elsőre kicsit sűrűnek tűnik,de szerintem végig tudom játszani a lehetőségeket.

• Delila_1 veterán

  #15568

  #15566 Mauzes

  2012-11-16 16:04:25

  Ú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

  #15566 Mauzes

  Tudtommal nem lehet.

• Delila_1 veterán

  #15567

  #15564 siskin

  2012-11-16 16:03: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

  #15564 siskin

  Megtaláltam azt a leírást, ami a hivatkozásokkal foglalkozik.

  "Csináltam egy tesztet, úgy tűnik, tényleg van egy másolat a forrástábláról a fájlban. Eléggé Excel veterán vagyok, de ez most nekem is új volt. Tedd a következőket:
  1. A hivatkozásokat tartalmazó Excel fájlban nyiss egy új fület.
  2. Helyezz el az A1 cellába egy hivatkozást a törölt tábla A1 cellájára. Ez valahogy így fog kinézni:
  Kód:
  ='C:\[teszt1.xls]Munka1'!A1
  A pontos elérést puskázd ki valamelyik meglévő hivatkozásból. A lényeg, hogy a végén A1 legyen és ne $A$1!
  Amikor bekéri frissítés céljából az Excel a hivatkozott fájlt, nyomj mégsét.
  3. Autokitöltéssel húzd végig jobbra a frissen létrehozott cellát annyit oszloppal, amennyit a forrás tartalmazott.
  Ha túlhúzod, akkor sincs gond. (Autokitöltés = kijelölöd az A1-et, majd a cella jobb-alsó sarkában levő pöttyöt megfogva végighúzod jobbra a kijelölést.)
  A frissítéshez újra kéri az Excel a forrásfájlt, megint mégse.
  4. A felső, immár helyreállt sor celláit jelöld végig ki, majd csinálj egy autokitöltést lefelé is. Innentől kezdve meg kell, hogy kapd a forrásfájl tartalmát.
  5. Ezt az egészet jelöld ki, majd CTRL&C, majd szerkesztés->irányított beillesztés->csak értéket.
  Ekkor a hivatkozások felülíródnak a megjelenített értékekkel, ezzel végleg elválva a fantom forrástól. A helyreállt táblát már át tudod másolni másik Excel fájlba, stb.
  Sajnos a formázásokat végleg elvesztetted, de ez legyen a legnagyobb baj."

  Nem valószínű, hogy az első módszerrel sikerül, mert azóta már biztosan használtad a gépet. Ezzel a most idézettel valaki pár nap után helyreállította a fájlját, legalábbis azt válaszolta a tanácsra.

• Mauzes addikt

  #15566

  #15563 Delila_1

  2012-11-16 16:02:39

  Ú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

  

  Mauzes

  addikt

  #15563 Delila_1

  A függőleges rendezést lehet testreszabni részletesen, nem csak annyit, hogy fent, középen vagy lent? Olyat szeretnék, hogy felülre legyen rendezve, de túl közel van a vonalhoz, tehát legyen mondjuk 5 pixelnyi hely a szöveg és a cella teteje között.

• Delila_1 veterán

  #15565

  #15564 siskin

  2012-11-16 15:58: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

  #15564 siskin

  Hasonló kérdésre valamikor ezt a választ adta egy ügyes informatikus (szó szerint idézem, hátha bejön):

  "Ha nincs meg a fájlod valahol mégis, egy másik néven, vagy emailben csatolt állományként,
  vagy ilyesmi, akkor még azt teheted, hogy elindítod az excelt, azután a feladatkezelőből leállítod.
  Ezután újraindítod, és ha szerencséd van, feldob egy olyan ablakot, hogy dokumentum-helyreállítás,
  és talán benne van a fájlod, ha mostanában szerkesztetted, vagy lagalább valami nem túl régi verzió.
  Ha ez az út nem járható, akkor itt egy másik megközelítés.

  Ha felülírsz egy fájlt, az (bár nem biztos, de szerintem) olyan, mintha törölted volna.
  Mármint, a rendszer elmenti az új fájlt egy új helyre, és felszabadítja a régi által lefoglalt tárhelyet.
  Én törölt fájlok visszaállítási kísérleténél én ezt az utat szoktam követni:
  1. Kikapcsolom a gépet (A), amin a törölt fájl van.
  Törlés után a fájl még ott van a merevlemezen, de az általa lefoglalt terülte szabadnak van nyilványtva, és csak idő kérdése, hogy mikor ír oda valamit a rendszer.
  2. Keresek egy másik gépet (B), amire telepítek egy olyan programot, amivel törölt fájlokat vissza lehet hozni.
  Van ilyen sok, többségük nem ingyenes, de 15 v. 30 napig ingyen használható, ami teljesen megfelel a célnak.
  3. Átrakom a törölt fájlt tartalmazó merevlemezt az A-ból a B gépbe, és Secondary Slave -ként konfigurálom,
  hogy véletlenül se erről próbálja a gép a rendszert betölteni.
  4. Enildítom a B gépet, futtatom rajta a törlésvisszavonó programot, és végigszkennelem azt a bizonyos merevlemezt, hogy megtalálja-e.
  Ha megtalálja, és vissza tudja állítani, akkor jó.
  Ha ez kínai, vagy nem vagy biztos a dolgodban, akkor érdemes inkább szakemberhez fordulni, mert könnyű nagy kárt okozni, ha az ember nem tudja mit csinál."

  Egy másik, amit megpróbálhatsz, hogy nyitsz egy új füzetet. Az első lap A1 cellájában hivatkozol a megnyithatatlan füzet első lapjának A1 cellájára -> =[FüzetNeve.xls]ElsőLapNeve!A1
  Ezt le-, és jobbra másolod. Vagy bejön, és a képletek helyére bemásolod az értéküket irányított beillesztéssel, vagy tovább búsulsz.

• siskin tag

  #15564

  #15562 Delila_1

  2012-11-16 15: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

  

  siskin

  tag

  #15562 Delila_1

  Kedves Delila.

  [link] -re nem tudsz esetleg valamit?

• Delila_1 veterán

  #15563

  #15561 Mauzes

  2012-11-16 15:48: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

  

  Delila_1

  veterán

  #15561 Mauzes

  Szívesen.

• Delila_1 veterán

  #15562

  #15560 sevadevil7

  2012-11-16 15:47: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

  

  Delila_1

  veterán

  #15560 sevadevil7

  Így.

• Mauzes addikt

  #15561

  #15559 Delila_1

  2012-11-16 15:47: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

  

  Mauzes

  addikt

  #15559 Delila_1

  Ó, hogy a macska rúgja meg. Össze-vissza kombóztam, mire rájöttem, hogy ha a wrap text be van pipálva, akkor nem működik.

  Köszi a segítséget, már fasza!

• sevadevil7 csendes tag

  #15560 2012-11-16 15:43: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

  

  sevadevil7

  csendes tag

  Táblázat bizonyos celláit hogy tudom jelszóval levédeni?

  Pl:A1:E10-ig védett tartomány, többi cella szerkeszthető

• Delila_1 veterán

  #15559

  #15558 Mauzes

  2012-11-16 15:24:50

  Ú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

  #15558 Mauzes

  A nyelv nem számít. Próbáld meg egy másik lapon. Előfordult már nálam, hogy nem minden lapon működött.
  Másik próba, hogy nem )-et, hanem pl. W-t írsz az alsó kötjel után. A számformátum, kötjel, és a beírt karakter között ne legyen szóköz.

• Mauzes addikt

  #15558

  #15557 Delila_1

  2012-11-16 15:20: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

  

  Mauzes

  addikt

  #15557 Delila_1

  Szia!

  Köszi, a zárójelezés jól működik, de a behúzás nem. Nem mozdult el semerre a pozitív szám (jobbra van rendezve). Az számíthat, hogy angol nyelvű excelem van?
  Az a furcsa, hogy ha balra rendezem, és elé írom ugyanazt, akkor működik, behúzza jobbra...

• Delila_1 veterán

  #15557

  #15556 Mauzes

  2012-11-16 15:07: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

  #15556 Mauzes

  Az egyéni formátumban ezt a cifraságot add meg:

  0,00%_);(-0,00%)

  A pontosvessző előtti rész a pozitív-, a másik a negatív számokra vonatkozik.
  Ha a formátum után közvetlenül írsz egy alsó kötjelet, és azután egy valamilyen karaktert, akkor a szám után olyan széles üres helyet hagy a cella jobb oldalán, mint a beírt karakter. A fenti példában ez a záró-zárójel a pozitív számok után.

• Mauzes addikt

  #15556 2012-11-16 14:54: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

  

  Mauzes

  addikt

  Sziasztok!

  Nem sikerült kisilabizálni a custom formátum kódokat, így kérném a segítségeteket.

  1. Ha van egy táblázatom pozitív és negatív 0 és 1 közötti számokkal két tizedessel, és én azt szeretném, hogy százalékban jelenítse meg ÉS hogy a negatívok zárójelben legyenek, van-e olyan kód, hogy rá tudom húzni az egész táblázatra, és akkor csak a negatív lesz zárójelben?

  2. Van-e olyan kód, ami azt csinálja, hogy a pozitívok egyetlen karakterrel legyenek behúzva balra? És akkor a zárójeles és nem zárójeles számok/százalékok is pontosan lennének rendezve egymás alatt.

  Előre is köszi!

• Delila_1 veterán

  #15555

  #15554 zhari

  2012-11-16 10:24:07

  Ú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

  #15554 zhari

  Szívesen.

• zhari csendes tag

  #15554

  #15553 Delila_1

  2012-11-16 10:23: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

  

  zhari

  csendes tag

  #15553 Delila_1

  Szuper. Köszönöm. Működik.

  Nem tudtam rendesen megfogalmazni, hogy mit szeretnék, ezért nem találtam
  De most jó.

• Delila_1 veterán

  #15553

  #15552 zhari

  2012-11-16 10:07: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

  

  Delila_1

  veterán

  #15552 zhari

  Ez a kérdés is sokszor szerepelt már a fórumon, Pl. Itt.

• zhari csendes tag

  #15552

  #15551 zhari

  2012-11-16 10:01: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

  

  zhari

  csendes tag

  #15551 zhari

  A fenti kérést szeretném egy külön macróba még bonyolítani.
  A 30 munkalapot egy munkalapra kellene összemásolni egymás alá. De a másolást csak a második sortól kezdje el mert azonos fejlécet tartalmaznak.
  Minden hozzászólást szívesen fogadok.

• zhari csendes tag

  #15551 2012-11-16 09:54:46

  Ú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

  

  zhari

  csendes tag

  Üdv!
  Segítségeteket szeretném kérni egy makró írásában.
  Azt kellene tudnia, hogy egy adott mappából megnyit minden excel dokumentumot és minden munkalapot összemásol egy dokumentumba. Tehát van 30 db xls. (különböző munkalapnevekkel) ebből kellene a 30 munkalapot egy .xls-be összemásolnia.

• Delila_1 veterán

  #15550

  #15549 hdcsaba87

  2012-11-16 07:46: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

  #15549 hdcsaba87

  Az Excelben behívod a vezérlők eszköztárát. Az utolsó ikonra, a "További eszköztárak" nevűre kattintasz. A megjelenő listában a verziódtól függően különböző néven szerepelhet, Naptár, Calendar, Microsoft Calendar. Ha egyik sincs, akkor a letölthető MSCAL.OCX és CDLMSO.DLL fájlokat tedd be a C:\Programok\Microsoft Office\ OFFICExx (11, 12, vagy 13 a verziótól függően) könyvtárba.
  Átlépsz a VBE-be. Tools | References. Bejelölöd a Microsoft Forms x.x Object Library-t. Megjelenik az ikon, kis kék pontokkal.

• hdcsaba87 aktív tag

  #15549 2012-11-15 20:06: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

  

  hdcsaba87

  aktív tag

  Sziasztok!
  az lenne a kérdésem, hogy excel visual basicben hogyan tudom megjeleníteni az active x vezérlők között a naptár funkciót?
  köszönöm előre is a segítséget

• siskin tag

  #15548 2012-11-15 19:16: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

  

  siskin

  tag

  Sziasztok!

  Kis segítséget kérnék...Excel fájlba mentem pár éve a háztartás kiadás-bevételeit.(Office 2010).Történt ma,hogy belépve hibaüzenetet írt a program,valami grafikont nem tudott megnyitni,de beengedett.Beírtam pár adatot,mentettem,kiléptem.Biztos ami biztos alapon meg akartam nézni sikerült-e elmenteni az adatokat,de már nem engedett be.Hibaüzenetként annyit írt,hogy a fájl vagy hibás,vagy a kiterjesztés változása miatt nem nyitható meg.

  Már mindent kipróbáltam vele,de semmiképpen nem férek hozzá az adatokhoz.
  Leírom mivel próbálkoztam:
  -fájl kiterjesztés módosítása (mindenféle excel formátummal)
  -excel program beépített javító használata (megnyitás és javítás,adat kinyerés,stb....)
  -legalább 3 féle recovery programmal néztem,nem e lehet visszaállítani valahogyan legalább a tegnapi állapotot
  -excel viewer programokkal legalább kimásoláshoz megnézni az adatokat-sikertelenül
  nagyjából ennyi.

  Ha sérült egy excel fájl,semmi remény az adatok visszanyerésére?

• Gabesz87 veterán

  #15547 2012-11-15 16:40: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

  

  Gabesz87

  veterán

  Egy kis segítséget kérnék diagram terén...Excel 2010-ről van szó először is...Adott egy adatsor: pontdiagramon ábrázolok görbe vonalakkal összekötve egy csatornában lévő áramlás sebességprofilját. Vízszintes tengelyen az osztások vannak mm-ben, függ. tg-en meg a sebesség m/s-ban. Viszont ezt össze kéne hasonlítani egy másik féle sebességmérési módszerrel, ami csak egy darab érték, egy átlagsebesség, és ezt kellene még valahogy ebbe a pontdiagramba beszúrni, tehát ez utóbbi nyilván egy vízszintes vonal lesz. Csak azt nem tudom, hogy lehet hozzáadni ezt a meglévő diagramomhoz! Remélem érthető volt így. Légyszi segítsetek!

  Na, épp mire megírtam sikerült...Kijelöltem a meglévő adatsorral együtt ezt az egy értéket is, úgy hogy minden x értékhez odaírtam ugyanazt az egy átlagsebesség-értéket.

• TwentyFour tag

  #15546

  #15545 q13579

  2012-11-15 10:51:50

  Ú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

  

  TwentyFour

  tag

  #15545 q13579

  Szia, a 2010-es excelben 1,048,576 sor és 16,384 oszlop a max. A 450k+650k sor összesen 1.100.000 sor lesz, amit már átlépi a maximum határt.

• q13579 senior tag

  #15545 2012-11-15 10:40: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

  

  q13579

  senior tag

  Sziasztok!

  Az Excel 2010 hány sort tud maximálisan kezelni?

  Ugyanis szeretnék összemásolni egy közel 450 ezer soros táblát egy 650 ezer sorossal, de ehszerűen nem teszi meg. A következő hibaüzenetet kapom:

  Az információ nem illeszthető be, mert a Másolás és a beillesztési terület nem azonos méretű és alakú.

  Ez biztos, hogy nem lehet probléma, mert teljesen ugyanaz a formátum.

  Ráadásul, ha a 650.000 sorosat akarom önmaga után másolni, akkor is ezt a hibát írja, holott a két formátum 100 %, hogy egyezik.

  Tudna valaki ötletet adni?

• Delila_1 veterán

  #15544

  #15543 bandus

  2012-11-15 08:20:25

  Ú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

  #15543 bandus

  Szívesen.

  A ThisWorkbook-ba tedd a makrót, és Private Sub Workbook_Open() legyen a címe, akkor a fájl megnyitásakor automatikusan indul.
  Lehet Sub auto_open() is a címe.

• bandus veterán

  #15543

  #15519 Delila_1

  2012-11-14 22:37: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

  

  bandus

  veterán

  #15519 Delila_1

  szupper, köszönöm, szép lassan tanulgatok

  még egy kérdés merült fel: létezik-e olyan parancs, ami egy makró elejére írva az excel fájl megnyitásakor lefuttatja az adott makrót, azaz ne kelljen mindig kikeresni, meg ne kelljen gombot se nyomkodni, hanem csak fusson

  köszönöm!

• Delila_1 veterán

  #15542

  #15541 pero19910606

  2012-11-14 18:45:25

  Ú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

  #15541 pero19910606

  Szívesen. A legegyszerűbb dolog nem jut néha eszünkbe.

• pero19910606 csendes tag

  #15541

  #15540 Delila_1

  2012-11-14 18: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

  

  pero19910606

  csendes tag

  #15540 Delila_1

  milyen igaz köszönöm a segítséget még egyszer

• Delila_1 veterán

  #15540

  #15539 pero19910606

  2012-11-14 18:35: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

  

  Delila_1

  veterán

  #15539 pero19910606

  Készíts egy új oszlopot, ahol egymás alá írod a gyümölcsöt és a húst, és ezt tedd be az érvényesítésbe.

• pero19910606 csendes tag

  #15539

  #15538 Delila_1

  2012-11-14 18:32: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

  

  pero19910606

  csendes tag

  #15538 Delila_1

  De azt nem tudom meg tenni mert a táblázat így néz ki :

  Gyümölcs banán
  üres cella alma
  üres cella körte stb...
  Zöldség

  Aztán itt megint lejjebb húsok. Tehát a D oszlopban vannak felsorolva a főbb kategóriák és rögtön mellette az E oszlopban pedig a termékek. Tehát kénytelen vagyok meghagyni azokat üresen.

• Delila_1 veterán

  #15538

  #15537 pero19910606

  2012-11-14 18:27: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

  #15537 pero19910606

  Igen. NE hagyj üres cellákat.

• pero19910606 csendes tag

  #15537

  #15536 Delila_1

  2012-11-14 18:26: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

  

  pero19910606

  csendes tag

  #15536 Delila_1

  Köszönöm a gyors választ. Arra is tudsz esetleg megoldást, hogy az üres hagyott cellákat ne listázza?

• Delila_1 veterán

  #15536

  #15534 pero19910606

  2012-11-14 18:15: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

  

  Delila_1

  veterán

  #15534 pero19910606

  Erről már többször volt szó itt a fórumon. Pl. itt

  Az kalória beírását az FKERES függvénnyel tudod megoldani, az összesítés pedig gyerekjáték a SZUM függvénnyel. Összegzés előtt ne felejtsd el felszorozni az egységnyi adagra szóló kalóriát a fogyasztandó mennyiséggel.

• pero19910606 csendes tag

  #15535

  #15534 pero19910606

  2012-11-14 18:10: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

  

  pero19910606

  csendes tag

  #15534 pero19910606

  majd ezt szépen összesíti is?

  Bocsi a hosszúért. Köszönöm előre is

  ( ez nem fért már bele)

• pero19910606 csendes tag

  #15534 2012-11-14 18:04: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

  

  pero19910606

  csendes tag

  Sziasztok!
  Kaptam egy beadandó feladatot és nem igazán tudom, hogyan fogjak hozzá.
  Ételek kalória értékét kell kiszámítani. Egy táblázatban megkaptam 130 ételnek a nevét (+ mennyiség,kcal,fehérje,zsír, szénhidrát) 11 főbb csoportra osztva.(pékárú,zöldség,gyümölcs stb...)
  Azt a célt kell szolgálnia, hogy ha pl ebédet szeretnék csinálni, akkor elég legyen kiválasztani az adott ételeket és ha meg van az összes, akkor kiszámolná, hogy mennyi kalória, mennyi szénhidrát stb...
  Arra gondoltam, hogy legördülő menükből kéne megcsinálni. Az alapelv az, hogy ha kiválasztom az első legördülőmenüben pl a gyümölcsöket, akkor egy mellette lévő legördülőben már csak a gyümölcsök jelennének meg. Megoldható ez így?
  A másik meg hogy a főbb csoportok nem egymás alatt van közvetlenül,hanem van, hogy 20 sor üresen van. Hogyan tudnám meg csinálni azt hogy csak azokat listázza amiben van szöveg is. ( most úgy írtam be, hogy D2119, de itt ugye tartalmazza az üres cellákat is. Ha elválasztom vesszővel vagy pontos vesszővel, akkor nem ad ki eredményt)
  Ha ez már meg lenne utána nagyon bonyolult az, hogy kiszámolja nekem pl a krumpli értékeit egy mezőbe,aztán a csirke értékeit és mondjuk egy sütemény értékeit majd

• Delila_1 veterán

  #15533

  #15530 Geryson

  2012-11-14 15:20:39

  Ú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

  #15530 Geryson

  Az ellenőrzött sorokban zárold a cellákat, és adj a lapnak védelmet.

• Delila_1 veterán

  #15532

  #15527 kokopeti

  2012-11-14 15:16: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

  

  Delila_1

  veterán

  #15527 kokopeti

  A két For kezdetű sorban a 2-t írd át 13-ra, ill. ha itt a címsor van, akkor 14-re.

  Szerk.: a fenti arra az esetre vonatkozik, ha a 2 első lapodon vándoroltak lejjebb az adatok.
  Ha a 3. lapon, akkor a sorN%=2 helyett írj sorN%=13-at.

• Delila_1 veterán

  #15531

  #15529 poffsoft

  2012-11-14 15:15: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

  #15529 poffsoft

  Igen.
  A stringet váró változóknál a változó neve után írt $ jelet is sűrűn alkalmazom. Dim szöveg$.

• Geryson addikt

  #15530 2012-11-14 13:32:59

  Ú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

  

  Geryson

  addikt

  Mesterek! Létezik-e mód arra, hogy ha én csinálok egy Excel táblázatot, felrakom egy szerverre és dolgoznak vele mások is (kitöltik), majd annak mondjuk ellenőrzöm példának okáért egy részét (pl. huszadik sorig), akkor azt úgy le tudjam védeni, hogy abban már ne lehessen módosítani, de a következő sortól természetesen tovább lehessen tölteni?

• poffsoft veterán

  #15529

  #15519 Delila_1

  2012-11-14 12:51: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

  

  poffsoft

  veterán

  #15519 Delila_1

  Vagyis néhány speciális esetben a név utáni szimbólumokkal definiálod a változó típusát, nem a "szabályos" deklarációval.

• Sir Pocok őstag

  #15528

  #15526 Sir Pocok

  2012-11-14 09: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

  

  Sir Pocok

  őstag

  #15526 Sir Pocok

  köszi lappy, jó lesz.

• kokopeti csendes tag

  #15527

  #15510 Delila_1

  2012-11-14 09:19: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

  

  kokopeti

  csendes tag

  #15510 Delila_1

  Szia!

  Üres lapba bemásolva minden jól működik köszönöm. Viszont annyi változás történt, hogy a táblázatom elhelyezkedését muszáj lejjebb helyeznem.

  Így az elhelyezkedésük ez lesz:
  Mód: B13
  Nettó: C13
  Bruttó: D13
  Megjegyzés: E13

  A módosuláshoz gondolom ebben kellene szerkeszteni pár értéket:

  WS1.Select
  usor% = Cells(Rows.Count, "A").End(xlUp).Row
  usorN% = 2
  For sor% = 2 To usor%
  If Cells(sor%, 1) = datum Then
  usorN% = usorN% + 1
  f = True
  WS3.Cells(usorN%, 1) = Cells(sor%, 2)
  WS3.Cells(usorN%, 2) = Cells(sor%, 3) * -1
  WS3.Cells(usorN%, 3) = WS3.Cells(usorN%, 2) / 1.27
  WS3.Cells(usorN%, 4) = Cells(sor%, 5)
  End If
  Next
  
  WS2.Select
  usor% = Cells(Rows.Count, "A").End(xlUp).Row
  For sor% = 2 To usor%
  If Cells(sor%, 1) = datum Then
  f = True
  usorN% = usorN% + 1
  WS3.Cells(usorN%, 1) = Cells(sor%, 2)
  WS3.Cells(usorN%, 2) = Cells(sor%, 3)
  WS3.Cells(usorN%, 3) = WS3.Cells(usorN%, 2) / 1.27
  WS3.Cells(usorN%, 4) = Cells(sor%, 4)

  Próbálom egyedül is hátha sikerül, de egyelőre nehezen értelmezem a deklarálásokat sajnos.

• Sir Pocok őstag

  #15526

  #15525 lappy

  2012-11-14 08:25: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

  

  Sir Pocok

  őstag

  #15525 lappy

  hmm. megnézem meg1X.

• lappy őstag

  #15525

  #15524 Sir Pocok

  2012-11-14 08:20: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

  

  lappy

  őstag

  #15524 Sir Pocok

  kipróbáltam és működik nálam!

• Sir Pocok őstag

  #15524

  #15523 lappy

  2012-11-14 08:15: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

  

  Sir Pocok

  őstag

  #15523 lappy

  nem funkciónál. Nincs erre valami adatbázis függvény?

• lappy őstag

  #15523

  #15521 Sir Pocok

  2012-11-14 08:06: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

  

  lappy

  őstag

  #15521 Sir Pocok

  Erre válaszoltam már neked! Csak nem úgy hogy az egyik munkalap neve adatbázis!!!

• Sir Pocok őstag

  #15522

  #15520 lappy

  2012-11-14 08:02: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

  

  Sir Pocok

  őstag

  #15520 lappy

  Köszi kiprobálom.

• Sir Pocok őstag

  #15521

  #15519 Delila_1

  2012-11-14 08:02: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

  

  Sir Pocok

  őstag

  #15519 Delila_1

  15513-as hsz ügyében tudnál segíteni?

  Köszi!

• lappy őstag

  #15520

  #15517 Sir Pocok

  2012-11-14 08:01: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

  

  lappy

  őstag

  #15517 Sir Pocok

  =HA(HIBÁS(FKERES(Munka2!A1;Munka1!A1:B10;2;0));"";FKERES(Munka2!A1;Munka1!A1:B10;2;0))

  csferke :==IFERROR(VLOOKUP(A2;Munka1!A2:B9;2;0);"")

  http://www.piuha.fi/excel-function-name-translation/index.php?page=magyar-english.html

• Delila_1 veterán

  #15519

  #15512 bandus

  2012-11-14 07:56: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

  #15512 bandus

  Szabad

  Egyszerűbb leírni, hogy %, mint azt, hogy As Integer.
  Persze csak akkor adj ilyen értéket, ha biztos, hogy a határok között lesz a változód értéke.

• csferke senior tag

  #15518

  #15515 lappy

  2012-11-14 07:50: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

  

  csferke

  senior tag

  #15515 lappy

  =HAHIBA(FKERES(A2;Munka1!A2:B9;2;0);"")

  Lefordítanád ezt angolra.

  köszi

• Sir Pocok őstag

  #15517

  #15515 lappy

  2012-11-14 07:48:50

  Ú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

  

  Sir Pocok

  őstag

  #15515 lappy

  Köszi, de olyan képlet kellene, amit office 2003-as verziójában is tudok használni.

• csferke senior tag

  #15516 2012-11-14 07:28:25

  Ú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

  

  csferke

  senior tag

  Sziasztok!

  1.lap adatok (név, ir.szám, város, cím...)
  2.lap pl. A1 cellába vlookup-al behozok egy nevet és az A2-ben szeretném összevonva megjeleníteni az ir.számot és várost (ir.szám+" "+város formában). A2-be vlookup ir.szám, B2-be vlookup város, eddig eljutottam.

  Hogyan kell "összeadni" a két vlookup-ot?

  A1 cellába a név kiválasztásánál a legördülőben lehet-e két oszlop (pl. név, város). Az 1.lapon az adatok
  város+név szerint vannak rendezve. Nagyban megkönnyítené a kiválasztást ha 2.lap A1-ben is látnám a városokat is.

  köszi

• lappy őstag

  #15515

  #15513 Sir Pocok

  2012-11-14 07:15: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

  

  lappy

  őstag

  #15513 Sir Pocok

  Szia!
  fkeres!! próbáltad már!!
  pl:
  =HAHIBA(FKERES(A2;Munka1!A2:B9;2;0);"")
  kiegészítve ha üres a cella!

• Fire/SOUL/CD félisten

  #15514

  #15512 bandus

  2012-11-13 21:01: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

  

  Fire/SOUL/CD

  félisten

  #15512 bandus

  Nem szabad

• Sir Pocok őstag

  #15513 2012-11-13 20:57: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

  

  Sir Pocok

  őstag

  A következőben kellene egy kis segítség:

  Adott egy adatbázis nevű munkalap, ami 2 oszlopot tartalmaz:azonosító és cím.

  Feladat az lenne, hogy egy másik munkalapon ha beírom az azonosítót egy cellába akkor a mellette levő cellába kiadja az adatbázis nevű munkalapon található azonosítóhoz tartozó címet.

  Köszönöm előre is a segítséget.

• bandus veterán

  #15512

  #15510 Delila_1

  2012-11-13 20:23: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

  

  bandus

  veterán

  #15510 Delila_1

  meg szabad kérdezni, hogy a % mit jelent a változók definiálásánál?

• kokopeti csendes tag

  #15511

  #15510 Delila_1

  2012-11-13 14:52: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

  

  kokopeti

  csendes tag

  #15510 Delila_1

  Köszönöm a gyors választ, viszont csak holnap lesz időm letesztelni. Amint végeztem vele írok!! Köszönöm!!!

• Delila_1 veterán

  #15510

  #15509 kokopeti

  2012-11-13 11:35: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

  #15509 kokopeti

  A 'Napi összesítő' lap A2 cellája a mód, B2 a bruttó, C2 a nettó, D2 a megjegyzés.

  A laphoz rendeld ezt a makrót:

  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim datum As Date
  If Target.Address = "$A$1" Then
  Application.EnableEvents = False
  datum = Target.Value
  Osszevonas datum
  Application.EnableEvents = True
  End If
  End Sub

  Modulba tedd a másikat:

  Sub Osszevonas(datum)
  Dim sor%, usor%, usorN%, f As Boolean
  Application.ScreenUpdating = False
  Dim WS1 As Worksheet, WS2 As Worksheet, WS3 As Worksheet
  Set WS1 = Worksheets("Kiadások")
  Set WS2 = Worksheets("Bevételek")
  Set WS3 = Worksheets("Napi összesítő")
  
  WS1.Select
  usor% = Cells(Rows.Count, "A").End(xlUp).Row
  usorN% = 2
  For sor% = 2 To usor%
  If Cells(sor%, 1) = datum Then
  usorN% = usorN% + 1
  f = True
  WS3.Cells(usorN%, 1) = Cells(sor%, 2)
  WS3.Cells(usorN%, 2) = Cells(sor%, 3) * -1
  WS3.Cells(usorN%, 3) = WS3.Cells(usorN%, 2) / 1.27
  WS3.Cells(usorN%, 4) = Cells(sor%, 5)
  End If
  Next
  
  WS2.Select
  usor% = Cells(Rows.Count, "A").End(xlUp).Row
  For sor% = 2 To usor%
  If Cells(sor%, 1) = datum Then
  f = True
  usorN% = usorN% + 1
  WS3.Cells(usorN%, 1) = Cells(sor%, 2)
  WS3.Cells(usorN%, 2) = Cells(sor%, 3)
  WS3.Cells(usorN%, 3) = WS3.Cells(usorN%, 2) / 1.27
  WS3.Cells(usorN%, 4) = Cells(sor%, 4)
  End If
  Next
  
  WS3.Select
  Application.ScreenUpdating = True
  
  If f = False Then MsgBox "Nincs mozgás a " & datum & " napon."
  End Sub

  Az összes bruttót az =szum(B:B), az összes nettót az =szum(D:D) képlet számolja ki a harmadik lapodon.

• kokopeti csendes tag

  #15509

  #15506 Delila_1

  2012-11-13 08:44: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

  

  kokopeti

  csendes tag

  #15506 Delila_1

  A harmadik munkalapnak az lenne a lényege,hogy:

  A1 cellában beírom azt a dátumot, ami engem érdekelne és ezt listázza ki az alatta lévő táblázatba.

  A táblázatban az lenne a jó, ha tartalmazná a Kiadások és Bevételek munkalapokból a Megnevezés, Mód táblázatokat és egy Összeg nevű táblázatot ami tartalmazza a Bevételekből a Bruttó összeget, a Kiadásokból pedig Bruttó kiadás - (mínusz) Nettó Kiadás különbözetét.

  (Ha nem sikerült értelmesen megfogalmaznom, akkor az is tökéletes lenne, ha a Kiadásokból is csak a Bruttó kiadás lenne és majd kiokoskodom a többit, mert az alap makró is hatalmas segítség lenne!!)

  Ha ez meglenne utána már könnyen tudnék hozzárendelni egy összesítő képletet, amivel kiszámoltathatom a napi eredményt!

• Delila_1 veterán

  #15508

  #15507 m.zmrzlina

  2012-11-13 08:30: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

  

  Delila_1

  veterán

  #15507 m.zmrzlina

  Örülök, hogy sikerült.

• m.zmrzlina senior tag

  #15507

  #15479 Delila_1

  2012-11-13 08:26:56

  Ú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

  #15479 Delila_1

  Köszönöm a segítséget. A dátumérték()-kel sikerült megoldani makróval...

  ...miután kiderült, hogy nem excel függvényként (Application.Worksheetfunction. stb stb) kell használni, hanem van egy ilyen VBA függvény. Talán másnak is mond újat ez az oldal

  Köszi még egyszer.

• Delila_1 veterán

  #15506

  #15505 kokopeti

  2012-11-13 08:07:59

  Ú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

  #15505 kokopeti

  Melyik oszlopok szerepeljenek a 3. lapon?

• kokopeti csendes tag

  #15505

  #15487 Delila_1

  2012-11-13 08:03:25

  Ú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

  

  kokopeti

  csendes tag

  #15487 Delila_1

  Szia!

  A táblázatok "A 2"-től vannak feltöltve "E xyz"-ig!
  Az első sorban a táblázat nevek szerepelnek, ahogy itt is látható a Kiadások munkalapon:
  
  A másik munkalapom abban különbözik, hogy a Bevételekben nincs Nettó összeg, csak bruttó. Úgyhogy az csak 4 oszlopos.

• Metathrone1 csendes tag

  #15504

  #15503 Metathrone1

  2012-11-12 20:42:50

  Ú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

  

  Metathrone1

  csendes tag

  #15503 Metathrone1

  megoldottam

• Metathrone1 csendes tag

  #15503

  #15502 Delila_1

  2012-11-12 20:17: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

  

  Metathrone1

  csendes tag

  #15502 Delila_1

  És még egy olyan kérdés, hogy az egész ne legyen egyszerű
  adott a makrót tartalmazó munkafüzet és egy másik, amiben a makrót akarom futtatni billentyűkombinációval, de abban makró nem lehet. addig működik, míg a dátumot kell beírni, de a nevet nem hozza át.
  Sub Insert_date()
  ActiveCell = Date
  ActiveCell.Offset(, 1) = Range("GX60000")
  End Sub

  itt a range után megadni a zárójelben útvonalat? Ha igen, akkor hogyan?
  kell gondolom fájl helye, neve, munkalap és azon belül a cella

• Delila_1 veterán

  #15502

  #15501 Metathrone1

  2012-11-12 19:27: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

  

  Delila_1

  veterán

  #15501 Metathrone1

  Nincs mit.

• Metathrone1 csendes tag

  #15501

  #15500 Delila_1

  2012-11-12 19:26:25

  Ú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

  

  Metathrone1

  csendes tag

  #15500 Delila_1

  Tökéletes, köszönöm szépen

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