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

• #34188 Delila_1 veterán samfishR #34187

  Új Válasz 2017-02-14 15:11:48 #34188

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz samfishR #34187 üzenetére

  Szívesen.

• #34186 Delila_1 veterán samfishR #34182

  Új Válasz 2017-02-14 15:02:58 #34186

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz samfishR #34182 üzenetére

  Nézd meg a 34184-es és 34185-ös hsz-t!

• #34183 Delila_1 veterán samfishR #34182

  Új Válasz 2017-02-14 14:56:43 #34183

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz samfishR #34182 üzenetére

  A bemásolás után állj az Excelben a kérdéses lapodra. Alt+F8-ra megjelenik a Makró párbeszéd ablak, ott el kell indítanod a Beszuras makrót.

• #34181 Delila_1 veterán samfishR #34177

  Új Válasz 2017-02-14 14:24:20 #34181

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz samfishR #34177 üzenetére

  Modulba tedd a lenti makrót.

  Sub Beszuras()
Dim usor As Long, sor As Long

usor = Range("C" & Rows.Count).End(xlUp).Row

For sor = usor To 2 Step -1
If Cells(sor, 3) <> Cells(sor - 1, 3) Then
Rows(sor).EntireRow.Insert
Cells(sor, 1) = Cells(sor - 1, 1)
Cells(sor, 2) = Cells(sor - 1, 2) + TimeValue("0:0:1")
Cells(sor, 3) = Cells(sor - 1, 3)
End If
Next
End Sub

  Dr V és Roxy27: szívesen.

• #34178 0P1 aktív tag samfishR #34177

  Új Válasz 2017-02-14 14:04:18 #34178

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  0P1

  aktív tag

  válasz samfishR #34177 üzenetére

  Szia,

  Szokásos kérdés , Excel 2016 / Office 365 vagy korábbi excel?

  Mert ha előbbi, akkor pár egérkattintással megoldható ez is, ha korábbi verzió, akkor ehhez makró kell

• #34136 m.zmrzlina senior tag samfishR #34133

  Új Válasz 2017-02-10 12:15:20 #34136

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  m.zmrzlina

  senior tag

  válasz samfishR #34133 üzenetére

  B8 képlete:

  =IF(AND(A8>=1;A8<=5);"zöld";IF(AND(A8>=6;A8<=10);"kék";IF(AND(A8>=11;A8<=15);"fekete";"az érték nincs a tartományban")))

  Ezt másolni lefelé ameddig kell.

• #34134 lappy őstag samfishR #34133

  Új Válasz 2017-02-10 11:28:30 #34134

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  lappy

  őstag

  válasz samfishR #34133 üzenetére

  Feltételes formázás menüben találsz rá megoldást

• #29536 m.zmrzlina senior tag samfishR #29534

  Új Válasz 2015-11-18 12:01:11 #29536

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  m.zmrzlina

  senior tag

  válasz samfishR #29534 üzenetére

  Ettől egy egyszerűbb megoldás lehet a következő:

  

  A szerkesztőlécen E1 képlete látható. Ezt másold le E4-ig

• #29535 sztanozs veterán samfishR #29534

  Új Válasz 2015-11-18 11:29:36 #29535

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  sztanozs

  veterán

  válasz samfishR #29534 üzenetére

  1) Illessz be egy sort az elejére,
  2) adj a két oszlopnak valami nevet (írj be az új A1 és B1 mezőkbe valamit)
  3) Kijelölöd a két oszlopot
  3) beillesztés > pivot tábla > új munkalapra
  4) pivot tábla sorokba az első oszlop, értékek-be a második oszlop

• #26635 Delila_1 veterán samfishR #26634

  Új Válasz 2015-04-21 16:04:17 #26635

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz samfishR #26634 üzenetére

  Így írd:

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 1 Then Cells(Target.Row, 2) = Date
  If Target.Column = 5 Then Cells(Target.Row, 6) = Date
  End Sub

• #26633 Delila_1 veterán samfishR #26632

  Új Válasz 2015-04-21 14:02:56 #26633

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz samfishR #26632 üzenetére

  Egy egyetlen soros makró elintézi.

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 1 Then Cells(Target.Row, 2) = Date
  End Sub

  Lapfülön jobb klikk, Kód megjelenítése. Bejutottál a VB szerkesztőbe. A jobb oldali nagy fehér felületre másold be a fenti makrót. A füzetedet makróbarátként kell elmentened.

• #23731 m.zmrzlina senior tag samfishR #23727

  Új Válasz 2014-10-15 11:54:17 #23731

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  m.zmrzlina

  senior tag

  válasz samfishR #23727 üzenetére

  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.

• #23633 m.zmrzlina senior tag samfishR #23632

  Új Válasz 2014-10-09 11:58:34 #23633

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  m.zmrzlina

  senior tag

  válasz samfishR #23632 üzenetére

  Én az "A" munkafüzet WorkBook_Open eseményébe tennék egy kódot ami megnyitja a másik kettőt, a WorkBook_BeforeClose- ban pedig menteném majd bezárnám azokat.

  Sosem csináltam még ilyet ez csak egy ötlet.

• #23632 samfishR senior tag samfishR #23561

  Új Válasz 2014-10-09 11:16:46 #23632

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  samfishR

  senior tag

  válasz samfishR #23561 üzenetére

  erre tud valaki megoldást?

• #23089 slashing senior tag samfishR #23088

  Új Válasz 2014-09-04 11:14:20 #23089

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  slashing

  senior tag

  válasz samfishR #23088 üzenetére

  van, kicsit bonyolultnak néz ki de amúgy nem az:

  =KÖZÉP(CELLA("filenév");SZÖVEG.KERES("[";CELLA("filenév"))+1; SZÖVEG.KERES("]";CELLA("filenév"))-SZÖVEG.KERES("[";CELLA("filenév"))-1)

  az utolsó -1-et növelve levághatod a kiterjesztést is ha akarod

• #22766 Delila_1 veterán samfishR #22765

  Új Válasz 2014-08-05 13:19:22 #22766

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz samfishR #22765 üzenetére

  Szívesen.

• #22764 Delila_1 veterán samfishR #22763

  Új Válasz 2014-08-05 13:08:44 #22764

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz samfishR #22763 üzenetére

  Kijelölöd a 3 tartományt. A képletekbe a szum függvény helyett összeadásokat írsz. A kijelölt tartomány automatikusan beíródik az Érvényesség mezőbe, azzal nem kell külön foglalkoznod.

  

• #22762 Delila_1 veterán samfishR #22761

  Új Válasz 2014-08-05 11:02:39 #22762

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz samfishR #22761 üzenetére

  

• #22759 Delila_1 veterán samfishR #22758

  Új Válasz 2014-08-05 09:54:50 #22759

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz samfishR #22758 üzenetére

  Célszerű a listát áthozni a legördülőt tartalmazó füzetbe.
  ='C:\adatok\2014\[füzet.xlsx]Lapnév'!A1

  Ezt másolod, ameddig kell, és ezt a tartományt adod meg a legördülőhöz bemenetként. Mivel tartalmazza az útvonalat is, akkor is adja a listát, mikor a másik füzet nincs megnyitva.

  A válaszomban írtam, hogy be kell gépelned a másik füzet nevét, átkattintással nem tudsz arra hivatkozni. Jobb megoldás – amit most írtam –, ha a tartomány elemeit hivatkozod be abba a füzetbe, ahol a legördülőd van.

• #22715 Delila_1 veterán samfishR #22713

  Új Válasz 2014-08-01 10:06:58 #22715

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz samfishR #22713 üzenetére

  A forrásnál meg kell adnod (begépelned) a másik füzet nevét is.

  [Másik.xlsx]Lapnév!A1:A20

• #22544 Delila_1 veterán samfishR #22541

  Új Válasz 2014-07-23 16:09:49 #22544

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz samfishR #22541 üzenetére

  Szívesen.

• #22538 lappy őstag samfishR #22536

  Új Válasz 2014-07-23 15:27:59 #22538

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  lappy

  őstag

  válasz samfishR #22536 üzenetére

  Meg lehet oldani de mi honnan tudjuk azt hogy a többi esetben hany betű kell?

• #22537 Delila_1 veterán samfishR #22536

  Új Válasz 2014-07-23 15:26:47 #22537

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz samfishR #22536 üzenetére

  Vegyél fel egy segédtáblát, ahol megadod, melyik betűnél hány karaktert mutasson az A oszlop adataiból. Nálam ez az F:G tartomány.
  A B1 cella képletét látod a szerkesztőlécen.

  

  Bobrooney

  Nem jött össze a kép csatolása. Valószínűleg az irányított, újabb verziókban speciális szűrésre gondolsz.

• #22536 samfishR senior tag samfishR #22526

  Új Válasz 2014-07-23 15:17:55 #22536

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  samfishR

  senior tag

  válasz samfishR #22526 üzenetére

  Sziasztok, ehhez a kérdésemhez kapcsolódik egy újabb:

  a bal oldali oszlopban mindig ezek közül az értékek közül van megadva 1-1:

  C4500
  E1100
  E1170
  E1180
  E1190
  E2000
  F1100
  F1112
  F1900
  G2112
  G2300
  H3212
  K1100
  K3310
  L4910
  P229
  Q5400
  Q6240
  R1100
  R3400
  R3600
  R3800
  W4900

  A melette jobbra lévő oszlopba már nem elég csak az első 2 karakter (pl E1, G2), hanem úgy kellene, hogy ha egy konkrét betűvel, pl E-vel kezdődik az adott cella, akkor a mellette lévőbe csak az E betűt írja be, míg egy másiknál, pl az R1100 esetében kellene mind a 2 első karakter, pl az lenne R1..... Remélem érthetően írtam le

• #22532 Fferi50 Topikgazda samfishR #22530

  Új Válasz 2014-07-22 20:27:41 #22532

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fferi50

  Topikgazda

  válasz samfishR #22530 üzenetére

  Szia!

  Ezt többféleképpen is elkerülheted:
  1. megvizsgálod, hogy az osztó 0-e, ha igen, akkor nem osztasz, hanem beírod a 0 értéket: pl.
  =ha(A2=0;0;A1/A2)
  2. használod a hahiba függvényt (Excel 2010 -től): =hahiba(A1/A2;0)
  3. ha még nincs, akkor a ha és a hibás függvény kombinálása: =ha(hibás(A1/A2);0;A1/A2)

  Üdv.

• #22531 slashing senior tag samfishR #22530

  Új Válasz 2014-07-22 20:27:38 #22531

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  slashing

  senior tag

  válasz samfishR #22530 üzenetére

  Például így: =HAHIBA(A1/B1;0)

  vagy kiszeded a pipát a fájl/beállítások/képletek: Hibát okozó képleteket tartalmazó cellák

  én mondjuk ezt nem csinálnám mert jobb tudni ha valami hibát okoz mint később vakarni a fejünket....

• #22527 Delila_1 veterán samfishR #22526

  Új Válasz 2014-07-21 13:44:21 #22527

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz samfishR #22526 üzenetére

  Szívesen.

• #22521 lappy őstag samfishR #22520

  Új Válasz 2014-07-21 12:04:20 #22521

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  lappy

  őstag

  válasz samfishR #22520 üzenetére

  Szia!
  Érvényesítési lista melletti cellába a következő képlet kell
  =INDEX(A1: B20;HOL.VAN(C1;A1:A20;0);2)

• #8506 Fire/SOUL/CD félisten samfishR #8505

  Új Válasz 2010-10-19 22:58:41 #8506

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fire/SOUL/CD

  félisten

  válasz samfishR #8505 üzenetére

  Hali!

  Példa kedvéért A oszlopban lesznek a számok.

  1. A1-be 1, A2-be 2
  2. A1 és A2 kijelöl, kijelölés sarka megfog, egérrel lehúz ameddig kell
  (Ilyenkor semmi más nem történik, mint 1,2,3,4....40-ig bekerülnek egymás alá a számok az A oszlop celláiba.

  3. Teljes A oszlop kijelöl (de lehet csak azokat a cellákat is, amelyekben a számok vannak), jobb egér/cellaformázás/bal oldalt egyéni/jobb oldalt meg a Formátumkód-hoz beírod ezt (00) és leokézod. mindez KÉPEN

  Ezzel a módszerrel számként szerepelnek, nem szövegként, azaz tudsz velük számolási műveleteket is végezni, annak ellenére, hogy megjelenésében (01), (02) stb lesznek.

  Fire.

• #8445 Delila_1 veterán samfishR #8442

  Új Válasz 2010-10-18 06:42:58 #8445

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz samfishR #8442 üzenetére

  Elég az első cellánál megadni a formátumot. Az 1 beírása után a Ctrl billentyű lenyomása mellett "húzd" le 40 hosszan, akkor automatikusan növeli a sorszámokat.

  Másik módszer, hogy a celláknak szöveg formátumot adsz, ezután írod be a 01-et, a másolásához nem kell segédbillentyűt használni. Ezeket szövegként értelmezi az Excel, nem lehet velük számolni.

• #8444 Delila_1 veterán samfishR #8442

  Új Válasz 2010-10-18 06:12:52 #8444

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz samfishR #8442 üzenetére

  A cellaformátumot az egyéni kategóriában így add meg: 0#

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